استفاده از دستور case

[ebi_bu]

سلام
من هر کاری می کنم نمی تونم از دستور 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

[vbhamed]

سلام
دوست عزيز، اينم راه حل، ولي طبق قوانين يك سؤال رو در 2 تا تاپيك نپرسيد



Private Sub Timer1_Timer()

Label1.Caption = nsecond

Select Case insecond

Case 0
nsecond = nsecond + 1

Select Case nsecond
Case 10: insecond = 1
End If

Case Else
nsecond = nsecond - 1

Select Case nsecond
Case 0: insecond = 0
End If

End Select

End Sub

[ebi_bu]

سلام.هر کاری می کنم بازم جواب نمی ده :گریه:

[ƒxmahdi]

Label1.Caption = nsecond
Select Case insecond
Case Is = 0
nsecond = nsecond + 1
Select Case nsecond
Case Is = 10
insecond = 1
End Select
Case Else
nsecond = nsecond - 1
Select Case nsecond
Case Is = 0
insecond = 0
End Select
End Select

اما یه راه ساده تر


Label1.Caption = nsecond
Select Case insecond
Case Is = 0
nsecond = nsecond + 1
If nsecond = 10 Then insecond = 1
Case Else
nsecond = nsecond - 1
If nsecond = 0 Then insecond = 0
End Select