تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله
#1
السلام عليكم و رحمة الله و بركاته
بعد التحية

اخواني الاعزاء اعضاء المنتدي المتميز الكرام
عند تصفحي للمنتدي وجدت كثرة الأسئلة المتكررة لذلك فكرت في ان اضيف موضوع
يكون مرجع لكل من لديه سؤال

وأرحب بكل من يشارك سواء بسؤال او بحل
وفقنا و اياكم لله لصالح الاعمال و جزاكم عنها خيرا

أي سؤال او استفسار يسعدني و يشرفني اني اكون في خدمتكم


اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة: hadeel , dubai.eig , dubai.eig , Amir_Alzubidy
#2
وعليكم السلام ورحمة الله وبركاته
كنت اتمنى موضوعك في قسم الويب لان متوقف عند عثرة دائما تقف امامي وكل ما اقول وجدت الحل الا واجد الاشكال عاود من جديد.
ببساطة ارجو من اي شخص يتكرم بمثال تصفح بيانات تصفح مواضيع ثم ردود
الرد }}}
تم الشكر بواسطة:
#3
شكرآ أخى على هذا الموضوع ممكن تساعدنى فى هذا الكود ؟
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim i As Integer = Val(Label1.Text)
        If Not i < 100 AndAlso i > 0 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = True
            Label2.BackColor = Color.Lime
            Label4.BackColor = Color.Lime
            Label5.BackColor = Color.Lime
            Label6.BackColor = Color.Lime
        End If
        If Not i < 200 AndAlso i > 100 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = False
            Label2.BackColor = Color.CornflowerBlue
            Label4.BackColor = Color.CornflowerBlue
            Label5.BackColor = Color.CornflowerBlue
            Label6.BackColor = Color.CornflowerBlue
            If Not i < 300 AndAlso i > 200 Then
                Label2.Visible = False
                Label4.Visible = False
                Label5.Visible = False
                Label6.Visible = False
            Else
                Label2.Visible = True
                Label4.Visible = True
                Label5.Visible = False
                Label6.Visible = False
                Label2.BackColor = Color.Orange
                Label4.BackColor = Color.Orange
                Label5.BackColor = Color.Orange
                Label6.BackColor = Color.Orange
                If Not i < 2000 AndAlso i > 300 Then
                    Label2.Visible = False
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                Else
                    Label2.Visible = True
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                    Label2.BackColor = Color.Red
                    Label4.BackColor = Color.Red
                    Label5.BackColor = Color.Red
                    Label6.BackColor = Color.Red
                End If
            End If
        End If
    End Sub
الرد }}}
تم الشكر بواسطة:
#4
محمد كتب :شكرآ أخى على هذا الموضوع ممكن تساعدنى فى هذا الكود ؟
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim i As Integer = Val(Label1.Text)
        If Not i < 100 AndAlso i > 0 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = True
            Label2.BackColor = Color.Lime
            Label4.BackColor = Color.Lime
            Label5.BackColor = Color.Lime
            Label6.BackColor = Color.Lime
        End If
        If Not i < 200 AndAlso i > 100 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = False
            Label2.BackColor = Color.CornflowerBlue
            Label4.BackColor = Color.CornflowerBlue
            Label5.BackColor = Color.CornflowerBlue
            Label6.BackColor = Color.CornflowerBlue
            If Not i < 300 AndAlso i > 200 Then
                Label2.Visible = False
                Label4.Visible = False
                Label5.Visible = False
                Label6.Visible = False
            Else
                Label2.Visible = True
                Label4.Visible = True
                Label5.Visible = False
                Label6.Visible = False
                Label2.BackColor = Color.Orange
                Label4.BackColor = Color.Orange
                Label5.BackColor = Color.Orange
                Label6.BackColor = Color.Orange
                If Not i < 2000 AndAlso i > 300 Then
                    Label2.Visible = False
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                Else
                    Label2.Visible = True
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                    Label2.BackColor = Color.Red
                    Label4.BackColor = Color.Red
                    Label5.BackColor = Color.Red
                    Label6.BackColor = Color.Red
                End If
            End If
        End If
    End Sub

