home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 06 / grdlagen / gwbsp2.bas < prev    next >
Encoding:
BASIC Source File  |  1990-03-12  |  6.8 KB  |  182 lines
  1. 2  REM ******************************************************
  2. 3  REM   Basic-Kurs(2)  (C) Th.Frins/W.Kehr & toolbox 1990
  3. 10 REM ************* GWBSP2.BAS *****************************
  4. 20 REM KALKULATION DER SELBSTKOSTEN
  5. 30 REM PROGRAMMIERER: XYZ
  6. 40 REM DATUM:         1.1.1990
  7. 45 REM
  8. 50 REM VARIABLEN: FM     = FERTIGUNGSMATERIAL
  9. 60 REM            MGPR   = MATERIALGEMEINKOSTEN IN %
  10. 70 REM            MGDM   = MATERIALGEMEINKOSTEN IN DM
  11. 80 REM            FL     = FERTIGUNGSLÖHNE
  12. 90 REM            FPR    = FERTIGUNGSGEMEINKOSTEN IN %
  13. 100 REM           FDM    = FERTIGUNGSGEMEINKOSTEN IN DM
  14. 110 REM           H      = HERSTELLKOSTEN
  15. 120 REM           VWPR   = VERWALTUNGSGEMEINKOSTEN IN %
  16. 130 REM           VWDM   = VERWALTUNGSGEMEINKOSTEN IN DM
  17. 140 REM           VPR    = VERTRIEBSGEMEINKOSTEN IN %
  18. 150 REM           VDM    = VERTRIEBSGEMEINKOSTEN IN DM
  19. 160 REM           S      = SELBSTKOSTEN
  20. 170 REM           LEER$  = String mit Leerzeichen
  21. 180 REM           DATUM$ = Datum in der Form tt.mm.jj
  22. 190 REM           ZEILE  = Zeilenposition
  23. 200 REM           SCHLEIFE = Schleifensteuerung
  24. 210 REM           warten$  = Weiterverarbeitung
  25. 220 REM ************** Variableninitialisierung ************
  26. 230 LEER$ = SPACE$(55)
  27. 240 REM **************MASKENAUFBAU**************************
  28. 250 CLS : KEY OFF
  29. 260 LOCATE 2, 5
  30. 265 PRINT STRING$(1, 201); STRING$(70, 205); STRING$(1, 187)
  31. 270 LOCATE 3, 5
  32. 275 PRINT STRING$(1, 186): LOCATE 3, 76: PRINT STRING$(1, 186)
  33. 280 LOCATE 4, 5: PRINT STRING$(1, 186)
  34. 285 LOCATE 4, 76: PRINT STRING$(1, 186)
  35. 290 LOCATE 5, 5: PRINT STRING$(1, 186)
  36. 295 LOCATE 5, 76: PRINT STRING$(1, 186)
  37. 300 LOCATE 6, 5: PRINT STRING$(1, 186)
  38. 305 LOCATE 6, 76: PRINT STRING$(1, 186)
  39. 310 LOCATE 7, 5: PRINT STRING$(1, 186)
  40. 315 LOCATE 7, 76: PRINT STRING$(1, 186)
  41. 320 LOCATE 8, 5: PRINT STRING$(1, 186)
  42. 325 LOCATE 8, 76: PRINT STRING$(1, 186)
  43. 330 LOCATE 9, 5: PRINT STRING$(1, 186)
  44. 335 LOCATE 9, 76: PRINT STRING$(1, 186)
  45. 340 LOCATE 10, 5: PRINT STRING$(1, 186)
  46. 345 LOCATE 10, 76: PRINT STRING$(1, 186)
  47. 350 LOCATE 11, 5: PRINT STRING$(1, 186)
  48. 355 LOCATE 11, 76: PRINT STRING$(1, 186)
  49. 360 LOCATE 12, 5: PRINT STRING$(1, 186)
  50. 365 LOCATE 12, 76: PRINT STRING$(1, 186)
  51. 370 LOCATE 13, 5: PRINT STRING$(1, 186)
  52. 375 LOCATE 13, 76: PRINT STRING$(1, 186)
  53. 380 LOCATE 14, 5: PRINT STRING$(1, 186)
  54. 385 LOCATE 14, 76: PRINT STRING$(1, 186)
  55. 390 LOCATE 15, 5: PRINT STRING$(1, 186)
  56. 395 LOCATE 15, 76: PRINT STRING$(1, 186)
  57. 400 LOCATE 16, 5: PRINT STRING$(1, 186)
  58. 405 LOCATE 16, 76: PRINT STRING$(1, 186)
  59. 410 LOCATE 17, 5: PRINT STRING$(1, 186)
  60. 415 LOCATE 17, 76: PRINT STRING$(1, 186)
  61. 420 LOCATE 18, 5: PRINT STRING$(1, 186)
  62. 425 LOCATE 18, 76: PRINT STRING$(1, 186)
  63. 430 LOCATE 19, 5: PRINT STRING$(1, 186)
  64. 435 LOCATE 19, 76: PRINT STRING$(1, 186)
  65. 440 LOCATE 20, 5: PRINT STRING$(1, 186)
  66. 445 LOCATE 20, 76: PRINT STRING$(1, 186)
  67. 450 LOCATE 21, 5: PRINT STRING$(1, 186)
  68. 455 LOCATE 21, 76: PRINT STRING$(1, 186)
  69. 460 LOCATE 22, 5: PRINT STRING$(1, 186)
  70. 465 LOCATE 22, 76: PRINT STRING$(1, 186)
  71. 470 LOCATE 23, 5: PRINT STRING$(1, 200)
  72. 475 STRING$(70, 205); STRING$(1, 188)
  73. 480 REM ******** Bearbeitungsart wählen ********************
  74. 490 LOCATE 3, 15: PRINT "Bearbeitungsart wählen"
  75. 500 LOCATE 5, 15:
  76. 505 PRINT "[ 1 ]  Gemeinkostenzuschläge selbst eingeben"
  77. 510 LOCATE 7, 15
  78. 515 PRINT "[ 2 ]  Gemeinkostenzuschläge - ";
  79. 516 PRINT "Standardwerte übernehmen"
  80. 520 LOCATE 11, 15
  81. 525 PRINT "Die Standardwerte lauten wie folgt:"
  82. 530 LOCATE 13, 15: PRINT "Materialgemeinkosten    :  20 %"
  83. 540 LOCATE 15, 15: PRINT "Fertigungsgemeinkosten  :  50 %"
  84. 550 LOCATE 17, 15: PRINT "Verwaltungsgemeinkosten :  10 %"
  85. 560 LOCATE 19, 15: PRINT "Vertriebsgemeinkosten   :   5 %"
  86. 570 LOCATE 22, 15
  87. 575 PRINT "Bitte mit der Ziffer '1' oder '2' wählen"
  88. 580 WAHL$ = INKEY$
  89. 590 IF WAHL$ <> "1" AND WAHL$ <> "2" AND WAHL$ <> "" THEN BEEP:
  90.     GOTO 580
  91. 600 IF WAHL$ = "" THEN 580
  92. 610 ZEILE = 3
  93. 620 IF ZEILE < 20 THEN LOCATE ZEILE, 15: PRINT LEER$:
  94.     ZEILE = ZEILE + 2: GOTO 620
  95. 630 LOCATE 22, 15: PRINT LEER$
  96. 640 REM ********EINGABE***************
  97. 650 COLOR 0, 7
  98. 660 LOCATE 1, 25: PRINT "KALKULATION DER SELBSTKOSTEN"
  99. 670 COLOR 7, 0
  100. 680 LOCATE 4, 20
  101. 685 PRINT "Bitte geben Sie mit Dezimalpunkt ein :"
  102. 690 PRINT
  103. 700 LOCATE 8, 10
  104. 705 INPUT "FERTIGUNGSMATERIAL IN DM (max. 99999 DM) .....: ", FM
  105. 710 PRINT
  106. 720 LOCATE , 10
  107. 725 INPUT "FERTIGUNGSLÖHNE IN DM (max. 99999 DM).........: ", FL
  108. 730 PRINT
  109. 740 IF WAHL$ = "2" THEN MGPR = 20: FPR = 50: VWPR = 10: VPR = 5:
  110.     LOCATE 20, 1: GOTO 840
  111. 750 LOCATE , 10
  112. 755 INPUT "MATERIALGEMEINKOSTEN IN % (max. 99 %).........: ", MGPR
  113. 760 PRINT
  114. 770 LOCATE , 10
  115. 775 INPUT "FERTIGUNGSGEMEINKOSTEN IN % (max. 99 %).......: ", FPR
  116. 780 PRINT
  117. 790 LOCATE , 10
  118. 795 INPUT "VERWALTUNGSGEMEINKOSTEN IN % (max. 99 %)......: ", VWPR
  119. 800 PRINT
  120. 810 LOCATE , 10
  121. 815 INPUT "VERTRIEBSGEMEINKOSTEN IN % (max. 99 %)........: ", VPR
  122. 820 PRINT
  123. 830 PRINT
  124. 840 LOCATE , 20: PRINT "Weiter mit einer beliebigen Taste"
  125. 850 WARTEN$ = INPUT$(1)
  126. 860 CLS
  127. 870 REM  **********VERARBEITUNG***********************************
  128. 880 LET MGDM = FM * MGPR / 100
  129. 890 FDM = FL * FPR / 100
  130. 900 H = FM + FL + MGDM + FDM
  131. 910 VWDM = H * VWPR / 100
  132. 920 VDM = H * VPR / 100
  133. 930 S = H + VWDM + VDM
  134. 940 REM *************AUSGABE**************************************
  135. 950 PRINT
  136. 960 DATUM$ = MID$(DATE$, 4, 3) + MID$(DATE$, 1, 3) +
  137.              MID$(DATE$, 7, 4)
  138. 970 PRINT "KALKULATION DER SELBSTKOSTEN VOM "; DATUM$
  139. 980 PRINT
  140. 990 PRINT "FERTIGUNGSMATERIAL";
  141. 1000 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FM:
  142. 1005 COLOR 7, 0
  143. 1010 PRINT "+  ";
  144. 1020 PRINT USING "###.##"; MGPR;
  145. 1030 PRINT " % MATERIALGEMEINKOSTEN";
  146. 1040 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; MGDM:
  147. 1045 COLOR 7, 0
  148. 1050 PRINT "FERTIGUNGSLÖHNE";
  149. 1060 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FL:
  150. 1065 COLOR 7, 0
  151. 1070 PRINT "+  ";
  152. 1080 PRINT USING "###.##"; FPR;
  153. 1090 PRINT " % FERTIGUNGSGEMEINKOSTEN";
  154. 1100 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FDM:
  155. 1105 COLOR 7, 0
  156. 1110 PRINT "---------------------------------------------------"
  157. 1120 PRINT "HERSTELLKOSTEN";
  158. 1130 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; H:
  159. 1135 COLOR 7, 0
  160. 1140 PRINT "+  ";
  161. 1150 PRINT USING "###.##"; VWPR;
  162. 1160 PRINT " % VERWALTUNGSGEMEINKOSTEN";
  163. 1170 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VWDM:
  164. 1175 COLOR 7, 0
  165. 1180 PRINT "+  ";
  166. 1190 PRINT USING "###.##"; VPR;
  167. 1200 PRINT " % VERTRIEBSGEMEINKOSTEN";
  168. 1210 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VDM:
  169. 1215 COLOR 7, 0
  170. 1220 PRINT "---------------------------------------------------"
  171. 1230 COLOR 31, 0
  172. 1240 PRINT "SELBSTKOSTEN";
  173. 1250 PRINT TAB(39); USING "#######.## DM"; S
  174. 1260 COLOR 7, 0
  175. 1270 PRINT TAB(40); "============"
  176. 1280 LOCATE 20, 20: PRINT "Weitere Berechnungen ?  ( J / N) "
  177. 1290 WARTEN$ = INPUT$(1)
  178. 1300 IF WARTEN$ = "j" OR WARTEN$ = "J" THEN 250
  179. 1310 CLS
  180. 1320 KEY ON
  181. 1330 END
  182.