2 podmínky najednou – Visual Basic – Fórum – Programujte.com

Právě dělám takový multifunkční budík a narazil jsem na menší problém. Potřebuji, aby se do TextBoxu dala zapsat pouze číselná hodnota ale menší než 24 (to budou hodiny). Nevím ale, jednoduchý způsob (pokud je) jak to napsat, aby tyto 2 podmínky platily zároveň. Zatím jsem použil ten delší způsob:

Dim a As Byte

Dim b As Byte

Dim c As Byte



If IsNumeric(Text1) Then 'hodnota musí být číselná

a = 1

Else

a = 0

End If



If Val(Text1.Text) <= 23 Then 'hodnota musí být menší nebo rovna 23

b = 1

Else

b = 0

End If



c = a + b

   Select Case c

     Case Is = 2

       Command1.Enabled = True 'tlačítko se dá stisknout

       'pouze tehdy, jsou-li obě podminky splněny

     Case Else

       Command1.Enabled = False

   End Select



End Sub

If IsNumeric(Text1) Then If Val(Text1.Text) <= 23 Then

Command1.enabled = True

Else

Command1.enabled = False

End If

If (IsNumeric(Text1) AND Val(Text1.Text) <= 23) Then

DÍÍÍÍÍÍÍÍKY MOC!!!!!!!

Postupuješ podle nějaké příručky nebo učebnice? Tohle se musí brát v jedné z prvních lekcí :)

Trochu mě zaujalo Mistrovství v C++, kde se tohle bere až v 6. kapitole na cca 250 stránce... :smile14: