Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicit e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [vb.net] case non v
Forum - C# / VB.NET - [vb.net] case non v

Avatar
TEX WILLER (Normal User)
Expert


Messaggi: 579
Iscritto: 07/07/2009

Segnala al moderatore
Postato alle 23:05
Sabato, 18/09/2010
Questo topic stato chiuso dal moderatore

salve a tutti, ho questo codice, dove nel select case indux, nel primo case: "case indux = 1" si genera sempre anche se il valore di indux e 0, se poi prima del select case provo a impostare indux = 3 allora non si genera nessun case, dov' l'errore?
Grazie per le vostre risp!
Codice sorgente - presumibilmente VB.NET

  1. Public Class Form1
  2.     Dim estrazione As New Random()
  3.     Dim sestina(5) As Int16
  4.     Dim imput(5) As Int16
  5.  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         'array di valori immessi dagli utenti
  8.         imput(0) = CType(NumericUpDown1.Value, Short)
  9.         imput(1) = CType(NumericUpDown2.Value, Short)
  10.         imput(2) = CType(NumericUpDown3.Value, Short)
  11.         imput(3) = CType(NumericUpDown4.Value, Short)
  12.         imput(4) = CType(NumericUpDown5.Value, Short)
  13.         imput(5) = CType(NumericUpDown6.Value, Short)
  14.         'array che contiene i valori visualizati a random
  15.         sestina(0) = CType(estrazione.Next(1, 90), Int16)
  16.         sestina(1) = CType(estrazione.Next(1, 90), Int16)
  17.         sestina(2) = CType(estrazione.Next(1, 90), Int16)
  18.         sestina(3) = CType(estrazione.Next(1, 90), Int16)
  19.         sestina(4) = CType(estrazione.Next(1, 90), Int16)
  20.         sestina(5) = CType(estrazione.Next(1, 90), Int16)
  21.         'qui passo alle textbox i valori dentro le celle degli array
  22.         TextBox1.Text = sestina(0)
  23.         TextBox2.Text = sestina(1)
  24.         TextBox3.Text = sestina(2)
  25.         TextBox4.Text = sestina(3)
  26.         TextBox5.Text = sestina(4)
  27.         TextBox6.Text = sestina(5)
  28.         'ora confrontiamo le scelete degli uetnti con i valori delle Textbox per vedere se c' la vincita
  29.  
  30.         Dim indux As Single = 0
  31.  
  32.         For i = 0 To sestina.Count - 1
  33.             For j = 0 To imput.Count - 1
  34.                 If sestina(i) = imput(j) Then
  35.                     indux += 1
  36.                 End If
  37.             Next
  38.         Next
  39.         Select Case indux
  40.             Case indux = 0
  41.                 MessageBox.Show("ritenta Hai indovinato 0 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  42.             Case indux = 1
  43.                 MessageBox.Show("ritenta Hai indovinato 1 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  44.             Case indux = 2
  45.                 MessageBox.Show("ritenta Hai indovinato 2 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  46.             Case indux = 3
  47.                 MessageBox.Show("Hai indovinato 3 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  48.             Case indux = 4
  49.                 MessageBox.Show("Hai indovinato 4 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  50.             Case indux = 5
  51.                 MessageBox.Show("Hai indovinato 5 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  52.             Case indux = 6
  53.                 MessageBox.Show("Hai indovinato 6 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  54.         End Select
  55.     End Sub
  56. End Class



-guida installazione ubuntu su VirtualBox:
http://bloginform.altervista.org/?p=287
- Il nuovo blog sull'informatica: http://bloginform.altervista.org/
PM
Avatar
TEX WILLER (Normal User)
Expert


Messaggi: 579
Iscritto: 07/07/2009

Up
0
Down
V
Segnala al moderatore
Postato alle 23:24
Sabato, 18/09/2010
Ho risolto tutto in chat con l'aiuto di dotNET!


-guida installazione ubuntu su VirtualBox:
http://bloginform.altervista.org/?p=287
- Il nuovo blog sull'informatica: http://bloginform.altervista.org/
PM
Avatar
Scar (Normal User)
Newbie


Messaggi: 3
Iscritto: 14/09/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 14:19
Domenica, 19/09/2010
e beh questi Case fatti un p male


uhm!?
PM