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í 

Visual Basic 2010 čtení ze seriového portu

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Výpočetní technika
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
markoni



Založen: Oct 30, 2006
Příspěvky: 2310
Bydliště: Poblíž Zlína

PříspěvekZaslal: čt leden 08 2015, 14:46    Předmět: Visual Basic 2010 čtení ze seriového portu Citovat

Zdravím
Hledal jsem pomocí googla ale nenašel.Potřebuji testovat vstupní linky DSR,DCD,CTS,RI na sériovém portu.Nahazování výstupních linek jako je třeba DTR je snadné
kód:
SerialPort1.DtrEnable = True

ale testovat vstupní linky to nevím díky

_________________
Čím víc dál se snažím se učit tím poznávám že nic nevím
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
hakamusai



Založen: Apr 17, 2007
Příspěvky: 943

PříspěvekZaslal: čt leden 08 2015, 15:20    Předmět: Citovat

Co na to používáš ? (nějakou komponentu SerialPort aj. ?)
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
markoni



Založen: Oct 30, 2006
Příspěvky: 2310
Bydliště: Poblíž Zlína

PříspěvekZaslal: čt leden 08 2015, 15:28    Předmět: Citovat

Používám na to komponentu SerialPort1 která je obsažena ve Visual Basicu 2010 express
_________________
Čím víc dál se snažím se učit tím poznávám že nic nevím
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
hakamusai



Založen: Apr 17, 2007
Příspěvky: 943

PříspěvekZaslal: čt leden 08 2015, 23:34    Předmět: Citovat

Se samotnou komponentou neporadím -Visual Basic 2010 express neznám ,ale je to ve všech jazycích o tom samým.
Tady najdeš kompletní popis. Na ovládání a čtení stavu je funkce SetCommMask a GetCommMask (možná má i ta komponenta nějakou property s podobným názvem).
Na čtení stavu DSR je údajně Visual Basicu SerialPort1.DsrHolding. Zkus kouknout sem.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
markoni



Založen: Oct 30, 2006
Příspěvky: 2310
Bydliště: Poblíž Zlína

PříspěvekZaslal: pá leden 09 2015, 12:48    Předmět: Citovat

Díky za pomoc odzkoušeno a funguje
kód:

SerialPort1.DsrHolding  ' DSR
SerialPort1.CDHolding   ' DCD
SerialPort1.CtsHolding   'CTS

k úplné spokojenosti my chybí ještě jedna linka RI našel jsem jen pouze tři Holding kdyby někdo věděl díky

_________________
Čím víc dál se snažím se učit tím poznávám že nic nevím
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mtajovsky



Založen: Sep 19, 2007
Příspěvky: 3698
Bydliště: Praha

PříspěvekZaslal: pá leden 09 2015, 14:55    Předmět: Citovat

Použijte PinChanged event. RI je nestabilní signál. Podrobnosti například:
http://stackoverflow.com/questions/11621509/why-doesnt-the-serialport-class-have-an-riholding-property
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
markoni



Založen: Oct 30, 2006
Příspěvky: 2310
Bydliště: Poblíž Zlína

PříspěvekZaslal: pá leden 09 2015, 15:46    Předmět: Citovat

Ve Visual Basic 6 jsem nainportoval tuhle knihovnu viz příloha rar vrchní příloha je oskenování zdroják čtečky telefonní karty (starého typu) který jsem si už je dávno napsal a tam nedělají žádné ciráty s linkou RI .Já vím vývoj nezastavíš ale zatím jsem nepochopil co píšete výše jak tu linku RI testovat jaká by byla syntaxe díky


PORTS.rar
 Komentář:

Stáhnout
 Soubor:  PORTS.rar
 Velikost:  22.12 kB
 Staženo:  70 krát


tečka telefoních karet.jpg
 Komentář:

Stáhnout
 Soubor:  tečka telefoních karet.jpg
 Velikost:  251.85 kB
 Staženo:  69 krát


_________________
Čím víc dál se snažím se učit tím poznávám že nic nevím
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
hakamusai



Založen: Apr 17, 2007
Příspěvky: 943

PříspěvekZaslal: pá leden 09 2015, 16:01    Předmět: Citovat

Knihovna je starého data (nejspíš pro Win98).Je pravděpodobný,že nebude fungovat korektně.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mtajovsky



Založen: Sep 19, 2007
Příspěvky: 3698
Bydliště: Praha

PříspěvekZaslal: pá leden 09 2015, 16:44    Předmět: Citovat

RI nemůžete testovat pomocí třídy .NET SerialPort přímo, ale musíte se chytit na událost změny na portu a podle členu enumerace:

SerialPinChange.Ring

detekovat změnu na portu. Tak můžete detekovat všechny změny. Příklad handleru v C#:
kód:

    static void port_PinChanged(object sender, SerialPinChangedEventArgs e)
    {

        if (e.EventType == SerialPinChange.Break)
        {
        }
        else if (e.EventType == SerialPinChange.CDChanged)
        {
        }
        else if (e.EventType == SerialPinChange.CtsChanged)
        {
        }
        else if (e.EventType == SerialPinChange.DsrChanged)
        {
        }
        else if (e.EventType == SerialPinChange.Ring)
        {
                // do something here
        }
    }
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
markoni



Založen: Oct 30, 2006
Příspěvky: 2310
Bydliště: Poblíž Zlína

PříspěvekZaslal: pá leden 09 2015, 19:31    Předmět: Citovat

V C# nejsem kovaný potřeboval bych to ve Visual Basicu díky
_________________
Čím víc dál se snažím se učit tím poznávám že nic nevím
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
mtajovsky



Založen: Sep 19, 2007
Příspěvky: 3698
Bydliště: Praha

PříspěvekZaslal: pá leden 09 2015, 20:01    Předmět: Citovat

Já nejsem bejsikář, ale je to v podstatě stejné. Takže event handler musí splňovat signaturu pro EventHandler delegáty:

kód:

<SerializableAttribute> <ComVisibleAttribute(True)> Public Delegate Sub EventHandler ( sender As Object, e As EventArgs)


Například:

kód:

 Sub onPinChanged(sender As Object, e As EventArgs)
        Console.WriteLine("SerialPort status changed.")
End Sub


Někde máte definovánu instanci třídy SerialPort:

kód:

Dim seriaPort As SerialPort = New SerialPort()



Třída SerialPort má definovánu událost PinChanged. Do této události přidáte svůj handler:

kód:

AddHandler serialPort.PinChanged, AddressOf onPinChanged


V okamžiku, kdy dojde ke změně na portu, serialPort odpálí událost PinChanged a protože je na ní zaregistrován náš handler onPinChanged(), tak se spustí. Jako handler si v tom VB napište něco ve smyslu mého předchozího příspěvku.

Podrobněji o událostech:
http://msdn.microsoft.com/cs-cz/library/edzehd2t(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-4

P.S.: píšu to od boku bez ověření, neručím za nějaké chyby.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Výpočetní technika Č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.16 sekund