Hi,
ich programmier grad mit Visual Basic einen Widerstandsberechner.
Klappt auch schon alles mit dem Rechnen, aber das Runden nicht ganz.
Also die Zahl die beim Rechnen rauskommt hat die bezeichnung "b".
Wenn da eine Zahl unter 1000 rauskommt, dann soll die so in das Textfeld mit der bezeichnung "widerstand" reingeschreben werden. Das funktioniert auch schon.
Jetzt sollen noch die Zahlen, die über 1000 sind in KOhm also geteilt durch 1000 gerechnet werden. Allerdings sollte er da auf 1 nachkommastelle runden (nur auf- nicht abrunden) und ich hätte gern ein k hinter der Zahl. Wie mach ich das am besten?
Code: [Auswählen]
Dim a As Single
If Strom.SelectedIndex = 0 Then a = 0.015
If Strom.SelectedIndex = 1 Then a = 0.02
If Strom.SelectedIndex = 2 Then a = 0.025
If Strom.SelectedIndex = 3 Then a = 0.03
If Strom.SelectedIndex = 4 Then a = 0.035
If Strom.SelectedIndex = 5 Then a = 0.05
If Strom.SelectedIndex = 6 Then a = 0.06
If Strom.SelectedIndex = 7 Then a = 0.08
If Strom.SelectedIndex = 8 Then a = 0.09
If Strom.SelectedIndex = 9 Then a = 0.1
If Strom.SelectedIndex = 10 Then a = 0.12
If Strom.SelectedIndex = 11 Then a = 0.35
If Strom.SelectedIndex = 12 Then a = 0.7
Dim b As Single
Dim c As Single
b = VSpannung.Text / a
If b >= 1000 Then c = b / 1000
If b < 1000 Then c = b
Widerstand.Text = c