اخي الكريم استبدل كلمة andalso ب كلمة or
في انتظار ردك
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#5
هل يمكنني صنع برنامج يقوم بتحديد الداون لود
يعني اعمل له حجم محدد يقوم بتنزيله
مثال عندي مقطع mp3 وابي انزله واشتي البرنامج اذا كان المقطع اكبر من 4 ميجا لا ينزله واذا كان اقل يقوم بتنزيله
الرد }}}
تم الشكر بواسطة:
#6
اخي الكريم جزيت خير الاجزاء ان شاءلله وجعلة في ميزان حسناتك

سؤالى البحت بتاريخ ما يجيب نتيجة مائة بلمائة شوف الصورة وانت تفهم وهدا الكود مرفق ايظن اخي

PHP كود :
dt.Clear()
        
Dim ds As New DataSet
        Dim sql1 
As String "select i.inv_no,i.code,i.drive,i.engine,i.transf,i.chass_no,i.eng_no,i.vin,i.color,i.cd_no,i.cd_date,i.key_no from Invoice3 i , cust_information c  where i.inv_no = c.inv_no And i.model like '%" ComboBox1.Text "%' And c.inv_date >='" DateTimePicker1.Text "' And c.inv_date <='" DateTimePicker2.Text "'"
        
con3.Open()

        
Dim da As New SqlDataAdapter(sql1con3)
        
da.Fill(dt)

        
DataGridView1.DataSource dt
        DataGridView1
.Refresh()

        
''-----------------------------------------
        
''-----------------------------------------
        
DataGridView1.Columns(0).Width 60
        DataGridView1
.Columns(1).Width 80
        DataGridView1
.Columns(2).Width 80
        DataGridView1
.Columns(3).Width 80
        DataGridView1
.Columns(4).Width 80
        DataGridView1
.Columns(5).Width 90

        DataGridView1
.Columns(6).Width 80
        DataGridView1
.Columns(7).Width 180
        DataGridView1
.Columns(8).Width 80
        DataGridView1
.Columns(9).Width 80
        DataGridView1
.Columns(10).Width 80

        DataGridView1
.Columns(11).Width 90
     



        DataGridView1
.Columns(0).HeaderText " Invoice No "
        
DataGridView1.Columns(1).HeaderText "Mark"
        
DataGridView1.Columns(2).HeaderText "Drive"
        
DataGridView1.Columns(3).HeaderText "Engine"
        
DataGridView1.Columns(4).HeaderText "Trans"
        
DataGridView1.Columns(5).HeaderText "chass_no"

        
DataGridView1.Columns(6).HeaderText "Eng_no"
        
DataGridView1.Columns(7).HeaderText "VIN"
        
DataGridView1.Columns(8).HeaderText "Color"
        
DataGridView1.Columns(9).HeaderText "CD_no"
        
DataGridView1.Columns(10).HeaderText "CD_date "
        
DataGridView1.Columns(11).HeaderText "Key_no"
      



        
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment DataGridViewContentAlignment.MiddleCenter
        
'-------------------------------------------
        con3.Close() 


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#7
مراد بورجي كتب :اخي الكريم جزيت خير الاجزاء ان شاءلله وجعلة في ميزان حسناتك

سؤالى البحت بتاريخ ما يجيب نتيجة مائة بلمائة شوف الصورة وانت تفهم وهدا الكود مرفق ايظن اخي

PHP كود :
dt.Clear()
        
Dim ds As New DataSet
        Dim sql1 
As String "select i.inv_no,i.code,i.drive,i.engine,i.transf,i.chass_no,i.eng_no,i.vin,i.color,i.cd_no,i.cd_date,i.key_no from Invoice3 i , cust_information c  where i.inv_no = c.inv_no And i.model like '%" ComboBox1.Text "%' And c.inv_date >='" DateTimePicker1.Text "' And c.inv_date <='" DateTimePicker2.Text "'"
        
con3.Open()

        
Dim da As New SqlDataAdapter(sql1con3)
        
da.Fill(dt)

        
DataGridView1.DataSource dt
        DataGridView1
.Refresh()

        
''-----------------------------------------
        
''-----------------------------------------
        
DataGridView1.Columns(0).Width 60
        DataGridView1
.Columns(1).Width 80
        DataGridView1
.Columns(2).Width 80
        DataGridView1
.Columns(3).Width 80
        DataGridView1
.Columns(4).Width 80
        DataGridView1
.Columns(5).Width 90

        DataGridView1
