O cemu ovde vi pricate. Nemojte se prepucavati ovde nego pomazite svojim idejama. Normalno je da neke stvari iz QBasic-a mogu da rade i da ima slicnosti sa VBasic-om, ali iole ozbiljniji kod zahteva kompletnu promenu. Evo kod u QBasic-u:
Code:
Dim a(1000, 2)
Do
Cls
izlaz = 888: ' ili 956
x = 1
l = 19
GoSub okvir
GoSub okvir2
x = 25
l = 21
GoSub okvir
GoSub okvir2
x = 50
l = 21
GoSub okvir
GoSub okvir2
GoSub legenda
x = 25
GoSub radi
x = 50
GoSub ponavlja
Loop
End
' ---------------------------------------------------------------
legenda:
y = 6
LOCATE 3, 5: Print "R O B O T"
LOCATE y + 3, 3: Print "2 = natrag"
LOCATE y + 5, 3: Print "8 = napred"
LOCATE y + 7, 3: Print "6 = okret levo"
LOCATE y + 9, 3: Print "4 = okret desno"
LOCATE y + 11, 3: Print "5 = stoj"
LOCATE y + 13, 3: Print "0 = prekid ucenja"
LOCATE y + 15, 5: Print "ESC = izlaz"
LOCATE 3, 35: Print "UCI"
LOCATE 3, 58: Print "PONAVLJA"
LOCATE y + 7, 27: Print "Korak :"
LOCATE y + 9, 27: Print "Izlaz:"
LOCATE y + 11, 27: Print "Vreme:"
LOCATE y + 13, 27: Print "Trajanje:"
LOCATE y + 7, 52: Print "Korak :"
LOCATE y + 9, 52: Print "Izlaz:"
LOCATE y + 11, 52: Print "Vreme:"
LOCATE y + 13, 52: Print "Trajanje:"
Return
' --------------------------------------------------------------
okvir:
y = 7
lin$ = "": raz$ = ""
For i = 1 To l
lin$ = lin$ + Chr$(205)
raz$ = raz$ + Chr$(32)
Next i
up$ = Chr$(201) + lin$ + Chr$(187)
dn$ = Chr$(200) + lin$ + Chr$(188)
vt$ = Chr$(186)
LOCATE y, x: Print up$
For i = 1 To 15
LOCATE y + i, x: Print vt$ + raz$ + vt$
Next i
LOCATE y + 16, x: Print dn$
Return
' ---------------------------------------------------------------
okvir2:
y = 1
lin$ = "": raz$ = ""
For i = 1 To l
lin$ = lin$ + Chr$(205)
raz$ = raz$ + Chr$(32)
Next i
up$ = Chr$(201) + lin$ + Chr$(187)
dn$ = Chr$(200) + lin$ + Chr$(188)
vt$ = Chr$(186)
LOCATE y, x: Print up$
For i = 1 To j + 3
LOCATE y + i, x: Print vt$ + raz$ + vt$
Next i
LOCATE y + 4, x: Print dn$
Return
' ---------------------------------------------------------------
radi:
LOCATE 9, 27: Print "START"
LOCATE 11, 27: Print "Bilo koja tipka."
q$ = INPUT$(1)
y = 7
a(0, 1) = 0
a(0, 2) = 0
OUT izlaz, 0
t0 = Timer
i = 1
Do
q$ = INPUT$(1)
If q$ = "8" Then w = 10
If q$ = "2" Then w = 5
If q$ = "6" Then w = 6
If q$ = "4" Then w = 9
If q$ = "5" Then w = 0
If q$ = "0" Then Exit Do
If Asc(q$) = 27 Then End
a(i, 1) = w
a(i, 2) = Timer - t0
OUT izlaz, w
LOCATE 6 + y, x + 15: Print USING; "###"; i
LOCATE 8 + y, x + 15: Print USING; "###"; a(i, 1)
LOCATE 10 + y, x + 15: Print USING; "###.##"; a(i, 2)
LOCATE 12 + y, x + 15: Print USING; "###.##"; a(i, 2) - a(i - 1, 2)
i = i + 1
Loop
OUT izlaz, 0
a(i, 1) = 0
a(i, 2) = Timer - t0
n = i - 1
Return
' --------------------------------------------------------------
ponavlja:
LOCATE 9, 52: Print "START"
LOCATE 11, 52: Print "Bilo koja tipka."
q$ = INPUT$(1)
y = 7
t0 = Timer
For i = 0 To n
t1 = Timer
LOCATE 6 + y, x + 15: Print USING; "###"; i
LOCATE 8 + y, x + 15: Print USING; "###"; a(i, 1)
LOCATE 10 + y, x + 15: Print USING; "###.##"; a(i, 2)
Do
OUT izlaz, a(i, 1)
If Timer - t0 >= a(i + 1, 2) Then Exit Do
Loop
LOCATE 12 + y, x + 15: Print USING; "###.##"; Timer - t1
Next i
OUT izlaz, 0
Return
Mene zanima kako da resim u VB da pamti koliko sam drzao pritisnut taster za odredjenu kretnju.
[Ovu poruku je menjao Aleksandar Ružičić dana 08.03.2009. u 23:40 GMT+1]