تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اين الخطأ في الكود لو سمحتم
#1
Photo 
   
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد
تم الشكر بواسطة:
#2
مالذي تريده من هذا الكود البحث عن سجل معين في التيكست بوكس هذا مثال مبسط عن الإضافة و البحث :

كود :
   Dim File1, name1, number1, bsalary, a, B, n As String
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       File1 = Application.StartupPath & "\Asem.txt"
   End Sub
   Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
       If File1 = "" Then
           MsgBox("الرجاء تحديدالملف المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
       Else
           FileOpen(1, File1, OpenMode.Append)
           WriteLine(1, TextBox1.Text)
           WriteLine(1, TextBox2.Text)
           WriteLine(1, TextBox3.Text)
           WriteLine(1, TextBox4.Text)
           WriteLine(1, TextBox5.Text)
           WriteLine(1, TextBox6.Text)
           FileClose(1)
           TextBox1.Text = ""
           TextBox2.Text = ""
           TextBox3.Text = ""
           TextBox4.Text = ""
           TextBox5.Text = ""
           TextBox6.Text = ""
       End If
   End Sub
    Private Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
       Dim msg As String
       If TextBox2.Text = "" Then
           MsgBox("الرجاء إدخال الإسم في حقل الإسمَ", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
       Else
           msg = TextBox2.Text
           If File1 = "" Then
               MsgBox("الرجاء تحديد المحافظة أو البلد المطلوب أولا", MsgBoxStyle.Critical, "الرجاء إكمال خطوات البحث")
           Else
               FileOpen(1, File1, OpenMode.Input)
               Do While Not EOF(1)
                   Input(1, name1) : Input(1, number1) : Input(1, bsalary) : Input(1, a) : Input(1, B) : Input(1, n)
                   If msg = number1 Then
                       TextBox1.Text = name1
                       TextBox2.Text = number1
                       TextBox3.Text = bsalary
                       TextBox4.Text = a
                       TextBox5.Text = B
                       TextBox6.Text = n
                   End If
               Loop
               FileClose(1)
           End If
       End If
   End Sub

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة:
#3
الموضوع يتعلق بقراءة ملف plt
بحيث ينقل الرسم الى برنامجي
ممكن المساعدة
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد
تم الشكر بواسطة:
#4
ضع لي نسخة من ملف plt

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة:
#5

.rar   JA-4.rar (الحجم : 2.63 ك ب / التحميلات : 4)
(30-11-18, 06:40 PM)asemshahen5 كتب : ضع لي نسخة من ملف plt
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد
تم الشكر بواسطة:
#6
السلام عليكم
سيد asemshahen5   المطلوب موجود في هذا البرنامج ولكنه مصمم بالفيجوال بيسك 6
اريده بالفيجوال دون نت

.zip   hpgl.zip (الحجم : 109.94 ك ب / التحميلات : 1)
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
الرد
تم الشكر بواسطة:
#7
Input(1, B)
or
كود :
B=InputString(1,1)

'm

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: samira20


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل بسيط في الكود :) مجهول 0 22 منذ 9 ساعة مضت
آخر رد: مجهول
Photo اين الخطأ في الكود لو سمحتم samira20 0 43 30-11-18, 11:08 AM
آخر رد: samira20
  [سؤال] ما الخطأ في الكود التالي اسامه الهرماوي 2 87 23-11-18, 05:52 PM
آخر رد: Rabeea Qbaha
  حل مشكلة هذا الكود imam_boune 2 76 23-11-18, 02:13 PM
آخر رد: imam_boune
  [سؤال] ما الخطأ في هذا الكود اسامه الهرماوي 3 96 21-11-18, 02:05 AM
آخر رد: اسامه الهرماوي
  مش عارف الخطأ فين احمد خطاب 5 111 20-11-18, 01:22 AM
آخر رد: احمد خطاب
  ممكن اعرف ما هو الخطأ هنا ابو روضة 9 246 16-11-18, 04:02 AM
آخر رد: ابو روضة
  مشكلة في الكود salahmax12 4 173 08-11-18, 08:36 PM
آخر رد: salahmax12
  محتاج مساعدة فى كتابة الكود احمد خطاب 6 160 06-11-18, 09:21 PM
آخر رد: احمد خطاب
  سؤال في الكود مهم لو سمحتم احمد خطاب 14 275 05-11-18, 06:57 PM
آخر رد: احمد خطاب

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


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