Operator '*' is not defined for types 'Double' and 'System.Windows.Forms.TextBox'.

[jjinz17]

Public Class Form1
Dim UT, tgs, UA, AkhirNilai As Integer


Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm1.Click

End Sub

Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
tgs = CDbl(TQ.Text)
UT = CDbl(uts.Text)
UA = CDbl(uas.Text)

AkhirNilai = (0.4 * TQ) + (0.3 * uts) + (0.3 * uas)
NA.Text = AkhirNilai

End Sub
End Class



Help

Continue reading...