Hallo Leute,
ich bin ein absoluter Anfänger was VB angeht. Hab mich aber schon etwas reingearbeitet und mein ersten Programm läuft soweit. Nun wollte ich etwas an der Optik feilen. In meinem Programm werden mitunter recht große Zahlen (in einer Text Box) angezeigt. Nun wollte ich diese mit Tausendertrennzeichen versehen um das ganze lesbarer zu machen ohne ständig mit dem Finger oder dem Mauszeiger die Stellen auf dem Monitor zählen zu müssen. Aber ich bekomme es absolut nicht hin. Dabei bin ich mir sicher das es absolut simpel ist. Aber ich scheitere an der Frage, wohin mit der Formatierung und wie genau sieht sie aus. Verwende ich Format oder ToString? Ich füge mal den entsprechenden Code an. Er ist super simpel aber er erfüllt seinen Zweck Ich wäre euch für eure Hilfe sehr dankbar. Mir brummt schon der Schädel davon.
Zum Verständnis, mit dem Programm berechnet man wieviel Stück einer Ware (ergebnis1-12) in einen Container einer bestimmten qm Größe passen (zahl1). Jede dieser Waren hat eine bestimmte qm Größe. Deswegen werden auch so viele Ergebnisse angezeigt.
ich bin ein absoluter Anfänger was VB angeht. Hab mich aber schon etwas reingearbeitet und mein ersten Programm läuft soweit. Nun wollte ich etwas an der Optik feilen. In meinem Programm werden mitunter recht große Zahlen (in einer Text Box) angezeigt. Nun wollte ich diese mit Tausendertrennzeichen versehen um das ganze lesbarer zu machen ohne ständig mit dem Finger oder dem Mauszeiger die Stellen auf dem Monitor zählen zu müssen. Aber ich bekomme es absolut nicht hin. Dabei bin ich mir sicher das es absolut simpel ist. Aber ich scheitere an der Frage, wohin mit der Formatierung und wie genau sieht sie aus. Verwende ich Format oder ToString? Ich füge mal den entsprechenden Code an. Er ist super simpel aber er erfüllt seinen Zweck Ich wäre euch für eure Hilfe sehr dankbar. Mir brummt schon der Schädel davon.
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_berechnen.Click
- Dim zahl1 As Integer
- zahl1 = CDbl(box_cargomenge.Text)
- Dim ergebnis1 As Integer
- Dim ergebnis2 As Integer
- Dim ergebnis3 As Integer
- Dim ergebnis4 As Integer
- Dim ergebnis5 As Integer
- Dim ergebnis6 As Integer
- Dim ergebnis7 As Integer
- Dim ergebnis8 As Integer
- Dim ergebnis9 As Integer
- Dim ergebnis10 As Integer
- Dim ergebnis11 As Integer
- Dim ergebnis12 As Integer
- ergebnis1 = zahl1 / 0.1
- ergebnis2 = zahl1 / 0.15
- ergebnis3 = zahl1 / 0.3
- ergebnis4 = zahl1 / 0.35
- ergebnis5 = zahl1 / 0.6
- ergebnis6 = zahl1 / 1.2
- ergebnis7 = zahl1 / 2
- ergebnis8 = zahl1 / 3
- ergebnis9 = zahl1 / 5
- ergebnis10 = zahl1 / 8
- ergebnis11 = zahl1 / 16
- ergebnis12 = zahl1 / 16
- box_010.Text = ergebnis1
- box_015.Text = ergebnis2
- box_030.Text = ergebnis3
- box_035.Text = ergebnis4
- box_060.Text = ergebnis5
- box_120.Text = ergebnis6
- box_200.Text = ergebnis7
- box_300.Text = ergebnis8
- box_500.Text = ergebnis9
- box_800.Text = ergebnis10
- box_1600.Text = ergebnis11
- box_1600_2.Text = ergebnis12
- End Sub
Zum Verständnis, mit dem Programm berechnet man wieviel Stück einer Ware (ergebnis1-12) in einen Container einer bestimmten qm Größe passen (zahl1). Jede dieser Waren hat eine bestimmte qm Größe. Deswegen werden auch so viele Ergebnisse angezeigt.