Contoh Visual Basic for Dos
berserta text programnya, semoga bermanfaat bagi anda semua
Version 1.00
BEGIN MDIForm Prg0
AutoRedraw = -1
BackColor = QBColor(1)
BorderStyle = 0
Caption = "Prg0"
ControlBox = -1
Enabled = -1
ForeColor = QBColor(0)
Height = Char(25)
Left = Char(0)
MousePointer = 0
Tag = ""
Top = Char(0)
Visible = -1
Width = Char(80)
BEGIN Menu mnufile
Caption = "&File"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
BEGIN Menu mnuexit
Caption = "E&xtit"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^X
Tag = ""
Visible = -1
END
END
BEGIN Menu mnuedit
Caption = "&Edit"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
BEGIN Menu mnusimpan
Caption = "&Simpan"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^S
Tag = ""
Visible = -1
END
BEGIN Menu mnuubah
Caption = "&Ubah"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^U
Tag = ""
Visible = -1
END
BEGIN Menu mnuhapus
Caption = "&Hapus"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^H
Tag = ""
Visible = -1
END
END
BEGIN Menu mnuwindows
Caption = "&Windows"
Checked = 0
Enabled = -1
Separator = 0
Tag = ""
Visible = -1
BEGIN Menu mnubahan
Caption = "&Bahan"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^B
Tag = ""
Visible = -1
END
BEGIN Menu mnubarang
Caption = "Baran&g"
Checked = 0
Enabled = -1
Separator = 0
Shortcut = ^G
Tag = ""
Visible = -1
END
END
END
'(c) Miftahuddin
'Date : Juni 2014
'$INCLUDE: 'prg1.bi'
'$FORM Prg2
DECLARE SUB buka ()
DECLARE SUB simpan ()
DECLARE SUB simpan1 ()
DECLARE SUB tampil ()
DECLARE SUB tampil1 ()
DECLARE SUB tampila ()
DECLARE SUB tampila1 ()
DECLARE SUB tampilb ()
DECLARE SUB tampilb1 ()
DECLARE SUB kosong ()
DECLARE SUB kosong1 ()
DECLARE SUB urut ()
DECLARE SUB urut1 ()
DECLARE SUB ubah ()
DECLARE SUB ubah1 ()
DECLARE SUB hapus ()
DECLARE SUB hapus1 ()
DECLARE SUB baris ()
DECLARE SUB baris1 ()
DECLARE SUB keycom1b ()
DECLARE SUB keycom1a ()
DECLARE SUB keluar ()
SUB Form_Load ()
CALL buka
sts = 1
Prg1.SHOW
END SUB
SUB mnubahan_Click ()
CLOSE
CALL buka
sts = 1
Prg1.SHOW
END SUB
SUB mnubarang_Click ()
CLOSE
CALL buka
sts = 2
Prg2.SHOW
END SUB
SUB mnuexit_Click ()
CLOSE
SYSTEM
CLS
END SUB
SUB mnuhapus_Click ()
IF sts = 1 THEN
CALL hapus
ELSE
CALL hapus1
END IF
END SUB
SUB mnusimpan_Click ()
IF sts = 1 THEN
CALL simpan
ELSE
CALL simpan1
END IF
END SUB
SUB mnuubah_Click ()
IF sts = 1 THEN
CALL ubah
ELSE
CALL ubah1
END IF
END SUB
DECLARE SUB cari () '(c) Miftahuddin 'Date : Juni 2014 '$FORM prg1 '$FORM prg0 '$FORM prg2 '$INCLUDE: 'PRG1.BI' DECLARE SUB buka () DECLARE SUB simpan () DECLARE SUB simpan1 () DECLARE SUB tampil () DECLARE SUB tampil1 () DECLARE SUB tampila () DECLARE SUB tampila1 () DECLARE SUB tampilb () DECLARE SUB tampilb1 () DECLARE SUB kosong () DECLARE SUB kosong1 () DECLARE SUB urut () DECLARE SUB urut1 () DECLARE SUB ubah () DECLARE SUB ubah1 () DECLARE SUB hapus () DECLARE SUB hapus1 () DECLARE SUB baris () DECLARE SUB baris1 () DECLARE SUB keycom1b () DECLARE SUB keycom1a () DECLARE SUB keluar () CLS SUB baris () br = (prg1.list1.listindex) prg1.label4.caption = STR$(br + 1) + " of " + STR$(norec) END SUB SUB baris1 () br = (prg2.list1.listindex) prg2.label4.caption = STR$(br + 1) + " of " + STR$(norec1) END SUB SUB buka () OPEN "R", #1, "D:\OLDMSDOS\VBD\PRG\DFLBHN.TXT", LEN(recbarang) OPEN "R", #2, "D:\OLDMSDOS\VBD\PRG\DFLBRG.TXT", LEN(recbarang) END SUB SUB hapus () IF prg1.text1.text = "" OR prg1.text2.text = "" OR prg1.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg1.text1.SETFOCUS ELSE br = (prg1.list1.listindex) prg1.list1.REMOVEITEM br IF prg1.list1.listcount = br THEN prg1.list1.listindex = br - 1 ELSE prg1.list1.listindex = br END IF DO GET #1, br + 4, recbahan PUT #1, br + 3, recbahan br = br + 1 LOOP WHILE br <= norec + 2 norec = norec - 1 recbhn.norecbhn = STR$(norec) PUT #1, 1, recbhn prg1.label4.caption = STR$(norec) END IF END SUB SUB hapus1 () IF prg2.text1.text = "" OR prg2.text2.text = "" OR prg2.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg2.text1.SETFOCUS ELSE br = (prg2.list1.listindex) prg2.list1.REMOVEITEM br IF prg2.list1.listcount = br THEN prg2.list1.listindex = br - 1 ELSE prg2.list1.listindex = br END IF DO GET #2, br + 4, recbarang PUT #2, br + 3, recbarang br = br + 1 LOOP WHILE br <= norec1 + 2 norec1 = norec1 - 1 recbrg.norecbrg = STR$(norec1) PUT #2, 1, recbrg prg2.label4.caption = STR$(norec1) END IF END SUB SUB keluar () CLOSE END END SUB SUB keycom1a () prg1.command1.caption = "&Simpan" END SUB SUB keycom1b () prg1.command1.caption = "&Tambah" END SUB SUB kosong () prg1.text1.text = "" prg1.text2.text = "" prg1.text3.text = "" END SUB SUB kosong1 () prg2.text1.text = "" prg2.text2.text = "" prg2.text3.text = "" END SUB SUB simpan () IF prg1.text1.text = "" OR prg1.text2.text = "" OR prg1.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg1.text1.SETFOCUS EXIT SUB ELSEIF prg1.command1.caption = "&Simpan" THEN GET #1, 1, recbhn norec = VAL(RTRIM$(LTRIM$(recbhn.norecbhn))) IF norec = 0 THEN norec = 1 ELSE norec = norec + 1 END IF c = 2 DO WHILE c <= norec GET #1, c, recbahan Cnkd$ = RTRIM$(LTRIM$(recbahan.nkdbhn)) c1 = c IF Cnkd$ = RTRIM$(LTRIM$(prg1.text1.text)) THEN MSGBOX "No Data Sudah Ada....!" EXIT SUB END IF c = c + 1 LOOP recbhn.norecbhn = STR$(norec) PUT #1, 1, recbhn recbahan.nkdbhn = UCASE$(prg1.text1.text) recbahan.nmkdbhn = UCASE$(prg1.text2.text) RSET recbahan.qtykdbhn = prg1.text3.text PUT #1, norec + 1, recbahan CALL urut rr1 = 1 CALL tampila CALL kosong prg1.list1.SETFOCUS prg1.list1.listindex = norec - 1 prg1.text1.SETFOCUS ELSE CALL kosong prg1.text1.SETFOCUS END IF END SUB SUB simpan1 () IF prg2.text1.text = "" OR prg2.text2.text = "" OR prg2.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg2.text1.SETFOCUS EXIT SUB ELSEIF prg2.command1.caption = "&Simpan" THEN GET #2, 1, recbrg norec1 = VAL(RTRIM$(LTRIM$(recbrg.norecbrg))) IF norec1 = 0 THEN norec1 = 1 ELSE norec1 = norec1 + 1 END IF c = 2 DO WHILE c <= norec1 GET #2, c, recbarang Cnkd$ = RTRIM$(LTRIM$(recbarang.nkdbrg)) c1 = c IF Cnkd$ = RTRIM$(LTRIM$(prg2.text1.text)) THEN MSGBOX "No Data Sudah Ada....!" EXIT SUB END IF c = c + 1 LOOP recbrg.norecbrg = STR$(norec1) PUT #2, 1, recbrg recbarang.nkdbrg = UCASE$(prg2.text1.text) recbarang.nmkdbrg = UCASE$(prg2.text2.text) RSET recbarang.qtykdbrg = prg2.text3.text PUT #2, norec1 + 1, recbarang CALL urut1 rr1 = 1 CALL tampila1 CALL kosong1 prg2.list1.SETFOCUS prg2.list1.listindex = norec1 - 1 prg2.text1.SETFOCUS ELSE CALL kosong1 prg2.text1.SETFOCUS END IF END SUB SUB tampil () GET #1, 1, recbhn norec = VAL(RTRIM$(LTRIM$(recbhn.norecbhn))) prg1.caption = "Data Bahan" prg1.label1.caption = "No Kode" prg1.label2.caption = "Nama item" prg1.label3.caption = "qty" prg1.label4.caption = STR$(norec) prg1.command1.caption = "&Simpan" prg1.Command2.caption = "&Ubah" prg1.Command3.caption = "&Hapus" prg1.Command4.caption = "Keluar" rr = 1 DO WHILE rr <= norec GET #1, rr + 1, recbahan listtex$ = recbahan.nkdbhn + recbahan.nmkdbhn + recbahan.qtykdbhn prg1.list1.ADDITEM listtex$ rr = rr + 1 LOOP END SUB SUB tampil1 () GET #2, 1, recbrg norec1 = VAL(RTRIM$(LTRIM$(recbrg.norecbrg))) prg2.caption = "Data Barang" prg2.label1.caption = "No Kode" prg2.label2.caption = "Nama item" prg2.label3.caption = "qty" prg2.label4.caption = STR$(norec1) prg2.command1.caption = "&Simpan" prg2.Command2.caption = "&Ubah" prg2.Command3.caption = "&Hapus" 'prg2.Command4.caption = "Keluar" rr = 1 DO WHILE rr <= norec1 GET #2, rr + 1, recbarang list1$ = LEFT$(recbarang.nkdbrg, 6) list2$ = LEFT$(recbarang.nmkdbrg, 20) list3$ = RIGHT$(recbarang.qtykdbrg, 1) listtex$ = list1$ + list2$ + list3$ prg2.list1.ADDITEM listtex$ rr = rr + 1 LOOP END SUB SUB tampila () GET #1, 1, recbhn norec = VAL(RTRIM$(LTRIM$(recbhn.norecbhn))) prg1.label4.caption = STR$(norec) rr = 1 DO WHILE rr <= norec - rr1 GET #1, rr + 1, recbahan listtex$ = recbahan.nkdbhn + recbahan.nmkdbhn + recbahan.qtykdbhn prg1.list1.REMOVEITEM 0 rr = rr + 1 LOOP rr = 1 DO WHILE rr <= norec GET #1, rr + 1, recbahan listtex$ = recbahan.nkdbhn + recbahan.nmkdbhn + recbahan.qtykdbhn prg1.list1.ADDITEM listtex$ rr = rr + 1 LOOP END SUB SUB tampila1 () GET #2, 1, recbrg norec1 = VAL(RTRIM$(LTRIM$(recbrg.norecbrg))) prg2.label4.caption = STR$(norec1) rr = 1 DO WHILE rr <= norec1 - rr1 GET #2, rr + 1, recbarang listtex$ = recbarang.nkdbrg + recbarang.nmkdbrg + recbarang.qtykdbrg prg2.list1.REMOVEITEM 0 rr = rr + 1 LOOP rr = 1 DO WHILE rr <= norec1 GET #2, rr + 1, recbarang list1$ = LEFT$(recbarang.nkdbrg, 6) list2$ = LEFT$(recbarang.nmkdbrg, 20) list3$ = RIGHT$(recbarang.qtykdbrg, 3) listtex$ = list1$ + list2$ + list3$ prg2.list1.ADDITEM listtex$ rr = rr + 1 LOOP END SUB SUB tampilb () prg1.text1.text = MID$(prg1.list1.text, 1, 6) prg1.text2.text = MID$(prg1.list1.text, 7, 24) prg1.text3.text = MID$(prg1.list1.text, 31, 6) END SUB SUB tampilb1 () prg2.text1.text = MID$(prg2.list1.text, 1, 6) prg2.text2.text = MID$(prg2.list1.text, 7, 20) prg2.text3.text = MID$(prg2.list1.text, 27, 6) END SUB SUB ubah () IF prg1.text1.text = "" OR prg1.text2.text = "" OR prg1.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg1.text1.SETFOCUS ELSE br = (prg1.list1.listindex) recbahan.nkdbhn = UCASE$(prg1.text1.text) recbahan.nmkdbhn = UCASE$(prg1.text2.text) RSET recbahan.qtykdbhn = LTRIM$(RTRIM$(prg1.text3.text)) PUT #1, br + 2, recbahan rr1 = 0 CALL tampila CALL kosong prg1.list1.listindex = br END IF END SUB SUB ubah1 () IF prg2.text1.text = "" OR prg2.text2.text = "" OR prg2.text3.text = "" THEN MSGBOX "Data belum lengkap !!" prg2.text1.SETFOCUS ELSE br = (prg2.list1.listindex) recbarang.nkdbrg = UCASE$(prg2.text1.text) recbarang.nmkdbrg = UCASE$(prg2.text2.text) RSET recbarang.qtykdbrg = RTRIM$(LTRIM$(RTRIM$(prg2.text3.text))) PUT #2, br + 2, recbarang rr1 = 0 CALL tampila1 CALL kosong1 prg2.list1.listindex = br END IF END SUB SUB urut () GET #1, 1, recbhn norec = VAL(RTRIM$(LTRIM$(recbhn.norecbhn))) MSGBOX STR$(norec) FOR i = 2 TO norec FOR j = 2 TO norec GET #1, j, recbahan ynkd$ = recbahan.nkdbhn ynmkd$ = recbahan.nmkdbhn yqtykd$ = recbahan.qtykdbhn GET #1, j + 1, recbahan xnkd$ = recbahan.nkdbhn IF LEN(RTRIM$(xnkd$)) = 0 THEN 1610 xnmkd$ = recbahan.nmkdbhn xqtykd$ = recbahan.qtykdbhn 'MSGBOX ynkd$ + " " + xnkd$ IF ynkd$ >= xnkd$ THEN GOTO 1500 ELSE GOTO 1600 1500 LSET recbahan.nkdbhn = xnkd$ LSET recbahan.nmkdbhn = xnmkd$ RSET recbahan.qtykdbhn = xqtykd$ PUT #1, j, recbahan LSET recbahan.nkdbhn = ynkd$ LSET recbahan.nmkdbhn = ynmkd$ RSET recbahan.qtykdbhn = yqtykd$ PUT #1, j + 1, recbahan 1600 NEXT j 1610 NEXT i END SUB SUB urut1 () GET #2, 1, recbrg norec1 = VAL(RTRIM$(LTRIM$(recbrg.norecbrg))) MSGBOX STR$(norec1) FOR i = 2 TO norec1 FOR j = 2 TO norec1 GET #2, j, recbarang ynkd$ = recbarang.nkdbrg ynmkd$ = recbarang.nmkdbrg yqtykd$ = recbarang.qtykdbrg GET #2, j + 1, recbarang xnkd$ = recbarang.nkdbrg IF LEN(RTRIM$(xnkd$)) = 0 THEN 1611 xnmkd$ = recbarang.nmkdbrg xqtykd$ = recbarang.qtykdbrg 'MSGBOX ynkd$ + " " + xnkd$ IF ynkd$ >= xnkd$ THEN GOTO 1501 ELSE GOTO 1601 1501 LSET recbarang.nkdbrg = xnkd$ LSET recbarang.nmkdbrg = xnmkd$ RSET recbarang.qtykdbrg = xqtykd$ PUT #2, j, recbarang LSET recbarang.nkdbrg = ynkd$ LSET recbarang.nmkdbrg = ynmkd$ RSET recbarang.qtykdbrg = yqtykd$ PUT #2, j + 1, recbarang 1601 NEXT j 1611 NEXT i END SUB
Version 1.00 BEGIN Form prg1 AutoRedraw = 0 BackColor = QBColor(7) BorderStyle = 2 Caption = "" ControlBox = -1 Enabled = -1 ForeColor = QBColor(0) Height = Char(22) Left = Char(5) MaxButton = -1 MinButton = -1 MousePointer = 0 Tag = "" Top = Char(2) Visible = -1 Width = Char(77) WindowState = 0 BEGIN Label Label1 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label1" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(2) MousePointer = 0 TabIndex = 0 Tag = "" Top = Char(1) Visible = -1 Width = Char(12) END BEGIN Label Label2 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label2" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(2) MousePointer = 0 TabIndex = 1 Tag = "" Top = Char(3) Visible = -1 Width = Char(12) END BEGIN Label Label3 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label3" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(2) MousePointer = 0 TabIndex = 2 Tag = "" Top = Char(5) Visible = -1 Width = Char(12) END BEGIN Label Label4 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label4" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(1) MousePointer = 0 TabIndex = 11 Tag = "" Top = Char(19) Visible = -1 Width = Char(12) END BEGIN TextBox Text1 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(14) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 3 TabStop = -1 Tag = "" Text = "Text1" Top = Char(0) Visible = -1 Width = Char(12) END BEGIN TextBox Text2 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(14) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 4 TabStop = -1 Tag = "" Text = "Text2" Top = Char(2) Visible = -1 Width = Char(23) END BEGIN TextBox Text3 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(14) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 5 TabStop = -1 Tag = "" Text = "Text3" Top = Char(4) Visible = -1 Width = Char(12) END BEGIN CommandButton Command1 BackColor = QBColor(7) Cancel = 0 Caption = "Command1" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(1) MousePointer = 0 TabIndex = 6 TabStop = -1 Tag = "" Top = Char(7) Visible = -1 Width = Char(12) END BEGIN CommandButton Command2 BackColor = QBColor(7) Cancel = 0 Caption = "Command2" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(14) MousePointer = 0 TabIndex = 7 TabStop = -1 Tag = "" Top = Char(7) Visible = -1 Width = Char(12) END BEGIN CommandButton Command3 BackColor = QBColor(7) Cancel = 0 Caption = "Command3" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(27) MousePointer = 0 TabIndex = 8 TabStop = -1 Tag = "" Top = Char(7) Visible = -1 Width = Char(12) END BEGIN CommandButton Command4 BackColor = QBColor(7) Cancel = 0 Caption = "Command4" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(40) MousePointer = 0 TabIndex = 9 TabStop = -1 Tag = "" Top = Char(7) Visible = -1 Width = Char(12) END BEGIN ListBox List1 BackColor = QBColor(7) DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(9) Left = Char(1) MousePointer = 0 Sorted = 0 TabIndex = 10 TabStop = -1 Tag = "" Top = Char(10) Visible = -1 Width = Char(71) END END '(c) Miftahuddin 'Date : Juni 2014 '$INCLUDE: 'prg1.bi' DECLARE SUB buka () DECLARE SUB simpan () DECLARE SUB tampil () DECLARE SUB tampila () DECLARE SUB tampilb () DECLARE SUB kosong () DECLARE SUB urut () DECLARE SUB baris () DECLARE SUB hapus () DECLARE SUB ubah () SUB Command1_Click () CALL simpan END SUB SUB Command2_Click () CALL ubah END SUB SUB Command3_Click () CALL hapus END SUB SUB Command4_Click () CALL keluar END SUB SUB Form_Click () left = 0 top = 0 END SUB SUB Form_Load () 'SCREEN.ControlPanel(DESKTOP_BACKCOLOR) = 1 'SCREEN.ControlPanel(DESKTOP_FORECOLOR) = 0 SCREEN.ControlPanel(DESKTOP_pattern) = 15 SCREEN.ControlPanel(16) = 5 sts = 1 left = 0 top = 0 CALL tampil CALL kosong END SUB SUB List1_Click () CALL tampilb CALL keycom1b CALL baris END SUB SUB Text1_Change () sts = 1 CALL keycom1a END SUB
Version 1.00 BEGIN Form Prg2 AutoRedraw = 0 BackColor = QBColor(7) BorderStyle = 2 Caption = "Prg2" ControlBox = -1 Enabled = -1 ForeColor = QBColor(0) Height = Char(17) Left = Char(15) MaxButton = -1 MinButton = -1 MousePointer = 0 Tag = "" Top = Char(3) Visible = -1 Width = Char(63) WindowState = 0 BEGIN Label Label1 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label1" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(0) MousePointer = 0 TabIndex = 0 Tag = "" Top = Char(1) Visible = -1 Width = Char(10) END BEGIN Label Label2 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label2" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(0) MousePointer = 0 TabIndex = 1 Tag = "" Top = Char(4) Visible = -1 Width = Char(10) END BEGIN Label Label3 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label3" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(0) MousePointer = 0 TabIndex = 2 Tag = "" Top = Char(7) Visible = -1 Width = Char(12) END BEGIN TextBox Text1 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(16) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 3 TabStop = -1 Tag = "" Text = "Text1" Top = Char(0) Visible = -1 Width = Char(10) END BEGIN TextBox Text2 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(10) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 4 TabStop = -1 Tag = "" Text = "Text2" Top = Char(3) Visible = -1 Width = Char(16) END BEGIN TextBox Text3 BackColor = QBColor(7) BorderStyle = 1 DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(3) Left = Char(19) MousePointer = 0 MultiLine = 0 ScrollBars = 0 TabIndex = 5 TabStop = -1 Tag = "" Text = "Text3" Top = Char(6) Visible = -1 Width = Char(7) END BEGIN CommandButton Command1 BackColor = QBColor(7) Cancel = 0 Caption = "Command1" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(16) MousePointer = 0 TabIndex = 6 TabStop = -1 Tag = "" Top = Char(9) Visible = -1 Width = Char(10) END BEGIN CommandButton Command2 BackColor = QBColor(7) Cancel = 0 Caption = "Command2" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(18) MousePointer = 0 TabIndex = 7 TabStop = -1 Tag = "" Top = Char(11) Visible = -1 Width = Char(8) END BEGIN CommandButton Command3 BackColor = QBColor(7) Cancel = 0 Caption = "Command3" Default = 0 DragMode = 0 Enabled = -1 Height = Char(3) Left = Char(16) MousePointer = 0 TabIndex = 8 TabStop = -1 Tag = "" Top = Char(13) Visible = -1 Width = Char(10) END BEGIN ListBox List1 BackColor = QBColor(7) DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(15) Left = Char(27) MousePointer = 0 Sorted = 0 TabIndex = 9 TabStop = -1 Tag = "" Top = Char(0) Visible = -1 Width = Char(34) END BEGIN Label Label4 Alignment = 0 AutoSize = 0 BackColor = QBColor(7) BorderStyle = 0 Caption = "Label4" DragMode = 0 Enabled = -1 ForeColor = QBColor(0) Height = Char(1) Left = Char(0) MousePointer = 0 TabIndex = 10 Tag = "" Top = Char(14) Visible = -1 Width = Char(12) END END '(c) Miftahuddin 'Date : Juni 2014 '$INCLUDE: 'PRG1.BI' DECLARE SUB buka () DECLARE SUB simpan1 () DECLARE SUB tampil1 () DECLARE SUB tampila1 () DECLARE SUB tampilb1 () DECLARE SUB kosong1 () DECLARE SUB urut1 () DECLARE SUB baris1 () DECLARE SUB hapus1 () DECLARE SUB ubah1 () SUB Command1_Click () CALL simpan1 END SUB SUB Command2_Click () CALL ubah1 END SUB SUB Command3_Click () CALL hapus1 END SUB SUB Form_Load () SCREEN.ControlPanel(DESKTOP_BACKCOLOR) = 8 SCREEN.ControlPanel(DESKTOP_FORECOLOR) = 10 SCREEN.ControlPanel(DESKTOP_pattern) = 15 SCREEN.ControlPanel(16) = 5 sts = 2 left = 1 top = 1 CALL tampil1 CALL kosong1 END SUB SUB List1_Click () CALL tampilb1 CALL keycom1b CALL baris1 END SUB
No comments:
Post a Comment