' Digitális oszcilloszkóp teszt program
'LCD bekapcsolása
Wait 1
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portd , Ce = 4 , Cd = 0 , Wr = 2 , Rd = 1 , Reset = 3 , Fs = 5 , Mode = 8
Config Adc = Single , Prescaler = Auto
Start Adc
Declare Sub Torol

Dim W As Word
Dim W2 As Word
Dim X As Byte
Dim X2 As Byte
Wait 1
Cls
Locate 1 , 1
Lcd "Oszcilloszkop teszt"
X = 0
X2 = 1
W = 64
W2 = 64

Do
Waitms 15
Incr X
W = Getadc(0)
W = 127 - w
Line(x2 , W2) -(x , W) , 255
' Pset X , W , 255
X2 = X
W2 = W



If X > 235 Then Torol
Loop
End

Sub Torol
X = 1
X2 = 1
W = 64
W2 = 64
Cls Graph
End Sub