XE-Handbuch

Seite 48

BEISPIEL 3

10 REM * * * TUERKLINGEL * * *
20 GRAPHICS 18
30 POSITlON 1, 6 : PRINT #6 ; " ^ ^ TUERIKLINGEL * * "
40 FOR I=1000 TO 200 STEP -4
50 IF I>=1000 AND I®700 THEN SOUND 0, 150, 10, INT ( I-700 ) /20 )
60 IF I>=800 AND I<500 THEN SOUND 1, 110, 10, INT ( ( I-500 ) /20 )
70 IF I>=600 AND I<300 THEN SOUND 2, 90, 10, INT ( ( I-300 ) /20 )
80 IF I>=1000 AND I<800 THEN SETCOLOR 2, 4, 8
90 IF I>=800 AND I<600 THEN SETCOLOR 2, 8, 8
100 IF I>=600 AND I<400 THEN SETCOLOR 2, 10, 8
110 IF I>=400 AND I<200 THEN SETCOLOR 2, 0, 0
120 SETCOLOR 0, INT ( I / 35 ), 8
130 NEXT I
140 GOTO 40

BEISPIEL 4

10 REM * * * SPIELEN EINER NOTENFOLGE * * *
Hier koennen Sie die Anzahl der Toene (Werte) veraendern.
20 DIM A ( 10 )
30 GRAPHlCS 0 : PRINT " BITTE GEBEN SIE zehn ZAHLEN EIN" : ?
40 FOR I=1 TO 10 : PRINT " ZAHL" ; I ; " " ; : INPUT B : A ( I ) =B : NEXT I
50 GRAPHICS 10 : POSITlON 15, 12 : ? " ICH SPIELE"
60 FOR I=1 O 10 : SOUND 0, A ( I ), 10, 15
70 FOR J=1 TO 200 : NEXT J
80 NEXT I
90 SOUND 0, 0, 0, 0 : GOTO 30
Vor Ausfuehrung werden Sie zur Eingabe von zehn Werten gefragt.

BEISPIEL 5

10 REM * * * MUSIK PER TASTATUR * * *
Ton und Hintergrundfarbe aendern sich je nach ge- drueckter Buchstaben-Taste (A bis Z). Andere Tasten fuehren zum Proramm-Abbruch!
20 GRAPHICS 18
30 POSITlON 7, 5 : ? #6 ; "MUSIK"
40 OPEN #1, 4, 0, "K : "
50 FOR I=1 TO 10000
60 GET #1, A : A=A-65 : A=A* 10+5
70 SOUND 1, A, 10, 15 : POKE 708, A : NEXT I
80 CLOSE #1

Erstellt am 1.Juli 1998 um 19:10