Új hozzászólás Aktív témák

• #10660 total90 támogató

  Új Válasz 2017-02-17 10:55:38 #10660

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  total90

  támogató

  LOGOUT blog

  Otthon van valaki Excel-VBA programozasban? Ezzel most ismerkedem es van egy kerdesem.

  Egyelore konnyebb feladatokat keresek magamnak. Most pl. egy szamologepet probalok csinalni es most felkesz allapotban van.

  A gondom az, hogy ha alap esetben ha "," utsz be egy szamologepen, akkor "0," lesz a kijelzon. Nalam ez valamiert nem mukodik, csak ","-t ir ki.

  A programkodom:

  Option Explicit
Public dblZahl_A As Double
Public dblZahl_B As Double
Public strOperation As String
Public intAnzClickDezimal As Integer


Private Sub cmd_clear_Click()


frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_dezimal_Click()

intAnzClickDezimal = intAnzClickDezimal + 1

If intAnzClickDezimal < 2 Then
frm_Rechner.txt_Display = frm_Rechner.txt_Display & ","
End If


End Sub

Private Sub cmd_durch_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Durch"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_gleich_Click()

dblZahl_B = frm_Rechner.txt_Display

Select Case strOperation

Case "Plus"
frm_Rechner.txt_Display = dblZahl_A + dblZahl_B

Case "Minus"
frm_Rechner.txt_Display = dblZahl_A - dblZahl_B

Case "Mal"
frm_Rechner.txt_Display = dblZahl_A * dblZahl_B

Case "Durch"
frm_Rechner.txt_Display = dblZahl_A / dblZahl_B

End Select



End Sub

Private Sub cmd_mal_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Mal"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_minus_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Minus"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd_plus_Click()

dblZahl_A = frm_Rechner.txt_Display
strOperation = "Plus"
frm_Rechner.txt_Display = ""
intAnzClickDezimal = 0

End Sub

Private Sub cmd1_Click()




frm_Rechner.txt_Display = frm_Rechner.txt_Display & "1"



End Sub


Private Sub cmd2_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "2"

End Sub

Private Sub cmd3_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "3"

End Sub

Private Sub cmd4_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "4"

End Sub

Private Sub cmd5_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "5"

End Sub

Private Sub cmd6_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "6"

End Sub
Private Sub cmd7_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "7"

End Sub
Private Sub cmd8_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "8"

End Sub
Private Sub cmd9_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "9"

End Sub
Private Sub cmd0_Click()



frm_Rechner.txt_Display = frm_Rechner.txt_Display & "0"

End Sub

Private Sub UserForm_Click()

End Sub

  A "Dezimal" alatt kell a ","-t keresni. probaltam, hogy a

  Private Sub cmd_dezimal_Click()

intAnzClickDezimal = intAnzClickDezimal + 1

If intAnzClickDezimal < 2 Then
frm_Rechner.txt_Display = frm_Rechner.txt_Display & ","
End If


End Sub

  kodba a ","-t atirom "0,"-ra, de akkor pl. ha be akarom irni, hogy 56,36, akkor 560,36-ot ad ir ki

  Otlet valakinek?

Új hozzászólás Aktív témák