Program Pilkada pada visual Basic

Sebelum masuk pada form menu,, kita logiin dulu ok seperti pada form dibawah ini :

 

nah,, jika login berhasil kita akan masuk ke form Menu Utama yang didalamnya terdapat form-form yang telah di add pada project ini,, mari kita lihat tampilan form menu utamanya,,,

Kemudian jalankan salah satu form yang tersedia pada menu bar,, untuk contoh yang telah saya buat, pada form menu saya klik menu bar "Count" kemudian saya klik dan jalankan "Pilkada" kemudian akan muncul form seperti tampilan dibawah ini :

Untuk Listing Codingnya seperti dibawah ini :

Private Sub vote_Click()

pas1 = Val(pas1.Text)
pas2 = Val(pas2.Text)
pas3 = Val(pas3.Text)

If (pas1 > pas2) And (pas3 < pas1) Then
    hasil = pas1
    hasil.Caption = "Pasangan 1 dengan jumlah suara " + hasil
ElseIf (pas2 > pas1) And (pas3 < pas2) Then
    hasil = pas2
    hasil.Caption = "Pasangan 2 dengan jumlah suara " + hasil
ElseIf (pas3 > pas1) And (pas2 < pas3) Then
    hasil = pas3
    hasil.Caption = "Pasangan 3 dengan jumlah suara " + hasil
Else
    hasil = "Hasil Suara Seri/Tidak Ada Pemenang !"
    hasil.Caption = hasil
    End If
End Sub

Read More … Program Pilkada pada visual Basic

Program Belanja pada Visual Basic

Listing program :
Dim disc As Double
Dim bel1, bel2, bel3, bel4, bel5, t_bayar, t_bel As Currency
Private Sub Command1_Click()
bel1 = Val(belanja1.Text)
bel2 = Val(belanja2.Text)
bel3 = Val(belanja3.Text)
bel4 = Val(belanja4.Text)
bel5 = Val(belanja5.Text)


t_bel = bel1 + bel2 + bel3 + bel4 + bel5
total_bel = t_bel

If (jam >= 8) And (jam <= 15) Then
        If (t_bel >= 100000) And (t_bel <= 200000) Then
        disc = 0.05 * t_bel
        dis = 5
        rupiah = disc
        t_bayar = total_bel - disc
        bayar = t_bayar
       
        ElseIf (t_bel > 200000) And (t_bel <= 300000) Then
        disc = 0.1 * t_bel
        dis = 10
        rupiah = disc
        t_bayar = total_bel - disc
        bayar = t_bayar
       
        ElseIf t_bel > 300000 Then
        disc = 0.15 * t_bel
        dis = 15
        rupiah = disc
        t_bayar = total_bel - disc
        bayar = t_bayar
       
        Else
        disc = 0 * t_bel
        dis = 0
        rupiah = disc
        t_bayar = total_bel - disc
        bayar = t_bayar
        End If
       
        Else
        disc = 0 * t_bel
        dis = 0
        rupiah = disc
        t_bayar = total_bel - disc
        bayar = t_bayar
        End If
End Sub

Read More … Program Belanja pada Visual Basic

Membuat Program Penggajian Karyawan pada visual Basic

Listing Program :
Dim total, lembur, gaji, pajak, tunjangan As Double

Private Sub Command1_Click()
Text7.Text = 0.025 * Text3.Text
gaji = Text3.Text
tunjangan = Text5.Text
lembur = Text6.Text
pajak = Text7.Text
total = gaji + tunjangan + lembur - pajak
Text9.Text = total
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Option1_Click()
Text3.Text = 2000000
gaji = Text3.Text
End Sub

Private Sub Option2_Click()
Text3.Text = 1750000
gaji = Text3.Text
End Sub

Private Sub Option3_Click()
Text3.Text = 1500000
gaji = Text3.Text
End Sub

Private Sub Option4_Click()
Text5.Text = 200000
tunjangan = Text5.Text
End Sub

Private Sub Option5_Click()
Text5.Text = 150000
tunjangan = Text5.Text
End Sub

Private Sub Option6_Click()
Text5.Text = 100000
tunjangan = Text5.Text
End Sub

Private Sub Text8_Change()
Dim jl As Double
jl = Text8.Text
gaji = Text3.Text
lembur = jl * 1 / 173 * gaji
Text6.Text = lembur
End Sub

Read More … Membuat Program Penggajian Karyawan pada visual Basic