Latihan Modul 2

Latihan 2

1.       Tambahkankontrolke form sepertipadagambardiatasdanaturpropertinyasepertitabelberikut:

Object	Properties	Nilai
Form1	Name Text	Form1 PenangananKesalahan
TexBox1	Name	TxtAngka
Button1	Name Text	BtnProses Proses

2.       Double klik pada tombol BtnProses, kemudian ketik kode Program berikut ini :

Try

Dim X AsInteger

            X = TxtAngka.Text

Do

                X = X Mod 2

If X = 0 Then

                    MessageBox.Show("Bilangan Genap", "Informasi")

ExitDo

ElseIf X = 1 Then

                    MessageBox.Show("Bilangan Ganjil", "Informasi")

ExitDo

EndIf

LoopWhileNot X

Catch ex As Exception

            MsgBox("Salah menginput data / input angka")

Finally

            TxtAngka.Text=””

            TxtAngka.Focus()

EndTry

3.       Jalankan aplikasi dengan menekan tombolF5 (di keyboard), atau melalui icon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.

4.       Simpan aplikasi Anda