CONTOH APLIKASI HITUNG MENGGUNAKAN FUNCTION DI VB 2010
Pada bahasa pemrograman terdapat istilah yang biasa disebut Procedure dan Function, di vb.net sendiri procedure di tulis sebagai "Sub", sedangkan Function ditulis sebagai "Function". Perbedaan antara function dan procedure adalah : kalau function dia akan mengembalikan suatu nilai pada pemanggilnya, sedangkan kalau procedure dia tidak akan mengembalikan nilai apapun pada fungsi pemanggilnya. untuk jenisnya procedure dan function terbagi menjadi dua macam, yaitu public procedure atau public sub, private procedure atau private sub, public function dan private function.
Untuk contoh Function pada vb 2010 adalah sebagai berikut:
Untuk contoh Function pada vb 2010 adalah sebagai berikut:
Disni saya akan memcoba membuat aplikasi penjumlahan mengguakan FUNCTION . Berikut ini adalah langkah - langkahnya :
1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
2. Kemudian klik " New project " Seperti gambar di bawah ini
3. Setelah di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "
4. Kemudian akan muncul form kosong seperti gambar di bawah ini
5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , " TextBox ", " Label " seperti gambar di bawah ini
6. Maka hasilnya akan muncul form seperti gambar di bawah ini
7. Kemudian copy script di bawah ini
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
' INI TEH FUNCTION BROOO
Function Sum(ByVal sngNum1 As Single, ByVal sngNum2 As Single) As Single
Dim sngResult = sngNum1 + sngNum2
Return sngResult
End Function
' INI TUH BUAT MEMANGGIL FUNGSI FUNCTION BROO
Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click
Dim sngResult As Single
sngResult = Sum(txtBil3.Text, txtBil4.Text)
txthaslfunction.Text = sngResult
End Sub
Private Sub btnFunction_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click
Dim sngResult As Single
sngResult = Sum(txtBil3.Text, txtBil4.Text)
txthaslfunction.Text = sngResult
End Sub
End Class
8. Maka hasilnya seperti gamabr di bawah ini
Selamat mencoba ... (^_^)
幸運を... (^_^)
EmoticonEmoticon