[أحمد عبدالله88]

السلام عليكم

هالبرنامج ليش ميشتغل العداد به هل الفجول بيسك لايدعم العداد
العداد يعد عدد واحد ثم يصفر العداد

هذا برنامج بسيط عبارة عن ادخال اعداد اما صفر او 1 او 2 ويوم البرنامج بفحصهن ثم يعد عداد لعدد 0او 1او2 ويطبع النتيجة في

text 2 & text 3 & text 4

شكرا جزيلا


الكود

Private Sub Command1_Click()
s = Val(Text1)
Select Case s
Case 0
n0 = n0 + 1
Case 1
n1 = n1 + 1
Case 2
n2 = n2 + 1
End Select
Text2 = n0
Text3 = n1
Text4 = n2
'Text1 = ""
End Sub

Private Sub Form_Load()
Dim s As Integer
s = 0
Dim n0 As Integer
Dim n1 As Integer
Dim n2 As Integer
End Sub

[أحمد عبدالله88]

تم حل المشكلة والحمد لله تعريف العدادات مكانه كان خطاء لاني كنت معرفهن في الفورم لود لكني نقلت مكان التعريف في اعلى البرنامج فاشتغل والحمد لله

[mounzerlb]

اقتباس المشاركة الأصلية كتبت بواسطة أحمد عبدالله88 السلام عليكم هالبرنامج ليش ميشتغل العداد به هل الفجول بيسك لايدعم العداد العداد يعد عدد واحد ثم يصفر العداد هذا برنامج بسيط عبارة عن ادخال اعداد اما صفر او 1 او 2 ويوم البرنامج بفحصهن ثم يعد عداد لعدد 0او 1او2 ويطبع النتيجة في text 2 & text 3 & text 4 شكرا جزيلا الكود Private Sub Command1_Click() s = Val(Text1) Select Case s Case 0 n0 = n0 + 1 Case 1 n1 = n1 + 1 Case 2 n2 = n2 + 1 End Select Text2 = n0 Text3 = n1 Text4 = n2 'Text1 = "" End Sub Private Sub Form_Load() Dim s As Integer s = 0 Dim n0 As Integer Dim n1 As Integer Dim n2 As Integer End Sub

هذا عداد إستفد من فكرته

Private Sub Timer1_Timer()
Dim Secondes As Long
Dim Sec As String
Dim Minutes As Long
Dim Mn As String
Dim Heures As Long
Dim Hr As String

Secondes = DateDiff("s", Temps_Dep, Time)

Heures = Secondes \ 3600
Minutes = Secondes \ 60

Mn = Minutes - (Heures * 60)
Hr = Heures

If Hr < 10 Then
    Hr = "0" & Heures
End If

If Mn < 10 Then
    Mn = "0" & Mn
End If

Sec = Secondes - (Minutes * 60)

If Sec < 10 Then
    Sec = "0" & Sec
End If

    Text1.Text = Hr & ":" & Mn & ":" & Sec
End Sub