MikroElektronika PIC Microcontrollers PIC16 Bedienungsanleitung PDF herunterladen (Seite 114)

mikroBASIC

- Basic Compiler for Microchip PIC microcontrollers

program onewire

dim i as byte

dim j1 as byte

dim j2 as byte

dim por1 as byte

dim por2 as byte

dim text as char[14]

main:

text = "Temperature:"

portb = 0

' initialize portd to 0

PORTC = 255

' initialize portc to 255

trisb = 0

' designate portd as output

trisc = 255

' designate portc as input

Lcd_Init(PORTB)

Lcd_Cmd(PORTB, LCD_CURSOR_OFF)

LCD_Out(PORTB, 1, 1, text)

ow_reset(portc,2)

' 1-wire reset signal

ow_write(portc,2,$CC)

' issue command to DS1820

ow_write(portc,2,$44)

' issue command to DS1820

delay_ms(120)

i = ow_reset(portc,2)

ow_write(portc,2,$CC)

' issue command to DS1820

ow_write(portc,2,$BE)

' issue command to DS1820

delay_ms(1000)

j1 = ow_read(portc,2)

' get result

j2 = ow_read(portc,2)

' get result

j1 = j1 >> 1

' assuming the temp. >= 0C

ByteToStr(j1, text)

' convert j1 to text

Lcd_Out(PORTB, 2, 8, text)

' print text

Lcd_Chr(PORTB, 2, 10, 223)

' degree character (°)

Lcd_Chr(PORTB, 2, 11,"C")

Delay_ms(500)

loop until false

' endless loop

end.

MikroElektronika:

Development

tools

Books

Compilers

mikroBASIC

making it simple...

109

page

1 2 ... 109 110 111 112 113 114 115 116 117 118 119 ... 171 172

Kommentare zu diesen Handbüchern

Keine Kommentare

MikroElektronika PIC Microcontrollers PIC16 Bedienungsanleitung Seite 114

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für PC / Workstation Barebones MikroElektronika PIC Microcontrollers PIC16