Stránka 1 z 1
komunikace 2051 - VB6
Napsal: 17 srp 2007, 21:39
od Milan121
Zdravím,nevíte o nějakém srozumitelném příkladu (zdrojáku) přenosu dat z jednočipu 2051 do PC po RS232 do nějaké aplikace ve Visual basicu6.Např do textového okna.Dík
Napsal: 19 srp 2007, 14:00
od ZdenekHQ
Nikdo se sice neozývá, ale na druhou stranu na tom nic není.
Stačí nastavit správnou přenosovou rychlost a přerušení někde v programu :
Kód: Vybrat vše
mov tmod,#00100001b ;T0 MOD 1, T1 MOD 2
mov tcon,#00000000b ;nepouzito
mov ie, #00010010b ;preruseni od RS232 a T0
mov ip, #00000000b ;stejna priorita, jinak se budou tahat o data
mov scon,#01000000b ;seriovy port MOD 1
mov pcon,#00000000b ;smod=0, normalni rychlost
mov th1,#0fbH ;9600 Bd (popr v smod x2) pro 18.432Mhz
Dál si vyrobit detekci odeslanýho znaku v přerušení od RS-232:
Kód: Vybrat vše
org 23h
;RS232
jmp Komunik
;***************************
;**** OBSLUHY PRERUSENI ***
;***************************
org 30h
;*********
;* RS232 *
;*********
Komunik:
jb ri,Rec_rs
jb ti,Sd_rs
reti
Sd_rs:
setb Poslal
clr ti
reti
Rec_rs:
setb Prijal
clr ri
reti
A pak už jenom
a počkat, az se bit Poslal nastaví do log-1 a poslat další. Jak si to vyhodnotíš a co bude jakej znak znamenat, to už si zvol sám.
Napsal: 19 srp 2007, 20:28
od Milan121
Zdeno dík,ale spíš by mi šlo o druhou stranu, o aplikaci na PC.Chtěl bych si zobrazovat měřenou teplotu někde na PC.Co jsem našel příklady,tak zrovna nebyly ve VB.Jiné jazyky neznám vůbec a basic tak tak.
Napsal: 19 srp 2007, 21:46
od ZdenekHQ
Já to píšu či zpracovávám ve starým Borland Pascalu, bo učit se další a další jazky či jejich mutace už taky nezvládám.... Na vývoj hardware (např. komunikaci MODBUS) to stačí.
Na vizualizaci či super ovládací software si už musí zaplatit nějakýho "programátora". Je jich beztak jak much...
Napsal: 20 srp 2007, 19:15
od durmitor
ZdenekHQ píše:Já to píšu či zpracovávám ve starým Borland Pascalu, bo učit se další a další jazky či jejich mutace už taky nezvládám.... Na vývoj hardware (např. komunikaci MODBUS) to stačí.
Na vizualizaci či super ovládací software si už musí zaplatit nějakýho "programátora". Je jich beztak jak much...
Mohl bys prosímtě někde uveřejnit zdroják, jak v pascalu posílat něco po sériový lince?
Napsal: 21 srp 2007, 10:53
od ZdenekHQ
Je to v uploadu tady :
a_powr25.pas
Je to normální texťák, hledej Pt_nacti a InitRS232 a Send_Char. Je to funkční, když k tomu připojíš PLC nebo něco, co umí MODBUS, tak to bude třeba i komunikovat.
EDIT : Zip nějak zlobí, takže jsem ho nahradil přímo zdrojákem v Pascalu
Napsal: 24 srp 2007, 00:19
od Návštěvník
Milan121 píše:Zdeno dík,ale spíš by mi šlo o druhou stranu, o aplikaci na PC.Chtěl bych si zobrazovat měřenou teplotu někde na PC.Co jsem našel příklady,tak zrovna nebyly ve VB.Jiné jazyky neznám vůbec a basic tak tak.
Na VB už par rokov neprogramujem ale myslím že na to bolo MSCOMM32.OCX
Alebo sa dalo použiť API ale to si už nepamätám vôbec
Napsal: 24 srp 2007, 14:52
od Milan121
Na programování jsem dost slabý a navíc amatér,takže příkladek by bodl.
Napsal: 24 srp 2007, 19:22
od Návštěvník
A kam ti to možem poslať ?
Napsal: 24 srp 2007, 21:42
od Milan121
No to jsi moc hodný zkus to na
mil.sevcik@mtrebova-city.cz dík
Napsal: 25 srp 2007, 09:51
od Aqarel
pro práci se sériovým portem jsem ve VB používal rscom.dll, nebo port.dll práce s nimi je velmi podobná, jedna má akorát vic funkcí
Napsal: 25 srp 2007, 11:09
od Milan121
a kousek zdrojáku by nebyl?
Napsal: 25 srp 2007, 13:54
od fantomas_old
Já píšu visualizaci v Delphi a seriovku v API.Je to hned hotový.