Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

komunikace 2051 - VB6

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
Milan121



Založen: Dec 07, 2005
Příspěvky: 722

PříspěvekZaslal: pá srpen 17 2007, 20:39    Předmět: komunikace 2051 - VB6 Citovat

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
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
ZdenekHQ
Administrátor


Založen: Jul 21, 2006
Příspěvky: 25741
Bydliště: skoro Brno

PříspěvekZaslal: ne srpen 19 2007, 13:00    Předmět: Citovat

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:

   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:

   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:

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.

_________________
Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?
]
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
Milan121



Založen: Dec 07, 2005
Příspěvky: 722

PříspěvekZaslal: ne srpen 19 2007, 19:28    Předmět: Citovat

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.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
ZdenekHQ
Administrátor


Založen: Jul 21, 2006
Příspěvky: 25741
Bydliště: skoro Brno

PříspěvekZaslal: ne srpen 19 2007, 20:46    Předmět: Citovat

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

_________________
Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?
]
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
durmitor



Založen: Nov 02, 2005
Příspěvky: 199
Bydliště: Pardubice

PříspěvekZaslal: po srpen 20 2007, 18:15    Předmět: Citovat

ZdenekHQ napsal(a):
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?

_________________
Podpis na houby
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail Zobrazit autorovy WWW stránky
ZdenekHQ
Administrátor


Založen: Jul 21, 2006
Příspěvky: 25741
Bydliště: skoro Brno

PříspěvekZaslal: út srpen 21 2007, 9:53    Předmět: Citovat

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

_________________
Pro moje oslovení klidně použijte jméno Zdeněk
Správně navržené zapojení je jako recept na dobré jídlo.
Můžete vynechat půlku ingrediencí, nebo přidat jiné,
ale jste si jistí, že vám to bude chutnat[?
]


Naposledy upravil ZdenekHQ dne út prosinec 04 2007, 12:10, celkově upraveno 1 krát.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
anonym






PříspěvekZaslal: čt srpen 23 2007, 23:19    Předmět: Citovat

Milan121 napsal(a):
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
Návrat nahoru
Milan121



Založen: Dec 07, 2005
Příspěvky: 722

PříspěvekZaslal: pá srpen 24 2007, 13:52    Předmět: Citovat

Na programování jsem dost slabý a navíc amatér,takže příkladek by bodl.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
anonym






PříspěvekZaslal: pá srpen 24 2007, 18:22    Předmět: Citovat

A kam ti to možem poslať ?
Návrat nahoru
Milan121



Založen: Dec 07, 2005
Příspěvky: 722

PříspěvekZaslal: pá srpen 24 2007, 20:42    Předmět: Citovat

No to jsi moc hodný zkus to na mil.sevcik@mtrebova-city.cz dík
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Aqarel



Založen: Feb 04, 2007
Příspěvky: 241

PříspěvekZaslal: so srpen 25 2007, 8:51    Předmět: Citovat

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í
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Zobrazit autorovy WWW stránky
Milan121



Založen: Dec 07, 2005
Příspěvky: 722

PříspěvekZaslal: so srpen 25 2007, 10:09    Předmět: Citovat

a kousek zdrojáku by nebyl?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
fantomas_old
Neregistrovaný





PříspěvekZaslal: so srpen 25 2007, 12:54    Předmět: Citovat

Já píšu visualizaci v Delphi a seriovku v API.Je to hned hotový.
Návrat nahoru
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.17 sekund