المشاركات : 146
المواضيع 51
الإنتساب : Sep 2018
السمعة :
0
الشكر: 49
تم شكره 26 مرات في 18 مشاركات
يا شباب الموضوع باين من عنوانة انا عامل برنامج بيدخل بى سريل تفعيل + اسم الجهاز فا انا عايز اعمل جدول فى اسطضافة دروب بوكس مثلا احط فية اسامى 4 اجهزة وكل اما شخص يخش من ال4 دول يبحث عن اسم جهازة لاقاه يفتح معاة ملقهوش يجيلوة رسالت الخطا المعتادة وارجو مساعدتى بى هاذا الخضوص انا احتاج كود فقط انوة يبحث عن اسم الجهاز لانى ضايف اكواد الدخول الاخرة ولا اريد تخريبها ارجو مساعدتى فى هاذا الخصوص وشكر
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
30-11-18, 04:08 PM
(آخر تعديل لهذه المشاركة : 30-11-18, 05:06 PM {2} بواسطة asemshahen5.)
ما نوع الملف الذي تريد البحث فيه هل هو ملف تيكست او ملف قاعدة بيانات .
حدد نوع الملف .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 146
المواضيع 51
الإنتساب : Sep 2018
السمعة :
0
الشكر: 49
تم شكره 26 مرات في 18 مشاركات
(30-11-18, 04:08 PM)asemshahen5 كتب : ما نوع الملف الذي تريد البحث فيه هل هو ملف تيكست او ملف قاعدة بيانات .
حدد نوع الملف .
بص يا صديقى انا عايز اعمل ملف تكست واحط فية اسامى 4 اجهازة وكل جهاز من ال4 اذا دخل البرنامج يفتح معاة
توضيح اكثر يعنى عايز بدل ما اكون حاط لوبل يطابق اسم الجهاز وكدا لا يبحث عن اسم الجهاز قى الاسطضافة دروب بوكس مثلا ولو لقاة يفتح معاة البرنامج عادى ملقهوش ميفتحش
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
01-12-18, 12:35 AM
(آخر تعديل لهذه المشاركة : 01-12-18, 12:38 AM {2} بواسطة 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
هذا فيه إضافة سجلات كقاعدة البيانات و البحث عنها
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
المشاركات : 146
المواضيع 51
الإنتساب : Sep 2018
السمعة :
0
الشكر: 49
تم شكره 26 مرات في 18 مشاركات
(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
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة :
522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
01-12-18, 12:26 PM
(آخر تعديل لهذه المشاركة : 06-12-18, 03:53 AM {2} بواسطة asemshahen5.)
كود :
If Label1.Text.Contains("Test") Then
MsgBox("True")
Else
MsgBox("False")
End If
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
|