Mam problem s programem – Visual Basic – Fórum – Programujte.com

Tady to mas :)

Private Sub CommandButton1_Click()

    Image1.Visible = False

    Label1.Caption = Int(Rnd * 10)

    Label2.Caption = Int(Rnd * 10)

    Label3.Caption = Int(Rnd * 10)

    If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then Image1.Visible = True

    Beep

    End Sub



Private Sub CommandButton2_Click()

    End

End Sub

Jé, Lucky 7, to znám :)

Teda, zaprvé jsem si nevšiml toho, cos tam upravil, ale možná jsem slepý.

A zadruhé, to musí pípat jen když je v některém captionu 7, a tudíž beep musí být v podmínce.

Možnost je buď rozepsat to na víc řádků a nebo oddělit dvojtečkou.

mno, puvodne to bylo odentrovane do radku a bejzik mi to nebral, tak jsem to dal do jedne lajny... pak jsem vymazal End If a jeste jsem zapomel nakonec podminky napsat And Beep :)

ale jinak mi to fungovalo dobre s tou vymazanou End-Ifou.

tož podmínky bez end if používám já docela často ale proč by to s end if nemělo pracovat ??

to ja nevim, me to ve skole nejak jecelo ze to proste nejde :)

Dobrý den, ve vašem programu jen chybí za (Label2.Caption = 7)
mezera a podtržítko, aby příkaz pokračoval na dalším řádku. Myslím ale, že už to dávno víte. S pozdravem M. K.