historipemrograman

                                                                        MEMBUAT MP3 DI VBNET2010 silahhkan anda klik kanan pada toolbox lalu klik choose items kemudian clik com components ceklis windowes  media player lalu klik oke dan letakakan di dalam form dan menambahkan 1 OpenFileDialog dan 1 button Public Class FormMp3     Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click         OpenFileDialog1.ShowDialog()         AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName     End Sub     Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMedi...

                            MEMBUAT APLIKASI PENGOLAH GAMBAR DI VBNET 2010 1 PICTUREBOX,4 button,1 OpenFileDialog=OFD, 1 savefiledialog=SFG Public Class FormGambar     Dim gambar As Bitmap     Private Sub btnlodgambar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlodgambar.Click         OFD.Filter = "JPG Files|*.jpg|BMP Files|*.bmp|JPEG Files|*.jpeg|PNG Files|*png"         OFD.ShowDialog()         If OFD.FileName = "" Then Exit Sub         PictureBox1.Image = Image.FromFile(OFD.FileName)         gambar = New Bitmap(PictureBox1.Image)     End Sub     Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click ...

                                                     MEMBUAT DATA GAJIAN DI VB NET 2010   6 lable,1 combobox,4 textbox, 3 buton, 2 radiobutton Public Class Form_Gaji     Private Sub Form_Gaji_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.ComboBox1.Items.Add("Direksi")         Me.ComboBox1.Items.Add("Kepala Bagian")         Me.ComboBox1.Items.Add("Staff")     End Sub     Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged         D...

                                                 MEMBUAT LOGIN DENGAN VB NET 2010   DENGAN SCRIPT NYA SEPERTI DI BAWAH INI   3 LABEL,2 BUTTON,2 TEXT BOX txtuser,txtpass,btnlogin,btnkeluar Public Class FormLogin     Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         txtuser.Focus()         txtpass.UseSystemPasswordChar = True     End Sub     Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click         If txtuser.Text = "" And txtpass.Text = "" Then        ...