الفريق العربي للبرمجةأرشيف المنتديات · 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

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

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

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

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

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

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

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

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

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

عدد الزوار حالياً

المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…