data base membuat tombol penjumlahan
Data base.
Membuat tombol dan penjumlahan.
langkah-langkah nya:
- buka Microsoft access
- klik menu create
- klik menu form design
- kemudian buat tombol menu nya seperti berikut.
setelah seperti gambar diatas , maka tulislah codingan yang ada di bawah ini pada Visual Basic.
// Codingan
Option Compare Database
Private Sub Hitung_Click()
Text2 = Val(0.4 * Text0 + 0.6 * Text1)
If Text2 >= 80 Then
Text3 = "A"
ElseIf Text2 < 80 And Text2 >= 70 Then
Text3 = "B"
ElseIf Text2 < 70 And Text2 >= 60 Then
Text3 = "C"
ElseIf Text2 < 60 And Text2 >= 50 Then
Text3 = "D"
ElseIf Text2 < 50 Then
Text3 = "E"
End If
End Sub
Private Sub Hitung_Click()
Text2 = Val(0.4 * Text0 + 0.6 * Text1)
If Text2 >= 80 Then
Text3 = "A"
ElseIf Text2 < 80 And Text2 >= 70 Then
Text3 = "B"
ElseIf Text2 < 70 And Text2 >= 60 Then
Text3 = "C"
ElseIf Text2 < 60 And Text2 >= 50 Then
Text3 = "D"
ElseIf Text2 < 50 Then
Text3 = "E"
End If
End Sub
Hasil nya dapat dilihat pada gambar berikut..
Comments
Post a Comment