Tugas 3.2 MembuatInput Data Buku STMIK Pringsewu Menggunakan

Gambar pada saat aplikasi running

Tugas 3.2 Membuat Input Data Buku STMIK Pringsewu Menggunakan Microsoft Visual Basic 6.0

Berikut adalah sourcecode untuk aplikasi di atas:

Private Sub cmdBatal_Click()

Cbokode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Cbokode.SetFocus

End Sub

-------------------------------------------------------------

Private Sub cmdKeluar_Click()

End

End Sub

------------------------------------------------------------- 

Private Sub cmdLagi_Click()

Cbokode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Cbokode.SetFocus

End Sub

 -------------------------------------------------------------

Private Sub cmdProses_Click()

Dim kode As String

kode = Mid(Cbokode.Text, 3, 3)

If kode = "SIM" Then

TxtJudul.Text = "Sistem Informasi Manajemen"

TxtPengarang.Text = "Yati Nur Oktavia"

TxtHarga.Text = "75900"

ElseIf kode = "EDP" Then

TxtJudul.Text = "Elektronik Data Processing"

TxtPengarang.Text = "Imam Tarmizi"

TxtHarga.Text = "62000"

ElseIf kode = "MNJ" Then

TxtJudul.Text = "Manajemen"

TxtPengarang.Text = "Valentina Mariana Adiwianti"

TxtHarga.Text = "42000"

ElseIf kode = "CDR" Then

TxtJudul.Text = "Corel Draw"

TxtPengarang.Text = "Riyan Suhandi"

TxtHarga.Text = "53000"

ElseIf kode = "RPL" Then

TxtJudul.Text = "Rekayasa Perangkat Lunak"

TxtPengarang.Text = "Sinta Umpu Singa"

TxtHarga.Text = "83000"

End If

-------------------------------------------------------------

kode = Left(Cbokode.Text, 1)

If kode = "A" Then

TxtPenerbit.Text = "Andi Offset Yogyakarta"

ElseIf kode = "I" Then

TxtPenerbit.Text = "Indah Surabaya"

ElseIf kode = "S" Then

TxtPenerbit.Text = "Salemba Empat"

ElseIf kode = "E" Then

TxtPenerbit.Text = "Elek Media Komputindo"

ElseIf kode = "M" Then

TxtPenerbit.Text = "Mexicom"

End If

TxtTahun.Text = "20" & Right(Cbokode.Text, 2)

End Sub

-------------------------------------------------------------

Private Sub Form_Load()

TxtJudul.Enabled = False

TxtPengarang.Enabled = False

TxtTahun.Enabled = False

TxtPenerbit.Enabled = False

TxtHarga.Enabled = False

Cbokode.AddItem "A-SIM-01"

Cbokode.AddItem "I-EDP-02"

Cbokode.AddItem "S-MNJ-03"

Cbokode.AddItem "E-CDR-04"

Cbokode.AddItem "M-RPL-05"

End Sub

Related Posts:

Tweet