|
You last visited: Today at 23:06
Advertisement
Visual Basic 08 Frage
Discussion on Visual Basic 08 Frage within the .NET Languages forum part of the Coders Den category.
09/05/2010, 17:53
|
#1
|
elite*gold: 20 
Join Date: Jan 2010
Posts: 548
Received Thanks: 72
|
Visual Basic 08 Frage
Ich habe eine Frage was an diesem Code falsch ist, VB sagt es hat was mit der Konvertierung ( rot ) zu tun.
Code:
Public Class Form1
Dim Kills As Double
Dim Deaths As Double
Dim Flash As Double
Dim Land As Double
Dim MedicKit As Double
Dim MedicBoxen As Double
Dim EXP As Double
Private Sub EXPBerechnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXPBerechnerToolStripMenuItem.Click
[COLOR="Red"] Kills = TextBox1.Text
Deaths = TextBox2.Text
Flash = TextBox3.Text
Land = TextBox4.Text
MedicKit = TextBox5.Text
MedicBoxen = TextBox6.Text[/COLOR] Label1.Text = ("In den unteren Boxen bitte Kills, usw. eintragen !")
Label2.Text = (" Kills")
Label3.Text = (" Deaths")
Label4.Text = (" Flash Minen")
Label5.Text = ("Land Minen")
Label6.Text = ("Medic Kit")
Label7.Text = ("Medic Boxen")
Label8.Text = ("Das sind die EXP")
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
Label7.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
TextBox5.Visible = True
TextBox6.Visible = True
TextBox7.Visible = True
CheckBox1.Visible = True
If CheckBox1.Checked = True Then
TextBox7.Text = Kills + Deaths + Flash + Land + MedicKit + MedicBoxen
End If
End Sub
ICh hoffe ihr könnt mir helfen
MFG likegta
|
|
|
|
09/05/2010, 17:55
|
#2
|
elite*gold: 0
Join Date: Aug 2009
Posts: 360
Received Thanks: 51
|
was willst du den coden so kann es dier niemand erklären
|
|
|
|
|
09/05/2010, 17:59
|
#3
|
elite*gold: 38
Join Date: Dec 2008
Posts: 1,339
Received Thanks: 462
|
du kannst ja keinen string in eine double variable werfen
du musst den string vorher convertieren
Quote:
Kills = Convert.ToDouble(TextBox1.Text)
Deaths = Convert.ToDouble(TextBox2.Text)
Flash = Convert.ToDouble(TextBox3.Text)
Land = Convert.ToDouble(TextBox4.Text)
MedicKit = Convert.ToDouble(TextBox5.Text)
MedicBoxen = Convert.ToDouble(TextBox6.Text)
|
P.S. fals jemand in die Textbox keine Zahlen reinschreibt wird dein Programm eine Exception schmeisen
|
|
|
|
|
09/05/2010, 17:59
|
#4
|
elite*gold: 20
Join Date: Jan 2010
Posts: 548
Received Thanks: 72
|
ein Warrock Tool aus dem code sollte ein exp Berechner werden...
Klappt immer noch ncith jetzt kommt :
Die Eingabezeichenfolge hat das falsche Format.
EDIT: Klappt doch, geht das nicht irgentwie anders, also das der Benutzer erst Zahlen eingeben muss wenn er im Menü auf EXP berechner geklickt hat?
|
|
|
|
|
09/05/2010, 18:04
|
#5
|
elite*gold: 38
Join Date: Dec 2008
Posts: 1,339
Received Thanks: 462
|
Quote:
Originally Posted by likegta
ein Warrock Tool aus dem code sollte ein exp Berechner werden...
Klappt immer noch ncith jetzt kommt :
Die Eingabezeichenfolge hat das falsche Format.
|
ist ja klar weil du garnicht prüfst ob du es überhaupt in double convertieren kannst
|
|
|
|
|
09/05/2010, 18:15
|
#6
|
elite*gold: 20
Join Date: Jan 2010
Posts: 548
Received Thanks: 72
|
Ich hatte schonmal ein Tool gecoded da ging es ohne das convert hier die Komplette Source von programm
Code:
Public Class Form1
Dim FirstNumber As Double
Dim SecondNumber As Double
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True
System.Diagnostics.Process.Start _
("www.gamersfirst.com/Warrock_Tool_by_v0ltagezz")
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
LinkLabel2.LinkVisited = True
System.Diagnostics.Process.Start _
("www.elitepvpers.com/forum/warrock")
End Sub
Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
LinkLabel3.LinkVisited = True
System.Diagnostics.Process.Start _
("www.warrock.info")
End Sub
Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
LinkLabel4.LinkVisited = True
System.Diagnostics.Process.Start _
("www.nexon.com")
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
FirstNumber = TextBox1.Text
SecondNumber = TextBox2.Text
If CheckBox1.Checked = True Then
TextBox3.Text = FirstNumber / SecondNumber
If TextBox3.Text > 10 Then
Do
MsgBox("HACKER")
Loop
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If TextBox4.Text = ("L85A1") Then
MsgBox("DAMAGE 50%,SPEED 60%, ACCURACY 52%, RECOIL 57%")
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
End Class
|
|
|
|
|
09/05/2010, 18:22
|
#7
|
elite*gold: 38
Join Date: Dec 2008
Posts: 1,339
Received Thanks: 462
|
Quote:
Originally Posted by likegta
Ich hatte schonmal ein Tool gecoded da ging es ohne das convert hier die Komplette Source von programm
Code:
Public Class Form1
Dim FirstNumber As Double
Dim SecondNumber As Double
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
LinkLabel1.LinkVisited = True
System.Diagnostics.Process.Start _
("www.gamersfirst.com/Warrock_Tool_by_v0ltagezz")
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
LinkLabel2.LinkVisited = True
System.Diagnostics.Process.Start _
("www.elitepvpers.com/forum/warrock")
End Sub
Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
LinkLabel3.LinkVisited = True
System.Diagnostics.Process.Start _
("www.warrock.info")
End Sub
Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
LinkLabel4.LinkVisited = True
System.Diagnostics.Process.Start _
("www.nexon.com")
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
FirstNumber = TextBox1.Text
SecondNumber = TextBox2.Text
If CheckBox1.Checked = True Then
TextBox3.Text = FirstNumber / SecondNumber
If TextBox3.Text > 10 Then
Do
MsgBox("HACKER")
Loop
End If
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If TextBox4.Text = ("L85A1") Then
MsgBox("DAMAGE 50%,SPEED 60%, ACCURACY 52%, RECOIL 57%")
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
End Class
|
gecoded meine Fresse ich verstehe nicht was alle daran finden das klingt so minderbemittelt, da kann man auch 10 mal alta sagen 
@Post
der komplette Code ist es bestimmt nicht da man nirgentwo sieht von welcher klasse du die objekte textbox1 etc.. erzeugt hast.
Ich denke mir einfach von der standart winforms textbox und wenn das sein sollte dann ist die eigenschaft Text ein string und wird auch nie was anderes sein.
Und ohne zu casten oder zu convertieren wird das was du vor hast nie funktionieren.
Außer du hast von der Textbox Klasse abgeleitet und das Text attribut überschrieben so das es ein double ist
|
|
|
|
|
09/05/2010, 18:27
|
#8
|
elite*gold: 20
Join Date: Jan 2010
Posts: 548
Received Thanks: 72
|
mhhh kp , mach vb erst seit 1 Monat.... dann muss ich das Programm anders designen trozdem danke für die Hilfe.
p.s der faceplam smily geht nicht ;D
#closerequest
|
|
|
|
 |
