Willas Shrediquette Tricopter / Quadrocopter / Hexacopter

[jevermeister]

@ Holzi: Der Gleitende Mittelwert ist hier überflüssig da wir nur ganz kurz messen. Aber der Hinweis ist natürlich richtig. (Eckernförde? Komm mal rum nach Kiel!!)

@all, natürlich habe ich mich mit der Stickstellung versehen, hier der berichtigte Code mit 3mal kurz Piepen für deaktivieren der Funktion. Könnte man auch über die LED machen.

'===XY Kalibrierung über Funke==================================================         'Nils-XY Offset
'Durch Bewegen des rechten Sticks nach oben links wird die XY Kalibierung aktiviert
 If State = 0 And Sempf(rollchannel) > 20 And Sempf(nickchannel) > 20 Then
    Sticksup_bo = 1                                         'Setzbit setzen  (Dient dazu zu verhindern das der zustand springt wenn ich dies ticks lange halte
 End If
 'Erst wenn ich die sticks wieder loslasse und das bit gesetzt wurde, dann Kalibrierung übernehmen
 If State = 0 And Sempf(rollchannel) > -10 And Sempf(rollchannel) < 10 And Sempf(nickchannel) > -10 And Sempf(nickchannel) < 10 And Sticksup_bo = 1 Then
    Toggle Xy_calibration_bo                                'Kalibrierung aktivieren/desaktivieren
    Sticksup_bo = 0                                         ' Setzbit zurücksetzen
    Speakeron = 1
    If Xy_calibration_bo = 1 Then                           'Falluntershceidung ob ein oder ausgeschaltet
      Speakerduration = 100                                 'Nils-Speaker   : jeder 100te takt wird gepiept
      Silenceduration = 100                                 'Nils-Speaker: Dauer der Stille
      Speakerbeeps = 2                                      'Nils-Speaker: Anzahl der Pieps 4=unendlich
    Else                                                    'Nils-Speaker: einschaltflag setzen
      Speakerduration = 50                                  'Nils-Speaker   : jeder 50te takt wird gepiept
      Silenceduration = 50                                  'Nils-Speaker: Dauer der Stille
      Speakerbeeps = 3                                      'Nils-Speaker: Anzahl der Pieps 4=unendlich
    End If
 End If

 If State > 0 Then                                          ' Acro oder Hover Mode ausgewählt
   If Sempf(5) > 0 And Sempf(throttlechannel) > 50 Then Switch_validation = 1       'Wenn größer als 0 (Acro) und Gas> 50 dann Kalibrierung scharf schalten   heir muss ich irgendwas einbauen damit ich nicht aus versehen was amche
   If Sempf(5) < -20 And Switch_validation = 1 And Xy_calibration_bo = 1 Then       'Betriebswahl auf Standbay ohne Gas wegzunehmen > Werte werden jetzt übernommen
     Xy_calibration_bo = 0
     Switch_validation = 0
     Modification = 1                                       'Es wurden werte gemessen
     For I = 1 To 19                                        '20 mal messen und Summe bilden
     Xacc_offset = Xacc_offset + Getadc(4)
     Yacc_offset = Yacc_offset + Getadc(5)
     Next
     Xacc_offset = Xacc_offset / 20                         'Mittelwert bilden
     Yacc_offset = Yacc_offset / 20
     Speakeron = 1                                          'Nils-Speaker: einschaltflag setzen
     Speakerduration = 100                                  'Nils-Speaker   : jeder 100te takt wird gepiept
     Silenceduration = 100                                  'Nils-Speaker: Dauer der Stille
     Speakerbeeps = 2                                       'Nils-Speaker: Anzahl der Pieps 4=unendlich
   End If
 End If

 If Modification = 1 Then                                   'Gemessene Werte stehen zur verfügung
  If State = 0 Then                                         'Betriebswahl auf Standby
   If Motors_on = 0 Then                                    'Motoren aus

    Var(23) = Xacc_offset - 384
    Var(24) = Yacc_offset - 384
    For I = 1 To 33
        Writeeeprom Var(i) , I                              'Werte ins EEPROM schreiben
    Next
    Do                                                      'Force RESET. Helps to know when eeprom is modified.
    Loop
   End If
  End If
 End If
