CARA MEMBUAT KOMPONEN DATA DENGAN VISUAL BASIC VB.6.0

VISUAL BASIC 6.0

Membuat Komponen Data

Langkah awal anda pasitkan Sudah ter Instal Microsoft Visual Basic. Disini saya memakai Microsoft Visual Basic 6.0, Lalu Buatlah form baru, dan Bualah skemanya dahulu seperti dibawah ini:

Pada "Jenis komponen, Jumlah barang, Harga satuan, Sifat komponen, Masa operasi, Tanggal Operasi dan Total"  Itu saya menggunakan Textbox berikutnya juga pada kotak disamping kanan. Anda juga bisa menggunakan label.

Pada "Data baru, Laporan dan Selesai" menggunakan Command Button, Sedangkan pada "Tugas Mujahidah" Menggunakan Label.

Jika sudah Buat form baru (form 2) pada menu "ADD FORM" dan buat tabelnya seperti ini:

Buatlah dengan menggunakan "Textbox, Command Button dan Label" Seperti gambar di atas

Pada textbox anda dapat merubah warna Pada properties di sebelah kanan lalu klik Bagian Backcolor dan pilihlah warna sesuai selera anda.

Setelah selesai membuat tabel Pastikan bahwa pada text8 dirubah (name) menjadi txtjk

ubah pada form 1 dan form 2 (nama harus sama pada form 1 dan form 2) :

jenis komponen ubah (name) pada properties menjadi "txtjk"

jumlah barang ubah (name) pada properties menjadi "txtjb"

harga satuan ubah (name) pada properties menjadi "txths"

Sifat komponen ubah (name) pada properties menjadi "txtsk"

masa operasi ubah (name) pada properties menjadi "txtmo"

tanggal produksi ubah (name) pada properies menjadi "txttp"

total ubah (name) pada properties menjadi "txttt"

jika sudah semuanya buka tampilan code, View - code. dan tulislah code dibawah seperti tampilan dibawahnya :

CODE :

Dim n1 As Integer

Dim jumlah As Single

Private Type Datakusendiri

        

Jnskomponen As String

jmlbarang As Integer

hrgsatuan As Integer

Sftkomponen As String

MasaOpkomponen As String

TglProdkomponen As Date

total As Integer

    

    End Type

    Dim Info As Datakusendiri

    Sub datakomponen()

    Info.Jnskomponen = txtjk

    Info.jmlbarang = txtjb

    Info.hrgsatuan = txths

    Info.Sftkomponen = txtsk

    Info.Masaopdkomponen = txtmo

    Info.TglProdkomponen = txttp

    Info.total = txttt

    End Sub

Private Sub Command1_Click()

txtjk = ""

txtjb = ""

txths = ""

txtsk = ""

txtmo = ""

txttp = ""

txttt = ""

txtjb.SetFocus

End Sub

Private Sub Command2_Click()

Form2.Show

Form1.Hide

Beep

Form2.txtjk.Text = txtjk

Form2.txtjb.Text = txtjb

Form2.txths.Text = txths

Form2.txtsk.Text = txtsk

Form2.txtmo.Text = txtmo

Form2.txttp.Text = txttp

n1 = txtjb.Text

n2 = txths.Text

jumlah = Val(n1 * n2)

txttt.Text = jumlah

Form2.txttt.Text = txttt

End Sub

Private Sub Command3_Click()

End

Beep

Beep

End Sub

Tampilan code sebagai berikut:

jika sudah anda dapat menjalankannya dengan menklik tombol start, berikut tampilannya:

Selamat mengerjakan, Semoga bermanfaat,

Terimakasih

#mujayshaumayya