Fortgeschrittene helfen Anfängern beim Programmieren!

[Yve87]

Hi leute,
Ich habe (leider) das Fach Informatik gewählt und muss nun als Projekt einen Taschenrechner programmieren. Leider hab ich nicht wirklich ne ahnung von VB. Angefangen hab ich schon. Da das jetzt mein letztes Jahr Informatik ist, möchte ich in dem Projekt wenigstens ne 3 haben und ich hoffe, ihr könnt mir dabei helfen. Meine Probleme sind, dass ich keine ahnung habe, wie ich das mit Sinus und Cosinus machen soll. Ich will, dass ich, wie bei nem normalen Taschenrechner, eine Zahl negativ machen kann. Und es muss alles möglichst einfach gehalten sein.
Ich wäre super froh, wenn ihr mir helfen könntet!
Hier mein vorläufiger Quellcode:

Option Explicit

Dim strrechenart As String

Dim strZahl As String




Private Sub cmd_0_Click()

txt_display.Text = txt_display + "0"



End Sub

Private Sub cmd_1_Click()

txt_display.Text = txt_display + "1"


End Sub

Private Sub cmd_2_Click()

txt_display.Text = txt_display + "2"


End Sub

Private Sub cmd_3_Click()

txt_display.Text = txt_display + "3"



End Sub

Private Sub cmd_4_Click()

txt_display.Text = txt_display + "4"



End Sub

Private Sub cmd_5_Click()

txt_display.Text = txt_display + "5"



End Sub

Private Sub cmd_6_Click()

txt_display.Text = txt_display + "6"



End Sub

Private Sub cmd_7_Click()

txt_display.Text = txt_display + "7"




End Sub

Private Sub cmd_8_Click()

txt_display.Text = txt_display + "8"



End Sub

Private Sub cmd_9_Click()

txt_display.Text = txt_display + "9"



End Sub


Private Sub cmd_clear_Click()


txt_display.Text = ""


End Sub



Private Sub cmd_ergebnis_Click()


If strrechenart = "multiplikation" Then
txt_display.Text = CDbl(strZahl) * CDbl(txt_display)
ElseIf strrechenart = "division" Then
txt_display.Text = CDbl(strZahl) / CDbl(txt_display)
ElseIf strrechenart = "addition" Then
txt_display.Text = CDbl(strZahl) + CDbl(txt_display)
ElseIf strrechenart = "subtraktion" Then
txt_display.Text = CDbl(strZahl) - CDbl(txt_display)
ElseIf strrechenart = "quadrat" Then
txt_display.Text = CDbl(strZahl) ^ CDbl(2)
ElseIf strrechenart = "potenzieren" Then
txt_display.Text = CDbl(strZahl) ^ CDbl(txt_display)
ElseIf strrechenart = "wurzel" Then
txt_display.Text = CDbl(strZahl) ^ (1 / 2)



End If


strrechenart = "ergebnis"

End Sub

Private Sub cmd_geteilt_Click()
strZahl = txt_display
strrechenart = "division"
txt_display.Text = txt_display


End Sub

Private Sub cmd_mal_Click()
strZahl = txt_display
strrechenart = "multiplikation"

End Sub

Private Sub cmd_minus_Click()
strZahl = txt_display
strrechenart = "subtraktion"

End Sub

Private Sub cmd_plus_Click()
strZahl = txt_display
strrechenart = "addition"

End Sub

Private Sub cmd_potenzieren_Click()
strZahl = txt_display
strrechenart = "potenzieren"

End Sub

Private Sub cmd_punkt_Click()
txt_display.Text = txt_display + "."

End Sub

Private Sub cmd_quadrat_Click()
strZahl = txt_display
strrechenart = "quadrat"

End Sub

Private Sub cmd_cosinus_Click()
strZahl = txt_display
strrechenart = "cosinus"

End Sub

Private Sub cmd_wurzel_Click()
strZahl = txt_display
strrechenart = "wurzel"

End Sub

 

[wincnc]

Hallo, hier ein kleines Beispiel eines Taschenrechners.

 

[Yve87]

Ich danke dir für das Beispiel, nur leider kann ich das nicht öffnen bzw. ich kann das schon öffnen, aber das was dann kommt kann ich nciht öffnen.

 

[Yve87]

hat sich wieder erledigt. jetzt funktionierts.

 

[Yve87]

ich muss sagen, ich versteh kein einziges wort von deinem quellcode. ich dank dir trotzdem dafür. der rechner wird bestimmt andren leuten helfen.

 

[Yve87]

Wie kann ich VB befehlen, dass es etwas ersetzen soll?
Ich weiß, dass es eine "Replace" Anweisung gibt, weiß aber nicht wie sie funktioniert.
In der Hilfe kann ich auch nciht nachgucken, weil cih keine hab.

 

[Julian Maicher]

Was willst du denn erstetzen? Etwas in einem String durch einen anderen String, oder lediglich im gesamten Quellcode einen Command o.ä.?

 

[Yve87]

ich will, wenn irgend möglich
"-" + strZahl
durch
"" + strZahl
ersetzen

 

[Julian Maicher]

Dann nimm doch einfach die Suchen -> Ersetzen Funktion (Bearbeiten -> Suchen Ersetzen o.ä.).
Dann gib dort einfach das zu suchende Muster und das dadurch zu ersetzende Muster ein und dann kanns los gehen.

 

[Yve87]

tut mir leid, aber das musst du mir n bisschen genauer erklären.
es ist so peinlich dumm zu sein....