| |
DL3KVR > TECHNIK 07.02.01 21:54l 59 Lines 2580 Bytes #-8150 (997) @ DL
BID : G8B1FADB0HRO
Read: DK1MBY GUEST DG0TM OE7FMI
Subj: schwingk.bas
Path: DB0ZKA<DB0GPP<DB0LX<DB0RBS<DB0ROT<DB0AIS<DB0ROF<DB0ERF<DB0SAW<DB0MVP<
DB0MAR<DB0HRO
Sent: 010205/2207z @:DB0HRO.#MVP.DEU.EU [Rostock] DP6.00 $:G8B1FADB0HRO
From: DL3KVR @ DB0HRO.#MVP.DEU.EU (Dietrich)
To: TECHNIK @ DL
X-Info: Einspielung ohne Passwortschutz
999
1 'Angefertigt in GWbasic von DL3KVR im Februar 2001
5 KEY OFF
10 PLAY "N25": PLAY "N30; L9": PLAY "N30; L9": PLAY "N30.....": PLAY "P5"
15 SCREEN 0: COLOR, 0: CLS: CLEAR
20 LOCATE 2, 17: COLOR 15, 6, 9
25 PRINT" S C H W I N G K R E I S B E R E C H N U N G "
30 LOCATE 4, 18, 1, 0, 7: COLOR 6, 7
35 PRINT" Eingabe in kHz, nF, mH - oder MHz, pF, æH ";
39 LOCATE 7, 8, 1, 0, 7: COLOR 6, 3
40 INPUT" Gesucht wird Frequenz (1), Kapazität (2) oder Induktivität (3): ",A$
41 IF A$ = "" THEN GOSUB 390:LOCATE 7,74: COLOR,0: PRINT STRING$(7,32);:GOTO 35
42 IF A$ > "3" THEN GOSUB 390:LOCATE 7,74: COLOR,0:PRINT STRING$(7,32);:GOTO 35
43 IF A$ < "1" THEN GOSUB 390:LOCATE 7,74: COLOR,0:PRINT STRING$(7,32);:GOTO 35
45 IF A$ = "1" GOTO 60
50 IF A$ = "2" GOTO 90
55 IF A$ = "3" GOTO 130 ELSE 40
60 LOCATE 12, 10: COLOR 4, 2: INPUT" Kapazität ? = ", C$
61 C = VAL(C$)
62 IF C = 0 THEN GOSUB 390:LOCATE 12,34:COLOR,0:PRINT STRING$(47, 32);: GOTO 60
70 LOCATE 14, 10: COLOR 4, 2: INPUT" Induktivität ? = ", L$
71 L = VAL(L$)
72 IF L = 0 THEN GOSUB 390:LOCATE 14,34:COLOR,0:PRINT STRING$(47, 32);: GOTO 70
75 f = SQR (25330 / (L * C))
80 LOCATE 19, 10: COLOR 6, 3
81 PRINT" Frequenz = ";:PRINT USING"####.##"; f
85 GOTO 350
90 LOCATE 12, 10: COLOR 4, 2: INPUT" Frequenz ? = ", f$
91 f = VAL(f$)
92 IF f = 0 THEN GOSUB 390:LOCATE 12,34:COLOR,0: PRINT STRING$(47,32);: GOTO 90
100 LOCATE 14, 10: COLOR 4, 2: INPUT" Induktivität ? = ", L$
101 L = VAL(L$)
102 IF L = 0 THEN GOSUB 390:LOCATE 14,34:COLOR,0:PRINT STRING$(47,32);: GOTO 100
105 C = 25330 / (f * f * L)
110 LOCATE 19, 10: COLOR 6, 3
111 PRINT" Kapazität = ";:PRINT USING"#####.#"; C
115 GOTO 350
130 LOCATE 12, 10: COLOR 4, 2: INPUT" Frequenz ? = ", f$
131 f = VAL(f$)
132 IF f = 0 THEN GOSUB 390:LOCATE 12,33:COLOR,0:PRINT STRING$(48,32);: GOTO 130
140 LOCATE 14, 10: COLOR 4, 2: INPUT" Kapazität ? = ", C$
141 C = VAL(C$)
142 IF C = 0 THEN GOSUB 390:LOCATE 14,33:COLOR,0:PRINT STRING$(48,32);: GOTO 140
150 L = 25330 / (f * f * C)
155 LOCATE 19,10:COLOR 6,3:PRINT" Induktivität = ";:PRINT USING"####.#"; L
350 LOCATE 25, 56, 0: COLOR 15, 3: PRINT " neue Berechnung (j/n) ? ";
360 X$ = INKEY$
370 IF X$ = "j" THEN GOTO 15
380 IF X$ = "n" THEN GOTO 410 ELSE 360
390 PLAY "C18": PLAY "C18": PLAY "C9": PLAY "C9": PLAY "C18": PLAY "C18"
400 RETURN
410 PLAY "L10": PLAY "N20": PLAY "N20": PLAY "N20": PLAY "L3": PLAY "N15"
420 WIDTH "SCRN:", 40: SYSTEM
Read previous mail | Read next mail
| |
