Program Basic

Judul
Menu utama program Cost Manifacturing

Bagi pembaca yang ingin mengetahui bahasa basic dasar, disini saya ingin memberikan sedikit contoh bahasa basic yang insya Allah bisa memenuhi ke inginan pembaca yang haus dengan bahasa pempograman. Tampilan gambar di atas kalau di tulis dalam bahasa basic maka akan terlihat di bawah ini 
List Programnya

100 'PROG. UTAMA
110 '(C) MIFTAHUDDIN
120 '2009
    ID$ = "PT. SELALU UNTUNG"
130 VIEW PRINT 1 TO 25
140 DIM M$(120)
150 'COMMON JUDUL$,PESAN$
600 OPEN "R", #10, "C:\OLDMSDOS\CODE.DAT", 5
610 FIELD #10, 5 AS KD$
620 GET #10, 1
630 KODE$ = LEFT$(KD$, 1)
1000
1010 KEY OFF: COLOR 7, 1, 7: CLS
1020 WW = 6: CC = 2: T = 1: A = 1
1030 '.........................................................menu1:
1040 JUDUL$ = "REGISTER INFORMASI (c)Miftahuddin-PPC"
1050 PESAN$ = "Tekan arah panah untuk memilih atau Esc untuk keluar program"
1060 GOSUB 59000
1070 M$(1) = "a.Data Customer          "
1080 M$(2) = "b.Data Jof               "
1090 M$(3) = "c.Data Jof Item          "
1100 M$(4) = "d.Data Barang            "
1110 M$(5) = "e.Data Bahan             "
     M$(6) = "f.Data Budged of Material"
     M$(7) = "g.Data MRcf              "
     M$(8) = "h.Material isued form    "
     M$(9) = "i.Total Bahan per Jof+Rev"
     M$(10) = "j.Bom Vs Misf per Jof    "
     M$(11) = "k.Transfer Budged        "
     M$(12) = "l.User                   "
     M$(13) = "m.Fgho                   "
     M$(14) = "n.Delivery               "
     M$(15) = "o.Formulasi              "
     M$(16) = "p.Total Bahan per Jof+Brg"

1120 J = 1: T = 1
1130 WHILE T <= 8
1140     LOCATE (J * 2) + 4, 2: PRINT M$(J)
         LOCATE (J * 2) + 4, 28: PRINT M$(J + 8)
1150     J = J + 1: T = T + 1
1160 WEND
1170 P = 78'LEN(M$(1)) * 2 + 2
1180 G1$ = CHR$(201)
1190 G2$ = CHR$(187)
1200 G3$ = CHR$(200)
1210 G4$ = CHR$(188)
1220 G5$ = STRING$(P, CHR$(205))
1230 G6$ = CHR$(186)
1240 COLOR 7, 1
1250 FOR J = 1 TO 17
1260     LOCATE J + 4, 1: PRINT USING "&"; G6$: LOCATE J + 4, P + 2: PRINT USING "&"; G6$
1270 NEXT
1280 FOR J = 1 TO 1
1285     LOCATE J + 3, 1: PRINT USING "&"; G1$; G5$; G2$
1290     LOCATE J + 21, 1: PRINT USING "&"; G3$; G5$; G4$
1300 NEXT
1310 T = 1
1320 WHILE T
1330 IF L$ = "A" OR L$ = "a" THEN A = 1: WW = 6: GOTO 1540
1340 IF L$ = "B" OR L$ = "b" THEN A = 2: WW = 8: GOTO 1540
1350 IF L$ = "C" OR L$ = "c" THEN A = 3: WW = 10: GOTO 1540
1360 IF L$ = "D" OR L$ = "d" THEN A = 4: WW = 12: GOTO 1540
1370 IF L$ = "E" OR L$ = "e" THEN A = 5: WW = 14: GOTO 1540
     IF L$ = "F" OR L$ = "f" THEN A = 6: WW = 16: GOTO 1540
     IF L$ = "G" OR L$ = "g" THEN A = 7: WW = 18: GOTO 1540
     IF L$ = "H" OR L$ = "h" THEN A = 8: WW = 20: GOTO 1540
     IF L$ = "I" OR L$ = "i" THEN A = 9: WW = 6: GOTO 1540
     IF L$ = "J" OR L$ = "j" THEN A = 10: WW = 8: GOTO 1540
     IF L$ = "K" OR L$ = "k" THEN A = 11: WW = 10: GOTO 1540
     IF L$ = "L" OR L$ = "l" THEN A = 12: WW = 12: GOTO 1540
     IF L$ = "M" OR L$ = "m" THEN A = 13: WW = 14: GOTO 1540
     IF L$ = "N" OR L$ = "n" THEN A = 14: WW = 16: GOTO 1540
     IF L$ = "O" OR L$ = "o" THEN A = 15: WW = 18: GOTO 1540
     IF L$ = "P" OR L$ = "p" THEN A = 16: WW = 20: GOTO 1540
    
