Druckbare Version
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
@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
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
Hallo LuK-AS
Erstmal ein dickes Lob für dein T-Bot!! =P~
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
Hallo Luca,
erst mal Danke für das dicke Lob :)
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.Zitat:
Zitat von Spion
Ich hoffe ich habe somit Deine Fragen beantwortet.
Gruesse Clemens
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
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
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.
@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.
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.Code: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
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
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
In Buffer steht der empfange String drin, bei mir werden die Daten mit einem" , " getrennt. Der Rest sollte sich selbst erklären.Code:
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
MFG
Dieter