تقييم الموضوع :
  • 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
بحيث اريد جلب جميع البيانات


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟ Microformt 4 166 19-08-16, 10:07 PM
آخر رد: جميل علي
  مساعدة (جزاكم الله خيرا ً) محمد خلف زكي 5 157 13-08-16, 12:55 AM
آخر رد: khodor1985
  اريد كود جمع شباب الله يبارك فيكم عبدالمؤمن 2 202 10-08-16, 07:45 AM
آخر رد: أبو عمر
Heart [مقال] السلام عليكم ورحمة الله وبركاته AhmedALasaly 0 133 26-12-15, 05:48 PM
آخر رد: AhmedALasaly
Thumbs Up [VB.NET] أريد مشروع تخرج جزاكم الله خيرا mrabdallahe 1 350 03-07-15, 11:33 PM
آخر رد: احمد عبد الحكيم
  [سؤال] ساعدوني الله يسعدكم حساب ايام الاجازات ro3h 9 1,420 18-05-15, 02:51 PM
آخر رد: ro3h
Exclamation ضرووري الله يخليكم mudz 1 416 17-12-14, 07:31 AM
آخر رد: aftfm
  [كود] اكواد العمليات الحسابية على قواعد البيانات ( جزاكم الله خير مقدما ) أبو يزن 10 2,359 09-11-14, 12:07 PM
آخر رد: احمد129
Sad مساعدة في كتابة كود بسيط ان شاء الله مسلم132 9 1,244 25-10-14, 10:58 AM
آخر رد: سعود
Heart [مشروع] اريد شرح لبرنامج فيجول ستوديو ،،، أثابكم الله أسد الشرق 0 455 26-08-14, 03:04 PM
آخر رد: أسد الشرق

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


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