$regfile = "m16def.dat"
$crystal = 1000000
Config Porta = Output
$baud = 1200
Config Pinb.0 = Input
Dim N As Byte
Dim I As Byte
Dim Temp As Byte
Dim Znak As String * 2
N = 1
Do
Debounce Pinb.0 , Stan , Generuj , Sub
Temp = Inkey()
If Temp <> 0 Then Znak = Chr(temp)
If Znak = "+" Then Incr N
If Znak = "-" Then Decr N
Loop
Generuj:
For I = 1 To N
Set Porta.0
Wait 1
Reset Porta.0
Wait 1
Next
Return
Dzieki wam za pomoc.Pewnie jeszcze cos brakuje do prawidlowego dzialania
Debounce Pin_klawisza , Stan , Generuj , Sub -- nie bardzo rozumiem o Stan i Sub......