vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: MSComm: input/output 
Autor: krusty
Datum: 28.08.03 10:23
Hallo,

Ja ich war auch schon im Debug- Modus.Das Gerät speichert auch immer einen Fehler wenn ich den *IDN? Befehl sende.Im Handbuch steht dazu :

(-410) Query Interrupted:Es wurde ein Befehl empfangen,der Daten an den Ausgangspuffer sendet.Der Ausgangspuffer enthielt jedoch Daten eines früheren Befehls(die bereits vorhandenen Daten werden überschrieben).Die Daten des Ausgangspuffers werden gelöscht.wenn das Gerät ausgeschaltet oder der Bus-Befehl "Device Clear" gesendet wird.

Das ist der Code den ich verwende,vielleicht siehst du noch einen Feheler.[
code]
Public GesamterText As String

Private Sub tst_1_Click()

MSComm1.Output = vbCrLf + "*IDN?" + vbCrLf + vbCrLf

Call MSComm1_OnComm

Text1.Text = GesamterText

End Sub


Private Sub MSComm1_OnComm()

Dim Buffer As String
Dim ZeitSekunden As Integer
Dim ZeitSekunden1 As Integer

ZeitSekunden = Second(Time)

If comEvReceive Then

ZeitSekunden1 = Second(Time)

While ZeitSekunden1 < ZeitSekunden + 2
'Oder mehr, falls es länger geht

Buffer = MSComm1.Input
GesamterText = GesamterText + Buffer

ZeitSekunden1 = Second(Time)

Wend

End If

End Sub

Private Sub Abmld_1_Click()

MSComm1.PortOpen = False
tst_1.Enabled = False
Anmld_1.Enabled = True
rst_1.Enabled = False
Abmld_1.Enabled = False

'Unload Me
End Sub

Private Sub Anmld_1_Click()

MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
tst_1.Enabled = True
Abmld_1.Enabled = True
rst_1.Enabled = True
Anmld_1.Enabled = False


End Sub
[
Das ist die schnellere Variante,die das gleiche Ergebnis ausgibt:
code]
Private Sub Abmld_1_Click()
MSComm1.PortOpen = False
tst_1.Enabled = False
Anmld_1.Enabled = True
rst_1.Enabled = False
Abmld_1.Enabled = False

'Unload Me
End Sub

Private Sub Anmld_1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0
tst_1.Enabled = True
Abmld_1.Enabled = True
rst_1.Enabled = True
Anmld_1.Enabled = False


End Sub

Private Sub MSComm1_OnComm()


Dim I As Integer
Dim Eingang As String
If comEvReceive Then

For I = 0 To 2500
Eingang = MSComm1.Input
Text1.Text = Text1.Text + Eingang

Next I

End If
End Sub
Private Sub tst_1_Click()
Dim Buffer As String

MSComm1.Output = vbCrLf
MSComm1.Output = "*IDN?" & vbCrLf
MSComm1.Output = vbCrLf
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0


DoEvents
Do
DoEvents
Buffer = Buffer + MSComm1.Input
Loop Until Len(Buffer) > 1
Text1.Text = Buffer

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MSComm: input/output3.317krusty25.08.03 09:58
Re: MSComm: input/output1.506dbayer25.08.03 10:07
Re: MSComm: input/output1.332krusty25.08.03 11:32
Re: MSComm: input/output1.278krusty25.08.03 11:44
Re: MSComm: input/output1.254dbayer25.08.03 13:32
Re: MSComm: input/output1.239krusty25.08.03 10:26
Re: MSComm: input/output1.131dbayer25.08.03 10:49
Re: MSComm: input/output1.168krusty25.08.03 10:54
Re: MSComm: input/output1.151dbayer25.08.03 11:19
Re: MSComm: input/output1.175krusty25.08.03 12:04
Re: MSComm: input/output1.155Infinity25.08.03 15:40
Re: MSComm: input/output1.390krusty26.08.03 08:40
Re: MSComm: input/output1.134Infinity26.08.03 10:51
Re: MSComm: input/output1.146Infinity26.08.03 10:56
Re: MSComm: input/output1.102krusty26.08.03 13:17
Re: MSComm: input/output1.063Infinity26.08.03 16:38
Re: MSComm: input/output1.137krusty27.08.03 08:52
Re: MSComm: input/output1.110krusty27.08.03 09:04
Re: MSComm: input/output1.077Infinity27.08.03 09:12
Re: MSComm: input/output1.156krusty27.08.03 09:25
Re: MSComm: input/output1.025Infinity27.08.03 11:09
Re: MSComm: input/output1.044krusty27.08.03 11:32
Re: MSComm: input/output1.118Infinity27.08.03 11:42
Re: MSComm: input/output1.054krusty27.08.03 11:52
Re: MSComm: input/output1.064Infinity27.08.03 13:07
Re: MSComm: input/output1.057krusty27.08.03 13:24
Re: MSComm: input/output1.048Infinity27.08.03 13:28
Re: MSComm: input/output1.035krusty27.08.03 13:31
Re: MSComm: input/output1.022Infinity27.08.03 13:47
Re: MSComm: input/output990krusty27.08.03 14:01
Re: MSComm: input/output1.047Infinity27.08.03 14:48
Re: MSComm: input/output1.855krusty28.08.03 10:23
Re: MSComm: input/output1.107Infinity28.08.03 10:31
Re: MSComm: input/output1.181krusty28.08.03 10:47

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel