project IMK (Interaksi Manusia Komputer)

Rancangan dan pembuatan Form Mencari a:

Pada form ini, pengguna aplikasi mengisi data berupa bilangan bulat (tipe data yang digunakan adalah integer) pada textbox yang tersedia.

Dim a, b, n, Un As Integer

Data yang diisi di textbox akan muncul secara otomatis di kolom perhitungan.

Private Sub txt_b_dh_TextChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles txt_b_dh.TextChanged
lbl_b_dh.Text = txt_b_dh.Text
End Sub

Pengguna aplikasi dapat mengubah isi dari textbox. Ada 2 cara untuk mengubah nilai dari textbox, yaitu dengan menekan tombol button2 (Hapus) dan dengan menekan tombol keyboard yang berfungsi untuk menghapus (backspace dan delete) dimana penggunaannya disesuaikan dengan posisi pointer. Tetapi pengguna aplikasi tidak dapat menghapus isi dari textbox dengan menggunakan tombol keyboard jika telah menekan button1 (hasil) karena readonly pada textbox akan aktif setelahnya, atau dengan kata lain pengguna aplikasi hanya dapat menghapus isi dari textbox dengan meng-klik button2 (hapus). Setelah mengisi data di textbox yang disediakan, klik tombol button1 (Hasil) untuk melihat hasil perhitungan pada label hasil (label7) .

b = Val(txt_b_dh.Text) 'untuk mengubah teks di textbox
menjadi bilangan agar dapat dilakukan perhitungan matematika
a = Un - ((n - 1) * b)

Jika data yang diisikan tidak sesuai dengan tipe data yang telah ditentukan oleh pembuat aplikasi, maka akan muncul pesan "periksa inputan data anda kembali !!, input data dengan benar!".

Try
‘Baris program
Catch ex As Exception
MsgBox("periksa inputan data anda kembali !!, input
data dengan benar!")
End Try

Tombol button1 (Hasil) tidak hanya menampilkan hasil perhitungan, tetapi juga mengaktifkan readonly pada textbox.

txt_b_dh.ReadOnly = True
txt_n_dh.ReadOnly = True
txt_un_dh.ReadOnly = True

Tombol button2 (Hapus) disediakan oleh pembuat aplikasi untuk menghapus isi dari textbox, menonaktifkan readonly, me-reset kolom perhitungan ke tampilan awal berupa tampilan rumus mencari a, me-reset label hasil ke tampilan awal yaitu 00000 dan meletakkan posisi pointer di textbox1.

txt_b_dh.Text = ""
lbl_a_dh.Text = "00000"
lbl_un_dh.Text = "Un"
txt_un_dh.ReadOnly = False
txt_b_dh.Focus()

Untuk kembali ke halaman utama, pengguna aplikasi dapat meng-klik pilihan yang ada di pojok kanan bawah form. Desain form dapat dilihat pada gambar di bawah ini:

Keterangan gambar :

• Nama_Form merupakan judul dari form. Judul form tersebut tidak bisa diubah oleh pengguna aplikasi. Judul form pada halaman ini adalah Mencari a.
• Halaman Utama merupakan menu untuk kembali ke halaman awal atau halaman utama.
• Label1 berisikan rumus perhitungan deret hitung untuk mencari a atau suku pertama beserta keterangan nama-nama yang ada di dalam rumus tersebut. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi.
• Label2 berisikan teks “b” yang merupakan variabel b atau beda untuk menandakan bahwa pengguna aplikasi dapat mengisi nilai b ke dalam textbox1 yang ada di sebelah kanan label ini. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi.
• Label3 berisikan teks “n” yang merupakan variabel n atau banyaknya suku untuk menandakan bahwa pengguna aplikasi dapat mengisi nilai n ke dalam textbox2 yang ada di sebelah kanan label ini. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi. Label4 berisikan teks “Un” yang merupakan variabel Un atau suku ke-n untuk menandakan bahwa pengguna aplikasi dapat mengisi nilai Un ke dalam textbox3 yang ada di sebelah kanan label ini. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi.
• Label5 berisikan teks “a=”, menandakan bahwa label yang berada di sebelah kanan label ini merupakan jalan perhitungan untuk mendapatkan hasil atau keluaran. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi.
• Label6 berisikan teks “a=”, menandakan bahwa label yang berada di sebelah kanan label ini merupakan hasil dari perhitungan. Isi dari label ini tidak dapat diubah oleh pengguna aplikasi.
• Label7 berisikan hasil perhitungan. Isi dari label ini dapat berubah-rubah sesuai dengan data atau angka yang dimasukkan oleh pengguna aplikasi ke dalam textbox yang telah disediakan.
• Perhitungan berisikan jalan perhitungan untuk mendapatkan hasil perhitungan. Isi dari label ini dapat berubah-rubah sesuai dengan nilai yang dimasukkan oleh pengguna apliaksi ke textbox yang tersedia
• TextBox1, merupakan tempat bagi pengguna aplikasi untuk memasukkan nilai dari b atau beda. TextBox2 merupakan tempat bagi pengguna aplikasi untuk memasukkan nilai dari n atau banyaknya suku.
• TextBox3 merupakan tempat bagi pengguna aplikasi untuk memasukkan nilai dari Un atau suku ke-n.

• Button1 merupakan tombol hasil.

• Button2 merupakan tombol hapus.

III. Implementasi Pada Emulator
Form Halaman Awal

Form Halaman Mencari a

dan masih banyak form yang lain. disambung di lain waktu..
project ini juga pernah gw ikut lombakan.. hmm,,mungkin dilihat dari segi manfaatnya, alhamdulillah meraih juara 2 .. ^_^ proud of me.. http://ugnews.gunadarma.ac.id/wp-content/uploads/2010/08/inspirasi-155.jpg