Versuchs mahl bei http://www.activevb.de/
Druckbare Version
Versuchs mahl bei http://www.activevb.de/
Hallo LuK-AS,
Dein Sensor besteht höchstwahrscheinlich aus einer Wheatstoneschen Messbrücke. Deshalb bringt es auch nichts, wenn du einen "Sensor-" Ausgang auf GND legst.Zitat:
Dann habe ich noch eine kleines elektronisches Problemchen:
Hier ein Prinzip der Verstärkerschaltung
Hier findest du ausführliche Beschreibungen und Schaltungen dazu.
Gruß, Michael
Sorry, LuK-As, das ich jetzt erst mich wieder melde. War etwas beschäftigt in der letzten Zeit.
Zu deinem Programm:
Mach mal ein debug.print von tmpdata1. Dann kannst du im direktfenster erstmal sehen, ob der String komplett ankommt. Ich glaube nämlich das die ;-Zeichen da Probleme machen.
Also ungefähr so:
Sonst müsste der Code die beiden Werte richtig liefern. ;)[/code]Code:Private Sub MSComm1_OnComm()
dim TmpData1 as string <----- Sonst hast du ein Variant und das kann vieles darstellen
TmpData1 = MSComm1.Input
Debug.Print TmpData1 <----- im Einzelschritt wird dir dann im Direktfenster der String komplett ausgegeben.
Select Case MSComm1.CommEvent
Case comRxOver: MsgBox "Datenverlust"
Case comEvReceive: Me.ComInput = Me.ComInput + TmpData1
End Select
ComInput.SelStart = Len(ComInput.Text)
On Error Resume Next
If Left(TmpData1, 2) = "xx" Then
Text1.Text = Mid(TmpData1, 4, 3)
Text2.Text = Mid(TmpData1, 8, 3) <---fängst schon in der 8. SPalte an ;)
End If
End Sub
@Michael:
danke für den Link ich denke das wird mir wohl weiterhelfen, werde es am Wochenende ausprobieren.
@Grusim:
also mein InBufferCount sagt mir nur 8 Zeichen und im TmpData1 sind ebenfalls nur die ersten 8 Zeichen des Strings. Kann man den Eingangspuffer irgendwie einstellen oder sowas?
Gruss Clemens
@LuK-AS
Das Problem, dass nur 8 Zeichen in VB ankommen hatten wir schon mal:Zitat:
also mein InBufferCount sagt mir nur 8 Zeichen und im TmpData1 sind ebenfalls nur die ersten 8 Zeichen des Strings. Kann man den Eingangspuffer irgendwie einstellen oder sowas?
https://www.roboternetz.de/phpBB2/ze...ight=8+zeichen
Ob es in dem Thread auch eine Lösung gab weiss ich leider nicht mehr.
@LuK-As
Wie sieht deine Definition der Comm-Komponente aus?
Das ganze dahin wo du die Baudrate einstellst und ähnliche Parameter (am besten dahinter, vor dem öffnen)Code:MSComm1.RThreshold = 1 <--- Größe ab wann der EventReceive gesetzt wird in Bytes
MSComm1.SThreshold = 1 <--- Größe für EventSend
MSComm1.InputLen = 0 <---- Wieviele Zeichen aus dem Puffen zu nehmen sind
Uniformiere den String wirklich, wie Dino Dieter schon anmerkte, Also zum beispiel wenn dein erster Wert Max. 3 Stellen hat vorne Nullen einfügen wenn der Wert nur 2 Stellen hat. Dann diese komplette Länge max. in Rtreshold und InputLen eingeben (Wenn ich mich nicht verzählt habe 54 Bytes).
Weiterhin würde ich die Steuerung der Kommunikation bei deinem PC lassen. Das heißt, Comp schickt Bytefolge für Bereit und senden Datensatz, AVR schickt dann erst Datensatz. Sonst kann es sein, das der AVR schneller dir die Daten um die Ohren haut, als der Comp sie empfangen, verarbeiten und anzeigen kann.
Hallo zusammen,
hab jetzt das ganze Prinzip der Datenübertragung verändert, der T-Bot sendet im 5ms Rhytmus die einzelnen Werte und somit habe ich die Zeit im Interface die Werte einzeln in die Variablen zu übergeben, der künstliche Horizont sowie die Systemdaten wie Spannung und Temperatur werden nun in den LCD-Feldern angezeigt.
Jetzt kann ich endlich an den Drucksensor gehen. Habe ja jetzt aus einigen Posts interessante Links bekommen (hier nochmal ein Dankeschön).
Wenn das Interesse gross ist gebe ich gerne nochmal den Code hier herein.
In diesem Sinne, viele Gruesse Clemens
ist in den letzten 5 Tagen noch was pasirt?
Hallo LuK-AS
Ich wollte mal fragen, ob du noch am bauen bist oder ob du nur mit Programmieren beschäftigt bist, da schon seit einem Monat kein Update deiner Website erfolgt ist.
mfg Luca
Hallo zusammen,
sry, dass ich in letzter Zeit keine neuen Infos zu meinem Projekt habe, komme einfach nicht richtig dazu wieder mit Elan an das Projekt ran zu gehen. Wir haben in unserer Firma einen Idioten der glaubt sein EDV-Equipment durch Diebstahl eines Latops und eines Desktop PCs aufbessern zu können. Da ich in der Verwaltung arbeite landen solche Fälle immer auf meinem Tisch, ich hatte ewigst viele Gespräche mit den Grünen und musste mir sogar Bilderalben anschauen. Wenn man dann zuhause ist kann man auch nicht so recht abschalten. Genau aus diesem Grund hatte ich auch in den letzten Tagen keine Aktivitäten seitens des T-Bots. Irgendwie habe ich zur Zeit auch gar keinen Antrieb, ich denke das kommt demnächst wieder und dann gehts mit Hochdruck weiter. Bis dahin bitte ich Euch um ein kleines bisschen Geduld.
Gruesse Clemens