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