Som besökare på Hamsterpaj samtycker du till användandet av s.k. cookies för att förbättra din upplevelse hos oss. Jag förstår, ta bort denna ruta!
Annons

Vb.net problem

Skapad av p5, 2011-08-17 20:30 i Webbutveckling & Programmering

1 698
21 inlägg
0 poäng
p5
Visningsbild
Hjälte 585 inlägg
2011-08-17 20:30
0
Hejsan jag har problem med denna koden


vad är problemet?

Tillägg av p5 2011-08-17 20:32

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BackColor = Color.LightGreen
TextBox1.Enabled = True
Dim Key As Integer
Key = (Rnd() * 5)
Timer1.Stop()
End If

If RadioButton1.Checked = True Then
Select Case Key
Case 1
TextBox1.Text = "1330-1270-2109-5153-8837-9231"
Case 2
TextBox1.Text = "1330-1953-8438-8500-7117-3533"
Case 3
TextBox1.Text = "1330-1158-3088-0438-6574-0867"
Case 4
TextBox1.Text = "1330-1361-6670-4304-7886-6688"
Case 5
TextBox1.Text = "1330-1985-9548-0538-9132-8266"
End Select
End If
If RadioButton2.Checked = True Then
Select Case Key()
Case 1
TextBox1.Text = "1325-1118-5864-4422-1094-1166"
Case 2
TextBox1.Text = "1192-1378-9489-2478-4506-6866"
Case 3
TextBox1.Text = "1192-1688-1273-5698-6952-5360"
Case 4
TextBox1.Text = "1192-1018-4023-3250-4269-8918"
Case 5
TextBox1.Text = "1192-1015-3447-7982-8441-4483"
End Select
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Function Key() As Object
Throw New NotImplementedException
End Function

End Class

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka

Är reklamen ivägen? Logga in eller registrera dig så försvinner den!

Christley
Visningsbild
P -1322 Bandhagen Hjälte 6 449 inlägg
2011-08-17 20:43
0
vore så mycket enklare om du sa vilken rad som felet är på

being skinny with abs is like a fat bitch with big tits - it doesn't count

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-17 20:47
0

Svar till Christley [Gå till post]:
Throw New NotImplementedException
den är fel ;/

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
Christley
Visningsbild
P -1322 Bandhagen Hjälte 6 449 inlägg
2011-08-17 20:53
0
Svar till p5 [Gå till post]:
varför tar du inte bara bort den funktionen då? den är inte kritisk för programmet
för du försöker hitta ett fel som inte är en felrapport

being skinny with abs is like a fat bitch with big tits - it doesn't count

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-17 20:55
0

Svar till Christley [Gå till post]:
tar jag bort den då får jag mer fel

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
Christley
Visningsbild
P -1322 Bandhagen Hjälte 6 449 inlägg
2011-08-17 20:58
0

Svar till p5 [Gå till post]:
Select Case Key

är fel, du måste ha Select Case Key()


dock utgår jag från att error handling är rätt, för jag kan inte sånt så bra

being skinny with abs is like a fat bitch with big tits - it doesn't count

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-17 21:01
0

Svar till Christley [Gå till post]:
Tack men fortfarande fel

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
Christley
Visningsbild
P -1322 Bandhagen Hjälte 6 449 inlägg
2011-08-17 21:04
0

Svar till p5 [Gå till post]:
testa att köra ApplicationException som errorhandler

being skinny with abs is like a fat bitch with big tits - it doesn't count

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-17 21:06
0

Svar till Christley [Gå till post]:
Vad menar du nu, hur gör jag det?

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
Christley
Visningsbild
P -1322 Bandhagen Hjälte 6 449 inlägg
2011-08-17 21:10
0

Svar till p5 [Gå till post]:
du har bara kopierat den där programkoden eller hur? och försöker köra den?

being skinny with abs is like a fat bitch with big tits - it doesn't count

Direktlänk Svara på inlägg Gästbok
Skicka
burgerwolf
Visningsbild
P Hjälte 506 inlägg
2011-08-17 21:11
0
LÄS HELA POSTEN INNAN DU ÄNDRAR NÅT

"TextBox1.Enabled = True
Dim Key As Integer
Key = (Rnd() * 5)"


