Erweiterung eines VisualBasic Taschenrechners

[Monchichu]

Ich denke ma viele haben hier Ahnung von Vb und ich wollte mal fragen ob mir mal jemand ganz ausführlich beschereiben kann wie ich [Wurzel, sin, cos, tan] berechnen kann!

Wie die Form aussieht seht ihr hier!

Dim Ein1 As Double, Ein2 As Double, Aus As Double

Private Sub cmd_Addieren_Click()
Ein1 = txt_eing1.Text
Ein2 = txt_eing2.Text
lbl_erg.Caption = Ein1 + Ein2
End Sub

Private Sub cmd_beenden_Click()
End
End Sub

Private Sub cmd_delete_Click()
txt_eing1 = ""
txt_eing2 = ""
lbl_erg = ""
txt_pi = ""
End Sub

Private Sub cmd_Dividieren_Click()
Ein1 = txt_eing1.Text
Ein2 = txt_eing2.Text
If Ein1 > 0 And Ein2 > 0 Then Aus = Ein1 / Ein2 Else Aus = 0
lbl_erg.Caption = Aus
End Sub

Private Sub cmd_Multipliziren_Click()
Ein1 = txt_eing1.Text
Ein2 = txt_eing2.Text
Aus = Ein1 * Ein2
lbl_erg.Caption = Aus
End Sub

Private Sub cmd_pi_Click()
txt_eing2 = 3.14159265358979
End Sub

Private Sub cmd_prozent_Click()
Ein1 = txt_eing1.Text
Ein2 = txt_eing2.Text
Aus = (Ein2 * 100) / Ein1
lbl_erg.Caption = Aus
End Sub

Private Sub cmd_Subtrahieren_Click()
Ein1 = txt_eing1.Text
Ein2 = txt_eing2.Text
lbl_erg.Caption = Ein1 - Ein2
End Sub

Das ist das was ich bis jetzt habe! und weiter komme ich net!


Bitte helft mir!

 

[schachmat]

Also für Sin, Cos, und Tan brauchste nur EINE Eingabe! Bei der Wurzel kommts drauf an, ob es nur die Quadratwurzel sein soll, oder ob auch z.b. die 42ste Wurzel berechnet werden können soll (mein Gott, was isn das fürn Satzbau)

Sin, Cos, und Tan geht mit den gleichnamigen Funktionen des Math-Namespaces und die Wurzel kannste mit Sqr/Sqrt berechnen.

 

[Monchichu]

Danke! Aber:
Kannst du mir mal zeigen wie das aussehen soll wei ich habe das nicht ganz verstanden!

 

[schachmat]

Kennst du

"VB Wuzel" und "VB Sinus" sollten genug Hilfe auf den ersten zehn Seiten bieten... -.-