zadatak Kreirati dvije forme Na prvoj formi je

zadatak • Kreirati dvije forme. • Na prvoj formi je 1 labela “da li želiš da se igraš? ”, 1 textbox, i 2 dugmeta (da i izlaz). Prilikom otvaranja forme dugme izlaz nije vidljivo. Ako se u textbox upiše “da” kad se pritisne na dugme DA ulazi se u drugu formu, a ako je upisano nešto drugo dugme IZLAZ postaje vidljivo, a pritiskom na njega izlazi se iz forma. • Na drugoj formi imamo 1 labelu “upiši broj” 1 textbox i 1 dugme PROVJERI. Kad se unese broj u textbox i klikne na dugme provjeri vrši se provjera da li je uneseni broj veći, manji ili jednak broju 10!

Kod prilikom otvaranja forme Private Sub Form_Load() cmd. IZLAZ. Visible = False End Sub

Kod za dugme IZLAZ Private Sub cmd. IZLAZ_Click() End Sub

Napraviti drugu formu PROVJERA i promijeniti kod Private Sub cmd. DA_Click() If txt 1. Text = "da“ OR txt 1. Text = “DA“ Then frm. PROVJERA. Visible = True Else cmd. IZLAZ. Visible = True End If End Sub

Napraviti drugu formu PROVJERA i promijeniti kod Private Sub cmd. DA_Click() txt 1. Text = LCase(txt 1. Text) If txt 1. Text = “da“ Then frm. PROVJERA. Visible = True Else cmd. IZLAZ. Visible = True End If End Sub

Private Sub cmdprovjeri_Click() Dim a As Single a = txtbroj. Text If a >10 Then Msg. Box ("broj je veci od 10") Else Msg. Box ("broj je manji od 10") End If End Sub

Private Sub Command 1_Click() Dim a As Single a = txtbroj. Text If a = 10 Then Msg. Box ("broj je JEDNAK 10") Else If a > 10 Then Msg. Box ("broj je VECI OD 10") Else Msg. Box ("broj je MANJI OD 10") End If End Sub

Private Sub Command 1_Click() Dim a As Single a = txtbroj. Text If a = 10 Then Msg. Box ("broj je JEDNAK 10") Else. If a > 10 Then Msg. Box ("broj je VECI OD 10") Else Msg. Box ("broj je MANJI OD 10") End If End Sub