Program Database Menggunakan VB6

Listing Program

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

Dim c As Integer

a = Text3.Text

b = Text4.Text

c = (a * 70 / 100) + (b * 30 / 100)

If c >= 80 Then

Text5.Text = "A"

ElseIf c >= 60 Then

Text5.Text = "B"

ElseIf c >= 40 Then

Text5.Text = "C"

ElseIf c >= 20 Then

Text5.Text = "D"

ElseIf c >= 0 Then

Text5.Text = "E"

Else

Text5.Text = "error"

End If

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("Nama") = Text1.Text

Adodc1.Recordset.Fields("Mata_kuliah") = Text2.Text

Adodc1.Recordset.Fields("Nilai_UTS") = Text3.Text

Adodc1.Recordset.Fields("Nilai_UAS") = Text4.Text

Adodc1.Recordset.Fields("Grade") = Text5.Text

Adodc1.Recordset.Update

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command3_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

End Sub

Private Sub Command4_Click()

End

End Sub

Logika/Penjelasan Listing

Dim a As Integer

Dim b As Integer

Dim c As Integer

Blok diatas adalah logika untuk memasukan variable berbentuk integer

If c >= 80 Then

Text5.Text = "A"

ElseIf c >= 60 Then

Text5.Text = "B"

ElseIf c >= 40 Then

Text5.Text = "C"

ElseIf c >= 20 Then

Text5.Text = "D"

ElseIf c >= 0 Then

Text5.Text = "E"

Else

Text5.Text = "error"

Blok diatas adalah bentuk pecabangan dari visual basic

Adodc1.Recordset.Delete

Blok diatas adalah untuk menghapus record pada datagrid

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Blok diatas adalah untuk mengosongkan textbox yang telah kita isi