Sabtu, 31 Maret 2012

Membuat Aplikasi Sederhana untuk mencari hasil Berat Badan Relatif

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 :)

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

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 MulaiHitung 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 If
    End Sub
End Class