home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
06
/
grdlagen
/
gwbsp2.bas
< prev
next >
Wrap
BASIC Source File
|
1990-03-11
|
7KB
|
182 lines
2 REM ******************************************************
3 REM Basic-Kurs(2) (C) Th.Frins/W.Kehr & toolbox 1990
10 REM ************* GWBSP2.BAS *****************************
20 REM KALKULATION DER SELBSTKOSTEN
30 REM PROGRAMMIERER: XYZ
40 REM DATUM: 1.1.1990
45 REM
50 REM VARIABLEN: FM = FERTIGUNGSMATERIAL
60 REM MGPR = MATERIALGEMEINKOSTEN IN %
70 REM MGDM = MATERIALGEMEINKOSTEN IN DM
80 REM FL = FERTIGUNGSLÖHNE
90 REM FPR = FERTIGUNGSGEMEINKOSTEN IN %
100 REM FDM = FERTIGUNGSGEMEINKOSTEN IN DM
110 REM H = HERSTELLKOSTEN
120 REM VWPR = VERWALTUNGSGEMEINKOSTEN IN %
130 REM VWDM = VERWALTUNGSGEMEINKOSTEN IN DM
140 REM VPR = VERTRIEBSGEMEINKOSTEN IN %
150 REM VDM = VERTRIEBSGEMEINKOSTEN IN DM
160 REM S = SELBSTKOSTEN
170 REM LEER$ = String mit Leerzeichen
180 REM DATUM$ = Datum in der Form tt.mm.jj
190 REM ZEILE = Zeilenposition
200 REM SCHLEIFE = Schleifensteuerung
210 REM warten$ = Weiterverarbeitung
220 REM ************** Variableninitialisierung ************
230 LEER$ = SPACE$(55)
240 REM **************MASKENAUFBAU**************************
250 CLS : KEY OFF
260 LOCATE 2, 5
265 PRINT STRING$(1, 201); STRING$(70, 205); STRING$(1, 187)
270 LOCATE 3, 5
275 PRINT STRING$(1, 186): LOCATE 3, 76: PRINT STRING$(1, 186)
280 LOCATE 4, 5: PRINT STRING$(1, 186)
285 LOCATE 4, 76: PRINT STRING$(1, 186)
290 LOCATE 5, 5: PRINT STRING$(1, 186)
295 LOCATE 5, 76: PRINT STRING$(1, 186)
300 LOCATE 6, 5: PRINT STRING$(1, 186)
305 LOCATE 6, 76: PRINT STRING$(1, 186)
310 LOCATE 7, 5: PRINT STRING$(1, 186)
315 LOCATE 7, 76: PRINT STRING$(1, 186)
320 LOCATE 8, 5: PRINT STRING$(1, 186)
325 LOCATE 8, 76: PRINT STRING$(1, 186)
330 LOCATE 9, 5: PRINT STRING$(1, 186)
335 LOCATE 9, 76: PRINT STRING$(1, 186)
340 LOCATE 10, 5: PRINT STRING$(1, 186)
345 LOCATE 10, 76: PRINT STRING$(1, 186)
350 LOCATE 11, 5: PRINT STRING$(1, 186)
355 LOCATE 11, 76: PRINT STRING$(1, 186)
360 LOCATE 12, 5: PRINT STRING$(1, 186)
365 LOCATE 12, 76: PRINT STRING$(1, 186)
370 LOCATE 13, 5: PRINT STRING$(1, 186)
375 LOCATE 13, 76: PRINT STRING$(1, 186)
380 LOCATE 14, 5: PRINT STRING$(1, 186)
385 LOCATE 14, 76: PRINT STRING$(1, 186)
390 LOCATE 15, 5: PRINT STRING$(1, 186)
395 LOCATE 15, 76: PRINT STRING$(1, 186)
400 LOCATE 16, 5: PRINT STRING$(1, 186)
405 LOCATE 16, 76: PRINT STRING$(1, 186)
410 LOCATE 17, 5: PRINT STRING$(1, 186)
415 LOCATE 17, 76: PRINT STRING$(1, 186)
420 LOCATE 18, 5: PRINT STRING$(1, 186)
425 LOCATE 18, 76: PRINT STRING$(1, 186)
430 LOCATE 19, 5: PRINT STRING$(1, 186)
435 LOCATE 19, 76: PRINT STRING$(1, 186)
440 LOCATE 20, 5: PRINT STRING$(1, 186)
445 LOCATE 20, 76: PRINT STRING$(1, 186)
450 LOCATE 21, 5: PRINT STRING$(1, 186)
455 LOCATE 21, 76: PRINT STRING$(1, 186)
460 LOCATE 22, 5: PRINT STRING$(1, 186)
465 LOCATE 22, 76: PRINT STRING$(1, 186)
470 LOCATE 23, 5: PRINT STRING$(1, 200)
475 STRING$(70, 205); STRING$(1, 188)
480 REM ******** Bearbeitungsart wählen ********************
490 LOCATE 3, 15: PRINT "Bearbeitungsart wählen"
500 LOCATE 5, 15:
505 PRINT "[ 1 ] Gemeinkostenzuschläge selbst eingeben"
510 LOCATE 7, 15
515 PRINT "[ 2 ] Gemeinkostenzuschläge - ";
516 PRINT "Standardwerte übernehmen"
520 LOCATE 11, 15
525 PRINT "Die Standardwerte lauten wie folgt:"
530 LOCATE 13, 15: PRINT "Materialgemeinkosten : 20 %"
540 LOCATE 15, 15: PRINT "Fertigungsgemeinkosten : 50 %"
550 LOCATE 17, 15: PRINT "Verwaltungsgemeinkosten : 10 %"
560 LOCATE 19, 15: PRINT "Vertriebsgemeinkosten : 5 %"
570 LOCATE 22, 15
575 PRINT "Bitte mit der Ziffer '1' oder '2' wählen"
580 WAHL$ = INKEY$
590 IF WAHL$ <> "1" AND WAHL$ <> "2" AND WAHL$ <> "" THEN BEEP:
GOTO 580
600 IF WAHL$ = "" THEN 580
610 ZEILE = 3
620 IF ZEILE < 20 THEN LOCATE ZEILE, 15: PRINT LEER$:
ZEILE = ZEILE + 2: GOTO 620
630 LOCATE 22, 15: PRINT LEER$
640 REM ********EINGABE***************
650 COLOR 0, 7
660 LOCATE 1, 25: PRINT "KALKULATION DER SELBSTKOSTEN"
670 COLOR 7, 0
680 LOCATE 4, 20
685 PRINT "Bitte geben Sie mit Dezimalpunkt ein :"
690 PRINT
700 LOCATE 8, 10
705 INPUT "FERTIGUNGSMATERIAL IN DM (max. 99999 DM) .....: ", FM
710 PRINT
720 LOCATE , 10
725 INPUT "FERTIGUNGSLÖHNE IN DM (max. 99999 DM).........: ", FL
730 PRINT
740 IF WAHL$ = "2" THEN MGPR = 20: FPR = 50: VWPR = 10: VPR = 5:
LOCATE 20, 1: GOTO 840
750 LOCATE , 10
755 INPUT "MATERIALGEMEINKOSTEN IN % (max. 99 %).........: ", MGPR
760 PRINT
770 LOCATE , 10
775 INPUT "FERTIGUNGSGEMEINKOSTEN IN % (max. 99 %).......: ", FPR
780 PRINT
790 LOCATE , 10
795 INPUT "VERWALTUNGSGEMEINKOSTEN IN % (max. 99 %)......: ", VWPR
800 PRINT
810 LOCATE , 10
815 INPUT "VERTRIEBSGEMEINKOSTEN IN % (max. 99 %)........: ", VPR
820 PRINT
830 PRINT
840 LOCATE , 20: PRINT "Weiter mit einer beliebigen Taste"
850 WARTEN$ = INPUT$(1)
860 CLS
870 REM **********VERARBEITUNG***********************************
880 LET MGDM = FM * MGPR / 100
890 FDM = FL * FPR / 100
900 H = FM + FL + MGDM + FDM
910 VWDM = H * VWPR / 100
920 VDM = H * VPR / 100
930 S = H + VWDM + VDM
940 REM *************AUSGABE**************************************
950 PRINT
960 DATUM$ = MID$(DATE$, 4, 3) + MID$(DATE$, 1, 3) +
MID$(DATE$, 7, 4)
970 PRINT "KALKULATION DER SELBSTKOSTEN VOM "; DATUM$
980 PRINT
990 PRINT "FERTIGUNGSMATERIAL";
1000 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FM:
1005 COLOR 7, 0
1010 PRINT "+ ";
1020 PRINT USING "###.##"; MGPR;
1030 PRINT " % MATERIALGEMEINKOSTEN";
1040 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; MGDM:
1045 COLOR 7, 0
1050 PRINT "FERTIGUNGSLÖHNE";
1060 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FL:
1065 COLOR 7, 0
1070 PRINT "+ ";
1080 PRINT USING "###.##"; FPR;
1090 PRINT " % FERTIGUNGSGEMEINKOSTEN";
1100 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FDM:
1105 COLOR 7, 0
1110 PRINT "---------------------------------------------------"
1120 PRINT "HERSTELLKOSTEN";
1130 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; H:
1135 COLOR 7, 0
1140 PRINT "+ ";
1150 PRINT USING "###.##"; VWPR;
1160 PRINT " % VERWALTUNGSGEMEINKOSTEN";
1170 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VWDM:
1175 COLOR 7, 0
1180 PRINT "+ ";
1190 PRINT USING "###.##"; VPR;
1200 PRINT " % VERTRIEBSGEMEINKOSTEN";
1210 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VDM:
1215 COLOR 7, 0
1220 PRINT "---------------------------------------------------"
1230 COLOR 31, 0
1240 PRINT "SELBSTKOSTEN";
1250 PRINT TAB(39); USING "#######.## DM"; S
1260 COLOR 7, 0
1270 PRINT TAB(40); "============"
1280 LOCATE 20, 20: PRINT "Weitere Berechnungen ? ( J / N) "
1290 WARTEN$ = INPUT$(1)
1300 IF WARTEN$ = "j" OR WARTEN$ = "J" THEN 250
1310 CLS
1320 KEY ON
1330 END