Source Code Menampilkan Gambar dengan Memilih Kategori pada Visual Basic

Untuk menampilkan gambar dengan memilih kategori pada Visual Basic dapat digunakan Toolbox “RadioButton”. Berikut adalah langkah-langkahnya :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih PictureBox, ComboBox, RadioButton, Label, GroupBox, dan Button.

Kemudian, gantikan nama GroupBox1 menjadi “Ketentuan Foto”, GroupBox2 menjadi “Proses”, Label1 menjadi “Orang : “, Label2 menjadi “Jenis : “, RadioButton1 menjadi “Pria”, RadioButton2 menjadi “Wanita”, Button1 menjadi “Bersih”, dan Button2 menjadi “Selesai”.

Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1, Button2, Form1, RadioButton1, dan RadioButton2. Kemudian isi listing program seperti dibawah ini :

Public Class Form1

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not ComboBox1.Text = “” Then
PictureBox1.Image = Nothing
ComboBox1.Text = “”
RadioButton1.Checked = False
RadioButton2.Checked = False
Else
End
End If
End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
If ComboBox1.Text = “Dewasa” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\1.jpg”)
‘Gambar pria dewasa’
ElseIf ComboBox1.Text = “Orang tua” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\8.jpg”)
‘Gambar orang tua’
ElseIf ComboBox1.Text = “Anak-anak” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\2.jpg”)
‘Gambar pria anak-anak’
End If
End If
End Sub

Private Sub RadioButton2_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
If ComboBox1.Text = “Anak-anak” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\3.jpg”)
‘Gambar wanita dewasa’
ElseIf ComboBox1.Text = “Orang tua” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\6.jpg”)
‘Gambar orang tua’
ElseIf ComboBox1.Text = “Dewasa” Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\4.jpg”)
‘Gambar wanita anak-anak’
End If
End If
End Sub

End Class

6. Lalu klik panah kecil pada PictureBox. Maka akan muncul PictureBox Tasks lalu pilih StrecthImage pada Size Mode.

7. Kemudian Save and Start Debugging.

8. Klik di ComboBox dan pilih jenis kelamin.

Jika dipilih “Dewasa” :

• Pria

• Wanita

Jika dipilih “Anak-anak” :

• Pria

• Wanita

Jika dipilih “Orang Tua” :

• Pria

• Wanita

9. Klik “Bersih” untuk membersihkan gambar.

10. Klik “Selesai”.

Note : Ada dua cara dalam memasukkan gambar, yaitu :

1. Gambar yang sudah ada dalam folder Project-bin-Debug.

Contohnya : PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)

2. Gambar yang terdapat didalam folder lainnya yang terletak dalam Local Disk (D:) atau sejenisnya.

Contohnya : PictureBox1.Image = Image.FromFile(“D:\foto.jpg”).

Sekian langkah-langkah cara menampilkan gambar dengan memilih kategori pada Visual Basic. Semoga Bermanfaat ^^

By: Unknown On 10:15 AM

Continue Reading

Source Code to viewers in visual basic

Untuk menampilkan gambar pada visual basic sangat mudah dan cepat. Programnya juga tidak terlalu rumit dan singkat. Berikut langkah-langkahnya :

1. Buka aplikasi Microsoft Visual Basic 2010

Tampilan Awal Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih PictureBox, CheckBox, dan Button.

Lalu susun hingga terbentuk seperti ini :

Gantikan nama CheckBox1 menjadi Menampilkan Gambar, Button1 menjadi Gambar Ditampilkan, dan Button2 menjadi Selesai.

Maka akan tampak seperti ini :

5. Double klik pada CheckBox1, Button1, dan Button2. Kemudian isi listing program seperti dibawah ini :

Public Class LatihanForm1dan2
Dim SW As Boolean = True
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
PictureBox1.Image = Nothing
PictureBox2.Image = Nothing
If CheckBox1.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\miyuki_lbe.jpg”)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SW = True Then
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\miyuki_lbe.jpg”)
PictureBox3.Image = Image.FromFile(Application.StartupPath & “\mahouka_all.jpg”)
Button1.Text = “Gambar Disembunyikan”
SW = False
Else
Button1.Text = “Gambar Ditampilkan”
PictureBox2.Image = Nothing
PictureBox3.Image = Nothing
SW = True
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

6. Lalu klik panah kecil pada PictureBox. Maka akan muncul PictureBox Tasks lalu pilih StrecthImage pada Size Mode.

7. Kemudian Save and Start Debugging.

8. Klik pada Menampilkan Gambar dan Gambar Ditampilkan. Maka akan muncul seperti ini :

Saat Klik Menampilkan Gambar

Saat Klik Gambar Ditampilkan

