Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

przytrzymanie klawisza bascom

Rupiec382 23 Gru 2010 13:08 1788 3
  • #1 23 Gru 2010 13:08
    Rupiec382
    Poziom 13  

    Witam chciałbym aby w bascomie zaprogramować przycisk

    że po wciśnięciu i przytrzymaniu określoną liczbę sekund np 20 włączy program

    0 3
  • #2 23 Gru 2010 16:51
    darres1
    Poziom 12  

    Może być tak:

    Code:

    $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


    zmienna Y ustala czas opóźnienia :D

    0
  • #4 24 Gru 2010 14:41
    Freddy
    Poziom 43  

    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

    Czemu nie używasz kolego klawisza "szukaj" ? Niedawno była dyskusja na ten temat.
    https://www.elektroda.pl/rtvforum/viewtopic.php?t=1828017&highlight=

    0