CoolBasic Forums

FrameLimit 60 SCREEN 640,480,32,1 ClsColor cbwhite pallo1=LoadObject("pallo1.bmp",72) MaskObject pallo1,cbwhite pallo2=LoadObject("pallo2.bmp",72) MaskObject pallo2,cbwhite SetupCollision pallo1,pallo2,2,2,2 SetupCollision pallo2,pallo1,2,2,2 Const nopeus = 10 PositionObject pal...

Repeat sanamäärä = CountWords(syöttö$) Locate 0,0 syöttö$ = Input("Nimesi?: ") If sanamäärä<3 And sanamäärä>1 And KeyHit(28) Then nimet=1 EndIf If nimet=1 Then CloseInput Locate 0,0 Color cbORange AddText Upper(Left(syöttö$,Len(GetWord(syöttö$,1)))) Color cbPink Locate Len(GetWord(syöttö$...

Repeat sanamäärä = CountWords(syöttö$) Locate 0,10 syöttö$ = Input("Nimesi?: ") If sanamäärä<3 And sanamäärä>1 And KeyHit(28) Then nimet=1 If nimet=1 Then Locate 0,100 Write Upper(Left(syöttö$,Len(GetWord(syöttö$,1))))+" "+Lower(GetWord(syöttö$,2)) EndIf DrawScreen Until EscapeK...

Const numeromäärä=6 Dim numeroarvo(numeromäärä,6) Repeat If KeyHit (28) Then ClearText For a = 0 To numeromäärä numeroarvo(a,0)= Rand(1,49) AddText "Lotto: " + numeroarvo(a,0) Next a EndIf DrawScreen Until EscapeKey() Miten saan koodin generoimaan luvut niin, ettei lotto luvuissa tulisi s...