Visual Basic Forum

Verfasst am: 28.10.2011, 10:29 Aufrufe: 293

hey! ich gebe vor der wartezeit an das angeschlossene gerät werte für spannung und strom weiter, die dieses dann ausführt solange die wartezeit eben ist. dieses ausführen muss aber auch abgebrochen werden können! wenn der stop button auf der gleichen form wie das mscomm(bei mir rs232) liegt funktioniert das wunderbar. ich hätte aber gerne, dass während des ausführens des geräts eine neue form geöffnet wird, die die ...

Verfasst am: 27.10.2011, 14:07 Aufrufe: 293

hmm der button selbst funktioniert. es liegt daran, dass ich in jede form ein mscomm eingefügt habe und vb6 ja nicht weiß dass damit dieselbe schnittstelle gemeint ist. kann ich dem programm das irgendwie klar machen?

Verfasst am: 15.01.2010, 09:33 Aufrufe: 725

... habe eine kleine Software in Access geschrieben, die es ermöglichen soll, Daten einzulesen. Der Anschluss ist konfiguriert und Daten werden auch empfangen, jedoch schleichen sich während der Übertragung diverse Fehler ein: (Wenn ich die DoEvents Schleifen drin lasse wird auch meine Übertragung besser dh. weniger Fehler jedoch gehen dann Datenstücke verloren.) Private Sub Form_Load() MsComm ...

Verfasst am: 27.06.2009, 15:57 Aufrufe: 627

Hallo, Ich bin ein VB6 Anfanger. Ich habe ein Program Gechrieben mit MSComm die ein RS232 stream empfangt und bearbeitet. Alles funktioniert mit ein Textbox, ABER, wenn ich versuche die String in zwei Text Boxen zu splitten aufgrund von der Anfangszeichen in der string fangen meiner Probleme an. Gibt es jemand (geduld ist aber gefragt) der meiner code anschauen wurde und ein paar tipps geben? Es durfte ein recht Tr ...

Verfasst am: 16.05.2003, 17:41 Aufrufe: 419

Hallo ich brauche schnell einen Rat: Problem: Private Sub Verbinden_Click() MSComm1.CommPort = 1 MSComm1.Settings = "2400,n,8,1" MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputLen = 0 MSComm1.PortOpen = True 'MSComm1.InputMode = comInputModeBinary End Sub Private Sub mscomm1_oncomm() If (MSComm1.CommEvent = comEvReceive) Then Text1.Text = Text1.Text & MSComm1.Input End If End Sub Das geht soweit ab ...

Verfasst am: 16.05.2003, 17:40 Aufrufe: 1829

Hallo ich brauche schnell einen Rat: Problem: Private Sub Verbinden_Click() MSComm1.CommPort = 1 MSComm1.Settings = "2400,n,8,1" MSComm1.RThreshold = 1 MSComm1.SThreshold = 1 MSComm1.InputLen = 0 MSComm1.PortOpen = True 'MSComm1.InputMode = comInputModeBinary End Sub Private Sub mscomm1_oncomm() If (MSComm1.CommEvent = comEvReceive) Then Text1.Text = Text1.Text & MSComm1.Input End If End Sub Das geht soweit ab ...