Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Komma problem

Mitglied: badmaxx

badmaxx (Level 1) - Jetzt verbinden

22.12.2006, aktualisiert 28.12.2006, 3934 Aufrufe, 8 Kommentare

Hi @ all
ich versuche gerade einen (taschen)rechner zu programmiern nur bekomme ich es nich hin dass ich in die Textbox eine Kommazahl eingeben kann und dann das richtige Ergebnis bekomme. DAs komische ist wenn ich z. B. 5*5,5 kommt 15 raus wenn ich jetz aber 5*5.5 eigbebe kommt 27,5 raus. Wie schaff ich es dass ich 5,5 eingeben kann und trozdem das richtige Ergebnis bekomme? Ich benutze VB 2005 Express Edition.

Danke im Voraus

Gruß
MAxi
Mitglied: bastla
24.12.2006 um 20:18 Uhr
Hallo badmaxx!

Wenn Du den in die Textbox eingegebenen Text für eine Berechnung verwendest, solltest Du ihn eigentlich ohnehin konvertieren, zB mit CDbl() - damit wird auch das entsprechende Dezimaltrennzeichen erkannt.

Ansonsten bleibt Dir nur das gezielte Umwandeln des Kommas in einen Punkt in der Berechnung - Replace(TextBox1.Text, ",", ".") - oder die Umwandlung ohne Rücksicht auf die Optik direkt bei der Eingabe - dazu schreibst Du in "TextBox1_KeyPress"
01.
If e.KeyChar = "," Then e.KeyChar = "."
Empfehlen kann ich Dir aber nur die oben angesprochene Typkonvertierung.

Grüße
bastla
Bitte warten ..
Mitglied: badmaxx
27.12.2006 um 20:13 Uhr
Hi
danke schonmal für die hilfe.
Könntest du mir das genauer erklären wie ich des machen muss da ich noch nicht so lange mit vb arbeite.
Danke im voraus.
Gruß
Maxi
Bitte warten ..
Mitglied: bastla
27.12.2006 um 20:18 Uhr
Hallo badmaxx!

Im Prinzip musst Du nur in die Ausführung der Berechnung die Konvertierung einbauen - könnte ich Dir aber besser zeigen, wenn Du den entsprechenden Code postest ...

Grüße
bastla
Bitte warten ..
Mitglied: badmaxx
27.12.2006 um 23:09 Uhr
01.
Public Class Algebra 
02.
 
03.
    Private Sub Grundrechenarten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
04.
        Label3.Visible = False 
05.
        Format(TextBox1.Text, "0,00") 
06.
 
07.
    End Sub 
08.
 
09.
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click 
10.
 
11.
 
12.
    End Sub 
13.
 
14.
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 
15.
        End 
16.
    End Sub 
17.
 
18.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
19.
 
20.
        If RadioButton1.Checked = True Then 
21.
            Replace(TextBox1.Text, ",", ".") 
22.
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) 'Addition 
23.
        End If 
24.
 
25.
 
26.
        If RadioButton2.Checked = True Then TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) 'Subtraktion 
27.
 
28.
        If RadioButton3.Checked = True Then TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) 'Multiplikation 
29.
 
30.
        If RadioButton4.Checked = True Then TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) 'Division 
31.
 
32.
        If RadioButton5.Checked = True Then 
33.
            TextBox3.Text = Val(TextBox1.Text) * Val(TextBox1.Text) 'Berechnung des Quadrats 
34.
            TextBox2.Visible = True 
35.
            TextBox2.Text = TextBox1.Text 
36.
            Label2.Text = "x" 
37.
        End If 
38.
 
39.
        If RadioButton6.Checked = True Then 'Berechnung der Wurzel 
40.
            TextBox3.Text = Math.Sqrt(TextBox1.Text) 
41.
            Label2.Visible = False 
42.
        End If 
43.
 
44.
 
45.
 
46.
    End Sub 
47.
 
48.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
49.
        Me.Visible = False 'Zurück 
50.
        Start.Visible = True 
51.
    End Sub 
52.
 
53.
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged 
54.
        If RadioButton1.Checked = True Then 
55.
            TextBox2.Visible = True 
56.
            Label3.Visible = False 
57.
            Label2.Text = "+" 
58.
        End If 
59.
 
60.
    End Sub 
61.
 
62.
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged 
63.
        If RadioButton2.Checked = True Then 
