Keskustelu: Koodit: QB: Kolmiopiirturi

' tekijä: Heikki Salko
' tehty: 15.9.2003
' päivitetty: 14.10.2003

CLS
SCREEN 11 'asetetaan resoluutioksi 640x480

valinta:
CLS
LOCATE 10, 33: PRINT "KOLMIOPIIRTURI"
LOCATE 12, 33: PRINT "1: manuaaliset säädöt"
LOCATE 13, 33: PRINT "2: arvo asetukset"
LOCATE 15, 33: INPUT "Mitä teet? ", valinta
'tarkistetaan käyttäjän valinta:
IF valinta = 1 THEN GOTO aseta ELSE IF valinta = 2 THEN GOTO arvo ELSE GOTO valinta

aseta:
CLS
PRINT "Resoluutio on 640x480. Huomioi tämä valinnoissa."
PRINT
'pyydetään kulmien koordinaatit:
INPUT "kulma a (x) ", ax
INPUT "kulma a (y) ", ay
INPUT "kulma b (x) ", bx
INPUT "kulma b (y) ", by
INPUT "kulma c (x) ", cx
INPUT "kulma c (y) ", cy
IF ax > 640 OR bx > 640 OR cx > 640 OR ay > 480 OR by > 480 OR cy > 480 THEN GOTO resoalert ELSE GOTO piirra

arvo:
RANDOMIZE TIMER
  ax = INT(RND * 639)
  ay = INT(RND * 479)
  bx = INT(RND * 639)
  by = INT(RND * 479)
  cx = INT(RND * 639)
  cy = INT(RND * 479)
GOTO piirra

resoalert:
CLS
LOCATE 11, 33: PRINT "          Resoluutiohuomautus"
LOCATE 12, 33: PRINT " Höpsistä! Resoluutiohan oli 640x480!"
LOCATE 14, 33: INPUT " Otatko uusiksi? (K/E) ", rav$
IF rav$ = "K" OR rav$ = "k" OR rav$ = "kyllä" OR rav$ ="Kyllä" OR rav$ ="KYLLÄ" THEN GOTO valinta ELSE GOTO lopetus

piirra:
CLS 'tyhjennetään ruutu kolmion piirtoa varten
DO WHILE INKEY$ <> CHR$(27) 'loppuu, kun painaa ESCiä
  LINE (ax, ay)-(bx, by)
  LINE (bx, by)-(cx, cy)
  LINE (cx, cy)-(ax, ay)
LOOP

'ja sitten tulee kysymysboksi
LOCATE 10, 33: PRINT "         Uudestaan?"
LOCATE 11, 33: PRINT "  Otetaanko uusiksi? (K/E)"
LOCATE 13, 33: INPUT "  No, kyllä vai ei ? ", lvv$
IF lvv$ = "K" OR lvv$ = "k" OR lvv$ = "kyllä" OR lvv$ = "Kyllä" OR lvv$ = "KYLLÄ" THEN GOTO valinta ELSE GOTO lopetus

lopetus:
END