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

Program Penggunaan Option Explisit pada visual basic

Option Explisit digunakan untuk memerintahkan supaya seluruh variabel didefinisikan.  Berikut kode program disamping :

Option Explicit
Dim test1, test2, test3 As Integer

Private Sub Command1_Click()
Dim test1 As String
test1 = "Nusantara"
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub


Private Sub Command2_Click()
test2 = 10
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Private Sub Command3_Click()
Const test3 As Single = 90.55
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub
 

Read More … Program Penggunaan Option Explisit pada visual basic

Membuat Program menghitung Luas Lingkaran, Mencari jumlah dan Rata-rata suatu nilai

Private Sub Command1_Click()
Dim luas, keliling As Single
Dim r As Single
Const phi As Single = 3.14
r = Text1.Text
luas = phi * r * r
keliling = 2 * phi * r
Text2.Text = luas
Text3.Text = keliling
End Sub

Private Sub Command2_Click()
Dim nilai1 As Single
Dim nilai2 As Single
Dim nilai3 As Single
Dim jml As Single
Dim rata2 As Single

nilai1 = Text4.Text
nilai2 = Text5.Text
nilai3 = Text6.Text
jml = nilai1 + nilai2 + nilai3
rata2 = jml / 3
Text7.Text = jml
Text8.Text = rata2
End Sub

Read More … Membuat Program menghitung Luas Lingkaran, Mencari jumlah dan Rata-rata suatu nilai

Membuat Program Kalkulator Visual Basic

Kode Program :
Dim hasil As Single
Dim value1 As Single, value2 As Single

Private Sub Option1_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 + value2
Text3.Text = hasil
End Sub

Private Sub Option10_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 = value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option11_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 <> value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option12_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 And value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option13_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 Or value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option14_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = Not value1
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option2_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 - value2
Text3.Text = hasil
End Sub

Private Sub Option3_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 * value2
Text3.Text = hasil
End Sub

Private Sub Option4_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 / value2
Text3.Text = hasil
End Sub

Private Sub Option5_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 & value2
Text3.Text = hasil
End Sub

Private Sub Option6_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 > value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option7_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 < value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option8_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 >= value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Private Sub Option9_Click()
value1 = Text1.Text
value2 = Text2.Text
hasil = value1 <= value2
Text3.Text = Format(hasil, "TRUE/FALSE")
End Sub

Read More … Membuat Program Kalkulator Visual Basic

Tipe Data, Variable dan Porator dalam Visual Basic

A. Tipe data

Data memiliki tipe yang berbeda‐beda dan biasanya data dikelompokkan pada kelompok yang sejenis agar tidak terjadi operasi matematika diantara data yang berbeda jenis tersebut, contohnya kita tidak bisa menjumlahkan nilai suatu jarak (Km) dengan Massa (Kg) karena keduanya memiliki tipe data yang berbeda. Begitu juga dalam suatu program, setiap nilai harus dikelompokkan pada jenis‐jenis tertentu yang disebut dengan tipe data.

Tipe-tipe data yang terdapat dalam visual basic antara lain :

1. Integer, long : tipe data untuk angka bulat
2. Single, double : tipe data untuk angka pecahan/desimal
3. Currency : tipe data untuk angka mata uang
4. String : tipe data untuk teks
5. Boolean : tipe data logika ( True/False)
6. Date : tipe data waktu/tangggal
7. Object : tipe data untuk sebuah objek misalnya gambar
8. Variant : tipe data variant

B. Variabel

Setiap data yang disimpan dalam komputer memerlukan variabel sebagai suatu tempat untuk menyimpan nilai dari data tersebut.  Dalam penamaan sebuah variable tidak boleh ada 2 atau lebih variabel yang memiliki nama yang sama, pemberian nama variabel harus unik. Hal ini bertujuan agar tidak terjadi kesalahan pada program.

Dalam visual basic dikenal adanya istilah variabel lokal dan variabel global :

1. Variabel lokal yaitu variabel yang hanya dikenal pada satu bagian program saja, nilai data yang terdapat di dalamnya hanya hidup ketika bagian program tersebut dijalankan.
2. Variabel global yaitu variabel yang dikenal pada seluruh bagian program dan waktu hidupnya selama program dijalankan.

Aturan dalam penamaan variabel :

1. Harus diawali dengan huruf. 
2. Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_).
3. Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll).
4. Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as, string, integer, dll).

Contoh Penulisan :  Dim gaji As Single, Dim nama As String

C. Operator

Operator adalah suatu tanda yang digunakan untuk menghubungkan suatu variabel atau kontanta dengan variabel atau konstanta lain. Dalam visual basic terdapat beberapa operator diantaranya :

1. Operator Aritmatika

     2. Operator Logika

     3. Operator Perbandingan

Read More … Tipe Data, Variable dan Porator dalam Visual Basic