Gewitter / Lightning Strike Generator

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Gewitter / Lightning Strike Generator

      Hi

      hier mein simples Projekt um ein Gewitter zu simulieren.
      Bei der fälligen Überprüfung eines Lightning Strike Sensors bei einem Flugzeug, mangelte es meist immer dann an entsprechendem Wetter ... :whistling:
      Also baute ich mir das Gewitter selbst :D
      Mit diesem Generator ist es möglich, Elektromagnetische Entladungen mit Richtung und Entfernung relativ zur Flugrichtung zu erzeugen.
      Dazu wird die Schaltung einfach mit Tape in der richtigen Ausrichtung auf die Antenne geklebt.
      Wie das dann aussieht zeigen die Bilder.
      Das Ganze arbeitet etwa bei 500 - 1000kHz und mit völlig ungefährlichen Spannungen, und wird ca. alle 60 sec. ggn dem Uhrzeigersinn hier auf dem Display dargestellt.

      Möglicherweise kann jemand diesen Generator auch für sein eigenes "Wetter-Projekt" gebrauchen ... :thumbup:

      Quellcode

      1. '----------------------------
      2. 'BASCOM, v. 24.Dez.2014
      3. '----------------------------
      4. 'Stormscope Strike Generator
      5. 'V5.0 / with Autoscan
      6. 'By ( Confuser )
      7. '----------------------------
      8. $regfile = "Attiny13.dat"
      9. $crystal = 1200000
      10. '$sim
      11. $hwstack = 8
      12. $swstack = 4
      13. $framesize = 4
      14. Ddrb = &B00011110
      15. Portb.0 = 1
      16. Dim A As Byte
      17. Dim N As Byte
      18. Dim B As Word
      19. Dim D As Byte
      20. Nord Alias Portb.4
      21. Sued Alias Portb.3
      22. Ost Alias Portb.2
      23. West Alias Portb.1
      24. Let A = 1
      25. Let B = 1
      26. Let D = 1
      27. Do
      28. Debounce Pinb.0 , 0 , Count , Sub
      29. If B = 1 Then Let A = 2 Else A = A
      30. If B = 60 Then Let A = 3 Else A = A
      31. If B = 120 Then Let A = 4 Else A = A
      32. If B = 180 Then Let A = 5 Else A = A
      33. For N = 1 To 20
      34. If A = 2 Then Toggle Nord Else Nord = 0
      35. If A = 3 Then Toggle Ost Else Ost = 0
      36. If A = 4 Then Toggle Sued Else Sued = 0
      37. If A = 5 Then Toggle West Else West = 0
      38. Next N
      39. If A = 2 Then Toggle Nord
      40. If A = 3 Then Toggle Ost
      41. If A = 4 Then Toggle Sued
      42. If A = 5 Then Toggle West
      43. If D > 1 Then Gosub Stepset
      44. If D > 5 Then Let D = 2
      45. Waitms 1000
      46. Let B = B + 1
      47. If B > 240 Then Let B = 1
      48. Loop
      49. End
      50. Count:
      51. Let D = D + 1
      52. Return
      53. Stepset:
      54. Let A = D
      55. Let B = D
      56. Return
      Alles anzeigen
      Unbenannt1.JPG20200323_143555.JPG20200324_074847.JPGUnbenannt2.JPG
    • Hallo Confuser,
      danke für die schnelle Antwort, die Winzlinge sind bestimmt in meiner Sammlung.
      In der Stearman ist die Instrumentierung natürlich nur rudimentär.. aber dafür Dezibel und Frischluft wie nirgendwo anders.
      Gruß Rudi
      Dateien
      • IMG_0928.JPG

        (132,82 kB, 26 mal heruntergeladen, zuletzt: )
      Immer Glück haben ist fast wie können..