Schnittlauchmann
Geocacher
Hallo zusammen,
habe schon die Suche benutzt, vieles gelesen und wenig verstanden.... Ich habe mir Reaktivlichter zusammengebaut, bei denen die LED zugleich die Lichtmessung vornimmt.
Programmiert gemäß dem Kochbuch. Funktioniert auch alles wunderbar, aber bezüglich des Morsens hätte ich gerne kleine Pausen zwischen den Zeichen/Buchstaben
z.b. ABC = "*_ _ ***_*_*"
Dies wird aber hintereinander geblinkt, hätte gerne zwischen den Buchstaben kurze Pausen, also "*_ pause _*** pause _*_*", damit man die einzelnen Buchstaben besser erkennen kann.
Mir fehlen total die Kenntnisse im Programmieren :-( wo muss ich ansetzen?
Vielen Dank für Eure Hilfe
62 Morsen:
63 Morse$ = "--***--***" 'String aus 10 Zeichen * = kurz - = lang
64 For A = 1 To 10 '10 Zeichen auslesen und auswerten
65 S$ = Mid(morse$ , A , 1) 'Teilstring auslesen
66 If S$ = "*" Then 'wenn kurz Blinken
67 Portb.3 = 1 'LED AN
68 Waitms 30 'kurz warten
69 Portb.3 = 0 'LED AUS
70 Waitms 1000 'lang warten
71 Else 'sonst lang blinken
72 Portb.3 = 1 'LED AN
73 Waitms 300 'lange warten
74 Portb.3 = 0 'LED AUS
75 Waitms 1000 'lang warten
76 End If
77 Next A
78 Return
habe schon die Suche benutzt, vieles gelesen und wenig verstanden.... Ich habe mir Reaktivlichter zusammengebaut, bei denen die LED zugleich die Lichtmessung vornimmt.
Programmiert gemäß dem Kochbuch. Funktioniert auch alles wunderbar, aber bezüglich des Morsens hätte ich gerne kleine Pausen zwischen den Zeichen/Buchstaben
z.b. ABC = "*_ _ ***_*_*"
Dies wird aber hintereinander geblinkt, hätte gerne zwischen den Buchstaben kurze Pausen, also "*_ pause _*** pause _*_*", damit man die einzelnen Buchstaben besser erkennen kann.
Mir fehlen total die Kenntnisse im Programmieren :-( wo muss ich ansetzen?
Vielen Dank für Eure Hilfe
62 Morsen:
63 Morse$ = "--***--***" 'String aus 10 Zeichen * = kurz - = lang
64 For A = 1 To 10 '10 Zeichen auslesen und auswerten
65 S$ = Mid(morse$ , A , 1) 'Teilstring auslesen
66 If S$ = "*" Then 'wenn kurz Blinken
67 Portb.3 = 1 'LED AN
68 Waitms 30 'kurz warten
69 Portb.3 = 0 'LED AUS
70 Waitms 1000 'lang warten
71 Else 'sonst lang blinken
72 Portb.3 = 1 'LED AN
73 Waitms 300 'lange warten
74 Portb.3 = 0 'LED AUS
75 Waitms 1000 'lang warten
76 End If
77 Next A
78 Return