Assalamualaikum Wr. Wb.
Saya akan membuat suatu program sederhana pada Visual Studio 2008 untuk mencari hasil Berat Badan Relatif. Program ini digunakan untuk mencari Berat Badan Relatif seseorang dengan menghitung dari Tinggi dan Berat Badan orang tersebut.
1. Siapkan 2 Blank Form.
2. Form yang pertama diisi dengan 2 Label, 2TextBox, dan 1Button, seperti ini:
3. Ubah "(Name)" dan "Text" pada masing-masing Label, TextBox dan Button tersebut menjadi seperti ini:
4. Pada Form kedua diisi dengan 4Label, 2ComboBox, 2TextBox, dan 1Button. Lalu ubah masing-masing "(Name)" dan "Text"nya menjadi seperti ini:
5. Agar ComboBox Tinggi Badan dan Berat Badan terisi angkanya. Kita menggunakan Fungsi Looping. Codingnya seperti ini:
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim y, x As Integer
y = 130
Do While y <= 200
ComboBoxTB.Items.Add(y)
y = y + 1
Loop
x = 40
Do While x <= 150
ComboBoxBB.Items.Add(x)
x = x + 1
Loop
End Sub
6. Fungsikan Button Hasil dengan men-double click Button "Hasil" pada Form Design. Untuk mengisi TextBox Persentase dan TextBox Berat Badan Relatif codingnya seperti ini:
Private Sub ButtonHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHasil.Click
TextBoxPersen.Text = (ComboBoxBB.Text / (ComboBoxTB.Text - 100)) * 100%
If TextBoxPersen.Text <= 90 Then
TextBoxBBR.Text = "Kurus"
ElseIf TextBoxPersen.Text > 90 And TextBoxPersen.Text <= 110 Then
TextBoxBBR.Text = "Normal (Ideal)"
ElseIf TextBoxPersen.Text > 110 Then
TextBoxBBR.Text = "Gemuk (Overweight)"
ElseIf TextBoxPersen.Text > 120 Then
TextBoxBBR.Text = "Obesitas"
End If
End Sub
6. Setelah itu kembali lagi pada Form1. Untuk menunjukkan benar atau salahnya Password yang di masukkan, kita fungsikan Button Log In dengan membuat codingnya seperti ini:
Private Sub ButtonLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
Dim n As Integer
If TextBoxPass.Text = "071211" Then
Me.Hide()
Form2.Show()
Else
n = MsgBox("Password yang Anda Masukkan Salah", MsgBoxStyle.OkOnly + MsgBoxStyle.Question, "Konfirmasi")
End If
End Sub
Dan double click pada Form Design Button Cancel untuk membatalkan pengisian password. Codingnya seperti ini:
Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
Me.Close()
End Sub
7. Setelah itu tekan tombol F5 pada keyboard untuk men-Debug. Lalu akan keluar tampilan seperti ini:
Masukkan Password dan Username:
Jika Password salah maka tampilan akan seperti ini:
Jika Password benar makan tampilan akan seperti ini:
Lalu pilih Tinggi dan Berat Badan:
Klik Button "Hasil" dan anda akan mendapatkan hasil Berat Badan Relatif anda:
Sekian penjelasan dari saya, apabila ada kesalahan dan kekurangan silahkan mengisi comment. Terima kasih :)
Mademoiselle
Sabtu, 31 Maret 2012
Senin, 19 Maret 2012
Membuat Aplikasi Sederhana menggunakan Fungsi Case pada Visual Studio 2008
Assalamualaikum Wr. Wb.
Saya akan membuat suatu program sederhana pada Visual Studio 2008 menggunakan fungsi case. Aplikasi ini berisi sebuah box yang berisi angka 0 sampai 9 yang akan di acak menggunakan timer. Dan apabila timer itu di "stop" makan acakan angka tersebut akan berhenti dan menunjukkan hadiah yang anda dapatkan.
1. Pertama, masukkan 2 TextBox (TextBox untuk Angka, dan TextBox untuk Hadiah), 2 Button (Button Start dan Button Stop), serta 1 Timer. Seperti ini:
2. Setelah itu fungsikan Timer pada Form dan buat coding-nya.
3. Fungsikan Button Start untuk memulai mengacak angka yang ada dalam Timer, seperti ini:
4. Terakhir fungsikan Button Stop untuk memberhentikan Timer sekaligus memuncul kan hadiah, seperti ini:
5. Apabila kita ingin mengacak nomor lain click Button "Start" lagi, Box Angka akan otomatis mengacak angka kembali, dan Box Hadiah akan otomatis kosong.
Demikian penjelasan dari saya bila ada kesalah dan lainnya silahkan mengisi comment.
Terimakasih :)
Nb: Untuk membuat Program Sederhana seperti di atas gunakan Source Code seperti ini:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
For i = 1 To 10
TextBoxAngka.Text = Strings.Left(i * Rnd(), 1)
Next
End Sub
Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
Timer1.Enabled = True
TextBoxHadiah.Text = ""
End Sub
Private Sub ButtonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStop.Click
Timer1.Enabled = False
Select Case TextBoxAngka.Text
Case 0
TextBoxHadiah.Text = "Mobil"
Case 1
TextBoxHadiah.Text = "Motor"
Case 2
TextBoxHadiah.Text = "Laptop"
Case 3
TextBoxHadiah.Text = "Handphone BlackBerry"
Case 4
TextBoxAngka.Text = "iPad Apple"
Case 5
TextBoxHadiah.Text = "LED TV"
Case 6
TextBoxHadiah.Text = "Kulkas"
Case 7
TextBoxHadiah.Text = "Samsung GalaxyTab"
Case 8
TextBoxHadiah.Text = "Camera Digital"
Case 9
TextBoxHadiah.Text = "Mesin Cuci"
End Select
End Sub
End Class
Saya akan membuat suatu program sederhana pada Visual Studio 2008 menggunakan fungsi case. Aplikasi ini berisi sebuah box yang berisi angka 0 sampai 9 yang akan di acak menggunakan timer. Dan apabila timer itu di "stop" makan acakan angka tersebut akan berhenti dan menunjukkan hadiah yang anda dapatkan.
1. Pertama, masukkan 2 TextBox (TextBox untuk Angka, dan TextBox untuk Hadiah), 2 Button (Button Start dan Button Stop), serta 1 Timer. Seperti ini:
2. Setelah itu fungsikan Timer pada Form dan buat coding-nya.
3. Fungsikan Button Start untuk memulai mengacak angka yang ada dalam Timer, seperti ini:
4. Terakhir fungsikan Button Stop untuk memberhentikan Timer sekaligus memuncul kan hadiah, seperti ini:
5. Apabila kita ingin mengacak nomor lain click Button "Start" lagi, Box Angka akan otomatis mengacak angka kembali, dan Box Hadiah akan otomatis kosong.
Demikian penjelasan dari saya bila ada kesalah dan lainnya silahkan mengisi comment.
Terimakasih :)
Nb: Untuk membuat Program Sederhana seperti di atas gunakan Source Code seperti ini:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
For i = 1 To 10
TextBoxAngka.Text = Strings.Left(i * Rnd(), 1)
Next
End Sub
Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
Timer1.Enabled = True
TextBoxHadiah.Text = ""
End Sub
Private Sub ButtonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStop.Click
Timer1.Enabled = False
Select Case TextBoxAngka.Text
Case 0
TextBoxHadiah.Text = "Mobil"
Case 1
TextBoxHadiah.Text = "Motor"
Case 2
TextBoxHadiah.Text = "Laptop"
Case 3
TextBoxHadiah.Text = "Handphone BlackBerry"
Case 4
TextBoxAngka.Text = "iPad Apple"
Case 5
TextBoxHadiah.Text = "LED TV"
Case 6
TextBoxHadiah.Text = "Kulkas"
Case 7
TextBoxHadiah.Text = "Samsung GalaxyTab"
Case 8
TextBoxHadiah.Text = "Camera Digital"
Case 9
TextBoxHadiah.Text = "Mesin Cuci"
End Select
End Sub
End Class
Sabtu, 17 Maret 2012
Membuat program aplikasi sederhana "Menghitung jumlah gaji dan golongan karyawan" dalam Visual Basic 2008 menggunakan fungsi IF
Assalamualaikum Wr. Wb.
Saya akan membuat suatu program sederhana untuk menghitung jumlah gaji karyawan. Jumlah gaji dan golongan karyawan dibedakan berdasarkan status pernikahan dan jumlah anak yang dimiliki.
1. Isi Blank Form dengan 5 Label, 1 Groupbox, 2 TextBox, dan 1 ComboBox seperti ini:
2. Setelah itu ganti "Text" pada masing-masing Label, GroupBox, TextBox, dan ComboBox tersebut. Jadi seperti ini:
3. Lalu fugsikan Button1 / Button Hitung pada form dan membuat Coding-nya
Setelah itu fungsikan juga Button2 / Button Mulai untung mengosongkan TextBox dan ComboBox
4. Setelah itu click tombol F5 pada keyboard untuk men-debug hasil dari coding tersebut. Masukkan angka percobaannya. Misalnya Gaji karyawan tersebut sebesar 7.000.000, Status Pernikahannya sudah menikah, dan memiliki 2 anak. Maka Jumlah Gaji dan Golongannya adalah:
5. Apabila anda tidak mengisi angka gaji maka akan muncul MessageBox seperti ini:
6. Apabila anda tidak memilih status perkawinan maka akan muncul MessageBox seperti ini:
7. Jika anda akan memulai menghitung gaji karyawan lainnya, click Button Mulai, sehingga data yang sebelumnya akan terhapus seperti ini:
Demikian penjelasan dari saya, apabila ada kesalahan atau yang lainnya silahkan mengisi comment. Terima kasih :)
Nb: Untuk membuat program seperti diatas, gunakan SourceCode seperti ini
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim gaji As Integer
Dim anak As Integer
Try
gaji = System.Convert.ToInt32(TextBox1.Text)
Catch
MessageBox.Show("Masukkan gaji")
End Try
If (gaji >= 0 And gaji <= 800000) Then
Label4.Text = " Golongan 1 "
Else If (gaji > 800000 And gaji <= 1500000) Then
Label4.Text = " Golongan 2 "
Else If (gaji > 1500000 And gaji <= 3000000) Then
Label4.Text = " Golongan 3 "
Else If (gaji > 3000000 And gaji <= 5000000) Then
Label4.Text = " Golongan 4 "
Else If (gaji > 5000000) Then
Label4.Text = " Eselon "
Else If (gaji <= 0) Then
MessageBox.Show("Anda salah memasukan input")
End If
If (RadioButton2.Checked) Then
anak = 0
Else If (RadioButton1.Checked) Then
If (ComboBox1.Text = "1") Then
anak = 1 * 200000
Else If (ComboBox1.Text = "2") Then
anak = 2 * 200000
Else If (ComboBox1.Text = "3") Then
anak = 3 * 200000
Else If (ComboBox1.Text = "0") Then
anak = 0
Else
anak = 600000
End If
gaji = gaji + 300000
Else
MessageBox.Show("Anda belum memilih status perkawinan")
End If
TextBox2.Text = gaji + anak
If (gaji > 0 And (RadioButton1.Checked Or RadioButton2.Checked)) Then
End If
End Sub
End Class
Sabtu, 03 Maret 2012
Membuat Form "Deret Aritmatika" pada Visual Studio 2008
Langkah-langkah membuat perhitungan fungsi deret aritmatika dengan menggunakan Visual Studio 2008:
1. Buka aplikasi Microsoft Visual Studio 2008.
2. Click "Create Project" lalu pilih "Windows Form Application"
3. Setelah itu akan muncul Blank Form seperti berikut:
4. Setelah Blank Form muncul maka kita sudah dapat mengerjakan project. Saat ini saya akan membuat perhitungan fungsi aritmatika "Deret Aritmatika". Untuk mencari Jumlah Deret Aritmatika kita membutuhkan "a" sebagai suku pertama, "b" sebagai beda suku, "n" sebagai banyaknya suku, dan "Sn" sebagai Jumlah suku pertama Deret Aritmatika. Maka saya membuat 4 buah TextBox dan 3 buah Button untuk membuat Button Mulai, Hitung dan Selesai. Dengan cara men-drag TextBox dan Button dari ToolBox. Dan men-drag Label untuk memberi keterangan isi dari tiap TextBox. Setelah semua sudah di drag, maka akan tampilannya akan berubah seperti ini:
Lalu ubah Text dan Name dari Label, Textbox, dan Button pada bagian Properties.
Setelah Text dan Name diganti, maka tampilan Form akan menjadi seperti ini:
Lalu fungsikan Button Mulai, Hitung dan Selesai dengan cara membuat coding per Button. Klik kiri Button tersebut 2x lalu codingan per Button seperti ini:
6. setelah itu ketik F5 pada keyboard untuk men-debug hasil dari coding tersebut. Masukkan angka percobaan pada Form yang telah di buat. Misalnya a=1, b=2, n=10
setelah klik Hitung akan terlihat hasilnya adalah 100 seperti ini:
dan apabila kita klik Button Mulai, maka data tersebut akan terhapus dengan sendirinya seperti ini:
lalu apa bila Button Selesai di klik, maka akan muncul Message Box seperti ini:
apabila Button No di klik, maka akan kembali ke form. Tapi jika Button Yes di klik, maka form akan tertutup dengan sendirinya.
Sekian penjelasan dari saya apabila ada penjelasan yang salah atau yang lainnya silahkan isi comment.
Terima Kasih :)
Nb: Untuk membuat aplikasi seperti diatas gunakan source code sebagai berikut:
End Sub
End Class
1. Buka aplikasi Microsoft Visual Studio 2008.
2. Click "Create Project" lalu pilih "Windows Form Application"
3. Setelah itu akan muncul Blank Form seperti berikut:
4. Setelah Blank Form muncul maka kita sudah dapat mengerjakan project. Saat ini saya akan membuat perhitungan fungsi aritmatika "Deret Aritmatika". Untuk mencari Jumlah Deret Aritmatika kita membutuhkan "a" sebagai suku pertama, "b" sebagai beda suku, "n" sebagai banyaknya suku, dan "Sn" sebagai Jumlah suku pertama Deret Aritmatika. Maka saya membuat 4 buah TextBox dan 3 buah Button untuk membuat Button Mulai, Hitung dan Selesai. Dengan cara men-drag TextBox dan Button dari ToolBox. Dan men-drag Label untuk memberi keterangan isi dari tiap TextBox. Setelah semua sudah di drag, maka akan tampilannya akan berubah seperti ini:
Lalu ubah Text dan Name dari Label, Textbox, dan Button pada bagian Properties.
Setelah Text dan Name diganti, maka tampilan Form akan menjadi seperti ini:
Lalu fungsikan Button Mulai, Hitung dan Selesai dengan cara membuat coding per Button. Klik kiri Button tersebut 2x lalu codingan per Button seperti ini:
6. setelah itu ketik F5 pada keyboard untuk men-debug hasil dari coding tersebut. Masukkan angka percobaan pada Form yang telah di buat. Misalnya a=1, b=2, n=10
setelah klik Hitung akan terlihat hasilnya adalah 100 seperti ini:
dan apabila kita klik Button Mulai, maka data tersebut akan terhapus dengan sendirinya seperti ini:
lalu apa bila Button Selesai di klik, maka akan muncul Message Box seperti ini:
apabila Button No di klik, maka akan kembali ke form. Tapi jika Button Yes di klik, maka form akan tertutup dengan sendirinya.
Sekian penjelasan dari saya apabila ada penjelasan yang salah atau yang lainnya silahkan isi comment.
Terima Kasih :)
Nb: Untuk membuat aplikasi seperti diatas gunakan source code sebagai berikut:
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Deret Aritmatika
TextSn.Text = Textn.Text / 2 * (2 * Texta.Text + (Textn.Text - 1) * Textb.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Texta.Text = "" 'menghapus suku pertama sebelumnya
Textb.Text = "" 'menghapus beda suku sebelumnya
Textn.Text = "" 'menghapus banyaknya suku sebelumnya
TextSn.Text = "" 'menghpus jumlah deret pertamas sebelumnya
Texta.Focus() 'memindahkan kursor ke TextBox a
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim y As Integer
y = MsgBox("Yakin ingin keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")
If y = vbYes Then
Me.Close()
End IfEnd Sub
End Class
Langganan:
Postingan (Atom)