Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic - Hallo sahabat Tutorial, Pada sharing Tutorial kali ini yang berjudul Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic, saya telah menyediakan Kumpulan Tutorial lengkap dari awal sampai akhir. mudah-mudahan isi postingan Tutorial yang saya tulis ini dapat anda pahami. okelah, ini dia Tutornya.

Judul : Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Buat Tampilan Seperti Dibawah ini

Kemudian masukan script dibawah ini

Private Sub CmdBatal_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    CboKode.SetFocus
    CboKode = "Pilih Kode Buku"
    TxtJudul = ""
    TxtPengarang = ""
    TxtTerbit = ""
    TxtPenerbit = ""
    TxtHarga = ""
End Sub

Private Sub CmdProses_Click()
    Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant
   
    Kode = CboKode
    KodeBuku = Mid(Kode, 3, 3)
    Select Case KodeBuku
        Case "SIM"
            Judul = "Sistem Informasi Manajemen"
            Pengarang = "Yati Nur Oktavia"
            Harga = 75900
        Case "EDP"
            Judul = "Elektronik Data Processing"
            Pengarang = "Imam Tarmizi"
            Harga = 62000
        Case "MNJ"
            Judul = "Manajemen"
            Pengarang = "Valentina Mariana Adiwianti"
            Harga = 42000
        Case "CDR"
            Judul = "Corel Draw"
            Pengarang = "Riyan Suhandi"
            Harga = 53000
        Case "RPL"
            Judul = "Rekayasa Perangkat Lunak"
            Pengarang = "Sinta Umpu Singa"
            Harga = 83000
    End Select
    TxtJudul = Judul
    TxtPengarang = Pengarang
    TxtHarga = Harga
   
    KodePenerbit = Left(Kode, 1)
    Select Case KodePenerbit
        Case "A"
            Penerbit = "Andi Offset Yogyakarta"
        Case "I"
            Penerbit = "Indah Surabaya"
        Case "S"
            Penerbit = "Indah Surabaya"
        Case "E"
            Penerbit = "Elek Media Komputindo"
        Case "M"
            Penerbit = "Maxicom"
    End Select
    TxtPenerbit = Penerbit
   
    KodeTahun = Right(Kode, 2)
    Select Case KodeTahun
        Case "01"
            Tahun = "20" & KodeTahun
        Case "02"
            Tahun = "20" & KodeTahun
        Case "03"
            Tahun = "20" & KodeTahun
        Case "04"
            Tahun = "20" & KodeTahun
        Case "05"
            Tahun = "20" & KodeTahun
    End Select
    TxtTerbit = Tahun
End Sub

Private Sub Form_Load()
    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

Demikianlah Artikel Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic

Sekian Tutorial Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sekian postingan Tutorial kali ini.

Anda sedang membaca artikel Source Code Membuat Aplikasi Data Buku Sederhana Dengan Visual Basic dan artikel ini url permalinknya adalah https://tutoria-satu.blogspot.com/2015/12/source-code-membuat-aplikasi-data-buku.html Semoga artikel ini bisa bermanfaat.

Tweet

Sign up here with your email address to receive updates from this blog in your inbox.