Jumat, 10 Juni 2011

CaRA membuat APlikasi-aplikasi pada VB 2008

LATIHAN 1
Membuat aplikasi seperti RUN.

1.       Buatlah project dengan nama Run, kemudian tambahkan 2 buah Button, 1 Label, dan 1 TextBox.








2.       Atur properties seperti ini :
Nama control
Properties
Nilai
Form1
MaximizeBox
False
StartPosition
CenterScreen
Text
Run
Label1
Text
Ketik nama Aplikasi, File atau Folder yang ingin dibuka :
TextBox1
Name
TxtInputan
Button1
Name
BtnOk
Text
Ok
Button2
Name
BtnCancel
Text
Cancel

3.       Klik ganda pada Tombol Ok, lalu ketikkan kode program ini :
Public Class Form1
    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        Dim Run As New System.Diagnostics.Process
        Run.StartInfo.FileName = "" + _
        TxtInputan.Text + ".exe"
        Run.Start()
    End Sub
4.       Klik ganda pada Cancel, lalu ketikkan program seperti ini :
Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        End
    End Sub
End Class

5.       Kemudian jalankan.
                                                                                     













LATIHAN 2

Membuat aplikasi yang dapat mengatur tampilan aplikasi font pada kolom teks menggunakan CheckBox dan RadioButoon.

Langkah-langkahnya yaitu :

  1. Buat projek baru dengan nama CheckBox dan RadioButton, lalu tambahkan 1 buah Label, 2 buah GroupBox, 2 buah CheckBox, dan 4 buah RadioButton.
  2. Atur properties objek control tersebut.

Nama Kontrol
Properties
Nilai
Form1
MaximizeBox
False
StartPosition
CenterScreen
Text
Font
Label1
Name
LblFont
AutoSize
False
BorderStyle
Fixed3D
Font
Microsoft Sans Serif, 15.75 pt
Text
CheckBox Dan RadioButton
TetxAlign
MiddleCenter
GroupBox1
Text
Efek
GroupBox2
Text
FontStyle
CheckBox1
Text
StrikeOut
CheckBox2
Text
UnderLine
RadioButton1
Text
Regular
RadioButton2
Font
Microsoft Sans Serif, 8.25pt, Style = Italic
Text
Italic
RadioButton3
Font
Microsoft Sans Serif, 8.25pt, Style = Bold
Text
Bold
RadioButton4
Font
Microsoft Sans Serif, 8.25pt, Style = Bold,Italic
Text
BoldItalic

  1. Klik ganda pada CheckBox1, lalu ketik kode program seperti dibawah ini :
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        LblFont.Font = New Font("Microsoft Sans Serif", _
       LblFont.Font.Size, _
       LblFont.Font.Style Xor FontStyle.Strikeout)
End Sub
  1. Klik ganda pada CheckBox2, lalu ketik kode program sebagai berikut :
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
       LblFont.Font = New Font("Microsoft Sans Serif", _
       LblFont.Font.Size, _
       LblFont.Font.Style Xor FontStyle.Underline)
End Sub
  1. Klik ganda pada RadioButton1, lalu ketikkan kode program seperti ini :
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       LblFont.Font = New Font("Microsoft Sans serif", _
       LblFont.Font.Size, _
       LblFont.Font.Style Xor FontStyle.Regular)
End Sub
  1. Klik ganda pada RadioButton2, lalu ketikkan kode program seperti ini :
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       LblFont.Font = New Font("Microsoft Sans serif", _
       LblFont.Font.Size, _
       LblFont.Font.Style Xor FontStyle.Italic)
End Sub
  1. Klik ganda pada RadioButton3, lalu ketikkan kode program ini :
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        LblFont.Font = New Font("Microsoft Sans serif", _
     LblFont.Font.Size, _
     LblFont.Font.Style Xor FontStyle.Bold)
End Sub
  1. Klik ganda pada RadioButton4, lalu ketikkan kode program ini :
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       LblFont.Font = New Font("Microsoft Sans serif", _
       LblFont.Font.Size, _
       LblFont.Font.Style Xor FontStyle.Bold Xor FontStyle.Italic)
End Sub
  1. Jalankan aplikasi.













                                           









LATIHAN 3
Membuat aplikasi Pemutar File Multimedia.

1.       Buat project dengan nama Multimedia, lalu tambahkan 1 buah ToolStrip, 1 buah StatusStrip dan 1 buah Timer.
 










2.       Selanjutnya tambahkan label keterangan pada objek control StatusStrip, dengan cara klik objek control StatusStrip1 lalu klik tanda panah ke bawah pilih objek dengan nama StatusLabel tambahkan sebanyak 3 buah.





  1. Kemudian untuk ToolStrip, klik object control ToolStrip1 lalu klik tanda panah ke bawah pilih objek Button.






  1. Untuk memberi gambar pada tombol, klik kanan pada tombol lalu klik Set Image pada dialog Select Resource pilih opsi Project Resource File lalu klik tombol Import.






  1. Untuk menggunakan objek control WindowsMediaPlayers, klik kanan pada jendela ToolBox lalu pilih Choose Item.








  1. Pada kotak dialog Choose Items, klik Tab COM Components, lalu beri tanda cek pada Windows Media Player.








  1. Pada jendela ToolBox akan bertambah objek control dengan nama Windows Media Players.





  1. Letakkan objek control Windows Media Players ke lembar Form1.













  1. Atur properties seperti ini :
