تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود يا شباب يبحث عن سطر او كلمة دخل الاسطضافة
#1
يا شباب الموضوع باين من عنوانة انا عامل برنامج بيدخل بى سريل تفعيل + اسم الجهاز فا انا عايز اعمل جدول فى اسطضافة دروب بوكس مثلا احط فية اسامى 4 اجهزة وكل اما شخص يخش من ال4 دول يبحث عن اسم جهازة لاقاه يفتح معاة ملقهوش يجيلوة رسالت الخطا المعتادة وارجو مساعدتى بى هاذا الخضوص انا احتاج كود فقط انوة يبحث عن اسم الجهاز لانى ضايف اكواد الدخول الاخرة ولا اريد تخريبها ارجو مساعدتى فى هاذا الخصوص وشكر  Heart Heart
الرد
تم الشكر بواسطة:
#2
ما نوع الملف الذي تريد البحث فيه هل هو ملف تيكست او ملف قاعدة بيانات .
حدد نوع الملف .

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة:
#3
(30-11-18, 04:08 PM)asemshahen5 كتب : ما نوع الملف الذي تريد البحث فيه هل هو ملف تيكست او ملف قاعدة بيانات .
حدد نوع الملف .

بص يا صديقى انا عايز اعمل ملف تكست واحط فية اسامى 4 اجهازة وكل جهاز من ال4 اذا دخل البرنامج يفتح معاة 

توضيح اكثر يعنى عايز بدل ما اكون حاط لوبل يطابق اسم الجهاز وكدا لا يبحث عن اسم الجهاز قى الاسطضافة دروب بوكس مثلا ولو لقاة يفتح معاة البرنامج عادى ملقهوش ميفتحش  Heart Heart
الرد
تم الشكر بواسطة:
#4
كود :
   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
هذا فيه إضافة سجلات كقاعدة البيانات و البحث عنها

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة:
#5
(01-12-18, 12:35 AM)asemshahen5 كتب :
كود :
   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
هذا فيه إضافة سجلات كقاعدة البيانات و البحث عنها
احى انتا لم تفهمنى انا اعمل بى هاذا الكود 
كود :
If Label1.Text = TextBox1.Text Then
من حيث انى بحدث قيمة label من على بعد انا لا اريد هيك بقا انا اريد ان يبحث عن قيمة مثلا داخل ملف تكست فى الروب بوكس يكون موضوع داخلة 4 اسامى لى الاجهازة او بريد وعند ادخال القيمة فى التكست بوكس يقوم بى البحث داخل ملف التكست المرفوع على الدروب بوكس واذا وجد داخلة الملف القيمة المضافة فى التكست بوكس يفتح ملقهاش يجيلوة مسج بوكس او بمعنى اوضح لو لقها يطبق الكود التالى 

كود :
           Form1.Show()
           Me.Hide()
           TextBox1.Clear()
           TextBox2.Clear()
       Else
           MsgBox("يجرا التحقق من المعلومات المدخلة والمحولة مرا اخرا")
           TextBox1.Clear()
           TextBox2.Clear()

       End If
الرد
تم الشكر بواسطة:
#6
كود :
If Label1.Text.Contains("Test") Then
           MsgBox("True")
       Else
           MsgBox("False")
       End If

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 115 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 102 11-02-19, 11:39 PM
آخر رد: princelovelorn
  [سؤال] شباب ازاي اعمل شريط في فجوال 2010 A12 1 101 07-02-19, 11:23 PM
آخر رد: princelovelorn
  مساعدة في جعل الإستعلام يبحث عن جزء من الكلمة Hamoody 5 133 27-01-19, 09:23 PM
آخر رد: Hamoody
  محتاج مساعدة فى استعداة السورس كود لى برنامجي Mohamed Magdy 1 116 19-01-19, 03:03 AM
آخر رد: sendbad100
  ف/ي كلمة السر واسم المستخدم hassan 14 5 184 19-01-19, 02:46 AM
آخر رد: sendbad100
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 168 17-01-19, 09:50 AM
آخر رد: dubai.eig
  محتاج كود اظهار ايقونه للبرنامج بجوار الساعة ... التفاصيل في الداخل . PeterGhattas082460 0 91 15-01-19, 06:05 PM
آخر رد: PeterGhattas082460
  [سؤال] كيفية البحث داخل حقل تيكست عن كلمة بداخله والمقارنة dametucorazon 3 225 09-01-19, 11:29 AM
آخر رد: dametucorazon
  محتاج طريقة اضافة اعلان مثلا بانر Mohamed Magdy 3 184 02-01-19, 04:11 PM
آخر رد: أبووسم

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


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