PELI

"Piirrä" lomakkeelle seuraavat oliot:

Kuva (hae siihen sopiva kuva)

2 Timeria

1 Label

1)

Vaihda kuvalle visible = false

Vaihda timerien enabled false, Interval timer1: 2000, timer2: 4000

Tyhjää labelin teksti

2) general:

Dim pisteet As Integer
Dim vasen As Integer
Dim korkeus As Integer

3) Sub Timer1_Timer ()

Randomize
vasen = Int(Rnd * 4000) + 1
korkeus = Int(Rnd * 4000) + 1
picture1.Left = vasen
picture1.Top = korkeus
picture1.Visible = 1
timer1.Enabled = 0
timer2.Enabled = 1

End Sub

Sub Timer2_Timer ()

Randomize
vasen = Int(Rnd * 4000) + 1
korkeus = Int(Rnd * 4000) + 1
picture1.Left = vasen
picture1.Top = korkeus
picture1.Visible = 1
timer2.Enabled = 0

End Sub

Sub Form_Load ()
timer1.Enabled = 1
End Sub

Sub Picture1_Click ()
picture1.Visible = 0
pisteet = pisteet + 1
label1.Caption = pisteet

End Sub

Tämän jälkeen suunnittele ja toteuta peliä eteenpäin, esimerkiksi niin, että kuva tulee useamman kerran näkyviin ja aika vaikkapa nopeutuu loppua kohden. Maksimipistemäärä voisi olla esimerkiksi 10. Lisäksi ohjelmaan voisi tulostua joku teksti / kuva suorituksen hyvyyden mukaan.