Nama control
Properties
Nilai
Form1
MaximizeBox
False
StartPosition
CenterScreen
Text
Multimedia
ToolStripButton1
Name
BtnForm
ToolStripStatusLabel1
Name
TssNama
AutoSize
False
ToolStripStatusLabel2
Name
TssTanggal
AutoSize
False
ToolStripStatusLabel3
Name
TssJam

AutoSize
False
Timer1
Enable
True

  1. Klik ganda pada lembar Form1, lalu ketikkan program seperti ini :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TssNama.Text = "Aplikasi Multimedia"
        TssTanggal.Text = Format(Now, "dd-mm-yyyy")
    End Sub
  1. Klik ganda pada objek control AxWindowsMediaPlayer1, lalu pilih Event Rezise, dan ketikkan kode program ini :


Private Sub AxWindowsMediaPlayer1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Resize
        Me.Width = Me.AxWindowsMediaPlayer1.Width
        Me.Height = Me.AxWindowsMediaPlayer1.Height + 25
    End Sub

  1. Klik ganda pada timer1 lalu ketikkan kode program ini :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TssJam.Text = Format(Now, "hh:mm:ss:tt")
    End Sub

  1. Klik ganda pada tombol Button dari objek control ToolStrip1, lalu ketikkan kode program ini :
Private Sub BtnForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnForm.Click
        Dim kotak_dialog As New OpenFileDialog
        kotak_dialog.Filter = _
         "MP3|*.mp3|Wav|*.wav|Dat|*.Dat|Wmp| *.wmp"
        kotak_dialog.ShowDialog()
        AxWindowsMediaPlayer1.URL = kotak_dialog.FileName
    End Sub
End Class
  1. Kemudian jalankan.






Latihan 4

Membuat aplikasi dengan menggunakan pengujian dari Operator.
1.       Buat project dengan nama Operator, lalu letakkan 4 buah Label, 3 buah TextBox, 1 buah Combobox, dan 1 buah Button.











2.       Atur properties objek control seperti ini :
Nama Kontrol
Properties
Nilai
Form1
MaximizeBox
False
StartPosition
CenterScreen
Text
Latihan 6.1
Label1
Text
Nilai1
Label2
Text
Nilai2
Label3
Text
Operator
Label4
Text
Hasil
Textbox1
Name
TxtNilai1
Textbox2
Name
TxtNilai2
Textbox3
Name
TxtHasil
ComboBox1
Name
CmbOperator
Button1
Name
BtnProses
Text
Proses

3.       Klik ganda pada Form1, lalu ketikkan kode program seperti ini :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CmbOperator.Items.Add("+")
        CmbOperator.Items.Add("-")
        CmbOperator.Items.Add("/")
        CmbOperator.Items.Add("x")
        CmbOperator.Items.Add("<>")
        CmbOperator.Items.Add("<")
        CmbOperator.Items.Add(">")
        CmbOperator.Items.Add(">=")
        CmbOperator.Items.Add("<=")
        CmbOperator.Items.Add("Like")
        CmbOperator.Items.Add("Not")
        CmbOperator.Items.Add("And")
        CmbOperator.Items.Add("Or")
        CmbOperator.Items.Add("Xor")
        CmbOperator.Items.Add("+ (Penggabungan)")
        CmbOperator.Items.Add("&")
    End Sub



4.       Klik ganda tombol Proses, lalu ketikkan kode program ini :
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Select Case CmbOperator.Text
            Case "+"
                TxtHasil.Text = Val(TxtNilai1.Text) + _
                (TxtNilai2.Text)
            Case "-"
                TxtHasil.Text = TxtNilai1.Text - TxtNilai2.Text
            Case "/"
                TxtHasil.Text = TxtNilai1.Text / TxtNilai2.Text
            Case "x"
                TxtHasil.Text = TxtNilai1.Text * TxtNilai2.Text
            Case "<>"
                TxtHasil.Text = TxtNilai1.Text <> TxtNilai2.Text
            Case "<"
                TxtHasil.Text = TxtNilai1.Text < TxtNilai2.Text
            Case ">"
                TxtHasil.Text = TxtNilai1.Text > TxtNilai2.Text
            Case "<="
                TxtHasil.Text = TxtNilai1.Text <= TxtNilai2.Text
            Case ">="
                TxtHasil.Text = TxtNilai1.Text >= TxtNilai2.Text
            Case "Like"
                TxtHasil.Text = TxtNilai1.Text Like TxtNilai2.Text
            Case "Not"
                TxtHasil.Text = Not TxtNilai1.Text = TxtNilai2.Text
            Case "And"
                TxtHasil.Text = TxtNilai1.Text = "Maxikom" _
                And TxtNilai2.Text = "Maxikom"
            Case "Or"
                TxtHasil.Text = TxtNilai1.Text = "Maxikom" _
                And TxtNilai2.Text = "Maxikom" Or _
                TxtNilai2.Text = "Maxikom"
            Case "Xor"
                TxtHasil.Text = TxtNilai1.Text = "Maxikom" _
                And TxtNilai2.Text = "Maxikom" Xor _
                TxtNilai2.Text = "Maxikom"
            Case "+ (Penggabungan)"
                TxtHasil.Text = TxtNilai1.Text + TxtNilai2.Text
            Case "&"
                TxtHasil.Text = TxtNilai1.Text & TxtNilai2.Text
        End Select
    End Sub
End Class

5.       Jalankan dan simpan aplikasi anda.


Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)