Key1 nie działa Debounce , nie wiem dlaczego jak to można poprawić ,żeby mieć Debounce ale z PIN-ami PCF-a ?
[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portb , Ce = 0 , Ce2 = 1 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
Ddrd = &B00000000 'Portd = input
Portd = &B11111111
Config Portc = &B00111111
Config Int0 = Falling ' przycisk podłączony do pinu lini INT0 czyli PD.2 'Activate Pullup
Config Pind.2 = Input
'konfiguracja lini I2C
Config Sda = Portc.1 'konfiguracja sprzętowa I2C
Config Scl = Portc.0
Config I2cdelay = 10
Dim Pcf8574port_key As Byte
Dim Pcf8574port As Byte
Dim Pcf8574_2port_key As Byte
Dim Pcf8574_2port As Byte
Const Pcf8574write = 164
Const Pcf8574read = 165
I2cstart
I2cwbyte Pcf8574write
I2cwbyte 11111111
I2csend Pcf8574write , 255
I2cstop
'-------------------------------------------------------------------------------
Key1 Alias Pcf8574port.0 'liczba 1 na klawiaturze 10
Key2 Alias Pcf8574port.1 'liczba 2 na klawiaturze 10
Key3 Alias Pcf8574port.2 '
Key4 Alias Pcf8574port.3 '
Key5 Alias Pcf8574port.4 '
Key6 Alias Pcf8574port.5 '
Key7 Alias Pcf8574port.6 '
Key8 Alias Pcf8574port.7
On Int0 Int0_int
Enable Interrupts
Enable Int0
Cls
Do
Loop
Int0_int:
I2creceive Pcf8574read , Pcf8574port
Debounce Key1 , 0 , Vfos , Sub
If Key1 = 0 Then
Setfont My6_8 : Lcdat 2 , 1 , "TEST Przerwania"
End If
Return
$include "my6_8.font"[/syntax]Statystyki: Napisane przez slawek3000 — 15 wrz 2014, o 19:18
]]>