Tauchbot: Mal ne ganz andere Art von Bot

[chr-mt]

Hi,
du kannst zB. einen winzigen Frame drauflegen und dessen BackColor Farbe ändern..
Beim Frame den Border abschalten, dann hast du eine ebene Fläche.
Oder, wie gesagt, 2 Bilder machen und die je nach Status auf den Button tun.
Stichwort: Picture /DownPicture

Warten wir mal, wie unser Cheftaucher das gelöst hat.
Interessiert mich auch, da die Knöpfe echt schick aussehen..

Gruß
Christopher

[LuK-AS]

@Michi:
Du kannst solche LEDs machen indem Du Shapes verwendest und mit entsprechendem Befehl die Farbe änderst oder Du nimmst, wie ich es getan habe, eine OCX Datei die extra für diese LEDs gemacht wurde. Alle Dateien wird es später auch zum Download geben.

@Patrick:
Die 7-Segmentanzeigen sind ebenfalls aus einer fertige OCX Datei, mann kann dort den Zahlenwert angeben den das Segment anzeigen soll, ebenso sind die Farben frei wählbar. Das Bild, dass Du fälschlicherweise als Entfernungsmesser ansiehst ist ein künstlicher Horizont an dem der Neigungswinkel des Tauchroboters in X- und Y-Achse angezeigt wird, dieses Bild liegt in einer PictureBox und ist von mir selber in Paint gemalt worden. Die Nadel sind 2 Linien und ein Kreisrunder Shape entsprechend positioniert.

Hoffe das hilft Euch beiden erst mal weiter.

Gruss Clemens

[patti16]

hi

ja das hilft weiter eigentlich hatte ich ja das bild nicht gemeint, war eine Idee von mir. Naja dann haste es mal gut erklärt auf jeden fall denke ich das es mir jetzt ein bisschen weiter Hilft.


gruß
patrick

[Spion]

Hallo LuK-AS
Erstmal ein dickes Lob für dein T-Bot!!
Hast du auch schon daran gedacht was ist wen deine Akkus Ausfallen??
Gibt es ein Not Akku??
Eine Strom Leitung vom Land her??
Währe vielleicht schon Wichtig!!


mfg Luca

[LuK-AS]

Hallo Luca,

erst mal Danke für das dicke Lob

Hast du auch schon daran gedacht was ist wen deine Akkus Ausfallen??
Gibt es ein Not Akku??
Eine Strom Leitung vom Land her??
Währe vielleicht schon Wichtig!!
mfg Luca

Also genau diese Frage habe ich schon mehrmals in diesem Thema beantwortet Aber für Dich rolle ich es nochmal auf. Der T-Bot hängt sowieso an einem 40-90m langem Kabel, über dieses Kabel läuft das Videosignal, die serielle Steuerleitung und die Betriebsspannung zum Bot. Sollte das Kabel einmal abreissen, so schaltet eine Elektronik innerhalb des Bots auf Reserveakkus. Ein Akku 1,2Ah versorgt dann die gesamte Elektronik und ist so geschaltet, dass nicht einmal ein Reset am T-Bot ausgeführt wird. Die Kamera sowie alle Sensoren laufen weiter und stellen nun ihre Daten dem Notprogramm zur Verfügung. In einem separaten Akkurohr befinden sich weitere 3 Akkus mit 1,2Ah die für die Versorgung der Motoren zuständig sind, eine ausgeklügelte Elektronik schaltet bei Spannungsabfall der Landversorgung auf die entsprechenden Ersatzspannungen um und befördert den Bot in einem Notprogramm an die Oberfläche.

Ich hoffe ich habe somit Deine Fragen beantwortet.

Gruesse Clemens

[HodgePodge]

Hi LuK-As,
zunächst auch ein dickes Lob für das fabelhafte Projekt. Lese von Anfang an.
Meine Neugier -äh- mein Interesse an Deinem Projekt ist so groß, daß ich mich nun hier im Forum registriert habe um nachzufragen wie es darum steht?
"Lange" kein Update auf Deiner Homepage entdeckt! Woran arbeitest Du derzeit?

Beste Grüße,
HodgePodge

[LuK-AS]

Hallo HodgePodge,