1375
     W$ = LTRIM$(STR$(WW)): C$ = LTRIM$(STR$(CC))
     IF LEN(LTRIM$(W$)) = 1 THEN W$ = "0" + W$
     IF LEN(LTRIM$(C$)) = 1 THEN C$ = "0" + C$
     WC$ = W$ + C$

     LETAK$ = "06021 08022 10023 12024 14025 16026 18027 20028 "
     LETAK$ = LETAK$ + "06289 082810102811122812142813162814182815202816"
     LTK = INSTR(LETAK$, WC$)
     A = VAL(MID$(LETAK$, LTK + 4, 2))
1380 COLOR 1, 7
1390 LOCATE WW, CC: PRINT USING "&"; M$(A)
1410 '...........................................................ambil:
1420 L$ = INKEY$
1422 JAM$ = LEFT$(TIME$, 8): TGL$ = MID$(DATE$, 4, 2): BLN$ = LEFT$(DATE$, 2): THN$ = RIGHT$(DATE$, 4)
1424 LOCATE 2, 1: PRINT JAM$: LOCATE 2, 70: PRINT USING "&"; TGL$; "/"; BLN$; "/"; THN$
1430 IF L$ = "" THEN 1410
1440 COLOR 7, 1
1450 LOCATE WW, CC: PRINT USING "&"; M$(A)
1460 COLOR 1, 7
1470 LOCATE 24, 1: PRINT ; L$; ASC(L$)
1480 COLOR 7, 1
1490 IF ASC(L$) = 27 THEN 1550
1500 IF L$ = CHR$(13) THEN T = T - 1
     IF L$ = CHR$(0) + CHR$(75) THEN IF CC = 2 THEN CC = 28 ELSE CC = CC - 26
     IF L$ = CHR$(0) + CHR$(77) THEN IF CC = 28 THEN CC = 2 ELSE CC = CC + 26

1510 IF L$ = CHR$(0) + CHR$(72) THEN IF WW = 6 THEN WW = 20 ELSE WW = WW - 2
1520 IF L$ = CHR$(0) + CHR$(80) THEN IF WW = 20 THEN WW = 6 ELSE WW = WW + 2
1530 WEND
1540 ON A GOTO 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000, 11000, 12000, 13000, 14000, 15000, 16000, 17000
1550 SYSTEM
1630 '.........................................................RUTIN PEMASUKAN DATA
1640 '.......................................................................TULIS:
1650 KATA$ = ""
1660 COLOR 1, 7
1670 '.......................................................................baca:
1680 LOCATE X, Y: PRINT KATA$ + STRING$(N - LEN(KATA$), 177)
1690 '.......................................................................LAGI:
1700 A$ = INKEY$
1702 JAM$ = LEFT$(TIME$, 8): TGL$ = MID$(DATE$, 4, 2): BLN$ = LEFT$(DATE$, 2): THN$ = RIGHT$(DATE$, 4)
1704 COLOR 1, 7: LOCATE 2, 1: PRINT JAM$: LOCATE 2, 70: PRINT USING "&"; TGL$; " "; BLN$; " "; THN$: COLOR 7, 1
1710 IF A$ = "" THEN GOTO 1690
1720 IF ASC(A$) = 13 THEN GOTO 1870
1730 IF ASC(A$) = 27 THEN CLOSE : WW = 6: T = 1: A = 1:  CHAIN "D:\OLDMSDOS\MIFT-1.BAS"
1740 IF ASC(A$) = 8 AND LEN(KATA$) = 0 THEN GOTO 1670
1750 IF ASC(A$) <> 8 THEN GOTO 1790
1760 'LOCATE x, y: PRINT SPACE$(LEN(kata$) + 1)
1770 KATA$ = LEFT$(KATA$, LEN(KATA$) - 1)
1780 GOTO 1670
1790 '.......................................................................TULIS3:
1800 IF NUM$ = "Y" AND (ASC(A$) < 48 OR ASC(A$) > 57) THEN GOTO 1670
1810 IF N = LEN(KATA$) THEN GOTO 1870
1820 '........................................................................MASUK3:
1830 KATA$ = KATA$ + A$
1840 COLOR 7, 1
1850 LOCATE X, Y: PRINT KATA$
1860 GOTO 1670
1870 '........................................................................MASUK4:
1880 LOCATE X, Y: PRINT KATA$ + SPACE$(N - LEN(KATA$))
1890 IF LEN(KATA$) = 0 THEN GOTO 1670
1900 RETURN

