Timer, File Browser, Radio Button

Design Awal FORM-1 "Main Form"

Coding Timer Tick
LBL_Waktu.Text = TimeValue(Now())
        LBL_Tanggal.Text = DateValue(Now())
'waktu & tanggal berjalan otomatis

Coding Events button1 Click "Contoh"
form2.StartPosition = FormStartPosition.CenterScreen
form2.show ()
' menampilkan form-2

Coding Events Mouse Leave "Contoh/button1"
BackColor = Color.BlueViolet
' biar berubah warna

Coding Events Mouse Move "Contoh/button1"
BackColor = Color.Crimson
' biar warna background form berubah


Coding Events button2 Click "Latihan"
form3.StartPosition = FormStartPosition.CenterScreen
form3.show ()
' menampilkan form-3

-----------------------------------------
Design Awal FORM-2

Coding Button-1 "Ganti Gambar"

'PictureBox1.Image = System.Drawing.Image.FromFile("E:\BEBEK 2.jpg")
        PictureBox1.Image = Image.FromFile(Application.StartupPath.ToString & "\BEBEK 2.jpg")

Coding Button-2 "Cari Gambar"

OpenFileDialog1.Title = "Buka File Gambar di PictureBox"
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Filter = "JPEG File|*.Jpg|Bitmap File|*.bmp|Icon File|*.ico"
        OpenFileDialog1.FilterIndex = 1

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
            PictureBox1.Image = System.Drawing.Image.FromFile(TextBox1.Text)
        Else
            TextBox1.Text = ""
            PictureBox1.Image = Nothing
        End If

F5 Preview

-----------------------------------------
Design Awal FORM-3

Coding FORM-3

        TXT_HARGA.Text = ""
        TXT_SPESIFIKASI.Text = ""
        PictureBox1.Image = Nothing

Coding Radio Button-1 Xperia Ray

TXT_HARGA.Text = "Rp.2,550,000,-"
        TXT_SPESIFIKASI.Text = "Memory Internal 300 MB, External 4 GB Max 32 GB, Kamera 8,1 MP, GPS, Android OS, v2.3 (Gingerbread)"
        PictureBox1.Image = Image.FromFile(Application.StartupPath.ToString & "\RAY.jpg")


Coding Radio Button-1 Xperia Active

TXT_HARGA.Text = "Rp.2,575,000,-"
        TXT_SPESIFIKASI.Text = "Memory Internal 320 MB, External 4 GB Max 32 GB, Kamera 5 MP, GPS, Android OS, v2.3 (Gingerbread)"
        PictureBox1.Image = Image.FromFile(Application.StartupPath.ToString & "\ACTIVE.jpg")


Coding Radio Button-1 Xperia Neo V

TXT_HARGA.Text = "Rp.2,675,000,-"
        TXT_SPESIFIKASI.Text = "Water Proof, Memory Internal 320 MB, External 4 GB Max 32 GB, Kamera 5 MP, GPS, Android OS, v2.3 (Gingerbread)"
        PictureBox1.Image = Image.FromFile(Application.StartupPath.ToString & "\NEO.jpg")





F5 Preview

SEMOGA BERMANFAAT

---