www.elektronik.si

[NeoTO]

[matjazkariz]

Ko sem prešaltal že lep čas nazaj iz VB6 na .net sem obdržal staro MScomm kontrolo za serijski port še kar dolgo časa. Težava je bila v tem, da projekt ni bil enostavno prenosljiv na drugi računalnik. In sem si vzel 2 dni časa, da sem naštudiral novo kontrolo SerialPort. Moram povdarit, da je preskok iz VB6 na .net prinesel kar velike spremembe. Na primer stara verzija šteje od 1 do x medtem ko nova pa od 0 do x zaradi kompatibilnosti z C skupino jezikov. Tako če definiraš array "Dim Bla(10) As Byte" je dejansko rezerviranega 11 bytov spomina, saj gre indeks od 0 do vključno 10!!!
Pa še par takih cvetk je noter, da ima programer kaj delat...
Pa še to:
Če se le da ne sprejemaj znakov iz serial porta kot string ali array od char. Tam so same težave. Poskusi poslat vrednost 0 ali 26 ali ... pa bo jasno.

[Krampus]

Tonci

Ali veš točno, kaj ti pošilja mikro?
Ali veš točno, kakšna je oblika(dolžina), ki ti jo pošilja mikro?
Ali ti mikro pošilja vedno enako dolžino podatka?
Ali so na začetku in/ali na koncu podatkov kakšni kontrolni znaki?

Jaz sem v času VB3 dobil nalogo brati tehtnico, ki je pošiljala 12 znakov solate, iz tega prebrati vrednost in cel kup statusov, s tem da nisem vedel ne dolžine, ne oblike, ne kontrolnih znakov, vedel sem samo da nekaj pošilja. Je pa bila dolžina vedno enaka, tako da sem začel tam in najprej nastavil dolžino bufferja in treshold. Zadeva je napredovala do VB6, nato pa v čisto drugo programsko okolje(Progress).

Če ti pošilja spremenljivo dolžino moraš brati vsak bajt posebej in narediti neki triger pri pri kontrolnem znaku (LF ali CR) ter potem pretvarjati ali prikazovati.

Za bolj konkretno pa bi moral pogledati svoje programe

[toncibalonci]

Tudi o tem sem že razmišljal. V Bascomu imam program za števec ki z vsakim pritiskom povečuje stanje za ena to pa potem z ukazom "Print" pošiljam ven. Program v Bascomu za pošiljanje na COM je enostaven , v VB pa vidim da se malo zaplete, pa VB ne poznam še tako dobro. Kaj mi je storiti??

[Krampus]

Najprej poskrbi, da ti bo mikro počiljal vedno enako dolžino podatka, najboljše še z oznako za začetek in konec podatka. Na primer 1 = X001Y, 15 = X015Y ....

Potem tega ni problem zajemati z nastavitvami
RThreshold = 5
InputLen = 5

Toliko zaenkrat

[bolha95]

[toncibalonci]

Izpiše mi stanje števca in "CRLF" torej npr. 1CRLF. Pri enicah imam 3byte,pri deseticah 4 bayte,pri stoticah pa 5 baytov,torej je problem v tem. Zdaj moram še ugotoviti kako v Bascomu dosežem da mi pošlje vedno enako dolg podatek??

[bolha95]

[toncibalonci]

Tista dva znak (CRLF) sem tak v VB izločil. Kak pa rešim dolžino?

[bolha95]

[Krampus]

Potem moraš brati vsak bajt po vrsti, ne pa v paketih Treshold 1, InputLen 1, narediti svoj buffer, ga polniti in prožiti ko dobiš LF.

Skratka, če imaš možnost na drugi strani popraviti, je z VB lažje brati fiksno dolžino podatka.

[matjazkariz]

Sicer bo precej pomagalo, če boš pošiljal vedno enako dolžino, ker bo rutina sprejema paketov precej enostavnejša. Nikakor pa ne priporočam, da nastaviš Treshold na 5. Sprejemaj vsak byte posebej in jih sestavljaj v lastnem bufferju. Ko imaš dovolj podatkov v bufferju, jih obdelaj. Žal je UART daleč!!! low level komunikacijski protokol , ki ne pozna drugega kot poslat tistih 8 bitov z določenim baudom na drugo stran in ki od uporabnika zahteva, da softversko izvaja sestavljanje in obdelavo paketov. Če hočeš, da je komunikacija robustna, boš moral poleg osnovnih rutin za obdelavo podatkov dodati tudi rutine, ki bodo poštimale komunikacijo v primeru, da se kje zalomi (na primer, če se kje zgubi kakšen byte...).

[Obelix]

Poskusi v Bascomu nastaviti niz na konstantno dolžino. Recimo na 5 znakov.

Nekaj takega:

Dim X As String * 5

X = Right(" " + X , 5)

Nizu X dodaš s tem 4 prazna mesta spredaj, potem pa vzameš "desnih" 5 znakov. Tako boš imel vedno 5 znakov dolg niz.

Lep pozdrav, Andrej

[toncibalonci]

Obelix ta varijanta ne dela javi mi napako . V "val" ukaz pa ne moreš vpisat spremenljivke. Še kaka ideja??

[Krampus]

Dim Prejeto as string
Dim Vrednost as integer ali Double


Vrednost = CInt(Prejeto)


Ali z val (rezultat je Double)

Vrednost = Val(Prejeto)