Membuat Program Perhitungan dengan If

Sekarang kita belajar untuk membuat program perhitungan dengan menggunakan if mneggunakan Visual Basic 6.0. Tutorial ini ane ambil dari website ilmukomputer.com karya bung arif susanto.

check this out gan :

Pembayaran
Masalah : buatlah suatu program dengan design dibawah ini kemudian saat di klik Komputer pada Combobox akan tampil harga secara otomatis di textharga, dengan ketentuan sebgai berikut:
Keyboard : Rp 15.000,-
Monitor : Rp 800.000,-
Mouse : Rp 30.000,-

Jika di klik tombol bayar maka akan timbul angka pada text bayar, potongan, total bayar tapi ingat Jumlah barang harus sudah terisi lho.. Gunakan Perintah If

1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi caption di kosongkan saja (INGAT pada name bukan caption)

2. Klik cbojenis dan isi pada list klik segitiga bawah di bagian properties Dengan Kata Monitor, Mouse, Keyboard saat mengisi Keyboard kemudian tekan enter

3. Kemudia pada cbojenis klik 2 kali dan isikan

Private Sub cboJenis_Click()
If cboJenis = “Keyboard” Then
txtharga = 15000
ElseIf cboJenis = “Monitor” Then
txtharga = 800000
ElseIf cboJenis = “Mouse” Then
txtharga = 30000
End If
txtjumlah.SetFocus
End Sub

4. Kemudia pada txtbayar klik 2 kali dan isikan

Private Sub cmdBayar_Click()
txtbayar = Val(txtharga) * Val(txtjumlah)
If txtjumlah >= 20 Then
txtpotong = 0.1 * txtbayar
ElseIf (txtjumlah = 10) Then
txtpotong = 0.05 * txtbayar
ElseIf txtjumlah < 10 Then
txtpotong = 0
End If
txttotal = Val(txtbayar) – Val(txtpotong)
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

A. Operasi Matematik
Masalah :
Jika diisi nilai pada nilai1 dan nilai2 kemudian dipilih operatornya maka hasilnya akan timbul di Hasil. Gunakan Printah Case
1. Buatlah designnya seperti gambar disamping kemudian beri nama pada Properties bagian (name) dengan nama yang tertera dibawah tetapi text di kosongkan saja (INGAT pada name bukan text)

2. Klik 2 kali pada list1(atau * / + – ) dan isikan

Private Sub List1_Click()
Select Case List1
Case Is = “*”
txtHasil = Val(txtN1) * Val(txtN2)
Case Is = “/”
txtHasil = Val(txtN1) / Val(txtN2)
Case Is = “+”
txtHasil = Val(txtN1) + Val(txtN2)
Case Is = “-”
txtHasil = Val(txtN1) – Val(txtN2)
End Select
End Sub

Read More

Membuat Program Paint dengan Visual Basic 6.0

Ada yang punya rencana untuk membuat program pain sendiri seperti aplikasi Microsoft Pain yang ada di windows?

Nah berikut ini tutorial yang saya kutip dari ilmukomputer.com karya danu wira, sekalian contoh programnya yang dapat anda download.

ok,, check this out...:

Langkah pertama adalah membuat sebuah project dengan sebuah form menggunakan objek label, button, picture box dan frame desain terserah anda sesuai dengan kreatifitas dan selera masing-masing... DEAL..?!!!

Langkah selanjutnya adalah melakukan pengaturan properties sehingga tampilan didapat seperti pada gambar diatas.

Langkah terakhir adalah memberikan listing program untuk form tersebut sebagai berikut: ( Copy paste aja gan...niar cepat dan ga da kode yang terlewat...)

Dim paintnow As Boolean
Private Sub cmdhapus_Click()
cmdhapus.Enabled = False
cmdpensil.Enabled = True
End Sub
Private Sub cmdhpsemua_Click()
Picture1.Cls
End Sub
Private Sub cmdpensil_Click()
cmdpensil.Enabled = False
cmdhapus.Enabled = True
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 14
lblwarna(i).BackColor = QBColor(i)
Next i
Picture1.ForeColor = QBColor(0)
Picture1.BackColor = QBColor(15)
End Sub
Private Sub lblwarna_Click(Index As Integer)
Picture1.ForeColor = lblwarna(Index).BackColor
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = True
Picture1.CurrentX = x
Picture1.CurrentY = y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If paintnow Then
If cmdpensil.Enabled = False Then
Picture1.Line -(x, y), Picture1.ForeColor
Picture1.MousePointer = 99
End If
If cmdhapus.Enabled = False Then
Picture1.Line -(x, y), RGB(255, 255, 255), B
Picture1.MousePointer = 12
End If
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
paintnow = False
End If
End Sub

 Nah,, selanjutnya tinggal di Save trus jalankan programnya.....

Jika ga berhasil...ni download hasil karya si om danu ntar tinggal di modif aja sesuai selera makan masing-masing.... he,,he,,, :)

 Klik Gambar dibawah ini untuk download contoh programnya :

Read More