Tugas 3.4 Membuat Membuat Input Data Buku STMIK Pringsewu

Gambar pada saat aplikasi running

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

Berikut adalah sourcecode untuk aplikasi diatas:

Private Sub cmdBatal_Click()

Txtkode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Txtkode.SetFocus

End Sub

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

Private Sub cmdKeluar_Click()

End

End Sub

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

Private Sub cmdLagi_Click()

Txtkode = ""

TxtJudul = ""

TxtPengarang = ""

TxtTahun = ""

TxtPenerbit = ""

TxtHarga = ""

Txtkode.SetFocus

End Sub

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

Private Sub cmdProses_Click()

Dim kode As String

kode = Left(Txtkode.Text, 3)

If kode = "SIM" Then

TxtJudul.Text = "Sistem Informasi Manajemen"

TxtPengarang.Text = "Fadiya Ulfa"

TxtHarga.Text = "75900"

ElseIf kode = "EDP" Then

TxtJudul.Text = "Elektronik Data Processing"

TxtPengarang.Text = "Nurul Agustina"

TxtHarga.Text = "62000"

ElseIf kode = "MNJ" Then

TxtJudul.Text = "Manajemen"

TxtPengarang.Text = "Rian Hidayat"

TxtHarga.Text = "42000"

ElseIf kode = "CDR" Then

TxtJudul.Text = "Corel Draw"

TxtPengarang.Text = "Siti Nur Khotimah"

TxtHarga.Text = "53000"

ElseIf kode = "RPL" Then

TxtJudul.Text = "Rekayasa Perangkat Lunak"

TxtPengarang.Text = "Winda Erlianti"

TxtHarga.Text = "83000"

End If

kode = Right(Txtkode.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" & Mid(Txtkode.Text, 5, 2)

End Sub

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

Private Sub Form_Load()

TxtJudul.Enabled = False

TxtPengarang.Enabled = False

TxtTahun.Enabled = False

TxtPenerbit.Enabled = False

TxtHarga.Enabled = False

End Sub

Related Posts:

Tweet