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 - Problemino col mio codice [vb.net]
Forum - C# / VB.NET - Problemino col mio codice [vb.net]

Avatar
TEX WILLER (Normal User)
Expert


Messaggi: 579
Iscritto: 07/07/2009

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

cosa c' che non v in questo mio codice? perch si genera il case indux = 1, del select case indux anche se indux = 0?
grazie a tutti delle vostre risposte
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.         Dim index As Int16 = 0
  30.         Dim indus As Int16 = 0
  31.         Dim indux As Single = 0
  32.  
  33.         Do
  34.             Select Case sestina(index)
  35.                 Case (sestina(index)) = (imput(indus))
  36.                     indux += 1
  37.             End Select
  38.             indus += 1
  39.             index += 1
  40.         Loop Until (index >= 6) And (indus >= 6)
  41.         Select Case indux
  42.             Case indux = 0
  43.                 MessageBox.Show("ritenta Hai indovinato 0 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  44.             Case indux = 1
  45.                 MessageBox.Show("ritenta Hai indovinato 1 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  46.             Case indux = 2
  47.                 MessageBox.Show("ritenta Hai indovinato 2 numeri Ritenta", "ritenta", MessageBoxButtons.OK, MessageBoxIcon.Information)
  48.             Case indux = 3
  49.                 MessageBox.Show("Hai indovinato 3 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  50.             Case indux = 4
  51.                 MessageBox.Show("Hai indovinato 4 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  52.             Case indux = 5
  53.                 MessageBox.Show("Hai indovinato 5 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  54.             Case indux = 6
  55.                 MessageBox.Show("Hai indovinato 6 numeri complimenti", "complimenti", MessageBoxButtons.OK, MessageBoxIcon.Information)
  56.         End Select
  57.     End Sub
  58. End Class



-guida installazione ubuntu su VirtualBox:
http://bloginform.altervista.org/?p=287
- Il nuovo blog sull'informatica: http://bloginform.altervista.org/
PM
Avatar
netarrow (Admin)
Guru^2


Messaggi: 2502
Iscritto: 12/05/2004

Segnala al moderatore
Postato alle 22:30
Sabato, 18/09/2010
Questo topic in violazione di una o pi norme del regolamento: http://www.pierotofy.it/pages/extras/forum/9/3839-regolame ... .
    
Dopo averlo letto riapri un nuovo topic assicurandoti di aver rispettato le regole. Grazie per la tua pazienza.



Mai memorizzare quello che puoi comodamente trovare in un libro.
Imparare un'esperienza; tutto il resto solo informazione.
L'immaginazione pi importante della conoscenza.
(A. Einstein)


Esistendo poi google...
PM