يا شباب ممكن مساعده في هذا العداد الي مارضاش يشتغل

[camp nou]

يا شباب ممكن مساعده في هذا العداد الي مارضاش يشتغل
ممكن تقولوا لي ايش حل هذه المشكله ( البرنامج فيجوال بيسك مكون من command ,timer ,text)
Interval = 1000



Dim s As Variant
Dim m As Variant
Dim h As Variant


Private Sub Command1_Click()
Timer1.Enabled = True
if s=60 then
m=1 and s=0


s = s + 1

end if


End Sub

Private Sub Form_Load()
s = 0
m = 0
h = 0

Text1.Text = Format(h & ":" & m & ":" & s, "hh:mm:ss")

End Sub

[ابولبيب]

Text1.Text = Format(h & ":" & m & ":" & s, "hh:mm:ss")
هنا في نقص قوسين لم يغلقا
ايضاء لما قرنت الs انها تساوي 60 متى يتحقق الشرط في حال عدم وجود قيمه في ال s في حال ان القيمة الافتراضيه
ل s هي صفر
ثانيا بامكانك تعديل صيغة الداله او استخدام الدالتين do>>>>while

[ابولبيب]

Text1.Text = Format(h & ":" & m & ":" & s, "hh:mm:ss")
هنا في نقص قوسين لم يغلقا
ايضاء لما قرنت الs انها تساوي 60 متى يتحقق الشرط في حال عدم وجود قيمه في ال s في حال ان القيمة الافتراضيه
ل s هي صفر
ثانيا بامكانك تعديل صيغة الداله او استخدام الدالتين do>>>>while
هذا ما لدينا والله اعلم

[camp nou]

القوسين مغلقان والاما بيشتغل البرنامج
جربنا جميع انواع اللوب بس ما اشتغل
شكرا ابو لبيب وماقصرت

[العمراوي]

ناقص الكود الذي بداخل التايمر ...


فينه ،،، لأن ذلك الكود هو الذي بايخلي التكس يتغير ...

[سهيل]

السلام عليكم أخي
أكيد برنامجك مابيشتغل لأنك حطيت حدث صندوق النص في الفورم لود والمروض انك تضعه داخل التايمر عشان
في كل ثانية العداد يقلب معاك والحاجة الثانية لازم كنت تعرف المتغيرات من نوع static عشان تمكن المتغير من التزايد بواحد
وترجع اخر قيمة وهاهو الكود ...

أكتب هذا الكود في داخل زر الكوماند حتى تمكن التيمر من العمل
Timer1.Enabled = True

ومن ثم أكتب هذا الكود في داخل التايمر عشان يتفذ في كل ثانية

Static s As Integer = 0
Static m As Integer = 0
Static h As Integer = 0
Timer1.Interval = 1
s = s + 1
If s = 60 Then
s = 1
m = m + 1
If m = 60 Then
m = 1
h = h + 1
End If
End If
Text1.Text = s & ":" & m & ":" & h
End Sub
وانا اكيد انه بيشتغل عندك لأني مجربه في جهازي