012
28.09.2025, 13:14 Uhr
Lötspitze
|
Hallo Kai,
das oben gezeigte Programm und das hier funktionieren, weil ich die verwendeten Töne in den Bereich gelegt habe, wo das alles klappt. Da sind die NEXT auch ohne Variable drin und es geht:
| Quellcode: |
10 WINDOW
11 CLS
12 OUT 32,3
20 PRINT "MELODIE-PROGRAMM"
22 PRINT "Horch was kommt v. draussen rein"
25 N=0
30 PRINT AT (2,0);" "
31 PAUSE 10
32 T=50
40 FOR I=1 TO 52
50 READ H,L
52 PRINT AT (3,0);H," ",L," "
53 PRINT AT (4,0);" "
55 GOSUB 80
60 NEXT
70 IF N=0 THEN N=1:RESTORE 110:GOTO 40:ELSE GOTO 107
80 REM IF H=0 THEN GOTO 107
90 IF H>0 THEN OUT 32,7:OUT 32,H:ELSE OUT 32,39:OUT 32,-H
100 FOR Q=1 TO (L*T)
101 NEXT
102 OUT 32,3
105 RETURN
107 PRINT:PRINT:PRINT:END
110 DATA 122,1,115,1,109,1,106,1,102,1,98,1,102,2
120 DATA 106,1,115,1,94,2,102,1,109,1,93,2,122,1
130 DATA 115,1,109,1,106,1,102,1,98,1,102,2,106,1
140 DATA 115,1,94,1,89,1,93,2,98,1,106,1,93,1
150 DATA 94,0.25,98,0.25,102,1,109,1,102,2,106,1
160 DATA 115,1,94,2,102,1,109,1,93,2,98,1,106,1
170 DATA 93,1,94,0.25,98,0.25,102,1,109,1,102,2
180 DATA 106,1,115,1,94,1,89,1,93,2,0,1
|
Hier bei diesem Gesamtdurchlauf (ohne NEXT-Verschachtelung) fällt das dagegen dann auf, wenn die Töne springen. Wie gesagt, das passiert immer bei 64/128/192.
| Quellcode: |
10 WINDOW
20 CLS
30 OUT 32,3
40 PRINT "MELODIE-PROGRAMM"
50 PRINT "Tonleiterdurchlauf"
60 PRINT:PRINT:PRINT
70 FOR I=255 TO 0 STEP -1
80 H=I
90 PRINT AT (3,0);H," "
100 IF H=0 THEN GOTO 150
110 OUT 32,7
120 OUT 32,H
130 PAUSE 10
140 NEXT I
150 OUT 32,3
160 END
|
VG Matthias
--
___________________
...geboren, um zu löten.
Wer rennen soll, muß auch mal stolpern dürfen. |
). Das /CE für die CTC könnte man auch von dem MH7442 abgreifen; z.B. an Pin 4. Wüßte nicht, was sonst am Z1013 auf 0Ch laufen sollte.