Guten Tag mein Name ist Miku ich bin RPG-Programmierer/in und ich muss für die Schule einen Widerstandsrechner scripten. Ich möchte das
wenn die Zahl "1" in Label1 = "1" ist, das er dann in Label2 die "1 Ω." schreibt. Wenn die Zahl "10" in Label1 = "10" ist, das er dann in Label2 die "10 Ω" schreib und bei 100 genauso Label1 = "100", ist die Zahl in Label2 = "100 Ω". Mein Problem ist jetzt ab 1000, wenn ich die Zahl in Label1.Text = "1000" habe dann soll in Label2.Text drin stehen: " 1 kΩ" und das dann immer so weiter.
Label1.Text = 1000 = Label2.Text = 1 kΩ, Label1.Text = 1100 = Label2.Text = 11 kΩ
Label1.Text = 10000 = Label2.Text = 10 kΩ und das soll bis 100 000 000 gehen also 100 Mega Ohm, weil ich habe keine Lust von 1 bis 100 000 000 jede Zahl zu schreiben das wäre zu viel Arbeit und ein viel zu langer Script. Gibt es keine einfachere Lösung?
Also ich benutze auch eine Progressbar Buttons Label und TextBoxen
mein Script sieht so aus:
Die Kommentare dienen mir nur zur Hilfestellung/Erinnerung
Also auch wenn es falsch ist mein ich es eigentlich so:
If Progressbar2.Value = 100 and Label18.Text = "1000" then Label19.Text = "1 kΩ"
If Progressbar2.Value = 100 and Label18.Text = "1000000" then Label19.Text = "1 MΩ"
und das mit "jeder" zahl von 1 bis 100 000 000 ohne jetzt einen Mega Script zu schreiben.
Ich bin für jede Hilfe ohne Small Talk dankbar :)
PS: Ich möchte auch nichts am Script verändern, ich möchte nur erfahren bzw. wissen, wie ich die Formatierung erstellen kann.
mfg Miku
wenn die Zahl "1" in Label1 = "1" ist, das er dann in Label2 die "1 Ω." schreibt. Wenn die Zahl "10" in Label1 = "10" ist, das er dann in Label2 die "10 Ω" schreib und bei 100 genauso Label1 = "100", ist die Zahl in Label2 = "100 Ω". Mein Problem ist jetzt ab 1000, wenn ich die Zahl in Label1.Text = "1000" habe dann soll in Label2.Text drin stehen: " 1 kΩ" und das dann immer so weiter.
Label1.Text = 1000 = Label2.Text = 1 kΩ, Label1.Text = 1100 = Label2.Text = 11 kΩ
Label1.Text = 10000 = Label2.Text = 10 kΩ und das soll bis 100 000 000 gehen also 100 Mega Ohm, weil ich habe keine Lust von 1 bis 100 000 000 jede Zahl zu schreiben das wäre zu viel Arbeit und ein viel zu langer Script. Gibt es keine einfachere Lösung?
Also ich benutze auch eine Progressbar Buttons Label und TextBoxen
mein Script sieht so aus:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Timer1.Start()
- ' If ComboBox1.Text = "Braun" Then TextBox1.Text = "1"
- ' If ComboBox1.Text = "Rot" Then TextBox1.Text = "2"
- ' If ComboBox1.Text = "Orange" Then TextBox1.Text = "3"
- ' If ComboBox1.Text = "Gelb" Then TextBox1.Text = "4"
- ' If ComboBox1.Text = "Grün" Then TextBox1.Text = "5"
- ' If ComboBox1.Text = "Blau" Then TextBox1.Text = "6"
- ' If ComboBox1.Text = "Violett" Then TextBox1.Text = "7"
- ' If ComboBox1.Text = "Grau" Then TextBox1.Text = "8"
- ' If ComboBox1.Text = "Weiss" Then TextBox1.Text = "9"
- ' If ComboBox1.Text = "Gold" Then TextBox1.Text = "-"
- ' If ComboBox1.Text = "Silber" Then TextBox1.Text = "-"
- If ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or ComboBox4.Text = "" Then
- Timer1.Stop()
- MsgBox("Es wurden nicht alle Werte zum Berechnen eingegeben. Berechnung kann nicht gestartet werden. Bitte geben sie ihre Werte ein und wiederholen sie den Vorgang erneut.")
- End If
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Me.Close()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ProgressBar2.Increment(1)
- Label3.Text = ProgressBar2.Value & (" %")
- 'Widerstandsrechner mit 4 Ringen'
- 'Ring 1'
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Schwarz" Then Label4.Text = "0"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Braun" Then Label4.Text = "1"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Rot" Then Label4.Text = "2"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Orange" Then Label4.Text = "3"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Gelb" Then Label4.Text = "4"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Grün" Then Label4.Text = "5"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Blau" Then Label4.Text = "6"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Violett" Then Label4.Text = "7"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Grau" Then Label4.Text = "8"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Weiss" Then Label4.Text = "9"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Gold" Then Label4.Text = "-"
- If ProgressBar2.Value = 100 And ComboBox1.Text = "Silber" Then Label4.Text = "-"
- 'Ring 2'
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Schwarz" Then Label5.Text = "0"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Braun" Then Label5.Text = "1"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Rot" Then Label5.Text = "2"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Orange" Then Label5.Text = "3"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Gelb" Then Label5.Text = "4"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Grün" Then Label5.Text = "5"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Blau" Then Label5.Text = "6"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Violett" Then Label5.Text = "7"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Grau" Then Label5.Text = "8"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Weiss" Then Label5.Text = "9"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Gold" Then Label5.Text = "-"
- If ProgressBar2.Value = 100 And ComboBox2.Text = "Silber" Then Label5.Text = "-"
- 'Ring 4 (Toleranz)'
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Schwarz" Then Label10.Text = "0"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Braun" Then Label10.Text = "1"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Rot" Then Label10.Text = "2"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Orange" Then Label10.Text = "3"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Gelb" Then Label10.Text = "4"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Grün" Then Label10.Text = "5"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Blau" Then Label10.Text = "6"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Violett" Then Label10.Text = "7"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Grau" Then Label10.Text = "8"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Weiss" Then Label10.Text = "9"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Gold" Then Label10.Text = "-"
- If ProgressBar2.Value = 100 And ComboBox4.Text = "Silber" Then Label10.Text = "-"
- 'Ring 3 (Multiplizierer)
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Schwarz" Then Label9.Text = "1"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Braun" Then Label9.Text = "10"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Rot" Then Label9.Text = "100"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Orange" Then Label9.Text = "1000"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Gelb" Then Label9.Text = "10000"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Grün" Then Label9.Text = "100000"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Blau" Then Label9.Text = "1000000"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Violett" Then Label9.Text = "10000000"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Grau" Then Label9.Text = ""
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Weiss" Then Label9.Text = ""
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Gold" Then Label9.Text = "0,1"
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Silber" Then Label9.Text = "0,01"
- 'Einheiten
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Schwarz" Then Label16.Text = ("1 Ω")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Braun" Then Label16.Text = ("10 Ω")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Rot" Then Label16.Text = ("100 Ω")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Orange" Then Label16.Text = ("1 kΩ")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Gelb" Then Label16.Text = ("10 kΩ")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Grün" Then Label16.Text = ("100 kΩ")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Blau" Then Label16.Text = ("1M Ω")
- If ProgressBar2.Value = 100 And ComboBox3.Text = "Violett" Then Label16.Text = ("10 MΩ")
- 'Statusanzeige'
- If ProgressBar2.Value = 10 Then Label1.Text = "Berechne: Geburtsjahr"
- 'Auswertung'
- Label14.Text = Val(Label4.Text) * 10
- Label15.Text = Val(Label5.Text) * 1
- Label17.Text = Label10.Text
- Label13.Text = Val(Label4.Text) & Val(Label5.Text)
- If ProgressBar2.Value = 100 Then Label18.Text = Val(Label13.Text) * Val(Label9.Text)
- 'Rechnung 1:
- 'Ring1= 2x10; Rot x 10
- 'Ring2= 2x0; Rot mal Schwarz
- 'Ring3= x100; Ring1+Ring2 x 100
- If Label18.Text = "#" Then Label19.Text = "# Ω"
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- Timer2.Start()
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Timer2.Stop()
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- ProgressBar1.Increment(1)End Sub
- End Class
Die Kommentare dienen mir nur zur Hilfestellung/Erinnerung
Also auch wenn es falsch ist mein ich es eigentlich so:
If Progressbar2.Value = 100 and Label18.Text = "1000" then Label19.Text = "1 kΩ"
If Progressbar2.Value = 100 and Label18.Text = "1000000" then Label19.Text = "1 MΩ"
und das mit "jeder" zahl von 1 bis 100 000 000 ohne jetzt einen Mega Script zu schreiben.
Ich bin für jede Hilfe ohne Small Talk dankbar :)
PS: Ich möchte auch nichts am Script verändern, ich möchte nur erfahren bzw. wissen, wie ich die Formatierung erstellen kann.
mfg Miku