biztos van beépített függvény a math libben, de ha nincs:

function abs(ertek: integer): integer;
begin
result:=ertek;
if ertek<0 then result:=ertek*-1;
end;

>

Sziasztok!

Bináris órát csinálok PIC 16F877-essel.
Timer1 időzitőt szeretnék használni, ami másodpercenként megszakitja a főprogramot. Az RC0, RC1 lábon 32.768 KHz-es kristály. Ezt kéne 1 sec-re csökkenteni, csak az a gond,hogy ezt pic micro pascalban nem vágom,hogy hogyan is működik. Erre kérnék szépen valamiféle progirészletet, hogy hogyan kell konfigurálni a timer1 bitjeit, és egyáltalán hogy hozom bele a programba, mivel közben a proci Sleep üzemmódban lesz.
Köszi előre is,ha tudtok segiteni.

Üdv: F. Gábor

Köszönöm.

Kedves Kollégák!
Adva van egy programrészlet, amit mikropascal pro-ban programoztam. LCD kijelzőre íratok ki szöveget és általam készített jeleket amik, bizonyos folyamatok jelzésére szolgának. Mondjuk a hőmérséklet emelkedik az előző méréshez képest. Mivel az LCD kijelző alapból nem tudja az ékezetes karaktereket, csináltam egy 'á' betűt is. Ha kiíratom az egyik jelző karaktert, akkor azok a jelző karakterek is átíródnak az új jelzésre, amik nem változnak, sőt az általam fabrikált 'á' betű is átíródik az új jelzésre.
Hogy lehet ezen javítani?

Szia
Ismerős a probléma.
Szükséges a karakterek váltása közben frissíteni a kijelzőt?
Üdv

Csak az adott karaktert írnám át.

Hogy kell használni a mikropascal Tools menü Lcd Custom Character, saját karakter készítőjét.
Ha elindítom, elkészítem a kívánt karaktert, csinálhatok egy kódot, aztán ezt hogy kell használni, mit kell vele tenni, hogy aztán a programban , az LCD-n kitudjam ezt a karaktert íratni?

Szia
Elkészíted a kívánt karaktert, majd copy to clipoboard
Ezt a kódot bemásolod a programba.
A character nevű tömbbe kerül eltárolásra a karakter pontjai.
Ha jól sejtem, ahány egyedi karakter annyi tömb kell (eléggé zabálja a memóriát).
A számmal való hivatkozás se működik a kijelződön?
Pl:

Ez a celsius utáni kis karika.
A kijelző adatlapját átnézted?
üdv

Most

Nem, ezt még nem próbáltam, de du. megpróbálom.
Köszi!

Nem ez sem vezetett eredményre.

Nem tudom hogyan probalod, de ugy kellene, hogy megszerkeszted az user karaktereket, majd eloszor ezeket feltoltod a LCD CGRAM teruletere. Egyszerre 8 karaktert tudsz feltolteni. Utana a kikuldendo karakter cimet kell kikuldeni, amikor ki akarod iratni, vagyis nem a karaktert. Tehat pl a karakter az 'é' es Te a CGRAM 2. helyere irtad be akkor az 'é' helyett a 02 kodot kell kikuldeni a LCD-nek.

A kovetkezo keppen csinaltam: elkeszitem a karaktereket. Van bennuk 'á' betu ezt a CGRAM 0. helyere tettem a

procedure abetu_proc(pos_row, pos_char: Byte);
var i: Byte;
begin
Lcd_Cmd(64);
for i := 0 to 7 do Lcd_Chr_CP(abetu[i]);
Lcd_Cmd(_LCD_RETURN_HOME);
Lcd_Chr(pos_row, pos_char, 0);
end;
proceduraval
meg meeg harom masik jel.
az utolso

procedure nem_valt_proc(pos_row, pos_char: Byte);
var i:byte;
begin
Lcd_Cmd(64);
for i := 0 to 7 do Lcd_Chr_CP(nem_valt[i]);
Lcd_Cmd(_LCD_RETURN_HOME);
Lcd_Chr(pos_row, pos_char, 3);
end;
ezek a procedurak a pic_init-ben irjak a CGRAM-ot
majd a program egy helyen ki akarom iratni az 'á' betut a

LCD_chr(1,11,0);

utasitassal es nem 'a' betut ir, hanem az utolsonak bevitt karaktert, ami a CGRAM 3. helyen van.

mivel az elozo nem jol adta vissza, igy elkuldom kodban


és a pic_init-ben igy lett inditva

A fentebb levő kérdésre se kaptam választ, de azért próbálkozok.
Van egy másik kérdés is. 2 db ds18b20 hőmérőt szeretnék1 vezetéken használni, a következő kóddal szeretném az azonosító adatokat a pic eeprom-jában tárolni, hogy ne kelljen minden pic induláskor a hőmérőket azonosítani. A baj az, hogy az eeprom-ba az azonosítók helyett csupa '00' van. segítsetek megjavítani a programot. Mikropaskalban van a kód, de a magyarázat lehet más nyelven is.

Szia.
Először is a kód elejét nem értem. Mi haszna annak, hogy "bekérsz" valamit, majd egy gombnyomásra úgyis továbbmész? A pergésmentesítés így nem fog működni. Az első gombnyomással végigszalad mindkét teszten. Még ha működne is, a koncepció hibás, ugyanis addig várna, amíg egymás után lenyomod (és felengeded) mindkét gombot.
A szenzorral kapcsolatban van néhány követelmény. Ezeket betartottad?



Reszetnél nem ártana értelmezni a függvény által visszaadott értéket:

Régen használtam már a BS18B20-at, de hirtelen az adatlapban ezt találtam:


esetleg nézz szét az oldalamon, van néhány MikroPascalos forráskód: Bővebben: Link

