Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic - Hallo sahabat Tutorial, Pada sharing Tutorial kali ini yang berjudul Source Code Membuat Aplikasi Perhitungan Tiket 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 Perhitungan Tiket Sederhana Dengan Visual Basic

Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic

Buat tampilan seperti dibawah ini

Kemudian masukan script dibawah ini
Private Sub CmdBatal_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdKeluar_Click()
    Unload Me
End Sub

Private Sub CmdLagi_Click()
    TxtNama.SetFocus
    TxtNama = ""
    TxtNik = ""
    TxtGolongan = ""
    TxtKodeStatus = ""
    TxtStatus = ""
    TxtTahun = ""
    TxtJabatan = ""
    TxtBagian = ""
    TxtGajiPokok = ""
    TxtTunjangan = ""
    TxtTotalGaji = ""
End Sub

Private Sub CmdProses_Click()
    Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant
   
    Golongan = Mid(TxtNik.Text, 5, 1)
    TxtGolongan = Golongan
   
    KodeStatus = Mid(TxtNik.Text, 7, 1)
    TxtKodeStatus = KodeStatus
   
    If KodeStatus = "S" Then
        Status = "Single"
    ElseIf KodeStatus = "M" Then
        Status = "Menikah"
    ElseIf KodeStatus = "J" Then
        Status = "Janda"
    ElseIf KodeStatus = "D" Then
        Status = "Duda"
    End If
    TxtStatus = Status
   
    Tahun = Left(TxtNik.Text, 4)
    TxtTahun = Tahun
   
    Select Case Golongan
        Case "A"
            Jabatan = "Manager"
            GajiPokok = 4000000
            Tunjangan = 1025000
        Case "B"
            Jabatan = "Ka. Seksi"
            GajiPokok = 3500000
            Tunjangan = 975000
        Case "C"
            Jabatan = "Staff"
            GajiPokok = 3000000
            Tunjangan = 925000
    End Select
    TxtJabatan = Jabatan
    TxtGajiPokok = GajiPokok
    TxtTunjangan = Tunjangan
   
    KodeBagian = Right(TxtNik.Text, 3)
    Select Case KodeBagian
        Case "KEU"
            Bagian = "Accounting"
        Case "ADM"
            Bagian = "Administrasi"
        Case "SDM"
            Bagian = "General Affair"
        Case "EDP"
            Bagian = "IT Unit"
        Case "SPM"
            Bagian = "Security"
    End Select
    TxtBagian = Bagian
   
    TxtTotalGaji = GajiPokok + Tunjangan
End Sub

Private Sub Form_Activate()
    TxtNama.SetFocus
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtNik.SetFocus
    End If
End Sub

Demikianlah Artikel Source Code Membuat Aplikasi Perhitungan Tiket Sederhana Dengan Visual Basic

Sekian Tutorial Source Code Membuat Aplikasi Perhitungan Tiket 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 Perhitungan Tiket Sederhana Dengan Visual Basic dan artikel ini url permalinknya adalah https://tutoria-satu.blogspot.com/2015/12/source-code-membuat-aplikasi.html Semoga artikel ini bisa bermanfaat.

Tweet

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