Na této stránce jsem uvedl schéma zapojení
vstupně výstupní karty, kterou lze připojit ke COM portu počítače. Jenže aby se dala ovládat je potřeba nějaký program. Vytvářet samostatný program není moc flexibilní – každému vyhovuje jiný styl ovládání a často je potřeba výstupy ovládat automaticky. Z tohoto důvodu jsem naprogramoval knihovnu
LMSIOCard.dll
Parametry programu
| Jméno programu |
LMSIOCard |
| Verze programu |
1.0. |
| Jazyk |
– |
| Podporované OS |
– |
| Licence |
freeware |
| Velikost |
13 kB |
|
|
| Potřebné knihovny |
RSCOM.dll |
| Vytvořeno v |
VB.NET |
| Stáhnout z |
Tohoto webu |
Nebudem se zaobírat vnitřní stavbou knihovny, spíš popíšu jak knihovnu ovládat a jak vytvořit jednoduchý program, pomocí kterého lze I/O kartu ovládat.
Budu vycházet z programovacího jazyku VisualBasic.NET. Pokud v něm neumíte a máte pocit že byste měli, vřele doporučuji
tento seriál. Nic kvalitnějšího v češtině a zadarmo nenajdete.
Ovládání COM portu
K ovládání COM portu používám knihovnu
RSCOM.dll. Tuto knihovnu stačí vložit do složky s programem a ve VisualStudiu do projektu vložit Modul, do kterého vložíte tento kód:
Public pTXD As Boolean
Public pDTR As Boolean
Public pRTS As Boolean
Declare Function OPENCOM Lib „RSCOM“ (ByVal OpenString$) As Integer
Declare Sub TIMEOUTS Lib „RSCOM“ (ByVal b%)
Declare Sub BUFFERSIZE Lib „RSCOM“ (ByVal b%)
Declare Sub CLOSECOM Lib „RSCOM“ ()
Declare Sub SENDBYTE Lib „RSCOM“ (ByVal Dat%)
Declare Function READBYTE Lib „RSCOM“ () As Integer
Declare Sub SENDSTRING Lib „RSCOM“ (ByVal Dat$)
Declare Function READSTRING Lib „RSCOM“ () As String
Declare Sub CLEARBUFFER Lib „RSCOM“ ()
Declare Function INBUFFER Lib „RSCOM“ () As Integer
Declare Function OUTBUFFER Lib „RSCOM“ () As Integer
Declare Sub DTR Lib „RSCOM“ (ByVal b%)
Declare Sub RTS Lib „RSCOM“ (ByVal b%)
Declare Sub TXD Lib „RSCOM“ (ByVal b%)
Declare Function CTS Lib „RSCOM“ () As Integer
Declare Function DSR Lib „RSCOM“ () As Integer
Declare Function RI Lib „RSCOM“ () As Integer
Declare Function DCD Lib „RSCOM“ () As Integer
Declare Function INPUTS Lib „RSCOM“ () As Integer
Declare Sub TIMEINIT Lib „RSCOM“ ()
Declare Function TIMEREAD Lib „RSCOM“ () As Double
Declare Sub DELAY Lib „RSCOM“ (ByVal ms As Double)
Declare Sub REALTIME Lib „RSCOM“ ()
Declare Sub NORMALTIME Lib „RSCOM“ ()
V nastavení si tlačítkem Obnovit porty načtete seznam dostupných portů (max. 15). Tlačítkem Připojit se připojíte k portu. Klikáním na jednotlivá tlačítka (TXD, DTR a RTS) lze měnit logickou hodnotu na výstupech portu. Zároveň se v nastaveném intervalu načítají hodnoty vstupů.
Nastavení programu[/caption]