ebi_bu
یک شنبه 10 آذر 1387, 09:26 صبح
سلام
من هر کاری می کنم نمی تونم از دستور case داخل برنامه زیر استفاده کنم می خواستم بهم کمک کنید شکل کلی برنامه من چطوری میشه؟(می خوام که if توی برنامه من نباشه)
Private Sub Timer1_Timer()
Label1.Caption = nsecond
If insecond = 0 Then
nsecond = nsecond + 1
If nsecond = 10 Then insecond = 1
Else
nsecond = nsecond - 1
If nsecond = 0 Then insecond = 0
End If
End Sub
من هر کاری می کنم نمی تونم از دستور case داخل برنامه زیر استفاده کنم می خواستم بهم کمک کنید شکل کلی برنامه من چطوری میشه؟(می خوام که if توی برنامه من نباشه)
Private Sub Timer1_Timer()
Label1.Caption = nsecond
If insecond = 0 Then
nsecond = nsecond + 1
If nsecond = 10 Then insecond = 1
Else
nsecond = nsecond - 1
If nsecond = 0 Then insecond = 0
End If
End Sub