Ultrazvučno mjerenje udaljenosti (PicBASIC)

DEFINE OSC 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2

TRISB = 0
TRISA = %00000010

w var word
r var word
i VAR WORD
progres VAR WORD


w = 0
LOW PORTA.0

pause 500                       'ceka dok se LCD inicijalizuje

'http://www.rentron.com/PicBasic-LCD.htm

LCDOUT $FE, 1, "2013. napravio "
LCDOUT $FE, $C0, "Darko Lukic "
pause 1500                      'prikazuje uvodni tekst 1,5s


POCETAK:
    high PORTA.0
    PAUSEUS 10
    LOW PORTA.0             'salje 1 na Trig pin ultrasonica 10mikros


    PULSIN PORTA.1, 1, W    'cita digitalni signal sa Echo pina na ultrasonicu
    R = W*10/52             'konvertuje u cm


    LCDOUT $FE, 1
    LCDOUT $FE, 2, #r
    LCDOUT "cm"             'ispisuje duzinu na lcd


    'kreira pogresbar
    progres = R / 11
    LCDOUT $FE, $C0
    FOR i = 0 TO progres
        LCDOUT "|"
    NEXT I


    PAUSE 80
GOTO POCETAK

END