Download (7333kb, 52 pages) - The Sharp MZ-Series

lIlfi
?ilcl',
· ~'cJ ~
r J.'l~~ -.. I
.-:. !­
Cl)
~ ~:\ ~~
~ ~ ~ ~
~~\~ tJ
'l:. , ~
~~t­ \. ~ ~ ~.
~ t> ca4 m ~
~ ~ ~~
~ '>
~ ~
275:L1NE (W,0)-(W, 440:LPRINT " oer- 0
Progranun "Grafische Darstellung" -15) ur-chschnittswe
(Diagranun) 280:L1NE (W,-15)-( r-t betr-ae9t"
0,-15) 445:GLCURSOR (60,­
Wie hinlKnglich bekannt 1st, sagen Grafiken sehr viel mehr Uber ~h­ 285:L1NE (0,-15)-( 200)
len aus als Zahlen selbst. Dieses Programm fUr den PC-1500 kann fUr 0,0) 450:LPRINT (N/J);"
jede Darstellung von Zahlen genutzt werden; es berUcksichtigt ebenso 29ra:lINE (0,0)-(8,
die Darstellung von negativen Zahlen. Die Zahlen werden in Form von -8) 455:GLCURSOR (0,-4
dreidimensionalen Balken zu Papier gebracht. 295:L1NE (0,-15)-( 80):SORGN
Das Programm stellt quasi eine Erweiterung zu den beiden im SHARP­ · 8, -23) 46ra:CLS :WAIT 1.3:
Anwender-Handbuch befindlichen Programmen GRAF1SCHE DARSTELLUNG I 300:GLCURSOR (0,-2 PRINT "Kopie (
und II dar. 6):SORGN
J/N) "
Und hier no oh einige Hinweise zur Bedienung des Programmesl Nach dem 305:NEXT I 465:IF 1NKEY$ =I'J"
Start mi t RUN wird bei "Posten x I" die Postenbezeichnung und bei 310: WAIT 0: PRINT " GRAPH :ROTATE
"Wert x I" der Postenwert eingegeben. Es kennen maximal bia zu acht­ Schr- i ft I .oar-st I:CSIZE l:GOTO
zehn Posten e1ngegeben werden. Wenn man allerdinge schon vorher die e I I un9 (J/N)" 125
Eingabe beenden will, muG man bei "Posten x 315:IF INKEY$ ="J" 470:IF 1NKEYS ="N"
I" einen Klammeraffen
(0) eingeben.
GOTO 330 END
Nach Beenden des Eingabeteiles kann man dann die Farben fUr die Bal­ 320:IF 1NKEYS ="N" 475:GOTO 455
ken aU9wB.hlen. Es folgt der AllSdruck des Diag:re.mmes. Danach kann man GOTD 460
325:GOTD 315
STATUS 1
sich noch eine schriftliche Darstellungsform &usdrucken lassen und
zu guter Letzt besteht die
330:BEEP 1,99,200 2000
M~glichkeit, sich alle grafischen und
schriftlichen Darstellungen beliebig oft kopieren
335:1NPUT "Uebersc
zu lassen.
1ch hoffe, daG Sie das Programm verwenden kennen und verbleibe
hr-ift: ";US PROGRAMMAUFBAU s
340:CLS :GRAPH :
COlOR 1:CSIZE Zeilen Erkli:i.rung
85:IF 12>=0GOTO 1 155:RLINE -(0,4): 2:ROTATE 1:
DIAGRAMM
00 GLCURSOR (208, GLCURSOR C0,-1 5 - 15 Dimensionierung, Titel
90:INPUT "Far-be d 13*5+9):LPRINT 00):SORGN 20 - 45 Eingabeteil
.Balken (ne9) 11 345:GLCURSOR (204, 50 - 70 Errechnung der Y-Achse
5: CLEAR : WAIT 0:
:l> : ";CN 170:GLCURSOR (F+8,
0):LPRINT US 75 - 95 Eingabe: Farbe f. Balken
........
GRAPH :ROTATE
95:1F CN3 0):SORGN
350:CS1ZE 1:FO=196 100 - 120 Errechnung des Nullpunktes
........ 1:CS1ZE 1
OR CNINT CN 175:L=J*25+15
/J:G=190 125 - 170 Zeichnen der Y-Achse
CD 10:oIM A$(18),A(1
BEEP 2:GOTO 90 180:L1NE (0,0)-(0, 355:FOR 1=ITO J 175 - 195 Zeichnen der X-Achse
rJJ 8)
100:ol=Il-12:1F 12 -l) 350:GLCURSOR (G,0)
15 : PAUSE ,.
200 - 305 Zeichnen der Balken
0
)=0LET F=0:ol= 185:LINE (0,-L)-(8 :IF J>9ANO 1 370:GLCURSOR CG,-3 460 - 475 Kopie J/N
r.n 110:IF F