www.elektronik.si

[SIMON ZORKO]

Lepo pozdravljeni

Lotil sem se učenja programiranja PICov. Uporabil sem prevajalnik Mikrobasic od mikroelektronike. V knjižnici sem našel rutino za meritev temperature z senzorjem ds1820. Program je napisan za PIC 16F887. Spremenil sem vrata na katera pride priključen DS1820- namesto PORTE, 2 sem spremenil v PORTA, 2 saj bom uporabil PIC 16F876A. Zataknilo se mi je pri izklopitvi analognih vhodov na portu A. Ukaza ANSEL=0 in ANSELH=0 prevajalnik ne sprejme in javi napako. Prosil bi za pomoč, nekoga ki stvar pozna. Uporabil bom 4Mhz kristal in 16*2 LCD zaslon ter PIC 16F876A. Hvala.

program OneWire

' Lcd module connections
dim LCD_RS as sbit at RB4_bit
LCD_EN as sbit at RB5_bit
LCD_D4 as sbit at RB0_bit
LCD_D5 as sbit at RB1_bit
LCD_D6 as sbit at RB2_bit
LCD_D7 as sbit at RB3_bit
LCD_RS_Direction as sbit at TRISB4_bit
LCD_EN_Direction as sbit at TRISB5_bit
LCD_D4_Direction as sbit at TRISB0_bit
LCD_D5_Direction as sbit at TRISB1_bit
LCD_D6_Direction as sbit at TRISB2_bit
LCD_D7_Direction as sbit at TRISB3_bit
' End Lcd module connections

' Set TEMP_RESOLUTION to the corresponding resolution of used DS18x20 sensor:
' 18S20: 9 (default setting can be 9,10,11,or 12)
' 18B20: 12
const TEMP_RESOLUTION as byte = 9


dim text as byte[9]
temp as word

sub procedure Display_Temperature( dim temp2write as word )
const RES_SHIFT = TEMP_RESOLUTION - 8

dim temp_whole as byte
temp_fraction as word

text = "000.0000"
' check if temperature is negative
if (temp2write and 0x8000) then
text[0] = "-"
temp2write = not temp2write + 1
end if

' extract temp_whole
temp_whole = word(temp2write >> RES_SHIFT)

' convert temp_whole to characters
if ( temp_whole div 100 ) then
text[0] = temp_whole div 100 + 48
else
text[0] = "0"
end if

text[1] = (temp_whole div 10)mod 10 + 48 ' Extract tens digit
text[2] = temp_whole mod 10 + 48 ' Extract ones digit

' extract temp_fraction and convert it to unsigned int
temp_fraction = word(temp2write << (4-RES_SHIFT))
temp_fraction = temp_fraction and 0x000F
temp_fraction = temp_fraction * 625

' convert temp_fraction to characters
text[4] = word(temp_fraction div 1000) + 48 ' Extract thousands digit
text[5] = word((temp_fraction div 100)mod 10 + 48) ' Extract hundreds digit
text[6] = word((temp_fraction div 10)mod 10 + 48) ' Extract tens digit
text[7] = word(temp_fraction mod 10) + 48 ' Extract ones digit

' print temperature on Lcd
Lcd_Out(2, 5, text)
end sub

main:
ANSEL = 0 ' Configure AN pins as digital I/O
ANSELH = 0

text = "000.0000"
Lcd_Init() ' Initialize Lcd
Lcd_Cmd(_LCD_CLEAR) ' Clear Lcd
Lcd_Cmd(_LCD_CURSOR_OFF) ' Turn cursor off
Lcd_Out(1, 1, " Temperature: ")

Lcd_Chr(2,13,178) ' Print degree character, "C" for Centigrades
' different Lcd displays have different char code for degree
Lcd_Chr(2,14,"C") ' if you see greek alpha letter try typing 178 instead of 223

'--- main loop
while (TRUE)
'--- perform temperature reading
Ow_Reset(PORTA, 2) ' Onewire reset signal
Ow_Write(PORTA, 2, 0xCC) ' Issue command SKIP_ROM
Ow_Write(PORTA, 2, 0x44) ' Issue command CONVERT_T
Delay_us(120)

Ow_Reset(PORTA, 2)
Ow_Write(PORTA, 2, 0xCC) ' Issue command SKIP_ROM
Ow_Write(PORTA, 2, 0xBE) ' Issue command READ_SCRATCHPAD

temp = Ow_Read(PORTA, 2)
temp = (Ow_Read(PORTA, 2) << 8) + temp

'--- Format and display result on Lcd

Display_Temperature(temp)

Delay_ms(520)
wend
end.

[Krampus]

MikroBasic ali MikroBasic Pro?
Katera verzija?

PIC 16F876A ima druge registre za analogni del, preberi datasheet

ADCON0 in ADCON1

[SIMON ZORKO]

Uporabljam mikroBasic PRO for PIC od Mikroelektronike, verzijo ki je trenutno dostopna na njihovi strani. Bom pogledal Datasheet od PIC 16F876A za analogne vhode.

[Highlag]

Če ne rabiš analognih vhodov je nekdo napisal seznam ukazov za vse pice, kako se to izklopi. Povezava je nekje na Mikroelektronikinem forumu:

Zgleda takole:

[SIMON ZORKO]

Highlag hvala za pomoč. Zelo uporabna zadeva bom vpisal v program in preizkusil delovanje upam da bo termometer deloval.

Sem vpisal ukaze za izklopitev analognih vhodov v program. Nastavil sem nastavitve mikrokontrolerja XT oscilator, 4 Mhz takt, WDT off, vse zaščite pred branjem sem izklopil. Pri vnosu hex datoteke v PIC 16F876A sem naletel na težavo. Noče mi vpisati konfiguracijskega stavka v mikrokontroler. Druge programe napisane v asemblerju mi vpiše brez problema. Uporabljam programator velleman k8048.

Hvala za odgovore.