Hallo zusammen,
ich habe ein Problem, zudem ich weder Online Hilfe noch ein Forum endecken konnte, welches mir wenigstens ein wenig helfen könnte, daher wende ich mich hoffnungsvoll an euch.
Mein Problem:
Ich habe eine grafische Oberfläche erstellt, welche _txtadress_0(bis)15 / _txtdata_0(bis)15 / _txtlabel0_(bis) 15 und _txtvalue0(bis)15 enthält.
Hinter diesem Programm steckt ein irre langer Quellcode, den ich jetzt hier nicht abbilden kann, da dies ca. 30 Seiten lang ist.
Das Programm soll über eine IP Adresse sich mit einem Server verbinden und Daten auslesen.
Das funktioniert auch einwandfrei, jedoch habe ich ein Problem, da ich Daten, die im _txtValue_9(bis)15 angezeigt werden, in ein Text File mit Append Funktion +Date&TimeStamp usw. schreiben lassen will.
Mein Code dazu sieht folgendermaßen aus
unter "Recieve")
Dim i, j, k As Integer
Dim a, b, c As String
FileOpen(1, "c:\Beispiel.txt", OpenMode.Output)
a = _Label9_0.Text & _txtAddress(i).Text & _txtData(i).Text & _txtValue(i).Text & vbCrLf
WriteLine(1, "316 W New Yaris - Handling and Scale - Gateway Parameters " & a)
b= _Label9_1.Text & _txtAdress(1).Text & _txtData(1).Text & _txtValue(1).Text & vbCrlf
Dieser Code "a" funktionert auch wunderbar und gibt mir auch einen Value zurück, jedoch immer denselben.
Den Code "b" funktioniert nicht, er gibt mir keinen Wert aus.
Ich brauche aber für jeden Wert (es sind ca. 15 Werte) eine Zeile mit einem Wert.
Hat jemand einen Tipp, wie kann ich mir jeden Wert anzeigen lassen?
Gruß Euer Vamp7771
ich habe ein Problem, zudem ich weder Online Hilfe noch ein Forum endecken konnte, welches mir wenigstens ein wenig helfen könnte, daher wende ich mich hoffnungsvoll an euch.
Mein Problem:
Ich habe eine grafische Oberfläche erstellt, welche _txtadress_0(bis)15 / _txtdata_0(bis)15 / _txtlabel0_(bis) 15 und _txtvalue0(bis)15 enthält.
Hinter diesem Programm steckt ein irre langer Quellcode, den ich jetzt hier nicht abbilden kann, da dies ca. 30 Seiten lang ist.
Das Programm soll über eine IP Adresse sich mit einem Server verbinden und Daten auslesen.
Das funktioniert auch einwandfrei, jedoch habe ich ein Problem, da ich Daten, die im _txtValue_9(bis)15 angezeigt werden, in ein Text File mit Append Funktion +Date&TimeStamp usw. schreiben lassen will.
Mein Code dazu sieht folgendermaßen aus

Dim i, j, k As Integer
Dim a, b, c As String
FileOpen(1, "c:\Beispiel.txt", OpenMode.Output)
a = _Label9_0.Text & _txtAddress(i).Text & _txtData(i).Text & _txtValue(i).Text & vbCrLf
WriteLine(1, "316 W New Yaris - Handling and Scale - Gateway Parameters " & a)
b= _Label9_1.Text & _txtAdress(1).Text & _txtData(1).Text & _txtValue(1).Text & vbCrlf
Dieser Code "a" funktionert auch wunderbar und gibt mir auch einen Value zurück, jedoch immer denselben.
Den Code "b" funktioniert nicht, er gibt mir keinen Wert aus.
Ich brauche aber für jeden Wert (es sind ca. 15 Werte) eine Zeile mit einem Wert.
Hat jemand einen Tipp, wie kann ich mir jeden Wert anzeigen lassen?
Gruß Euer Vamp7771