• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

osamagadour

اعضاء جدد
  • عدد المشاركات

    9
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن osamagadour

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. كيفية استدعاء صنف بالباركود

    السلام عليكم ورحمة الله وبركاته لنفرض أنك لديك جدول اسمه Table ولديك أعمدة بهذا الجدول رقم الصنف = Itemno نوع الصنف = itemtype اعمل فورم جديد, وضع فيه زر وعدد 2 تكست بوكس Button1 TextBox1 TextBox2 واكتب هذا الكود في الزر  Try                    con.Open()                    Dim sq As String = "select * from table where itemno='" + textbox1.text + "'"                    Dim cmd As New SqlCommand(sq, con)                    Dim rd As SqlDataReader = cmd.ExecuteReader                    rd.Read()textbox1.text= rd("itemno")textbox2.text=rd("itemtype")rd.closeCatch ex As Exception                    MsgBox(ex.Message)                Finally                    con.Close()                End Tryطبعا هذا مثال, وانت غير او ضيف حسب حاجتك, يعنى لو هناك عمود أخر في الجدول مثلا لتاريخ صلاحية الصنف expdate في هذه الحالة تضيف textbox3 وتسند قيمة القراءة إليه وتضيفها في الكود textbox3.text=rd("expdate")وهكذا حسب حاجتك,يعني أن الذي بين قوسين وعلامة التنصيص هو اسم العمود في الجدول, ان شاء الله الصورة تكون واضحة.
  2. السلام عليكم ورحمة الله وبركاته   ممكن تفهمني أكثر والله ما فهمت عليك, ياريت توضحلي مثال بالصورة, صورة للبيانات في التكست بوكس, وصورة أخرى للداتا بعد حفظها.
  3. تنفيذ شرط عند تغير لغة الويندوز

    السلام عليكم ورحمة الله وبركاته   Public Sub detectlanguage()        Dim detectlang As InputLanguage = InputLanguage.CurrentInputLanguage        If (detectlang.Culture.EnglishName).Contains("Ar") Then            'do something        Else            'do something        End If    End Sub   Private Sub Form1_InputLanguageChanged(ByVal sender As Object, ByVal e As InputLanguageChangedEventArgs) Handles MyBase.InputLanguageChanged        detectlanguage()    End Sub
  4. السلام عليكم ورحمة الله وبركاته For Each linebyline As String In TextBox1.Text.Split(vbNewLine) insert into table linebyline.....        Next
  5. السلام عليكم ورحمة الله وبركاته هذا الكود يقوم بتحويل أي فراغ إلى سطر جديد ولا تنسى تفعيل MultiLine في التيكست بوكس TextBox1.Text = TextBox1.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)
  6. عرض sheet في combobox

    السلام عليكم ورحمة الله وبركاته أول شي قم بإضافة Reference الى مشروعك بالذهاب إلى Project ثم إلى Add Reference ثم اختار COM ثم ابحث عن  Microsoft Excel 12.0 Object Library بعد ذلك قم بكتابة الكود كالآتي   Imports Excel = Microsoft.Office.Interop.ExcelPublic Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim oXL As Excel.Application = New Excel.Application Dim oWB As Excel.Workbook = oXL.Workbooks.Open("C:\Book1.xlsx") oXL.Visible = True For Each oSheet As Excel.Worksheet In oWB.Sheets ComboBox1.Items.Add(oSheet.Name) Next ComboBox1.SelectedIndex = 0 End SubEnd Class 
  7. السلام عليكم انا مبرمج لكن الشيء الوحيد الذي لم أدرسه ولم استطع فهمه هو كيف يتم صناعة الالعاب سواء 2D أو 3D!! هل من كتاب او احد الاعضاء يعطينا فكرة مبسطة كيف تعمل الالعاب وكيف تتم برمجتها؟ وبارك الله فيكم
  8. مشكلة في اول مشروع عند التشغيل

    قم بتغيير حجم الرام في AVD إلى قيمة أكبر
  9. شكرا لك, أنا لست خبير أمني ولا تخصصي ولكن فضولي في قراءة كتب عن التشفير من باب المعرفة ربي يوفقك ان شاء الله