Met Variabelen werken

[sdehaas]

Hallo,

Ik had al eerder een bericht geplaatst maar ik zie hem er niet tussen staan.. vandaar dat ik hem even opniuw plaats.
Ik ben wat aan het puzelen met VB 2008.
Ik probeer een Form te maken met tesktvakjes waar je punten + gewicht kan invullebn per vak die dan je gemiddelde uitrekent.

Ik heb dus een om te beginnen 3 vakjes. (die wil ik als variabele a, b en c noemen)

Public Class Form1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim TextBox1 As Double


End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim TextBox2 As Integer
End Sub



Public Function Getgem(ByVal Punt, ByVal Gewicht) As Double

TextBox3.Text = ("a * b / b")

End Function


Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub
End Class

ik heb nog zeer weinig ervaring met VB... en het gedeelte met variabele vind ik wel moeilijk.
wat ik wil is dat wat je invult in de vakjes berekent wordt in de formule (a*b/b) (a is punt b is gewicht).

Hoe moet ik dat nu schrijven in de Function zodat hij dat doet?
Kan iemand me helpen?

alvast bedankt,

Sander

 

[wicherh]

Probeer dit

Public Class Form1
Public Sub Getgem
TextBox3.Text =( TextBox1.Text * TextBox2.Text) / TextBox3.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetGem
End Sub
End Class