Aplikasi Barisan Deret Menggunakan Visual Basic

Membuat Aplikasi Barisan Deret Menggunakan Visual Basic

1. Buatlah User Interface seperti berikut

Object	Name	Caption / Text
Frame	Frame1	Ketentuan Deret Suku
Label1	Lbl_jumlah_suku	Jumlah Suku
TextBox1	Txt_suku	-
Command Button1	Cmd_maju	Maju
Command Button2	Cmd_mundur	Mundur
Command Button3	Cmd_clear	Clear
Command Button4	Cmd_Exit	Exit

2. Meletakkan Interface seluruhnya di sebelah kanan form, karena di sebelah kiri form untuk melihat output yang akan di tampilkan
3. Buka jendela kode (code editor) pada Txt_suku, dengan cara klik 2X Txt_suku, lalu masukan code atau script seperti di bawah ini.

Private Sub Txt_suku_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then

KeyAscii = 0

End If

End Sub

Keterangan :  

• Txt_suku_KeyPress(KeyAscii As Integer) => Txt_suku hanya akan bisa menginput keyascii yang telah di tetapkan
• If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then

KeyAscii = 0

• Jika bukan KeyAscii dari ( KeyAscii lebih dari 0 (nol) Dan KeyAscii Kurang dari 9 (sembilan) atau Keyback = Tombol Backspace atau KeyDelete = Tombol Delete) maka KeyAscii sama dengan Kosong
• Yang berfungsi pada Key Ascii di sini hanya tombol angka dari 0(nol) hingga 9(sembilan), tombol Backspace, dan tombol Delete, selain itu maka tidak bisa di input.

4. Buka jendela kode (code editor) pada Cmd_maju, dengan cara klik 2X Cmd_maju, lalu masukan code atau script seperti di bawah ini.

Keterangan :

• Cls => setiap mengklik command button maju akan menghapus Form terlebih dahulu, setelah itu baru ke proses
• Dim a As Integer => Variabel a sebagai Integer (angka)
• If Txt_suku = "" Then

MsgBox "Jumlah suku Belum Di Isi!", vbOKOnly, "Peringatan"

Txt_suku.SetFocus

Else

• Jika Txt_suku = ""(Kosong/Tidak di input) maka
• Akan tampil message box (kotak pesan) “Jumlah suku Belum Di Isi”, vbOKOnly artinya hanya ada tombol OK pada message box itu
• "Peringatan" adalah Header dari Message Box
• Txt_suku.SetFocus artinya setelah di Klik OK pada Message box maka kursor akan focus atau berada di Txt_suku
• Else untuk melanjutkan ke perintah berikutnya

• a = Txt_suku.Text

For b = 1 To a

For c = 1 To b

Print c ^ 2;

Next c

Print

Next b

Print

End If

• a adalah variabel angka yang akan di input pada Text Box Txt_suku
• For b = 1 To a artinya variabel b = 1 ke variabel a
• For c = 1 To b artinya variabel c = 1 ke variabel b
• Print c^2 artinya akan menampilkan hasil dari C pangkat 2 (kuadrat)
• Next c artinya ulangi ke perintah c
• Print artinya tampilkan hasilnya
• Next b akan berganti ke angka selanjutnya dan berulang sampai dengan nilai sama dengan a
• Print => tampilkan hasilnya
• End If untuk menutup If pada kondisi Message box
• Kondisi ini akan terus berulang (looping) hingga c sama dengan angka suku yang di input.

5. Buka jendela kode (code editor) pada Cmd_mundur, dengan cara klik 2X Cmd_mundur, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Cls fungsinya sama dengan di Command Button maju, untuk menghapus form sebelum di lanjutkan ke proses berikutnya.
• Dim a As Integer => Variabel a sebagai Integer (angka)

If Txt_suku = "" Then

MsgBox "Jumlah suku Belum Di Isi!", vbOKOnly, "Peringatan"

Txt_suku.SetFocus

Else

• Fungsinya sama dengan yang ada di Command Button maju, yaitu menampilkan kotak pesan jika Text Box Txt_suku kosong, atau belum di isi

• a = Txt_suku.Text

• variabel a adalah angka yg di input pada Txt_suku

• For b = 1 To a

• Untuk variabel b = 1 ke variabel a (angka yang di input)

• For c = a To b Step -1

• Untuk variabel c = variabel a ke variabel b dan stepnya -1, setiap ke kondisi selanjutnya akan di kurang 1

• angka = c ^ 2

• variabel angka = c pangkat 2 (kuadrat)

• d = d + angka

• Variabel d = d + variabel angka (c^2)

• If c = b Then

• Jika c = b maka

• Print angka; " = "; d

• Tampilkan variabel angka = variabel d

• Else: Print angka; " + ";

• Tampilkan angka +

• End If

• Untuk menutup if

• Next c

• Lanjutkan ke kondisi c

• d = 0

• variabel d = 0

• Next b

• Lanjutkan ke kondisi b

• End If

• Untuk menutup if

Kondisi ini akan terus berulang hingga seluruh kondisinya terpenuhi

6. Buka jendela kode (code editor) pada Cmd_clear, dengan cara klik 2X Cmd_clear, lalu masukkan code atau script seperti di bawah ini.

Keterangan :

• Form 1.Cls

• Digunakan untuk menghapus form1, form1 adalah tempat output atau menampilkan hasil dari input dan perintahnya(maju/mundur).

• Txt_suku.Text = Clear

• Menghapus isi dari Text Box Txt_suku

7. Buka jendela kode (code editor) pada Cmd_exit, dengan cara klik 2X Cmd_exit, lalu masukkan code atau script seperti di bawah ini.

• End untuk mengakhiri program atau untuk menutup/keluar dari program

8. Berikut ini tampilan jika kita input angka 8 dan meng-Klik tombol/Command button Maju

9. Berikut ini tampilan jika kita input angka 4 dan meng-Klik tombol/Command button Mundur

10. Berikut ini tampilan jika tidak mengisi jumlah suku, lalu di klik tombol/Command Button Maju atau Mundur