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 ...
Also baute ich mir das Gewitter selbst
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 ...
Alles anzeigen
Unbenannt1.JPG20200323_143555.JPG20200324_074847.JPGUnbenannt2.JPG
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 ...
Also baute ich mir das Gewitter selbst
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 ...
Quellcode
- '----------------------------
- 'BASCOM, v. 24.Dez.2014
- '----------------------------
- 'Stormscope Strike Generator
- 'V5.0 / with Autoscan
- 'By ( Confuser )
- '----------------------------
- $regfile = "Attiny13.dat"
- $crystal = 1200000
- '$sim
- $hwstack = 8
- $swstack = 4
- $framesize = 4
- Ddrb = &B00011110
- Portb.0 = 1
- Dim A As Byte
- Dim N As Byte
- Dim B As Word
- Dim D As Byte
- Nord Alias Portb.4
- Sued Alias Portb.3
- Ost Alias Portb.2
- West Alias Portb.1
- Let A = 1
- Let B = 1
- Let D = 1
- Do
- Debounce Pinb.0 , 0 , Count , Sub
- If B = 1 Then Let A = 2 Else A = A
- If B = 60 Then Let A = 3 Else A = A
- If B = 120 Then Let A = 4 Else A = A
- If B = 180 Then Let A = 5 Else A = A
- For N = 1 To 20
- If A = 2 Then Toggle Nord Else Nord = 0
- If A = 3 Then Toggle Ost Else Ost = 0
- If A = 4 Then Toggle Sued Else Sued = 0
- If A = 5 Then Toggle West Else West = 0
- Next N
- If A = 2 Then Toggle Nord
- If A = 3 Then Toggle Ost
- If A = 4 Then Toggle Sued
- If A = 5 Then Toggle West
- If D > 1 Then Gosub Stepset
- If D > 5 Then Let D = 2
- Waitms 1000
- Let B = B + 1
- If B > 240 Then Let B = 1
- Loop
- End
- Count:
- Let D = D + 1
- Return
- Stepset:
- Let A = D
- Let B = D
- Return