Mencari Rata-Rata Di Visual Basic 6.0

Tuesday, 8 July 2014

Untuk mencari rata-rata di dalam Aplikasi Pemrograman Visual Basic 6.0, langkah-langkah yang harus di lakukan adalah sebagai berikut :

Buka program visual basic 6.0
Pilih standard EXE kemudian klik open
Buatlah minimal tiga label dan tiga textbox,dalam contoh kali ini saya memberi contoh dengan 5 Label dan 5 textbox kemudian beri nama tiap label dengan nama atau caption “ Input 1” sampai dengan “Input 5”
tambahkan satu Command Button dan beri nama atau Caption “Hitung Rata-rata”

Untuk lebih jelas nya bisa anda lihat pada gambar di bawah ini :

Nah setelah kita beres membuat tampilan nya berarti langkah selanjut nya adalah tinggal pengkodingan nya,sementara koding/Kode program/Syntak/Scrift yang di butuhkan hanya untuk di Command Button nya saja,dan Koding nya adalah sebagai berikut dan silahkan langsung COPAS semua ::

Jumlah=Val(Text1.text) + Val(Text2.text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)

Rata= Jumlah/5

MsgBox(“Nilai rata-ratanya adalah : “& Rata)

Bersih

End Sub

Sub Bersih()

Text1.Text=””

Text2.Text=””

Text3.Text=””

Text4.Text=””

Text5.Text=””

End Sub

Private Sub Form_Load()

Dim Rata As Double

Dim Jumlah As Integer

Nah setelah beres berurusan dengan koding di atas, maka kita sekarang tinggal menjalankan program sederhana yang barusan kita buat dengan cara menekan tombol F5 pada keyboar anda, dan hasil nya adalah seperti pada gambar di bawah ini :