9. Klik Selesai.

Note : Ada dua cara dalam memasukkan gambar, yaitu :

1. Gambar yang sudah ada dalam folder Project-bin-Debug.

Contohnya : PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)

2. Gambar yang terdapat didalam folder lainnya yang terletak dalam Local Disk (D:) atau sejenisnya.

Contohnya : PictureBox1.Image = Image.FromFile(“D:\foto.jpg”).

Sekian langkah-langkah cara menampilkan gambar pada visual basic. Semoga Bermanfaat ^^

By: Unknown On 10:09 PM

Continue Reading

Source Code Membuat Stopwatch pada Visual Basic

Untuk membuat stopwacth pada Visual Basic dapat dibuat dengan mengikuti langkah-langkah berikut ini :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label, GroupBox, Timer, dan Button.

Kemudian, hapus tulisan GroupBox1, gantikan Label1, Label2, Label3, dan Label4 menjadi “0”, Button1 menjadi “Mulai”, dan Button2 menjadi “Selesai”.
Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1, Timer1, dan Button2. Kemudian isi listing program seperti dibawah ini :

Public Class Form8

Dim N1, N2, N3, N4 As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If N4 < 10 Then
If N1 > 9 Then
N1 = 0
N2 = N2 + 1
If N2 > 9 Then
Label2.Text = 0
Else
Label2.Text = N2
End If
End If
If N2 > 9 Then
N2 = 0
N3 = N3 + 1
If N3 > 9 Then
Label3.Text = 0
Else
Label3.Text = N3
End If
End If
If N3 > 9 Then
N3 = 0
N4 = N4 + 1
If N4 > 9 Then
Label4.Text = 0
Timer1.Enabled = False
Else
Label4.Text = N4
End If
End If
Label1.Text = N1
N1 = N1 + 1
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

6. Kemudian Save and Start Debugging.

7. Klik “Mulai”, maka muncul seperti ini :

8. Klik “Selesai”.

Note :

Untuk Label, ubah text Label1 menjadi “0” pada properties, ubah BorderStyle menjadi “FixedSingle”, dan ubah bentuk tulisan serta font sesuai keinginan.

Susun Label dimulai dari Label4, Label3, Label2, dan Label1.

Sekian langkah-langkah cara membuat stopwacth pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ^^

By: Unknown On 5:52 AM

Continue Reading

Source Code Membuat Kasir Sederhana dengan Visual Basic

Untuk membuat kasir sederhana dengan visual basic ikuti langkah-langkah berikut :
1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.
Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label, ComboBox, TextBox dan Button.

Kemudian, gantikan nama Label1 menjadi “Input Barang”, Label2 menjadi “Input Jumlah”, Label3 menjadi “Total Uang yang Harus Dibayar”, Label4 menjadi “Kembalian”, Button1 menjadi “Hitung”, Button2 menjadi “Clear”, dan Button3 menjadi “Proses”.
Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1, Button2, dan Button3. Kemudian isi listing program seperti dibawah ini :

Public Class Form1
Dim Susu, Gula, Roti, Jumlah_Barang, Jumlah_Pembayaran, Uang_Pembayaran, Sisa As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Uang_Pembayaran = Val(TextBox3.Text)
Sisa = Uang_Pembayaran – Jumlah_Pembayaran
TextBox4.Text = Sisa
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Susu = 5000
Gula = 10000
Roti = 6000
Jumlah_Barang = Val(TextBox1.Text)
If ComboBox1.Text = “Susu” Then
Jumlah_Pembayaran = Susu * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
ElseIf ComboBox1.Text = “Gula” Then
Jumlah_Pembayaran = Gula * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
ElseIf ComboBox1.Text = “Roti” Then
Jumlah_Pembayaran = Roti * Jumlah_Barang
TextBox2.Text = Jumlah_Pembayaran
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

6. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

Note :

Untuk mengisi nama barang pada ComboBox perhatikan gambar dibawah ini :

Setelah klik Edit Items akan muncul seperti ini :

Kita dapat mengisi nama barang yang kita inginkan di String Collection Editor.

Proses pada Form digunakan untuk menghitung total uang yang harus dibayar, sedangkan Hitung untuk mencari uang kembalian.

Sekian langkah-langkah cara membuat kasir sederhana dengan Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ya ^^

By: Unknown On 3:14 AM

Continue Reading

Source Code untuk Menampilkan Menu pada Visual Basic

Untuk menampilkan menu pada visual basic ikuti langkah-langkah berikut :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.
Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label dan MenuStrip.

Klik pada Type Here dan isikan Menu seperti ini :

