Gewitter / Lightning Strike Generator

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • 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:

      Source Code

      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
      Display All
      Unbenannt1.JPG20200323_143555.JPG20200324_074847.JPGUnbenannt2.JPG