Wiki

Pemrograman Visual:Exception Handling: Difference between revisions

Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,154 edits
VisualWikitext
Created page with "Perintah penanganan kesalahan atau yang lebih dikenal dengan sebutan Exception Handling. Perintah ini digunakan untuk menangani kesalahan dalam menjalankan aplikasi, dengan adanya perintah ini setiap kesahan akan diatasi secara otamatis sesuai dengan perintah penanganan kesalahan yang telah dibuat, sehingga tidak terjadi kemacetan aplikasi yang sedang berjalan. == Struktur Exception Handling == Struktur Exception Handling atau penanganan kesalahan pada visual basic 2008..."
 
 
(One intermediate revision by the same user not shown)
Line 92: Line 92:


* Buat project baru, dengan nama Prak12.
* Buat project baru, dengan nama Prak12.
* Desain Tampilan form seperti gambar berikut ini :
* Desain Tampilan form seperti gambar berikut ini:
[[File:Pemrograman Visual Exception Handling 48598103.png|center|thumb|279x279px]]
* Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
* Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
{| class="wikitable"
|+
!Object
!Properties
!Nilai
|-
| rowspan="2" |Form1
|Name
|Form1
|-
|Text
|Aplikasi buka gambar
|-
|OpenFileDialog1
|Text
|ofdBuka
|-
|PictureBox1
|Name
|PcbGambar
|-
| rowspan="2" |Button1
|Name
|BtnBuka
|-
|Text
|Buka
|-
| rowspan="2" |Button2
|Name
|BtnExit
|-
|Text
|Exit
|}
* Klik ganda pada Tombol Buka, kemudian ketik kode program berikut ini :
<syntaxhighlight lang="vbscript" line="1">
If OfdBuka.ShowDialog() = Windows.Forms.DialogResult.OK Then
    Try
        PcbGambar.Image = Image.FromFile(OfdBuka.FileName)
        Me.Text = "Membuka File " + OfdBuka.FileName
    Catch ex As Exception
        MessageBox.Show("File Gagal dibuka", "Error", MessageBoxButtons.OK,
        MessageBoxIcon.Error)
    End Try
End If
</syntaxhighlight>
* Klik ganda pada tombol BtnExit, Kemudian ketikkan kode program berikut ini:
<syntaxhighlight lang="vbscript" line="1">
Dim Tutup As String
Tutup = MessageBox.Show("Yakin tutup form ini ?", "Konfirmasi",
MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Tutup = MsgBoxResult.Yes Then
    End
Else
    Exit Sub
End If
</syntaxhighlight>
* Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
* Simpan aplikasi Anda.
=== Latihan 2 ===
* Tambahkan Form baru, dengan nama Form2.
* Desain Tampilan form seperti gambar berikut ini:
[[File:Pemrograman Visual Exception Handling 8678594.png|center|thumb|251x251px]]
* Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
{| class="wikitable"
|+
!Object
!Properties
!Nilai
|-
| rowspan="2" |Form1
|Name
|Form1
|-
|Text
|Penanganan Kesalahan
|-
|TexBox1
|Name
|TxtAngka
|-
| rowspan="2" |Button1
|Name
|BtnProses
|-
|Text
|Proses
|}
* Double klik pada tombol BtnProses, kemudian ketik kode Program berikut ini:
<syntaxhighlight lang="vbscript" line="1">
Try
    Dim X As Integer
    X = TxtAngka.Text
    Do
        X = X Mod 2
        If X = 0 Then
            MessageBox.Show("Bilangan Genap", "Informasi")
            Exit Do
        ElseIf X = 1 Then
            MessageBox.Show("Bilangan Ganjil", "Informasi")
            Exit Do
        End If
    Loop While Not X
Catch ex As Exception
    MsgBox("Salah menginput data / input angka")
Finally
    TxtAngka.Text=””
    TxtAngka.Focus()
End Try
</syntaxhighlight>
* Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
* Simpan aplikasi Anda
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Exception_Handling"