Hiho hab da graad kleine Wissen"lücke"bzw "Probleme" .

Ich soll einen Taschenrechner mit mehreren Funktionen machen.

Es soll noch sinus, cosinus,e und Pi hinzugefügt werden.

An "Pi" hab ich mich bereits versucht aber gibt mir , wenn ich mit Pi rechne keine Kommazahlen mehr aus.

Bitte um Hilfe.

Hier der Quellcode:

Dim ZahlMerker As String

Dim RechMerker As String

Dim Zahl1 As Double




Private Sub cb_0_Click() 'button 0

    If ZahlMerker <> "" Then

        ZahlMerker = ZahlMerker & "0"

        Label1.Caption = ZahlMerker

    End If


End Sub


Private Sub cb_1_Click() 'button 1

    ZahlMerker = ZahlMerker & "1"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_2_Click() 'button 2

    ZahlMerker = ZahlMerker & "2"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_3_Click() 'button 3

    ZahlMerker = ZahlMerker & "3"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_4_Click() 'button 4

    ZahlMerker = ZahlMerker & "4"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_5_Click() 'button 5

    ZahlMerker = ZahlMerker & "5"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_6_Click() 'button 6

    ZahlMerker = ZahlMerker & "6"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_7_Click() 'button 7

    ZahlMerker = ZahlMerker & "7"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_8_Click() 'button 8

    ZahlMerker = ZahlMerker & "8"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_9_Click() 'button 9

    ZahlMerker = ZahlMerker & "9"

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_c_Click() 'C taste, zum entfernen der eingabe

    RechMerker = ""

    ZahlMerker = ""

    Ergebnis = ""

    Label1.Caption = ""

    Zahl1 = "0"

End Sub


Private Sub cb_k_Click() 'Komma button

    ZahlMerker = ZahlMerker & "."

    Label1.Caption = ZahlMerker

End Sub


Private Sub cb_p_Click() 'Plus button

    Zahl1 = Val(ZahlMerker)

    RechMerker = "+"

    ZahlMerker = ""

End Sub

Private Sub cb_s_Click() 'Subtraktion button

    Zahl1 = Val(ZahlMerker)

    RechMerker = "-"

    ZahlMerker = ""

End Sub

Private Sub cb_m_Click() 'Multiplikation button

    Zahl1 = Val(ZahlMerker)

    RechMerker = "*"

    ZahlMerker = ""

End Sub

Private Sub cb_d_Click() 'Division button

    Zahl1 = Val(ZahlMerker)

    RechMerker = "/"

    ZahlMerker = ""

End Sub


Private Sub cb_i_Click() '= button

    Dim Ergebnis As Double


    Select Case RechMerker

    Case "+"

    Ergebnis = Zahl1 + Val(ZahlMerker)

        ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select


    Select Case RechMerker

    Case "-"

    Ergebnis = Zahl1 - Val(ZahlMerker)

        ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select


    Select Case RechMerker

    Case "*"

    Ergebnis = Zahl1 * Val(ZahlMerker)

    ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select


    Select Case RechMerker

    Case "/"

    Ergebnis = Zahl1 / Val(ZahlMerker)

    ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select


    Select Case RechMerker

    Case "^"

    Ergebnis = Val(ZahlMerker) * Val(ZahlMerker)

    ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select


    Select Case RechMerker

    Case "^0,5"

    Ergebnis = Zahl1 ^ "0,5"

    ZahlMerker = Ergebnis

    Label1.Caption = Ergebnis

    End Select



End Sub


Private Sub CommandButton2_Click()


End Sub


Private Sub CommandButton8_Click()


End Sub


Private Sub CommandButton15_Click()


End Sub


Private Sub CommandButton4_Click()


End Sub


Private Sub Pi_Click()

Dim Pi

    Pi = 4 * Atn(1)


    ZahlMerker = Pi

    Label1.Caption = ZahlMerker

End Sub


Private Sub wurzel_Click()

    Zahl1 = Val(ZahlMerker)

    RechMerker = "^0,5"

    ZahlMerker = ""

End Sub


Private Sub potenz_Click()

    Zahl1 = Val(ZahlMerker)

    RechMerker = "^"

    ZahlMerker = ""

End Sub


[/php]

MfG BorasAtze

Bearbeitet 7. November 201212 j von grueni

Kenn mich zwar mit VBA nicht wirklich aus,

aber ich würde mal "Dim Pi As Double" versuchen.

Gruß

Tom

Double sind doch nur zwei Nachkommastellen oder?

Und wie siehts aus? Brauchst du noch Hilfe?

BorasAtze

Letzte Aktivität: 14.11.2012 09:44

Ich vermute mal nicht...