BorasAtze

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

Hallo liebe Leut Da ich mich auf meine Abschlussprüfung jetzt schon vorbereiten möchte hätte ich gern aktuelle Abschlussprüfungen mit Lösung wenn es geht. meine Email: nc-oepenel7@netcologne.de Vielen Dank schonmal MfG Borasatze

oh wow das ist krass vielen dank für die infos mal sehen wie ich das meinen chef unterbreiten werde *hihi*

nee ich hab gar keine pause also 9 stunden voll durch : /

Mal eine kleine Frage wo ich mir nicht so ganz sicher bin. Bin nun schon im zweiten Lehrjahr und möchte mal gerne wissen wie das mit den Überstunden so ist. Ich bin über 18 (21 fast 22 ums genau zu nehmen) Und mache meine Ausbildung in einem Einzelhandelsbetrieb für Computer und Zubehör. Und dort musste ich bisher immer von 9:30 uhr bis 18:30 arbeiten , also 9 Stunden pro Tag ohne Pause. Laut Arbeitsvertrag soll ich aber nur 8 (40Std pro Woche). Wie ist da die Rechtslage? Was sollte ich da machen? Vielen Dank schonmal für jede Antwort