Code: Select all
Dim As integer i, j, k, X, Y, B(5) ' B - Boja
Dim As integer S, M, MM, BK ' S - Smjer; BK - Broj kuglica;
Dim As Integer Li(100)
Dim As Double Ld(100), T
ScreenInfo X, Y ' Uzima informaciju o rezoluciji monitora : ' i=8 -> Ekran bez okvira
X -= 64 : Y -= 64 : i = 4 ' i=4 -> Prozor sa okvirom
'Ex = 1280-64 : Ey = 1024-64
Screenres X, Y, 32, 3, i ' Postavlja rezoluciju prozora (može biti manja nego od ekrana)
Width X\8, Y\16 ' Postavlja veličinu fonta (8*16 font)
Screenset 1 ' U ekran 1 postavlja osnovno stanje tipkala
BK = 100
S = 1
M = 1
B(0) = &HFFFF00
B(1) = &HFF00FF
B(2) = &H00FFFF
B(3) = &HFF0000
B(4) = &H00FF00
B(5) = &H0000FF
Do
If MultiKey(&H4D) Then S = 1
If MultiKey(&H4B) Then S = -1
If MultiKey(&H48) Then M += 1
If MultiKey(&H50) Then M -= 1
If M < 0 Then M = 0
Cls
for i = 1 to BK
Ld(i) = 300 * sin ((i+32) * (T/5000))
Li(i) = int(Ld(i))
next i
T += (M * S)
For k = 5 To 0 Step -1
For j = 0 To k
For i = j+1 to BK-k-1 Step (k+1)
'Line (i * 15 + 10, Li(i) + 400)-((i+k+1) * 15 + 10, Li(i+k+1) + 400), B(k)
Line (i * 15, Li(i) + 400)-((i+k+1) * 15, Li(i+k+1) + 400), B(k)
Next i
Next j
Next k
for i = 1 to BK
'Circle (i * 15 + 10, Li(i) + 400), 6, &HFFFFFF, , , , F
'Circle (i * 15 + 10, Li(i) + 400), 3, &H000000, , , , F
Circle (i * 15, Li(i) + 400), 6, &HFFFFFF, , , , F
Circle (i * 15, Li(i) + 400), 3, &H000000, , , , F
next i
Sleep 20
Screencopy 1, 0 ' Osnovno stanje kopira u ekran 0
Loop Until MultiKey (&h01) 'Petlja se vrti dok ne pritisneš "ESC"
number 0 to 9 for on and off lines
arrow up faster
arrow down slower
arrow left and right for reversing