Konsep
Program Aplikasi Function
Function
dalam visual basic sama seperti prosedur, yang digunakan untuk melakukan
tugas-tugas berulang yang digunakan bersama. Bedanya dengan prosedur adalah
mengembalikan nilai atau mempunyai fungsi bawaan yang nilainya akan
dikembalikan pada blok perintah yang memanggil prosedur function, namun dari fungsi-fungsi itu ada yang diperlukan oleh
program ada yang tidak. Jika tidak diperlukan oleh program maka harus
menciptakan fungsi sendiri yang dikenal dengan function.
Program
aplikasi yang kelompok kami buat yaitu mengenai perhitungan bidang datar
seperti persegi, persegi panjang, lingkaran, trapesium, layang-layang,
jajarangenjang, segitiga, dan belahketupat.
Penulisan
listing ini menggunakan function, kenapa? Karena pada aplikasi ini memiliki
tipe data seperti suatu variable, yang menentukan nilai dikembalikan. Pada
listing terdapat AS, as berfungsi sebagai menentukan tipe nilai yang akan
dikembalikan bila tugasnya telah selesai. Pemanggilan nilainya dapat
menggunakan sub maupun call. Walaupun terdapat perbedaan antara sub prosedur
dengan function prosedur.
Ciri-cirinya adalah memiliki data berbentuk seperti variable, dan menuliskan
simbol operator sama dengan (=).
Tujuan
dari pembuatan aplikasi ini adalah dapat memahami fuction dalam penggunaan visual basic, menerapkan function, dan mampu menulis function
pada listing program visual basic serta mampu membuat aplikasi yang berhubungan
dengan function. Sebenarnya program
yang kami buat ini tentang perhitungan bidang datar seperti luas dan keliling.
Agar pengguna aplikasi ini dapat dengan mudahnya menghitung bangun datar.
Semoga bermanfaat aplikasi ini. Terima kasih, selamat menikmati dan mencobanya.
Berikut merupakan tutorial pembuatan listing pada visual basic.
Tutorial Penggunaan Program
Aplikasi Perhitungan Bangun Datar dengan Function
Berikut merupakan langkah-langkah
dalam penggunaan program aplikasi ini:
1. Buka
program aplikasi
2. Pilih
bangun datar yang diinginkan. Terdapat delapan dimensi bangun datar yaitu persegi,
persegi panjang, segitiga, lingkaran, trapesium, jajarangenjang, layang-layang,
dan belahketupat. Pilih salah satu.
3. Kemudian
masukan angka pada sisi-sisi yang terdapat pada textbox.
4. Setelah
semua sisi dimasukan angkanya, maka tekan hitung.
5. Setelah
hasilnya muncul, kita dapat melakukan perhitungan pada bangun datar lainnya
dengan langkah yang sama seperti di atas dengan menekan tombol clear.
6. Jika
ingin mengakhiri penggunaan aplikasi ini maka tekan tombol keluar.
Selamat
menikmati aplikasi ini semoga bermanfaat buat teman-teman yah ^,^
TUTORIAL PEMBUATAN FUNCTION
1.
buka form baru lalu buatlah
sesuai tampilan seperti ini dengan memasukkan textbox, label dan button
kik form dua kali lalu masukkan listing
berikut:
Function luas(ByVal panjang, ByVal lebar)
If ComboBox1.Text = "Persegi"
Then luas = TextBox5.Text * 2
If ComboBox1.Text = "Persegi
Panjang" Then luas = TextBox1.Text
* TextBox2.Text
If ComboBox1.Text = "Segitiga"
Then luas = TextBox6.Text * TextBox7.Text / 2
If ComboBox1.Text = "Lingkaran"
Then luas = 1 / 4 * 22 / 7 * TextBox8.Text *
TextBox8.Text
If ComboBox1.Text = "Trapesium"
Then luas = 1 / 2 + (TextBox12.Text +
TextBox13.Text) * TextBox7.Text
If ComboBox1.Text = "Jajaran
Genjang" Then luas = TextBox6.Text
* TextBox7.Text
If
ComboBox1.Text = "Layang-layang" Then luas = 1 / 2 * TextBox9.Text * TextBox10.Text
If ComboBox1.Text = "Belah
Ketupat" Then luas = 1 / 2 *
TextBox9.Text * TextBox10.Text
End
Function
Function
keliling(ByVal panjang, ByVal lebar)
If ComboBox1.Text = "Persegi"
Then keliling = TextBox5.Text * 4
If ComboBox1.Text = "Persegi
Panjang" Then keliling = (2 *
TextBox1.Text + 2 * TextBox2.Text)
If ComboBox1.Text = "Segitiga"
Then keliling = TextBox6.Text + TextBox5.Text +
TextBox11.Text
If ComboBox1.Text = "Lingkaran"
Then keliling = 22 / 7 * TextBox8.Text
If ComboBox1.Text = "Trapesium"
Then keliling = TextBox5.Text + TextBox11.Text
+ TextBox12.Text + TextBox13.Text
If ComboBox1.Text = "Jajaran
Genjang" Then keliling = 2 *
(TextBox6.Text + TextBox5.Text)
If ComboBox1.Text = "Layang-layang"
Then keliling = TextBox5.Text + TextBox11.Text
+ TextBox9.Text + TextBox10.Text
If ComboBox1.Text = "Belah
Ketupat" Then keliling = TextBox5.Text
+ TextBox11.Text + TextBox9.Text + TextBox10.Text
End
Function
2.
pada button 1 (hitung) masukkan listing berikut.
Private Sub
Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If ComboBox1.Text = "Persegi"
Then
TextBox3.Text = luas(TextBox5.Text, TextBox5.Text)
TextBox4.Text = keliling(TextBox1.Text, TextBox2.Text)
ElseIf ComboBox1.Text = "Persegi
Panjang" Then
TextBox3.Text = luas(TextBox1.Text, TextBox2.Text)
TextBox4.Text = keliling(TextBox1.Text, TextBox2.Text)
ElseIf ComboBox1.Text = "Segitiga"
Then
TextBox3.Text = luas(TextBox6.Text, TextBox7.Text)
TextBox4.Text = keliling(TextBox6.Text, TextBox5.Text)
ElseIf ComboBox1.Text = "Lingkaran"
Then
TextBox3.Text = luas(TextBox8.Text, TextBox8.Text)
TextBox4.Text = keliling(TextBox8.Text, TextBox8.Text)
ElseIf ComboBox1.Text = "Trapesium"
Then
TextBox3.Text = luas(TextBox12.Text, TextBox13.Text)
TextBox4.Text = keliling(TextBox5.Text, TextBox11.Text)
ElseIf ComboBox1.Text = "Jajaran
Genjang" Then
TextBox3.Text = luas(TextBox6.Text, TextBox7.Text)
TextBox4.Text = keliling(TextBox6.Text,
TextBox5.Text)
ElseIf ComboBox1.Text = "Layang-layang"
Then
TextBox3.Text = luas(TextBox9.Text, TextBox10.Text)
TextBox4.Text = keliling(TextBox5.Text, TextBox11.Text)
ElseIf ComboBox1.Text = "Belah
Ketupat" Then
TextBox3.Text = luas(TextBox9.Text, TextBox10.Text)
TextBox4.Text = keliling(TextBox5.Text, TextBox11.Text)
End If
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox1.Focus()
End Sub
3.
pada button 2
(exit) masukkan listing berikut
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Close()
End Sub
4.
pada button 3
(ulang masukkan listing berikut
Private Sub
Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
End Sub
5.
pada
combobox1 klik dua kali lalu masukkan listing berikut
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Persegi"
Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = False
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = False
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Persegi
Panjang" Then
TextBox1.Enabled = True
TextBox1.Clear()
TextBox2.Enabled = True
TextBox2.Clear()
TextBox5.Enabled = False
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = False
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = False
TextBox11.Clear()
TextBox12.Enabled
= False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Segitiga"
Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled = True
TextBox6.Clear()
TextBox7.Enabled = True
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = True
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Lingkaran"
Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = False
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = False
TextBox7.Clear()
TextBox8.Enabled = True
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = False
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Trapesium"
Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = True
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = True
TextBox11.Clear()
TextBox12.Enabled = True
TextBox12.Clear()
TextBox13.Enabled = True
TextBox13.Clear()
ElseIf ComboBox1.Text = "Jajaran
Genjang" Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled
= True
TextBox6.Clear()
TextBox7.Enabled = True
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = False
TextBox9.Clear()
TextBox10.Enabled = False
TextBox10.Clear()
TextBox11.Enabled = False
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Layang-layang"
Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = False
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = True
TextBox9.Clear()
TextBox10.Enabled = True
TextBox10.Clear()
TextBox11.Enabled = True
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
ElseIf ComboBox1.Text = "Belah
Ketupat" Then
TextBox1.Enabled = False
TextBox1.Clear()
TextBox2.Enabled = False
TextBox2.Clear()
TextBox5.Enabled = True
TextBox5.Clear()
TextBox6.Enabled = False
TextBox6.Clear()
TextBox7.Enabled = False
TextBox7.Clear()
TextBox8.Enabled = False
TextBox8.Clear()
TextBox9.Enabled = True
TextBox9.Clear()
TextBox10.Enabled = True
TextBox10.Clear()
TextBox11.Enabled = True
TextBox11.Clear()
TextBox12.Enabled = False
TextBox12.Clear()
TextBox13.Enabled = False
TextBox13.Clear()
End If
End Sub
FLOWCHART FUNCTION
gambar flowchart function
Keterangan:
1. Pada
aplikasi ini ada delapan dimensi untuk melakukan perhitungan yaitu persegi,
persegi panjang, segitiga, lingkaran, trapesium, jajarangenjang, layang-layang,
dan belahketupat.
2. Pada
dimensi persegi, masukan angka kemudian ada pilihan untuk clear, jika iya maka masukan
angka kembali atau tidak untuk melanjutkan perhitungan kemudian akan didapatkan
hasilnya.
3. Pada
dimensi persegi panjang, masukan angka pertama, ada pilihan clear, jika memilih
ya isi kembali angka pertama, jika tidak maka lanjut untuk memasukan angka
kedua, ketika selesai memasukan angka kedua maka ada pilihan clear,jika memilih
ya kembali untuk memasukan angka pertama lagi. Jika memilih tidak maka angka
kedua yang telah dimasukan lanjut pada perhitungan. setelah itu hasilnya akan
muncul.
4. Pada
dimensi segitiga, masukan angka pertama, ada pilihan clear, jika memilih ya
angka pertama yang dimasukan tadi dapat dihapus lalu isi kembali angka pertama,
jika memilih tidak maka lanjut untuk memasukan angka kedua, ketika selesai
memasukan angka kedua ada pilihan clear. Jika memilih ya, kembali untuk
memasukan angka pertama lagi. Jika memilih tidak maka masukan angka ketiga,
jika memilih clear maka masukan angka pertama lagi. Jika tidak memilih clear
maka masukan angka keempat. Ada pilihan clear maka dapat memasukan angka
pertama lagi, jika tidak memilih clear maka lanjutkan pada perhitungan yang
hasilnya akan muncul.
5. Pada
dimensi lingkaran, masukan angka pertama. Ada pilihan clear maka dapat
memasukan angka pertama lagi, jika tidak memilih clear maka lanjut pada
perhitungan yang hasilnya akan muncul.
6. Pada
dimensi trapesium, masukan angka pertama. Ada pilihan clear maka dapat
memasukan angka pertama lago, jika tidak memilih clear maka masukan angka
kedua. Setelah memasukan angka kedua, terdapat pilihan untuk clear yang
mengulang pada pengisian angka pertama kembali, jika tidak memilih clear maka
masukan angka ketiga. Begitu seterusnya sampai masukan angka kelima. Terdapat
pilihan clear untuk memasukan kembali angka pertama, jika tidak memilih clear
maka lanjut pada tahap perhitungan yang hasilnya akan muncul.
7. Pada
dimensi jajarangenjang, masukan angka pertama, ada pilihan clear maka isi
kembali angka pertama, jika memilih tidak maka lanjut untuk memasukan angka
kedua, ketika selesai memasukan angka kedua ada pilihan clear. Jika memilih ya
kembali untuk memasukan angka pertama lagi. Jika memilih tidak maka masukan
angka ketiga. Jika memilih clear maka masukan angka pertama lagi. Jika tidak
memilih clear maka masukan angka keempat. Ada pilihan clear maka dapat
memasukan angka pertama lagi, jika tidak memilih clear maka lanjutkan pada
perhitungan yang hasilnya akan muncul.
8. Pada
dimensi layang-layang, masukan angka pertama, ada pilihan clear. Jika memilih
ya maka isi kembali angka pertama, jika memilih tidak maka lanjut untuk
memasukan angka kedua, ketika selesai memasukan angka kedua, ada pilihan clear,
jika memilih ya kembali untuk memasukan angka pertama lagi. Jika memilih tidak
maka masukan angka ketiga, jika memilih clear maka masukan angka pertama lagi.
Jika tidak memilih clear maka masukan angka keempat. Ada pilihan clear, jika
memilih ya maka dapat memasukan angka pertama lagi, jika tidak memilih clear
maka lanjutkan pada perhitungan yang hasilnya akan muncul.
9. Pada
dimensi belahketupat, masukan angka pertama, ada pilihan clear. Jika memilih ya
maka isi kembali angka pertama, jika tidak memilih clear maka lanjut untuk
memasukan angka kedua, ketika selesai memasukan angka kedua, ada pilihan clear
maka kembali untuk memasukan angka pertama lagi. Jika tidak memilih clear maka masukan
angka ketiga, jika memilih clear maka masukan angka pertama lagi. Jika tidak
memilih clear maka masukan angka keempat. Ada pilihan clear maka dapat
memasukan angka pertama lagi, jika tidak memilih clear maka lanjutkan pada
perhitungan yang hasilnya akan muncul.
Demikian keterangan mengenai flowchart program aplikasi function.
untuk mendownload aplikasi ini silahkan klik disini
Tidak ada komentar:
Posting Komentar