51
BASIC / Re: BASIC program beíró feladatok?
« Last post by szipucsu on 2024.April.26. 16:50:03 »Ha nem csak látvány lehet, hanem hang is, akkor valami ilyesmi is elmenne, de talán a 170-es sorban az ORD(A$) helyett valami jobb megoldás is létezhet:
Code: [Select]
100 SET KEY CLICK OFF
110 SET 6,2
120 ENVELOPE NUMBER 1;0,63,63,1;RELEASE;0,-33,-33,6;0,-30,-30,60
130 LET A=0
140 DO
150 LET A$=INKEY$
160 IF A$="" THEN GOTO 150
170 SOUND PITCH ORD(A$),ENVELOPE 1,SOURCE A,DURATION 2
180 LET A=A+1
190 IF A=3 THEN LET A=0
200 LOOP