Vjeba Zadatak 1 1 Kreirati dvije forme Prva
Vježba
Zadatak 1 1. Kreirati dvije forme. Prva forma se otvara preko cijelog ekrana i na njoj se nalaze dva texbox-a i tri dugmeta UPIŠI, PROVJERI i NOVA. Dugme NOVA nije aktivno. U oba textbox-a se ne može upisati ništa. 2. Klikom na dugme UPIŠI pojavljuje se Inputbox sa pitanjem „upiši korisničko ime“ , odgovor se smješta u prvi textbox, zatim se otvara novi Inputbox sa pitanjem „upiši lozinku“, odgovor se upisuje u drugi textbox. 3. Klikom na dugme PROVJERI vrši se provjera da li je kombinacije korisničkog imena i lozinke tačna, ako jeste dugme NOVA postaje aktivno a ako nije pojavljuje se poruka - pokušaj ponovo. 4. Kad se klikne na dugme NOVA otvara se nova forma. Na formi se nalazi oblik ( kvadrat), dva opciona dugmeta (crvena, plava) i dva dugmeta IZBOR i KRAJ (nije vidljivo). Klikom na dugme IZBOR mijenja se boja oblika u zavisnosti od odabranog opcionog dugmeta. 5. Ako se odabere crvena boja onda i forma poprimi žutu boju. Kad se odabere plava boja pojavi se poruka „da li želiš dalje? “ sa dva dugmeta Yes i NO. Ako se odabere No dugme KRAJ postaje vidljivo. Kraj je izlazak iz forme. Ako se odabere dugme Yes boja forme se mijenja u crveno.
Private Sub cmd. NOVA_Click() Frm 2. Show End Sub Private Sub cmd. PROVJERA_Click() If Txt 1. Text = "jasna" And Txt 2. Text = "katic" Then cmd. NOVA. Enabled = True Else Msg. Box ("pokusaj ponovo") End If End Sub Private Sub cmd. UPISI_Click() Txt 1. Text = Input. Box("upisi korisnicko ime") Txt 2. Text = Input. Box("upisi lozinku") End Sub Private Sub Form_Load() cmd. NOVA. Enabled = False End Sub
Private Sub cmd. IZBOR_Click() If optcrvena = True Then Sh 1. Back. Color = vb. Red Frm 2. Back. Color = vb. Yellow Else. If Optplava = True Then Sh 1. Back. Color = vb. Blue a = Msg. Box("da li želiš dalje? ", vb. Yes. No, "moja poruka") If a = vb. Yes Then Frm 2. Back. Color = vb. Red Else cmd. KRAJ. Visible = True End If End Sub Private Sub cmd. KRAJ_Click() End Sub Private Sub Form_Load() cmd. KRAJ. Visible = False End Sub
Zadatak 2 1. 2. 3. 4. 5. Kreirati dvije forme. Prva forma se otvara preko cijelog ekrana imagebox i dva dugmeta (SLIKICA i NOVA koje nije vidljivo). U imageboxu se učitava slika. Kad se klikne na dugme SLIKICA otvara se poruka sa pitanjem „da li želiš da povecas sliku? “ i dva dugmeta Yes i No. Kad se odabere Yes slika se povećava po širini i visini za 150. Kada se odabere NO dugme NOVA postaje vidljivo. Kad se klikne na dugme NOVA otvara se nova forma. Na formi 2 se nalaze dva čekbox-a (plava, zelena), dva oblika (krug i kvadrat) i dva dugmeta KRAJ (nije vidljivo) i PROVJERA. Klikom na dugme PROVJERA vrši se provjera koji čekbox je odabran i u zavisnosti od toga mijenja se boja oblika. Plava je krug a Zelena je kvadrat. Kada se klikne na formu dugme KRAJ postaje vidljivo, klikom na KRAJ pojavljuje se inputbox sa pitanjem „da li zelis izaci? “ ako se upiše „da“ (velikim, malim slovima ili kombinacijom) izlazi se iz forme ako se upiše „ne“ dugme KRAJ postaje nevidljivo.
Private Sub CMDNOVA_Click() frm 2. Show End Sub Private Sub cmd. Slikica_Click() Dim a As String a = Msg. Box("Da li zeliš da povecas sliku? ", vb. Yes. No, "moja poruka") If a = vb. Yes Then Image 1. Height = Image 1. Height + 150 Image 1. Width = Image 1. Width + 150 Else CMDNOVA. Visible = True End If End Sub Private Sub Form_Load() CMDNOVA. Visible = False End Sub
Private Sub Form_Load() cmd. KRAJ. Visible = False End Sub Private Sub cmd. KRAJ_Click() Dim a As String a = Input. Box("da li zelis izaci") a = LCase(a) If a = "da" Then End Else. If a = "ne" Then cmd. KRAJ. Visible = False End If End Sub Private Sub Form_Click() cmd. KRAJ. Visible = True End Sub Private Sub cmd. PROVJERA_Click() If Ch. PLAVA = 1 Then Sh 1. Back. Color = vb. Blue frm 2. Back. Color = vb. Red Else Sh 1. Back. Color = vb. White frm 2. Back. Color = &H 8000000 F End If If Ch. ZELENA = 1 Then Sh 2. Back. Color = vb. Green Else Sh 2. Back. Color = vb. White End If End Sub
- Slides: 9