mscomm

[blackbox]

hallo leute.
ich hoffe mir kann jemand helfen...
also, ich habe eine datenübertragung über COM1 vor,
zum testen habe ich mal ein MODEM angestöpselt und
ich kann auch SUPER BEFEHLE an das modem senden, nur !
ich bekomme keine ANTWORT !
habe folgendes ausprobiert ...


Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comOverrun
MsgBox "Datenverlust!"

Case comRxOver
MsgBox "Datenverlust!"

Case comEvReceive
Text1.Text = MSComm1.Input
End Select
End Sub

ergo , ereignissgesteuert

nix kommt
mit einer SCHLEIFE bekomme ich auch keine ERGEBNISSE
BSP:

loopexit =1
Do
DoEvents
Buffer$ = Buffer$ & MScomm1.Input
loopexit = loopexit + 1
if loopexit = 999 then exit Do
text1.text = Buffer$
loop Until InStr(Buffer$, "OK" & vbCrLf)
MSComm1.PortOpen = False


ich hoffe jemand weiß RAT was ich falsch mache


mfg blackboxBS: W2Kprof, VB6.0prof,

 

[Thomas Darimont]

Servus!

Vielleicht hilft dir das hier weiter:

http://www.visualbasic.at/main.php?id=2&main=edetail

Gruss Tom

 

[blackbox]

etc

DANKE, ich werd es durcharbeiten ...
doch den KERN trifft es leider nicht, da ja der COM - PORT funzt
trozdem danke TOM !
greez bb

 

[blackbox]

etc

hab es gefunden...
diese EIGENSCHAFTEN sind wichtig für den EMPFANG

MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0

dann funzt es auch ganz prima
greez bb