Visualbasic: cara menghitung nilai rata-rata
CONTOH PROGRAM PERHITUNGAN RATA-RATA DENGAN VISUAL BASIC
Selamat Datang di Blog Orang IT . Ini adalah salah satu tugas saya pada matakuliah pemrograman visual 1 yaitu bagaimana cara membuat program sederhana untuk mencari nilai rata-rata dengan visualbasic mungkin bagi anda yang sedang mencari tutorialnya di internet tidak sengaja menemukan blog saya silahkan langsung diterapkan tutorial script dan contoh program sederhana berikut ini .
Buka program visual basic 6.0
1. Pilih standard EXE kemudian klik open
2. 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”
3. Tambahkan satu Command Button dan beri nama atau Caption “Hitung Rata-rata”
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
Private Sub Command1_Click()
Jumlah = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
Rata = Jumlah / 5
MsgBox ("jumlah : " & Jumlah)
MsgBox ("nilai rata rata : " & Rata)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Rata As Double
Dim Jumlah As Integer
End Sub
Sub Bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
Private Sub Text_KeyPress(KeyAscii As Integer)
If Not (KeyAscii < Asc9("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
Simpan dan lihat hasilnya
Gagal ? yah beberapa orang pasti mengalami kegagalan itulah komentar yang sering saya terima ketika mempublikasikan artikel script seperti ini . . . silahkan download contoh programnya saja
Demikian postingan saya mengenai bagaimana cara menghitung rata-rata dengan visualbasic 6 semoga bermanfaat jika ada yang ingin ditanyakan silahkan saja memberikan komentar yang relevans sesuai isi artikel sekian dan terimakasih
Baca juga : Visualbasic volume dan luas bangun