www.elektronik.si

[burger]

Pozdravljeni!

Ker nisem najbolj vešč s programiranjem v VB-ju se obračam na vas; rad bi prebral podatke s com porta in jih tja tudi pošiljal. Malo sem brskal po internetu in po pdf-jih, ampak nič nisem našel. A mi lahko pomagate, sigurno je že kdo napisal kako scripto?
Delam pa z eno Scado, pa bi mi to zelo prav prišlo!

Hvala lepa

[aljoš]

Se mi zdi da je program I-hystorian ali nekaj takega ki ti podatke bere in izpisuje tudi grafe (zgodovino)
Je pa tako, če imaš Scado, ti tako ali tako dela samo 30min, razen če si nabavil ključ za ne-demo verzijo....

[PC_Master]

Obstaja tudi plugin .dll , samo se ne spomnem natanko

[Branez]

[burger]

aljoš, to je za iFix scado, ne bo šlo!

[aljoš]

mea culpa

[burger]

Pozdravljeni!

Našel sem na netu eno scripto napisano, vendar mi noče pošiljati sms-sov, to namreč delam z GSM modemom. A mi lahko keri razloži kaj je treba popravit? Saj večinoma mi je jasno kaj to pomeni, samo nisem pa noben expert.

Dim SMSSend
Dim SMS
Dim buffer
SMS = "sms message"

' This is the name of the MSComm Control
Set SMSSend = ScreenItems("SMS1")

Dim S
Dim NoArr(1)
'here you can add all the cell numbers you want to send to
NoArr(0) = "+38612345678"

For S = 0 To 1
SMSSend.CommPort = 2
SMSSend.Settings = "9600,N,8,1"
SMSSend.InputLen = 0
SMSSend.Handshaking = 0
SMSSend.PortOpen = True

SMSSend.Output ="ATZ;+CMEE=1;+CBST=7,0,1;+CSDH=1;+CMGF=1;S0=0" & Chr(13) ´incializacija
Do
buffer = buffer & SMSSend.Input
Loop Until InStr(buffer, "OK")
buffer = ""

SMSSend.Output = "AT+CMGF=1" & Chr(13) ´kaj pomeni ta chr(13)
Do

buffer = buffer & SMSSend.Input
Loop Until InStr(buffer, "OK")
buffer = ""

SMSSend.Output = "at+cmgs=+38612345678,145(0x0d 0x0a)kako je kaj?(0x1a)" & Chr(13)
Do

buffer = buffer & SMSSend.Input
Loop Until InStr(buffer, ">")
buffer = ""

SMSSend.Output = SMS + Chr(26)


Do

buffer = buffer & SMSSend.Input
Loop Until InStr(buffer, "OK")
' try to force sends by closing the ports and reopen in loop
SMSSend.PortOpen = False
Next

[PC_Master]

[burger]

Pozdravljeni!

Nekaj časa se nisem s tem ukvarjal, zdaj pa spet. No, še vedno mi ni uspelo poslati SMS-a iz scade. Ta port.dll, a ga moram kopirati v system folder (to sem namreč naredil) ali ga kako drugače v scadi vnest ali kako?

LP

[Jan]

Zdravo!

Burger, kateri GSM modem pa uporabljaš?

lp
Jan

[burger]

Uporabljam Flacom gsm modem, katerega smo skupinsko kupili nekaj časa nazaj!

[Jan]

Kakšna pa je bila cena?

lp
Jan

[burger]

Cena je bila 40EUR, če se prav spomnim, drugače je pa vreden nekje 240EUR!
http://www.elektronik.si/phpBB2/viewtopic.php?t=10298&highlight=gsm+modem