الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكلة على برنامج Vb6

بدأه minous في 29 يوليو 2009 · 11 رد · 795 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

من فضلكم أريد معرفة الكود المناسب للمشكل اللذي عندي

عندي تاكست بوكس 1 مربوط بقاعدة البيانات في فورم 1

و تاكست بوكس 2 في فورم 2 لعرض البيانات التي قمت بحفظها على الفورم 1

قمت بإضافة بيانات في التاكست بوكس 1 وهو رقم 5 و قمت بحفظه

في الفورم 2 سيقع عرض رقم 5 في التاكست بوكس 2

المطلوب

عند كل إضافة برقم 5 في قاعدة البيانات يقع إعلا م المستعمل بذلك عن طريق مسساج بوكس

مثال قمت بادراج رقم 5 ثم قمت بتعديله إلى رقم 10 فيعلمني البرنامج ان الرقم اصبح 10 يعني كل إضافة برقم 5 يعلمني البرنامج بذلك

مع الشكر ارجو ان تكونو قد فهمتم ما اريد مع الشكر الجزيل لكافة أعضاء و مشرفي المنتدى

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخي الكريم

المطلوب غير واضح مئيه بالمئيه

وحتي لاتهمل مشاركتك ويتم حلها ارجوالتوضيح اكثر والافضل لو ترفق مثال مبسط بالمطلوب

وفقك لله

mzgr2003@yahoo.com

#3

شكرا يا أخ ذاكر سوف أبعث إليك المثال إلى بريدك الالكتروني

#4

مع الزميل ذاكر ضع مثال على مشكلتك ليتسنى لنا فحصها و تقديم كل ما نقدر عليه من العون لك أخى العزيز

تقبل تحياتى

#5

السلام عليكــم ورحمـة الله وبركاتــه ،،

اتمنى اني اكون فهمت وش تقصد .. :lol: ..

هذا في حدث ضغط زر او Text_changed او اللي انت تبي .. :) ..

Form2.TextBox1.Text = Val(Me.TextBox1.Text)

وفي الفورم الثاني نعرض الرساله كذا :

MsgBox(Val(TextBox1.Text), MsgBoxStyle.Information)

اذا ما كان هذا المطلوب اتمنى انك توضح اكثر ، لاني هذا اللي فهمته .. :) ..

#6

1249566405946.jpg

1249566405445.jpg

[b]هذا عنوان تحميل المصدر بلغة وينداف 11

http://rapidshare.com/files/264255817/Vidange.rar.html

كلمة السر لفك ضغط الملف:minous

لا مشكلة ان وجد الكود بلغة في بي 6 مع الشكر

تم تعديل هذه المشاركة بواسطة minous في 6 أغسطس 2009 في 16:48

#7

السلام عليكم ،،

استخدم Mod ، هكذا :


TextBox3.Text = "الرجاء "
End If
If (TextBox2.Text Mod 5000) = 0 Then

بالتوفيق ،،

#8

ليس هذا المطلوب

#9

يجب تحديد الحالتين يا الغالي يعني يكون فيه شرطين

كذا :


TextBox3.Text = "الرجاء "
Else If (TextBox2.Text Mod 5000)<>0 Then
TextBox3.Text = " غير ضروري"
End If
If (TextBox2.Text Mod 5000) = 0 Then

#10

---

تم تعديل هذه المشاركة بواسطة العقده في 8 أغسطس 2009 في 15:20

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#11 
Private Sub Text1_Change()
   Label1.Caption = Get_KM
End Sub

Private Function Get_KM() As String
Get_KM = ""
If Trim(Text1) = "" Then Exit Function

Select Case Val(Text1)

Case 0 To 4999
   Get_KM = "غير ضروري تغيير زيت المحرك"
   Label1.ForeColor = vbGreen

Case 5000 To 20000
   Get_KM = "ضروري تغيير زيت المحرك ولا بتروح عليك المكينه"
   Label1.ForeColor = vbRed

End Select

End Function


' اجراء الحدث التالي يضمن تسجيل الارقام فقط
Private Sub Text1_KeyPress(KeyAscii As Integer)
	If (KeyAscii <> 8) And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

تم تعديل هذه المشاركة بواسطة العقده في 8 أغسطس 2009 في 15:40

ليس كل ما يتمناه المرء يدركه

arabteam2000.gif

#12

ممكن القصد كالتالي:

يجب تخزين قراءة الكم السابق في الجدول ولنفرض اسم الحقل aa

وعند ادخال قيمة جديدة يتم الفحص ولنفرضها new_val

نجد الفرق في متغير ثالث ولنفرضه x

x=aa+new_val

والان نعود لطريقة الاخ profesor

If (x Mod 5000) = 0 Then
   MsgBox "الرجاء... "
Else
   MsgBox " غير ضروري"
End If

هاد الي فهمتو :)

محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!

عليك بالاقتراب من خالقك

عليك بصلاة الاستخارة

وعليك بالصدقة

داوو مرضاكم بالصدقة

ما نقص مال من صدقة

تصدقو ولو بشق تمرة

مواضيع مشابهة