2000 'JUDUL$ = "ISI DATA"
2010 'PESAN$ = "BERHASIL MASUK ISI DATA TEKAN ENTER UNTUK KEMBALI"
2020 'GOSUB 9000
2030 'L$ = INKEY$: IF L$ = "" THEN 2030
2040 WW = 6: T = 1: A = 1
2050 GOTO 50000
2060 RETURN

3000 'JUDUL$ = "LIHAT DATA"
3010 'PESAN$ = "BERHASIL MASUK LIHAT DATA TEKAN ENTER UNTUK KEMBALI"
3020 'GOSUB 9000
3030 'L$ = INKEY$: IF L$ = "" THEN 3030
3040 WW = 8: T = 1: A = 2
3050 GOTO 50100
3060 RETURN

4000 'JUDUL$ = "HAPUS DATA"
4010 'PESAN$ = "BERHASIL MASUK HAPUS DATA TEKAN ENTER UNTUK KEMBALI"
4020 'GOSUB 9000
4030 'L$ = INKEY$: IF L$ = "" THEN 4030
4040 WW = 10: T = 1: A = 3
4050 GOTO 50200
4060 RETURN

5000 JUDUL$ = "EDIT DATA"
5010 PESAN$ = "BERHASIL MASUK EDIT DATA TEKAN ENTER UNTUK KEMBALI"
5020 'GOSUB 9000
5030 'L$ = INKEY$: IF L$ = "" THEN 5030
5040 'WW = 12: T = 1: A = 4
5050 GOTO 50300
5060 RETURN

6000 JUDUL$ = "CARI DATA"
6010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
6020 'GOSUB 9000
6030 'L$ = INKEY$: IF L$ = "" THEN 6030
6040 'WW = 14: T = 1: A = 5
6050 GOTO 50400
6060 RETURN

7000 JUDUL$ = "CARI DATA"
7010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
7020 'GOSUB 9000
7030 'L$ = INKEY$: IF L$ = "" THEN 6030
7040 'WW = 14: T = 1: A = 5
7050 GOTO 50500
7060 RETURN

8000 JUDUL$ = "CARI DATA"
8010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
8020 'GOSUB 9000
8030 'L$ = INKEY$: IF L$ = "" THEN 6030
8040 'WW = 14: T = 1: A = 5
8050 GOTO 50600
8060 RETURN

9000 JUDUL$ = "CARI DATA"
9010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
9020 'GOSUB 9000
9030 'L$ = INKEY$: IF L$ = "" THEN 6030
9040 'WW = 14: T = 1: A = 5
9050 GOTO 50700
9060 RETURN

10000 JUDUL$ = "CARI DATA"
10010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
10020 'GOSUB 9000
10030 'L$ = INKEY$: IF L$ = "" THEN 6030
10040 'WW = 14: T = 1: A = 5
10050 GOTO 50800
10060 RETURN

11000 JUDUL$ = "CARI DATA"
11010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
11020 'GOSUB 9000
11030 'L$ = INKEY$: IF L$ = "" THEN 6030
11040 'WW = 14: T = 1: A = 5
11050 GOTO 50900
11060 RETURN

