Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Random Number 1.0 - frmPrincipale.vb

frmPrincipale.vb

 Caricato da:
Scarica il programma completo

  1. Public Class frmPrincipale
  2.  
  3.     Dim varTentativi As Byte
  4.  
  5.     Private Sub mnuNuova_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNuova.Click
  6.  
  7.         ' Initialize the random-number generator.
  8.         Randomize()
  9.         'Estrae un numero casuale compreso tra 1 e 90
  10.         Dim varNumeroRandom As Byte = CInt(Int((90 * Rnd()) + 1))
  11.         'Inserisce il numero estratto nella lblNumero
  12.         lblNumero.Text = varNumeroRandom
  13.  
  14.         mnuNuova.Enabled = False
  15.         txtProva.Enabled = True
  16.         lblNumero.Visible = False
  17.  
  18.         lblAiuto.Text = "Inserisci un numero da 1 e 90"
  19.         lblAiuto.Visible = True
  20.         lblTentativi.Visible = True
  21.  
  22.         varTentativi = 7
  23.  
  24.         lblTentativi.Text = "7"
  25.         txtProva.Text = ""
  26.  
  27.     End Sub
  28.  
  29.     Private Sub frmPrincipale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  30.  
  31.         txtProva.Enabled = False
  32.         btnProva.Enabled = False
  33.  
  34.         lblAiuto.Visible = True
  35.         lblTentativi.Visible = False
  36.  
  37.         lblNumero.Visible = False
  38.  
  39.         varTentativi = (7)
  40.  
  41.         lblAiuto.Text = "INIZIA UNA NUOVA PARTITA"
  42.  
  43.     End Sub
  44.  
  45.     Private Sub txtProva_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtProva.TextChanged
  46.  
  47.         Dim varEstratto = lblNumero.Text
  48.  
  49.         If IsNumeric(txtProva.Text) Then
  50.             btnProva.Enabled = True
  51.         Else
  52.             txtProva.Text = ""
  53.             btnProva.Enabled = False
  54.         End If
  55.  
  56.     End Sub
  57.  
  58.     Private Sub btnProva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProva.Click
  59.  
  60.         Dim varGenera As Byte
  61.         varGenera = txtProva.Text
  62.  
  63.         Select Case varGenera
  64.             Case "0"
  65.                 txtProva.Text = "01"
  66.             Case "1"
  67.                 txtProva.Text = "01"
  68.             Case "2"
  69.                 txtProva.Text = "02"
  70.             Case "3"
  71.                 txtProva.Text = "03"
  72.             Case "4"
  73.                 txtProva.Text = "04"
  74.             Case "5"
  75.                 txtProva.Text = "05"
  76.             Case "6"
  77.                 txtProva.Text = "06"
  78.             Case "7"
  79.                 txtProva.Text = "07"
  80.             Case "8"
  81.                 txtProva.Text = "08"
  82.             Case "9"
  83.                 txtProva.Text = "09"
  84.             Case Is > 90
  85.                 txtProva.Text = "90"
  86.         End Select
  87.  
  88.         Dim varTestNumero = txtProva.Text
  89.         Dim varEstratto = lblNumero.Text
  90.  
  91.         Select Case varTestNumero
  92.  
  93.             Case Is < varEstratto
  94.                 lblAiuto.Text = "Il numero estratto è MAGGIORE di quello inserito"
  95.                 varTentativi -= 1
  96.             Case Is > varEstratto
  97.                 lblAiuto.Text = "Il numero estratto è MINORE di quello inserito"
  98.                 varTentativi -= 1
  99.             Case Is = varEstratto
  100.                 lblAiuto.Text = "HAI VINTO"
  101.                 lblTentativi.Text = "HAI VINTO"
  102.                 txtProva.Enabled = False
  103.                 btnProva.Enabled = False
  104.                 mnuNuova.Enabled = True
  105.                 lblNumero.Visible = True
  106.                 lblTentativi.Text = "HAI VINTO"
  107.         End Select
  108.  
  109.         Select Case varTentativi
  110.             Case 7
  111.                 lblTentativi.Text = "7"
  112.             Case 6
  113.                 lblTentativi.Text = "6"
  114.             Case 5
  115.                 lblTentativi.Text = "5"
  116.             Case 4
  117.                 lblTentativi.Text = "4"
  118.             Case 3
  119.                 lblTentativi.Text = "3"
  120.             Case 2
  121.                 lblTentativi.Text = "2"
  122.             Case 1
  123.                 lblTentativi.Text = "1"
  124.             Case 0
  125.                 lblTentativi.Text = "0"
  126.                 lblAiuto.Text = "HAI PERSO"
  127.                 txtProva.Enabled = False
  128.                 btnProva.Enabled = False
  129.                 mnuNuova.Enabled = True
  130.                 lblNumero.Visible = True
  131.         End Select
  132.  
  133.         btnProva.Enabled = False
  134.  
  135.     End Sub
  136.  
  137.     Private Sub mnuInformazioni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInformazioni.Click
  138.  
  139.         Me.Enabled = False
  140.         AboutBox1.Show()
  141.  
  142.     End Sub
  143.  
  144.     Private Sub mnuEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEsci.Click
  145.  
  146.         Me.Close()
  147.  
  148.     End Sub
  149.  
  150. End Class