|
Luku 8NäppäimistöSeuraava koodi tulostaa ruudulle rivin tekstiä, aina kun ohjelman käyttäjä painaa näppäimistöltä välilyöntiä: Do If KeyHit(32) Then Print "Painoit välilyöntiä" End If DrawScreen Loop Funktio EppaBasicin komentolistassa on täydellinen luettelo näppäinkoodeista. Hahmon liikutusSeuraavassa ohjelmassa käyttäjä pystyy liikuttamaan ruudulla olevaa hahmoa (ympyrä) nuolinäppäimillä: Dim x = 320 Dim y = 240 Do If KeyHit(37) Then x = x - 10 If KeyHit(38) Then y = y - 10 If KeyHit(39) Then x = x + 10 If KeyHit(40) Then y = y + 10 ClearScreen FillCircle x, y, 20 DrawScreen Loop Ideana on, että muuttujat Nuolinäppäinten koodit ovat:
Sulava liikutusFunktio Ratkaisu ongelmaan on käyttää funktiota
Tässä on uusi versio hahmon liikutuksesta,
joka käyttää funktiota Dim x = 320 Dim y = 240 Do If KeyDown(37) Then x = x - 2 If KeyDown(38) Then y = y - 2 If KeyDown(39) Then x = x + 2 If KeyDown(40) Then y = y + 2 ClearScreen FillCircle x, y, 20 DrawScreen Loop NäppäintestiSeuraava ohjelma näyttää, mitkä näppäimet ovat tällä hetkellä painettuna. Ohjelman avulla voi selvittää minkä tahansa näppäimen koodin. Do ClearScreen For i = 0 To 255 If KeyDown(i) Then Print "Näppäin " & i & " on painettuna" End If Next i DrawScreen Loop |