12000 JUDUL$ = "CARI DATA"
12010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
12020 'GOSUB 9000
12030 'L$ = INKEY$: IF L$ = "" THEN 6030
12040 'WW = 14: T = 1: A = 5
12050 GOTO 51000
12060 RETURN
  
13000 JUDUL$ = "CARI DATA"
13010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
13020 'GOSUB 9000
13030 'L$ = INKEY$: IF L$ = "" THEN 6030
13040 'WW = 14: T = 1: A = 5
13050 GOTO 51100
13060 RETURN

14000 JUDUL$ = "CARI DATA"
14010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
14020 'GOSUB 9000
14030 'L$ = INKEY$: IF L$ = "" THEN 6030
14040 'WW = 14: T = 1: A = 5
14050 GOTO 51200
14060 RETURN

15000 JUDUL$ = "CARI DATA"
15010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
15020 'GOSUB 9000
15030 'L$ = INKEY$: IF L$ = "" THEN 6030
15040 'WW = 14: T = 1: A = 5
15050 GOTO 51300
15060 RETURN

16000 JUDUL$ = "CARI DATA"
16010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
16020 'GOSUB 9000
16030 'L$ = INKEY$: IF L$ = "" THEN 6030
16040 'WW = 14: T = 1: A = 5
16050 GOTO 51400
16060 RETURN

17000 JUDUL$ = "CARI DATA"
17010 PESAN$ = "BERHASIL MASUK CARI DATA TEKAN ENTER UNTUK KEMBALI"
17020 'GOSUB 9000
17030 'L$ = INKEY$: IF L$ = "" THEN 6030
17040 'WW = 14: T = 1: A = 5
17050 GOTO 51500
17060 RETURN


59000 '...........................................................JUDUL1:
59010 CLS : VIEW PRINT 1 TO 25: JAM$ = LEFT$(TIME$, 5): TGL$ = MID$(DATE$, 4, 2): BLN$ = LEFT$(DATE$, 2): THN$ = RIGHT$(DATE$, 4)
59015 COLOR 7, 1: LOCATE 1, (80 - LEN(ID$)) / 2: PRINT ID$
59020 L# = (80 - LEN(JUDUL$)) / 2
59030 COLOR 1, 7
59040 LOCATE 2, 1: PRINT ; SPACE$(80)
59050 LOCATE 24, 1: PRINT ; SPACE$(80)
59060 LOCATE 2, L#: PRINT ; JUDUL$
59065 LOCATE 2, 1: PRINT JAM$: LOCATE 2, 70: PRINT USING "&"; TGL$; " "; BLN$; " "; THN$
59070 '............................................................PESAN1:
59080 L1# = (80 - LEN(PESAN$)) / 2
59090 COLOR 1, 7
59100 LOCATE 24, 1: PRINT ; SPACE$(80)
59110 LOCATE 24, L1#: PRINT ; PESAN$
59120 COLOR 7, 1
59130 RETURN

50000 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP00.BAS" 'CUSTOMER
50100 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP01.BAS" 'JOF
50200 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP04.BAS" 'JOF ITEM
50300 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP03.BAS" 'BARANG
50400 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP05.BAS" 'BAHAN
50500 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP09.BAS" 'BOM
50600 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP10.BAS" 'MRCF
50700 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP11.BAS" 'MISF
50800 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP12.BAS" 'TOT BAH PER JOF
50900 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP13.BAS" 'BM VS MISF
51000 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP14.BAS" 'STOCK
51100 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP02.BAS" 'USERS
51200 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP06.BAS" 'FGHO
51300 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP07.BAS" 'DELIVERY
51400 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP08.BAS" 'FORMULASI
51500 CLOSE : CHAIN KODE$ + ":\OLDMSDOS\MIP20.BAS" 'COBA

Program menu utama saya rancang agar mempermudah dalam memilih menu. menu utama terdiri dari pilihan a sampai p yang mana l,m,n,o,p belum terisi program akan saya isi dengan menu laporan / pencetakan ke printers.
Demikianlah list program yang bisa saya tuliskan semoga bisa bermanfaat pagi para pembaca yang ingin mempelajari pemprogaman

Menu berikutnya insya Allah akan kami lanjutkan di lain waktu

No comments:

Post a Comment

Subscribe to: Posts (Atom)