Jump to content

Pemrograman Visual:Form dan Objek Kontrol 2: Difference between revisions

From Wiki
← Older editNewer edit →
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
(No difference)

Revision as of 10:21, 19 November 2022

Tujuan

  • Memahami dan mengenal Form dan Objek Kontrol;
  • Dapat membuat aplikasi sederhana dengan menggunakan form dan objek control.

Perangkat Lunak (Software)

  • Microsoft Visual Basic 2008

Dasar Teori

Objek Kontrol

MenuStrip adalah merupakan objek control yang berfungsi untuk membuat menu pilihan dropdown.

ContexMenuStrip adalah merupakan objek control yang berfungsi untuk membuat menu pilihan yang akan tampil pada saat tombol kanan mouse di klik.

RichTextBox adalah merupakan objek control yang fungsinya hampir sama seperti textbox hanya saja di objek control ini lebih banyak menampung karakter dan bisa manipulasi karakter seperti menggaris bawahi sdb.

OpenFileDialog dan SaveFileDialog

OpenFileDialog adalah merupakan objek control yang berfungsi untuk membuka kotak dialog Open.

SaveFileDialog berfungsi untuk membuka kotak dialog save yang dimiliki windows.

ToolStrip dan StatusStrip

ToolStrip adalah merupakan objek control yang berfungsi hampir sama dengan tombol pada umumunya hanya saja pada objek control ini setiap tombol memiliki gambar dan digunakan untuk mengakses gambar dengan cepat.

StatusStrip digunakan untuk menampilkan informasi seperti nama aplikasi, jam, tanggal dll. Pada umumnya objek control ini terletak di bagian bawah aplikasi.

Praktikum

ComboBox dan ListBox

  • Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form2
  • Buatlah desain Tampilan form seperti gambar berikut ini:
  • Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Object Properties Nilai
Form2 Name Form2
Text ComboBox dan ListBox
Start Position CenterScreen
Label1 Text Drive
Label2 Text Keterangan
ComboBox1 Name Cmb_Drive
ListBox1 Name LstInfo
  • Klik icon view code pada solution Explorer, di atas Public Class Form2, ketikkan kode program berikut ini :
Imports System.IO
Public Class Form2
  • Klik ganda pada form, kemudian ketikkan kode program berikut ini :
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
End Sub
  • Klik ganda pada ComboBox, Kemudian ketik kode program berikut ini :
Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
        LstInfo.Items.Clear()
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        LstInfo.Items.Add("System :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Sisa : " & sisa)
End Sub
  • Jika kode program digabungkan
Imports System.IO
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub

    Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
        LstInfo.Items.Clear()
        LstInfo.Items.Add("Nama Drive :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.Volume) & "")
        LstInfo.Items.Add("System :" & Dir("" & _
        Cmb_Drive.Text & "", FileAttribute.System) & "")
        Dim dvr As New DriveInfo(Cmb_Drive.Text)
        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"
        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"
        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"
        LstInfo.Items.Add("Kapasitas : " & kapasitas)
        LstInfo.Items.Add("Terpakai : " & Terpakai)
        LstInfo.Items.Add("Sisa : " & sisa)
    End Sub
End Class
  • Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
  • Simpan aplikasi Anda
  • Hasil

Timer dan DateTimePicker

  • Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form3
  • Buatlah desain Tampilan form seperti gambar berikut ini:
  • Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Object Properties Nilai
Form3 Name Form3
Text Timer dan DateTimePicker
Start Position CenterScreen
Label1 name Lbl12jam
Label2 Name Lbl24jam
DateTimePicker1 Name Dtanggal
Timer1 Enable True
Interval 1000
  • Klik ganda pada form, ketikkan kode program berikut ini:
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dtanggal.Format = DateTimePickerFormat.Custom
    Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"
    Dtanggal.Value = Format(Now)
End Sub
  • Klik ganda pada Timer1, ketikkan kode program berikut ini :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Lbl12Jam.Text = Format(Now, "h:mm:ss tt")
      Lbl24Jam.Text = Format(Now, "hh:mm:ss")
End Sub
  • Jika kode program dijadikan satu:
Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dtanggal.Format = DateTimePickerFormat.Custom
        Dtanggal.CustomFormat = "dddd,dd/MM/yyyy"
        Dtanggal.Value = Format(Now)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Lbl12jam.Text = Format(Now, "h:mm:ss tt")
        Lbl24jam.Text = Format(Now, "hh:mm:ss")
    End Sub
End Class
  • Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
  • Simpan aplikasi Anda
  • Hasil
  • Tambahkan Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form4
  • Buatlah desain Tampilan form seperti gambar berikut ini:
  • Tambahkan menuStrip seperti pada form di atas
  • Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
Object Properties Nilai
Form1 Name Form1
Text NotePad
Start Position CenterScreen
MenuStrip1 name MenuStrip1
RichTextBox1 Name RchTeks
ContextMenuStrip ContextMenuStrip1
ContextMenuStrip1 Name ContextMenuStrip1
  • Klik ganda pada menu buka, ketikkan kode program berikut ini:
Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        RchTeks.Text = fileText
End Sub
  • Klik ganda pada menu simpan, ketikkan kode program berikut ini:
Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "",RchTeks.Text, False)
End Sub
  • Klik ganda pada menu Baru, ketikkan kode program berikut ini:
Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
End Sub
  • Klik ganda pada menu ContextMenuStrip dengan menu regular, kemudian ketik kode program berikut ini :
Private Sub RegularToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegularToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Regular)
End Sub
  • Klik ganda pada menu ContextMenuStrip dengan menu Bold, kemudian ketik kode program berikut ini :
Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Bold)
End Sub
  • Jika kode program digabung
Public Class Form1

    Private Sub BukaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaToolStripMenuItem.Click
        Dim kotak_dialog As OpenFileDialog = New OpenFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        Dim fileText As String = My.Computer.FileSystem.ReadAllText(kotak_dialog.FileName)
        RchTeks.Text = fileText
    End Sub

    Private Sub SimpanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanToolStripMenuItem.Click
        Dim kotak_dialog As SaveFileDialog = New SaveFileDialog
        kotak_dialog.Filter = "File Text (*.txt) | *.txt"
        kotak_dialog.ShowDialog()
        My.Computer.FileSystem.WriteAllText("" & kotak_dialog.FileName & "", RchTeks.Text, False)
    End Sub

    Private Sub BaruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BaruToolStripMenuItem.Click
        RchTeks.Text = ""
    End Sub

    Private Sub RegulerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegulerToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Regular)
    End Sub

    Private Sub BoldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoldToolStripMenuItem.Click
        RchTeks.SelectionFont = New Font(RchTeks.SelectionFont, FontStyle.Bold)
    End Sub
End Class
  • Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
  • Simpan aplikasi Anda
  • Hasil
Note:Jika kamu menemukan kesalahan dalam penulisan kode program bisa hubungi saya melalui email yang ada di menu Contac Us
Retrieved from "https://kangtain.com/wiki/index.php?title=Pemrograman_Visual:Form_dan_Objek_Kontrol_2&oldid=6918"