5. Buat Windows Media Player dengan VB Net 2010

1.    Buka VB 2010 kemudian beri nama Media Player
2.    Masukkan kontrol Media Player dengan cara , Klik kanan di Components ----- > Choose Item.

Akan Muncul sebuah kotak dialog, COM Components -------> dan Beri tanda centang di Windows Media Player , Klik OK

3.    Akan muncul sebuah kontrol Windows Media Player di ToolBox. Masukkan Kontrol Media Player tersebut ke dalam Form dan atur seperti di bawah ini :

4.    Masukkan lagi 1 buah kontrol  Open FileDialog

5.    Atur Propertiesnya sebagai berikut :
       •    Windows Media Player
            Name    =    mp
       •   OpenFileDialog
           Name    =    ms

6.    Masukkan lagi 1 buah Tombol dan atur posisinya seperti ini:

7.    Dobel klik di tombol Open yang baru kita masukkan dan ketik kode di bawah ini:

Public Class Form1

    Dim S As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ms.ShowDialog()

        S = ms.FileName

        wm.URL = S

    End Sub

End Class

8.    Nah sampai di sini selesai deh…. Silahkan mencoba file-file video koleksi anda. Oh iya player yang dibuat ini dapat memutar file yang sama dengan media player aslinya ^_^

4. Kalkulator sederhana (Part 2)

1. Nah untuk kalkulator Sederhana2 ini adalah pengembangan dari KalkulatorSederhana1 sehingga yang pertama anda lakukan adalah buka kembali Project KalkulatorSederhana1.

2. Perbesar ukuran Form-nya dan tambahkan sebuah GroupBox dan 5 buah RadioButton. Atur posisinya seperti di bawah ini :

3. Atur Properties nya seperti ini:

• GroupBox
Text = Pilih Operator

• RadioButton1
Name = RadioButtonTambah
Text = Tambah

• RadioButton2
Name = RadioButtonKurang
Text = Kurang

• RadioButton2
Name = RadioButtonKali
Text = Kali

• RadioButton2
Name = RadioButtonBagi
Text = Bagi

• RadioButton2
Name = RadioButtonPangkat
Text = Pangkat

4. Berikut ini tampilannya :

 5.       Dobel Klik di Tambah, Kurang, Kali, Bagi, Pangkat dan masukkan kode seperti ini:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTambah.CheckedChanged Label3.Text = "^"


Label3.Text = "+"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonTambah.Checked = True Then
Jawaban = NilaiPertama + NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub



Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonKurang.CheckedChanged

Label3.Text = "-"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonKurang.Checked = True Then
Jawaban = NilaiPertama - NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub



Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonKali.CheckedChanged

Label3.Text = "x"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonKali.Checked = True Then
Jawaban = NilaiPertama * NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonBagi.CheckedChanged

Label3.Text = "/"
NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonBagi.Checked = True Then
Jawaban = NilaiPertama / NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonPangkat.CheckedChanged



NilaiPertama = Val(TextBoxNilaiPertama.Text)
NilaiKedua = Val(TextBoxNilaiKedua.Text)
If RadioButtonPangkat.Checked = True Then
Jawaban = NilaiPertama ^ NilaiKedua
LabelJawaban.Text = Str(Jawaban)
End If
End Sub

6. Nah selesai sudah kodenya.

7. Sekarang dapat anda coba programnya. Silahkan masukkan angka di Nilai Pertama & Nilai Kedua setelah itu anda hanya perlu klik di pilihan operatornya untuk memulai proses perhitungan secara otomatis.