'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 08.01.2012 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Include "modedefs.bas"
DEFINE HSER_BAUD 9600
DEFINE HSER_ CLROERR 1
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
'---------------------------
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_LINES 2
DEFINE LCD_BITS 4
TRISB=%00000010
TRISA=%00010000
pause 100
SI var PORTB.0
SII var PORTB.1 ' Serin giriş portu
B0 Var byte
B1 Var byte
B2 Var byte
B3 Var byte
B4 Var byte
sure var word 'Bilginin atanacağı yer
ERCAN:
IF PORTA.4=1 THEN
SEROUT SI,T9600,[34]
SEROUT SI,T9600,[0]
SEROUT SI,T9600,[0]
SEROUT SI,T9600,[34]
Serin SII,T9600,B0
Serin SII,T9600,B1
Serin SII,T9600,B2
Serin SII,T9600,B3
sure.lowbyte=B2
sure.HighByte=B1
pAUSEUS 10
LCDOUT $FE,1
pause 200
LCDOUT dec sure
endif
GOTO ERCAN
pic 16f628A
Sensor setiing TTL Level.
If you press Button, the sensor will recive distance data.
If you want to see temperature data, you must send " 17 0 0 17 " datas.