O tomhle moc nevim, ale staci trosku googlit a lze najit spoustu linku, ktere vysvetluji, jak na to ´(bohuzel v anglictine) - jeden napr. tady: http://www.pencomdesign.com/support/relay_software/vba_software_example.htmcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Stav vstupních hodnot s COM do excelu
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Stav vstupních hodnot s COM do excelu 
Zaslal/a Kalda 26.1.2012 10:32
Zdravím,
hledal jsem snad všude a nevím si rady. Potřeboval bych využít možnosti vstupních informací od spínačů přes COM, kde zapojení bude DTR-RI,DTR-CTS,DTR-DSR a DTR-DCD. A výsledky zda jsou nebo nejsou sepnuty, potřebuji dostat do buněk excelu stav 0-1. S dalším zpracováním se snad už poperu. Dík za každé nakopnutí.
Uzamčeno - nelze přidávat nové příspěvky.Mám to odzkoušený jen ve VB (tzn. s formulářem, tam to funguje nějak takto:
1) krok = připojení prvku (knihovny) pro ovládání portu MSCOMM32.ocx (je to vidět i na linku od Pokiho)
2) pc bez Visual Basicu vyžaduje registraci (viz. link níže)
3) Při loadu formu otevřít port
Mscomm1.portopen=true
4) Zachycení události přímo na prvku sériového portu
Private Sub MSComm1_OnComm()
IF MSComm1.CommEvent = comEvReceive Then
proměnná = MSComm1.input
End if
End Sub
5) Při unloadu formu zavřít port
Mscomm1.portopen=false
Takto to funguje ve VB a čte to data poslaná čtečkou magnetických karet, přičemž v proměnné jsou získaná data - předpokládám že v tvém případě to bude vypadat jinak, ale už si musíš zachytit sám co který stav znamená.
Řekl bych že by to mělo fungovat i s formulářem ve VBA.
Mělo by to fungovat i bez formuláře, ale to jsem nikdy nezkoušel a tak přibalím ještě jeden odkaz:
http://www.excelforum.com/excel-programming/539481-tutorial-use-mscomm-with-a-serial-device.html
M@citovat
1) krok = připojení prvku (knihovny) pro ovládání portu MSCOMM32.ocx (je to vidět i na linku od Pokiho)
2) pc bez Visual Basicu vyžaduje registraci (viz. link níže)
3) Při loadu formu otevřít port
Mscomm1.portopen=true
4) Zachycení události přímo na prvku sériového portu
Private Sub MSComm1_OnComm()
IF MSComm1.CommEvent = comEvReceive Then
proměnná = MSComm1.input
End if
End Sub
5) Při unloadu formu zavřít port
Mscomm1.portopen=false
Takto to funguje ve VB a čte to data poslaná čtečkou magnetických karet, přičemž v proměnné jsou získaná data - předpokládám že v tvém případě to bude vypadat jinak, ale už si musíš zachytit sám co který stav znamená.
Řekl bych že by to mělo fungovat i s formulářem ve VBA.
Mělo by to fungovat i bez formuláře, ale to jsem nikdy nezkoušel a tak přibalím ještě jeden odkaz:
http://www.excelforum.com/excel-programming/539481-tutorial-use-mscomm-with-a-serial-device.html
M@citovat
Díky moc pánové, Pokiho odkaz jsem už projel,tam to je spíše, že počítačem ovládáš relé, které spíná další zařízení. Na tuto aplikaci jsem našel spoustu řešení včetně schémat zapojení a formulářového kódu. Já potřebuji dostat stav portu do PC. Prostuduji další nápady a budu zkoušet dál. 
Nejsem žádnej prográmátor, proto jsem oslovil profíky.citovat
Nejsem žádnej prográmátor, proto jsem oslovil profíky.citovatHledal jsem až jsem našel další střípek jak ovládat a číst COMku, třeba se to někomu hodí.
http://www.mylms.ic.cz/index.php?text=24-com-portcitovat
http://www.mylms.ic.cz/index.php?text=24-com-portcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články