64.
            TextBox2.Visible = True 
65.
            Label3.Visible = False 
66.
            Label2.Text = "-" 
67.
        End If 
68.
    End Sub 
69.
 
70.
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged 
71.
        If RadioButton3.Checked = True Then 
72.
            TextBox2.Visible = True 
73.
            Label3.Visible = False 
74.
            Label2.Text = "x" 
75.
        End If 
76.
    End Sub 
77.
 
78.
    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged 
79.
        If RadioButton4.Checked = True Then 
80.
            TextBox2.Visible = True 
81.
            Label3.Visible = False 
82.
            Label2.Text = "/" 
83.
        End If 
84.
    End Sub 
85.
 
86.
    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged 
87.
        If RadioButton6.Checked = True Then 
88.
            TextBox2.Visible = False 
89.
            Label3.Visible = True 
90.
            Label2.Text = "" 
91.
        End If 
92.
    End Sub 
93.
 
94.
    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged 
95.
        Format("0,000") 
96.
    End Sub 
97.
 
98.
    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged 
99.
        If RadioButton5.Checked = True Then 
100.
            TextBox2.Visible = False 
101.
            Label3.Visible = False 
102.
            Label2.Text = "²" 
103.
        End If 
104.
    End Sub 
105.
 
106.
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
107.
    End Sub 
108.
 
109.
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged  
110.
    End Sub 
111.
End Class
ich hoff du kennst dich aus.
Bitte warten ..
Mitglied: bastla
28.12.2006 um 12:43 Uhr
Hallo badmaxx!

Du konvertierst im Prinzip ohnehin schon mit Val(), sodass Du nur stattdessen CDbl() dafür einsetzen müsstest:
01.
If RadioButton1.Checked = True Then 
02.
    TextBox3.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) 'Addition 
03.
End If
Wenn Du die Anzeige auf 2 Dezimalen runden willst (wie Du es in "Grundrechenarten_Load" versuchst, wo es aber nichts bringt), kannst Du den Formatcode "F" verwenden (oder benutzerdefiniert "0.00" - mit Punkt!):
01.
If RadioButton1.Checked = True Then 
02.
    TextBox3.Text = Format(CDbl(TextBox1.Text) + CDbl(TextBox2.Text), "F") 'Addition 
03.
End If
Grüße
bastla
Bitte warten ..
Mitglied: badmaxx
28.12.2006 um 15:36 Uhr
DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!
Es funktieoniert so wie es soll!
DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!

Gruß
Maxi

PS. Des mit "F" geht nicht aber mit "0.00" funktieonierts
Bitte warten ..
Mitglied: badmaxx
28.12.2006 um 15:36 Uhr
DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!
Es funktieoniert so wie es soll!
DANKE!!!!!!!!!!!!!!!!!!!!!!!!!!

Gruß
Maxi
Bitte warten ..
Mitglied: badmaxx
28.12.2006 um 15:37 Uhr
DANKE!!!!!!!!!!!!!!!!!!!!!!
Es funktieoniert so wie es soll!!
DANKE!!!!!!!!!!!!!!!!!!!!!!

Gruß
Maxi
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Punkt durch Komma ersetzen
Frage von TingelTangelbatchBatch & Shell9 Kommentare

Hallo, für eine batch Datei suche ich folgende Hilfe / Code: Ich habe monatlich ca. 10 Textdatein welche Werte ...

Batch & Shell
CSV-Datei Komma durch Semikolon ersetzen
gelöst Frage von FalkITBatch & Shell8 Kommentare

Hi Zusammen, ich suche eine Möglichkeit in einer Komma getrennten CSV Datei alle Kommas die als Trenner dienen durch ...

Peripheriegeräte

Microsoft Sculpt - Komma gegen Punkt tauschen

gelöst Frage von TiTuxPeripheriegeräte3 Kommentare

Hallo, habe mir eine Microsof Sculpt Tastatur gekauft und bin auch sehr zufrieden. Allerdings befindet sich auf dem seperaten ...

Microsoft Office

VB ein bestimmtes Komma durch Punkt ersetzen

gelöst Frage von Enno13Microsoft Office4 Kommentare

Hallo Wie kann ich denn ein bestimmtest Komma durch einen Punkt ersetzten lassen über VB. Dieses Komma ist eine ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 9 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 11 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 11 StundenMicrosoft7 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 2 TagenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser13 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...