'===Ende Offsetübernahme =========

Habe ich getestet und funktioniert. Jetzt gibts kein Versehentliches Neukalibrieren mehr.
Habt ihr Verbesserungsvorschläge?
Wer keinen Pieper hat einfach eine LED Routine einsetzen.

Den Code Lade ich morgen auf meinen Blog

Gruß
Nils

[Bammel]

Kann man das ganze nicht in ein sub setzen? dann könnte man das ganze so handhaben das man den originalsource von william nimmt und selbst einfach die sub mit einfügt. plus natürlich die definitionen der variablen usw.

ich weiß garnet ob das möglich ist in Bascom einfach eine externe datei mit zu verknüfpen. dann müsste man nur den aufruf der subroutine in der haupschleife aufrufen. ich denke das wäre eine sehr konfortable einfache und auch individuellere lösung!
und wohl auch für leute die nicht so viel vom programmieren verstehen einfacher!

[jevermeister]

Die Sub ist in arbeit, ist auch kein Problem, mit externen Dateien ist es schwierig glaube ich, Basic ist da zu begrenzt.

Wenn Du willst pass ich dir das auf den Originalcode von Willa an!

[Bammel]

nene also ich bekomme das ganze schon hin soweit fit bin ich in Bascom schon... ich benötige dies aber auch nicht! fliege ja nur im acro mode!
dachte nur an die allgemeinheit!

[Richard]

nene also ich bekomme das ganze schon hin soweit fit bin ich in Bascom schon... ich benötige dies aber auch nicht! fliege ja nur im acro mode!
dachte nur an die allgemeinheit!

Moin moin.

Ausprobiert habe ich so etwas auch noch nicht, aber wenn man nur die Sub für sich compiliert sollte man das Ergebnis doch als Include.xyz einfügen können? Dazu einmal so eine include Datei näher untersuchen.

http://ubuntuone.com/p/lRo/

Gruß Richard

[Bammel]

das hatte ich nun auch rausgefunden fand ich aber doof da das ganze dnan nicht mehr opensource ist!

[Richard]

das hatte ich nun auch rausgefunden fand ich aber doof da das ganze dnan nicht mehr opensource ist!

Na ja, wenn man das Prinzip gerafft hat und einen Brauchbaren hexeditor besorgt........Ich bezweifel das sich 10101100 u.s.w. patentieren lässt, außer von dem der das Duale System erfunden hat, aber Gott hat noch nie jemanden verklagt!

Gruß Richard

[yak03]

Hallo ,
wer kann mir helfen?


Ich habe folgendes Problem, ich bekomme keine Programme in den Arduino Pro.
Habe mir schon ein neuen Arduino Pro bestellt und den Programmier Converter 5 V TTL-232r USB soweit so gut. ( von Watterott)
Converter wird vom PC mit dem entsprechenden Treiber erkannt und com 15 zugewiesen.

Nun verbinde ich mittels Stecker Masse und RXi TXc am Arduino Pro.
Nun leuchtet die rote LED und die grüne blinkt, aber ohne Betriebsspannung (Batterie 4.5Volt zum Testen) schalte ich die Betriebsspannung zu, blinkt die grüne LED nicht mehr nur die rote ist an.
Ist das so richtig?

Will ich nun mit TriGUI Verbindung aufnehmen wähle Com 15 und sage connet.
Danach Blinkt die grüne LED in einem anderen Takt.
Will ich nun die Firmware überspielen (mit Reset drücken und gleichzeitig Ok tippen)
Bekomme ich diese Meldungen:
There was an error in communication
Check your connection and check the output window

und diese Meldung
Starting avrdude. Please wait...
avrdude.exe: ser_open(): can't open device "COM15": Das System kann die angegebene Datei nicht finden.

Nun bin ich mit meinen Ideen am Ende. Was muss ich noch verändern, dass es geht?


vielen Dank
Grüße