.Columns(6).Width 80
        DataGridView1
.Columns(7).Width 180
        DataGridView1
.Columns(8).Width 80
        DataGridView1
.Columns(9).Width 80
        DataGridView1
.Columns(10).Width 80

        DataGridView1
.Columns(11).Width 90
     



        DataGridView1
.Columns(0).HeaderText " Invoice No "
        
DataGridView1.Columns(1).HeaderText "Mark"
        
DataGridView1.Columns(2).HeaderText "Drive"
        
DataGridView1.Columns(3).HeaderText "Engine"
        
DataGridView1.Columns(4).HeaderText "Trans"
        
DataGridView1.Columns(5).HeaderText "chass_no"

        
DataGridView1.Columns(6).HeaderText "Eng_no"
        
DataGridView1.Columns(7).HeaderText "VIN"
        
DataGridView1.Columns(8).HeaderText "Color"
        
DataGridView1.Columns(9).HeaderText "CD_no"
        
DataGridView1.Columns(10).HeaderText "CD_date "
        
DataGridView1.Columns(11).HeaderText "Key_no"
      



        
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment DataGridViewContentAlignment.MiddleCenter
        
'-------------------------------------------
        con3.Close() 

اخي الكريم عند البيث بين تاريخين نستخدم between مثال
كود :
Where c.inv_date BETWEEN '" & DateTimePicker1.Text & "' And '" & DateTimePicker2.Text & "'"
بالتوفيق انشاء الله
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#8
الميسري كتب :هل يمكنني صنع برنامج يقوم بتحديد الداون لود
يعني اعمل له حجم محدد يقوم بتنزيله
مثال عندي مقطع mp3 وابي انزله واشتي البرنامج اذا كان المقطع اكبر من 4 ميجا لا ينزله واذا كان اقل يقوم بتنزيله

اخي الكريم الكود موجود بالمنتدي
تفضل اخي الكريم رابط الموضوع
http://vb4arb.com/vb/showthread.php?2340...A%D1%E4%CA
اللهم صلي وسلم و بارك علي اشرف الخلق و اكرم المرسلين سيدنا محمد ﷺ
لا تنسوني من صالح دعائكم
السلام عليكم و رحمة الله و بركاته
الرد }}}
تم الشكر بواسطة:
#9
هل يمكن عمل Ip Block ?
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم هل يمكن المساعدة في قراءة الداتا الخاصة بمفتاح معين في الرجيسترى
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2
بحيث اريد جلب جميع البيانات


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  من يعلم ما هذا الخطأ وكيف تصحيحه؟ جزاكم الله خيراً hazim1 2 370 14-07-23, 01:41 PM
آخر رد: hazim1
  [سؤال] السلام عليكم ورحمة الله وبركاته محمد العيساوي 0 243 16-12-22, 02:22 PM
آخر رد: محمد العيساوي
Star احبتى فى الله (سؤال فى قواعد البيانات اكسس) خالد كامل1 2 549 17-09-22, 01:49 PM
آخر رد: خالد كامل1
  [سؤال] لسلام عليكم ورحمه الله وبركاته ازاي افعل خاصيه امكانيه التعديل علي الكود أثناء تشغيل حسن الجلب 1 650 06-08-22, 07:39 PM
آخر رد: asmarsou
  [VB.NET] افيدوني جزاكم الله خيرا كود حساب أصناف معينه abo ragab 29 2,584 06-07-22, 03:31 AM
آخر رد: abo ragab
  [VB.NET] مشكله في جمله inner join ارجوا المساعده يرحمكم الله فراس محي 12 2,401 18-04-22, 11:02 AM
آخر رد: فراس محي
  مشكله زر التعديل ضرورى افادكم الله حسين ادريس 6 1,423 12-03-22, 03:43 AM
آخر رد: حسين ادريس
  [سؤال] السلام عليكم ورحمة الله وبركاته محتاج شرح كيفية البحث عن تفاصيل فاتوره فيجوال بيسك حسين ادريس 3 1,394 15-01-22, 11:24 AM
آخر رد: ابراهيم ايبو
  طلب بسيط من احبتى فى الله المتميزين وسهل تم الحل عن طريق (ابو انس +mrfenix93) خالد كامل1 5 2,091 05-07-21, 09:21 PM
آخر رد: ابو انس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم