Witam chciałbym aby w bascomie zaprogramować przycisk
że po wciśnięciu i przytrzymaniu określoną liczbę sekund np 20 włączy program
że po wciśnięciu i przytrzymaniu określoną liczbę sekund np 20 włączy program
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
$regfile = "m32def.dat"
$crystal = 8000000
Config Portc.0 = Output
Config Portc.1 = Output
Set Portd.5
Dim X As Integer
Dim Y As Integer
Dim Flaga_1 As Bit
Declare Sub Program_1
Y = 100
'-------------------------------------------------------------------------------
Do
If Pind.5 = 0 Then
Waitms 100
If Flaga_1 = 1 Then
If X = Y Then
Call Program_1
X = 0
End If
Else
X = 0
'Toggle Portc.1'-------------tutaj-jest-zwykle-dzialanie-przycisku
End If
Flaga_1 = 1
Incr X
Else
Flaga_1 = 0
End If
Loop
'-------------------------------------------------------------------------------
End
Sub Program_1
Toggle Portc.0
End Sub
Rupiec382 napisał:Witam chciałbym aby w bascomie zaprogramować przycisk
że po wciśnięciu i przytrzymaniu określoną liczbę sekund np 20 włączy program