komunikace 2051 - VB6

Zpráva

Milan121 · #1 Příspěvek od **Milan121** » 17 srp 2007, 21:39

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

ZdenekHQ · #2 Příspěvek od **ZdenekHQ** » 19 srp 2007, 14:00

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

Kód: Vybrat vše

mov sbuf,nejakej_znak

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.

Milan121 · #3 Příspěvek od **Milan121** » 19 srp 2007, 20:28

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.

ZdenekHQ · #4 Příspěvek od **ZdenekHQ** » 19 srp 2007, 21:46

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...

durmitor · #5 Příspěvek od **durmitor** » 20 srp 2007, 19:15

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?

ZdenekHQ · #6 Příspěvek od **ZdenekHQ** » 21 srp 2007, 10:53

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

Návštěvník · #7 Příspěvek od **Návštěvník** » 24 srp 2007, 00:19

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

Milan121 · #8 Příspěvek od **Milan121** » 24 srp 2007, 14:52

Na programování jsem dost slabý a navíc amatér,takže příkladek by bodl.

Návštěvník · #9 Příspěvek od **Návštěvník** » 24 srp 2007, 19:22

A kam ti to možem poslať ?

Milan121 · #10 Příspěvek od **Milan121** » 24 srp 2007, 21:42

No to jsi moc hodný zkus to na mil.sevcik@mtrebova-city.cz dík

Aqarel · #11 Příspěvek od **Aqarel** » 25 srp 2007, 09:51

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í

Milan121 · #12 Příspěvek od **Milan121** » 25 srp 2007, 11:09

a kousek zdrojáku by nebyl?

fantomas_old · #13 Příspěvek od **fantomas_old** » 25 srp 2007, 13:54

Já píšu visualizaci v Delphi a seriovku v API.Je to hned hotový.