finde es prima, dass der T-Bot so gut ankommt, zur Zeit kämpfe ich mir der Datenübertragung vom Bot zum Interface und irgendwie kann mir keiner dabei helfen

Solange das mir dem Datenstream nicht funktioniert mache ich erst mal auch nichts anderes, hat ja auch keinen Sinn. Als nächster Schritt steht dann der Drucksensor an, der gibt pro PSI nur 2,5mV raus und das Signal muss erst noch verstärkt werden. Das sind erst mal die beiden Hürden an denen ich zur Zeit knabbere und einfach nicht weiterkomme. Zwischendurch ist dann noch mein Multimeter abgeraucht und ich konnte mir net gleich einen Ersatz besorgen.

Muss mal mit mehr Druck an die Sache rangehen hab auch seit der RL nicht wieder den richtigen Schwung an der Sache Am Samstag hab ich nochmal richtig Zeit an die Interfaceprogrammierung dran zu gehen, vlt. schaffe ich dann wenigstens dieses Problemchen zu lösen.

Gruesse Clemens

[Grusim]

Hab ich da was überlesen? Welche Probs hast du den mit dem Stream vielleicht kan man doch helfen. Und Spitzen - Idee. Vielleicht bau ich einen kleinen Bruder nächstes Jahr.

[LuK-AS]

@Grusim:
Ich sende von meinem T-Bot aus folgenden Datenstream:

xx;504;493;0;0;0;12,8798995;89,4565455;4,9994564

Als Startzeichen werden "xx" gesendet.

die 504 und die 493 sind die Werte für die horizontale und vertikale Neigung

Darauf folgend die 3 Leckagesensoren mit dem Wert 0

Danach folgt die Akkuspannung, die Kapazität und die AVR Spannung

Getrennt werden alle Daten mit einem ";"

In meinem Interface lese ich wie unten beschrieben die seriellen Daten aus.

Private Sub MSComm1_OnComm()
TmpData1 = MSComm1.Input

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, 9, 3)
End If
End Sub

Sollte in dem Datenstream nun das doppel x auftauchen so soll der Inhalt aufgeteilt werden und in verschiedene Textboxen angezeigt werden wobei die Textboxen später durch Variablen ersetzt werden. In der Text1.Box kommt auch noch der Wert 504 an und in der Text2.Box ist schon nix mehr drinnen. Wenn ich versuche den Datenstream aus der ComInput.Box auszulesen dann habe ich immer die erste Zeile der Box in den anderen einzelboxen stehen. Also irgendwie bin ich jetzt total festgefahren und weiss nicht mehr weiter.

Dann habe ich noch eine kleines elektronisches Problemchen:
Bild hier  
Versorgt wird der Drucksensor mit 5V und aus dem Ausgang kommen 6,1mV bei normalem Luftdruck, wenn ich nun in den Sensor puste so steigt der Wert pro PSI um 2,5mV allerdings kann ich die beiden GNDs (Versorgungsspannung und Ausgangsspannung) nicht zusammen klemmen da sonst keine Messwerte mehr heraus kommen. Nun zu meinem Problemchen, wie kann ich mit einem OpAmp (TL062) die Spannung auf einen messbaren Wert für einen AVR-analogen-Eingang bringen?? Meine Versuche so eine Schaltung aufzubauen sind alle gescheitert

Für eine Hilfe wäre ich Euch dankbar, wenn ich diese beiden Hürden geschafft habe dann kann es wieder mit Hochdruck an den T-Bot gehen.

Gruesse Clemens

[Dino Dieter]

Hallo

Bei deiner Methode, müssen die Daten ja imenr die gleiche Länge haben. Wenn der erste Wert anstatt 504 nur 34 beträgt, stimmt deine Auswertung ja nicht mehr.

Ich zerlege die empfangen Daten und speichere sie in ein Array

 
        Dim Parts As Variant
        Dim Part As Variant
        Dim a As Integer
        Dim wert(10) As String
        
        a = 0
        
        'empfangen String zerteilen und in wert(x) speichern
        Parts = Split(buffer, ",")
        For Each Part In Parts
           wert(a) = CStr(Part)
           a = a + 1
        Next

In Buffer steht der empfange String drin, bei mir werden die Daten mit einem" , " getrennt. Der Rest sollte sich selbst erklären.

MFG
Dieter