du måste skriva dim i början av hela suben, alltså:



"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Key As Integer
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BackColor = Color.LightGreen
TextBox1.Enabled = True
Key = (Rnd() * 5)
Timer1.Stop()
End If
" = FEL OCKSÅ SÅG JAG SEN :P

fast sen såg jag att du inte använde key:n lokalt utan även i andra subbar så då måste du ha:

"
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
BackColor = Color.LightGreen
TextBox1.Enabled = True
Key = (Rnd() * 5)
Timer1.Stop()
End If
"

och sen ändra

"
Public Class Form1
"

till

"

Public Class Form1
Dim Key as Integer

"

Säg till om det inte skulle funka :P

Ingen status

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-17 21:25
0

Svar till burgerwolf [Gå till post]:
det funkar inte, då det blir problem med key taggen

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
burgerwolf
Visningsbild
P Hjälte 506 inlägg
2011-08-17 21:29
0
jo det var som jag tänkte, vänta lite

Ingen status

Direktlänk Svara på inlägg Gästbok
Skicka
burgerwolf
Visningsbild
P Hjälte 506 inlägg
2011-08-17 21:31
0
skriv såhär istället för att dim:a KEY taggen

public key as integer

Tillägg av burgerwolf 2011-08-17 21:31

alltså direkt efter Public Class Form1 fast på ny rad

Ingen status

Direktlänk Svara på inlägg Gästbok
Skicka
anonym215
Visningsbild
P 28 Katthammarsvik Hjälte 1 984 inlägg
2011-08-17 22:19
0

Svar till p5 [Gå till post]:
så går det när man kopierar

lol

Direktlänk Svara på inlägg Gästbok
Skicka
burgerwolf
Visningsbild
P Hjälte 506 inlägg
2011-08-17 22:23
0

Svar till p5 [Gå till post]:
funkade det nu?

Ingen status

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-19 01:15
0

Svar till anonym215 [Gå till post]:
Haha kopierar?, jag har inte kopierat något av den där koden lille vän

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
anonym215
Visningsbild
P 28 Katthammarsvik Hjälte 1 984 inlägg
2011-08-19 13:13
0

Svar till p5 [Gå till post]:
Du har skrivit av då ?

lol

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-21 19:42
0

Svar till anonym215 [Gå till post]:
där var du rolig

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka
anonym215
Visningsbild
P 28 Katthammarsvik Hjälte 1 984 inlägg
2011-08-21 20:36
0

Svar till p5 [Gå till post]:
okej, vad gör Throw New NotImplementedException
vad gör Key = (Rnd() * 5)


lol

Direktlänk Svara på inlägg Gästbok
Skicka
p5
Visningsbild
Hjälte 585 inlägg
Trådskapare
2011-08-22 08:06
0
Key = (Rnd() * 5) betyder att den ska slumpa 5st key's

Störd bajare.

Direktlänk Svara på inlägg Gästbok
Skicka

Forum » Datorer & IT » Webbutveckling & Programmering » Vb.net problem

Ansvariga ordningsvakter:

Användare som läser i den här tråden just nu

1 utloggad

Skriv ett nytt inlägg

Hej! Innan du skriver om ett potentiellt problem så vill vi påminna dig om att du faktiskt inte är ensam. Du är inte onormal och världen kommer inte att gå under, vi lovar! Så slappna av och gilla livet i några minuter - känns det fortfarande hemskt? Skriv gärna ner dina tankar och frågor, vi älskar att hjälpa just dig!

Den här tråden är äldre än Rojks drömtjej!

Det senaste inlägget i den här tråden skrevs för över tre månader sedan. Är du säker på att du vill återuppliva diskussionen? Har du något vettigt att tillföra eller passar din fråga i en ny tråd? Onödiga återupplivningar kommer att låsas så tänk efter en extra gång!

Rubrik

Inlägg

Fet Kursiv Spoiler Bild Film Kod Undersökning

Förhandsgranska Spara

Hjälp

Det här är en hjälpruta

Här får du korta tips och förklaringar om forumet. Välj kapitel i rullningslisten här ovanför.

Rutan uppdateras automagiskt

När du använder funktioner i forumet så visas bra tips här.


Annons
Annons
Annons
Annons