Megoldódott. A dolgot úgy kell csinálni, hogy a sajátkarakter készítő ablakban középtájon van egy CGRAM ablakocska, amiben a bevitelre szánt karakter sorszámát és hogy melyik szabad oszlopba kerüljön az általam készített karakter, be kell írni. A már gyárilag foglalt oszlop karakterét átírni nem lehet.

Most viszont van egy másik gond.
Az LCD kijelzőre, ki akarom íratni egy változó értékét, mondjuk egy hőmérsékletet. Az érték kiíratását egy "text" felhasználásával akartam megoldani. A hőmérséklet 2 számjegyű a "bytetostr" converter viszont 3 helyi értéken adja meg a konverziót, és így az első helyiérték értéktelen és nem tudom eltüntetni és ezért értékes helyet foglal el az LCD-n. Segítsetek megoldani, hogy az első értéktelen karaktertől megszabaduljak.

Ez is megoldódott. A kiírandó értéket a mod és a div műveletekkel helyiértékekre bontottam és a kapott karaktert az
Lcd_Chr(row: byte; column: byte;out_char: byte); paranccsal írtam ki.

Sziasztok!
van 2db PIC16F877-es ic-m összekötve I2C kommunikációval amíg össze vannak kötve I2C-n addig szépen megy minden, ha leveszem a slave-et a master lefagy amikor ráfut az I2C részre, mivel nincs válasz a slave-től, és WDT újraindítja állandóan. A felhúzó ellenállások benne vannak, az I2C lábakon. Ha a programból kiveszem az I2C kommunikációt akkor nincs gond, nem fagy le.
Valakinek van valami ötlete mi lehet a gond?


programrész:
I2C_Start;
I2c_Wr($A0);
I2c_Wr(adat1);
I2c_Wr(adat2);
I2c_Wr(adat3);
I2c_Wr(adat4);
I2C_Stop;

delay_ms(50);

I2C_Start;
I2c_Wr($A1);
vetel1:=I2c_rd(1);
vetel2:=I2c_rd(0);
I2C_Stop;

Szándékosan kérsz nyugtázást (ACK, acknowledge) az első adat beolvasásakor?

Első körben kipróbálnám így:

próbáltam, de így sem jó

Szia!
AVR-t nem használok, de gondolom nincs ebben különbség a pichez.
Tehát fordítva is működik:
változó:= PortA;

Mint írtam az AVR nem megy. Tehát én nem tudok többet segíteni sajnos
A súgót nézted, elég jó van neki, sőt! Biztosan lelsz benne példát.

Nincs felrakva, akkor próbálkoztam vele mikor kezdtem és kerestem a nekem tetsző nyelvet, de végül a c maradt.
De előkeresem és egy próba erejéig felpakolom, viszont csak holnap vagy vasárnap, most tényleg nem sok időm van kutakodni a cd-k között. Ha nem késő akkor.

Nem írtál konkrét típust, de általánosságban igaz:
A közvetlen összehasonlítás "if" utasítással nem fog menni (hardver okokra visszavezethetően csak egyszerű típusok közvetlen összehasonlítása működik).

Két megoldás is elképzelhető:
1. Használod a string library "strcmp" nevű függvényét,
2. A stringet tömbként kezeled és karakterenként hivatkozol az elemeire str1[1] str1[2] stb.
Példa:
if (str1[2]='a') and (Str1[3]='b') then Uart1_write_text('akármi');
if (str1[4]='b') or (Str1[4]='c') then Uart1_write_text('bármi');

Amikor mikrovezérlőt programozol, mindig figyelembe kell venni, hogy ez nem egy PC. Mivel a hardver erőforrások ROM, RAM, CPU korlátozottak, emiatt sokszor egyszerűsíteni szükséges. Ráadásul minden fordítónak "saját" nyelvezete van, amit az adott architektúrához alakítanak/igazítanak. Emiatt a hardver korlátai megjelenhetnek a programfejlesztés során.

Érdemes mindig a Language Reference vagy Language Howto részt a dokumentációban átolvasni.

Itt az hiányzik, hogy a "Destination" nevű változó esetén is meg kell mondani, hova kerüljön az adat. Így jó kell legyen a kód:

Gyanítom, hogy a pascal nyelv leírásából...

Lehet, hogy van olyan fordító (főleg a nagyobb processzorokra), ami lehetpvé teszi, de még nem találkoztam olyannal, mi nem jelzett volna hibát azokra, amit itt írtál a tömb indexelésre. Turbo Pascal 5.5, 6.0, 7.0, Delphi 1.0, 3.0, 5.0, 6.0; Z80 -ra való HiSoft Pascal, Real Pascal, stb.
A C nyelvjásaiban a tömb neve egyben a tömb 0. elemére mutató pointer is.
Az if (string1 = string2) -nek mennie kellene, lehet, hogy valamilyen utit -ot be kell szerkeszteni hozzá. (A strcmp.h megint C -hez való...)

Helló,
Simulink-ból küldök ki számokat RS232-ön keresztül MikroPascalba. Ott a számmal végzek pár alapműveletet, majd küldöm vissza Simulinkbe. PIC18-as mikrokontrollerem van. Így néz ki a program:



Az a baj vele h random hülyeségeket ír ki minden olyan esetben ha művelet eredményét tartalmazó változót küldök ki UART_Write-tal. Pl. akkor is ha nem változtatom az értékét

Viszont ha x-nek beírok 1 akármilyen értéket(ami nem művelet eredmény) akkor kiadja jól.
Mi lehet a probléma?

Köszi a segítséget.

A leírás szerint az UARTx_Write_Text() eljárást kellene használni, mert az UART1_Write() csak egy bájtok/karaktert küld ki!Bővebben: Link, benne az UART_LIBRARY