Valikko funktioilla:
Code: Select all
ClsColor cbwhite 'Taustavari valkoiseksi
Repeat
If painike(30,40,"Poistu") Then End 'Esimerkki toiminnasta
DrawScreen
Forever
'------------
'FUNKTIO
'------------
Function painike(reunaX,reunaY,txt$)
clr=1 'Clr on 1
x = TextWidth(txt$)
y = TextHeight(txt$)
Color 0,175,22
If MouseX()<reunaX+x+6 And MouseX()>reunaX And MouseY()<reunaY+y+6 And MouseY()>reunaY Then
If MouseHit(1) Then paalla=True
If clr=1 Then Color 55,254,23
Else
paalla=False
EndIf 'Lopetetaan if -lause
Box reunaX,reunaY,x+6,y+6 ,ON 'Laatikko
Color cbblack
Box reunaX,reunaY,x+6,y+6,OFF 'Reunat laatikolle
Text reunaX+3,reunaY+3,txt$ 'Teksti toimimaan oikealle kohdalle
Return paalla 'Palauttaa arvon
End Function 'Lopetetaan funktio
Code: Select all
//Esimerkki taulukoiden käytöstä.
'.............
'Latausteksti
'.............
fontti=LoadFont("Times new roman", 42)
minifontti=LoadFont("times new roman", 18)
SetFont fontti
Color cbblue
Text 100,100,"LADATAAN"
SetFont minifontti
Color cbwhite
Text 130,150,"Taulukkoesimerkki 0.2"
DrawScreen
'---------------------------------------
'OHJELMA
'---------------------------------------
Dim pisteet(50) 'Luodaan 50 pistettä
Dim korkeudet(50) 'Luodaan 50:lle pisteelle omat korkeutensa
For i = 2 To 50 'FOR -looppi pisteitä ja korkeuksia kohden
korkeudet(i)=Rand(-150,150) 'Arvotaan jokaiselle pisteelle oma korkeus
pisteet(1)=LoadObject("media\bullet.bmp",72) 'Ladataan yksi piste
ShowObject pisteet(1), OFF 'Piilotetaan ensimmäinen piste
pisteet(i)=CloneObject(pisteet(1)) 'Tehdään pisteestä (1) klooneja
PositionObject pisteet(i), Rand(-600,-200),korkeudet(i) 'Asetetaan pisteet tiettyyn paikkaan
Next i
Repeat
For i = 2 To 50 'FOR -looppi pisteitä ja korkuksia kohden repeat -loopin ulkopuolella
If ObjectX(pisteet(i))>200 Then
PositionObject pisteet(i),-200,korkeudet(i) 'Aseteaan pisteet eri korkeudelle, jos ne menee ruudun oikeaan laitaan
korkeudet(i)=Rand(-150,150) 'Arvotaan uudet korkeudet
EndIf
MoveObject pisteet(i), 3 'Liikutetaan pisteitä
Next i
DrawScreen
Forever