5. Double klik pada Menu “Menhitung Luas Jajar Genjang” dan “Menampilkan Gambar 3 Kriteria dalam 2 Picture”. Kemudian isi listing program seperti dibawah ini :

Public Class Form2

Private Sub MenghitungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenghitungToolStripMenuItem.Click
Form3.Show()
End Sub

Private Sub MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem.Click
Form4.Show()
End Sub

End Class

6. Kemudian Save and Start Debugging.

Langkah selanjutnya untuk menu “Menghitung Luas Jajar Genjang” dibuat pada form yang berbeda.

Untuk membuat form kedua klik kanan pada nama project pilih Add pilih Windows Form.

Menghitung Luas Jajar Genjang.

1. Klik ToolBox, kemudian pilih Label, TextBox, dan Button.

Kemudian, gantikan nama Label1 menjadi “Input Alas”, Label2 menjadi “Input Tinggi”, Label3 menjadi “Luas Jajar Genjang”, Label4 gantikan menjadi judul yang kita inginkan, dan Button1 menjadi “Proses”.
Maka akan tampak seperti gambar dibawah ini :

2. Double klik pada Button1. Kemudian isi listing program seperti dibawah ini :

Public Class Form3
Dim alas, tinggi, hasil As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
alas = Val(TextBox1.Text)
tinggi = Val(TextBox2.Text)
hasil = alas * tinggi
TextBox3.Text = hasil
End Sub
End Class

3. Kemudian Save and Start Debugging.

Maka akan muncul seperti ini :

Langkah selanjutnya untuk menu “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” dibuat pada form yang berbeda pula.

Berikut langkah-langkahnya :

1. Klik ToolBox, kemudian pilih Label, PictureBox, RadioButton, GroupBox, dan Button.

Kemudian, gantikan nama Label1 menjadi “Kriteria”, GroupBox1 menjadi “Kriteria Gambar”, GroupBox2 menjadi “Proses”, RadioButton1 menjadi “Deawsa”, RadioButton2 menjadi “Orang Tua”, RadioButton3 menjadi “Anak-anak”, Button1 menjadi “Clear”,  dan Button2 menjadi “Selesai”.
Maka akan tampak seperti gambar dibawah ini :

2. Double klik pada Button1, Button2, RadioButton1, RadioButton2, dan RadioButton3. Kemudian isi listing program seperti dibawah ini :

Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Image = Nothing
PictureBox2.Image = Nothing
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub RadioButton1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\1.jpg”)
‘Gambar pria dewasa’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\4.jpg”)
‘Gambar wanita dewasa’
End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\5.jpg”)
‘Gambar orang tua’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\9.jpg”)
‘Gambar orang tua’
End If
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
PictureBox1.Image = Image.FromFile(Application.StartupPath & “\2.jpg”)
‘Gambar pria anak-anak’
PictureBox2.Image = Image.FromFile(Application.StartupPath & “\3.jpg”)
‘Gambar wanita anak-anak’
End If
End Sub
End Class

3. Kemudian Save and Start Debugging.

4. Klik di RadioButton untuk menampilkan foto yang diinginkan.
Jika di pilih “Dewasa”, maka akan muncul gambar :

Jika di pilih “Orang Tua”, maka akan muncul gambar :

Jika di pilih “Anak-anak”, maka akan muncul gambar :

5. Klik “Clear” untuk membersihkan gambar.

6. Klik “Selesai”.

Note :

Note : Ada dua cara dalam memasukkan gambar, yaitu :
1. Gambar yang sudah ada dalam folder Project-bin-Debug.
Contohnya : PictureBox1.Image = Image.FromFile(Application.StartupPath & “\mayumi_saegusa.jpg”)
2. Gambar yang terdapat didalam folder lainnya yang terletak dalam Local Disk (D:) atau sejenisnya.
Contohnya : PictureBox1.Image = Image.FromFile(“D:\foto.jpg”).

Untuk Menu “Menghitung Luas Jajar Genjang” dan “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” nantinya akan ditampilkan dengan mengklik Menu tersebut pada Form1. Program untuk menampilkan kedua Menu tersebut yaitu :

Public Class Form2

Private Sub MenghitungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenghitungToolStripMenuItem.Click
Form3.Show()
End Sub

Private Sub MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenampilkanGambar3KriteriaDalam2BuahPictureToolStripMenuItem.Click
Form4.Show()
End Sub

End Class

Jika klik pada Menu “Menghitung Luas Jajar Genjang” akan muncul seperti ini :

Jika klik pada Menu “Menampilkan Gambar 3 Kriteria dalam 2 Buah Picture” akan muncul seperti ini :

Sekian langkah-langkah cara menampilkan menu pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ya ^^

By: Unknown On 3:11 AM

Continue Reading