$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack=40
$swstack=16
$framesize = 32
$lib "pulsein.lib"
Const Cpulsein_timeout = 5
'Dim Bpulsein_delay As Byte
Const Bpulsein_delay = 10
Config Pind.2 = Input
Ddrd.2 = 1
Config Lcdpin = Pin , E = Portc.1 , Rs = Portc.0
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3
Config Lcdpin = Pin , Db6 = Portc.4 , Db7 = Portc.5
Config Lcdbus = 4
Config Lcd = 16x2
Cls
Cursor Off
Dim W As Word
Locate 1 , 1
Lcd "PROBADOR DE RC"
Waitms 100
Do
Bitwait Pind.2 , Reset
Pulsein W , Pind , 2 , 1
Locate 2 , 1
Lcd "PULSO ES " ; W ; " "
Loop
End |