Similar Threads
|
Visual Basic Frage
08/06/2010 - WarRock - 4 Replies
Hallo, ich wollte heute mein erstes Warrock Tool mit Basic erstellen, es sollte/wird einen Kd Berechner, wichtige Warrock Links usw. enthalten.
Wenn das Tool fertig ist wird es heir hochgeladen, nun bin ich also fast fertig aber ein Fehler lässt nicht zu das Programm zu beenden, der Fehler ist :
Die Klasse Form1 kann entworfen werden, ist aber nicht die erste Klasse in der Datei. Visual Studio erfordert, dass Designer die erste Klasse in der Datei verwenden. Verschieben Sie den...
|
Visual Basic Frage
07/29/2010 - WarRock - 21 Replies
Hi also ich habe ein Warrock tool erstellt aber denn beim ausprobieren ist mir aufgefallen das, wenn ich auf einen button klicke nix passiert also die links öffnen sich nicht ich hab die links bei TAB gespeichert war Falsch
Also meine Frage : Wo muss ich den link einfügen damit er nachher auch funkt. ?
|
Visual Basic frage !!!
07/20/2010 - .NET Languages - 2 Replies
Hey ich hab nen Problem ich habe ein file writer und file open gemacht
man kann die datei umbennen also muss ich auch die funktion um schreiben das er auch in die neue file schreiben kann ..
Nur wenn ich jetzt in die file schreiben will schreibt der wieder in das alte ..
Dim fileReader As String
Dim Var As String
Var = My.Settings.save1
If System.IO.File.Exists("C:\Users\Tobi\Desktop\ test.txt") Then
|
Frage zu Visual Basic
07/19/2010 - .NET Languages - 4 Replies
Hey ich Programmier im mom kleine Sachen in VB 2010....
Nun wenn ich bei Virus Total nen Scan mache ist alles Clean aber wenn ich nen freund frag ob er es mal ausprobieren kann wird es bei ihm direkt als Virus angezeigt ... :( :( vill kann mir jmd helfen
|
Frage zu Visual Basic
04/04/2010 - Main - 1 Replies
Hallo liebe Community,
ich hätte eine Frage zu Microsoft Visual Basic 2008 Express Edition.
Kann ich meine Dateien bzw. meine Programme wieder bearbeiten?
Die Form1.vb und Entwurf?
|
All times are GMT +1. The time now is 23:08.
|
|
