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
Slot Machine 1.0 - Form1.vb

Form1.vb

 Caricato da:
Scarica il programma completo

  1. Public Class Form1
  2.     Inherits System.Windows.Forms.Form
  3.  
  4. #Region " Windows Form Designer generated code "
  5.  
  6.     Public Sub New()
  7.         MyBase.New()
  8.  
  9.         'This call is required by the Windows Form Designer.
  10.         InitializeComponent()
  11.  
  12.         'Add any initialization after the InitializeComponent() call
  13.  
  14.     End Sub
  15.  
  16.     'Form overrides dispose to clean up the component list.
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  25.  
  26.     'Required by the Windows Form Designer
  27.     Private components As System.ComponentModel.IContainer
  28.  
  29.     'NOTE: The following procedure is required by the Windows Form Designer
  30.     'It can be modified using the Windows Form Designer.  
  31.     'Do not modify it using the code editor.
  32.     Friend WithEvents Label1 As System.Windows.Forms.Label
  33.     Friend WithEvents Label2 As System.Windows.Forms.Label
  34.     Friend WithEvents Label3 As System.Windows.Forms.Label
  35.     Friend WithEvents Timer1 As System.Windows.Forms.Timer
  36.     Friend WithEvents Timer2 As System.Windows.Forms.Timer
  37.     Friend WithEvents Timer3 As System.Windows.Forms.Timer
  38.     Friend WithEvents Button1 As System.Windows.Forms.Button
  39.     Friend WithEvents Button2 As System.Windows.Forms.Button
  40.     Friend WithEvents Button3 As System.Windows.Forms.Button
  41.     Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
  42.     Friend WithEvents Button4 As System.Windows.Forms.Button
  43.     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
  44.     Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
  45.     Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
  46.     Friend WithEvents Label4 As System.Windows.Forms.Label
  47.     Friend WithEvents lblsoldi As System.Windows.Forms.Label
  48.     Friend WithEvents Label6 As System.Windows.Forms.Label
  49.     Friend WithEvents txtpuntata As System.Windows.Forms.TextBox
  50.     Friend WithEvents Label5 As System.Windows.Forms.Label
  51.     Friend WithEvents Label7 As System.Windows.Forms.Label
  52.     Friend WithEvents Label8 As System.Windows.Forms.Label
  53.     Friend WithEvents Label9 As System.Windows.Forms.Label
  54.     Friend WithEvents Label10 As System.Windows.Forms.Label
  55.     Friend WithEvents Button5 As System.Windows.Forms.Button
  56.     Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
  57.     Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
  58.     Friend WithEvents Button6 As System.Windows.Forms.Button
  59.     Friend WithEvents Button7 As System.Windows.Forms.Button
  60.     Friend WithEvents Button8 As System.Windows.Forms.Button
  61.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  62.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  63.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  64.         Me.components = New System.ComponentModel.Container
  65.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  66.         Me.Label1 = New System.Windows.Forms.Label
  67.         Me.Label2 = New System.Windows.Forms.Label
  68.         Me.Label3 = New System.Windows.Forms.Label
  69.         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  70.         Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
  71.         Me.Timer3 = New System.Windows.Forms.Timer(Me.components)
  72.         Me.Button1 = New System.Windows.Forms.Button
  73.         Me.Button2 = New System.Windows.Forms.Button
  74.         Me.Button3 = New System.Windows.Forms.Button
  75.         Me.ComboBox1 = New System.Windows.Forms.ComboBox
  76.         Me.Button4 = New System.Windows.Forms.Button
  77.         Me.PictureBox1 = New System.Windows.Forms.PictureBox
  78.         Me.PictureBox3 = New System.Windows.Forms.PictureBox
  79.         Me.PictureBox4 = New System.Windows.Forms.PictureBox
  80.         Me.Label4 = New System.Windows.Forms.Label
  81.         Me.lblsoldi = New System.Windows.Forms.Label
  82.         Me.Label6 = New System.Windows.Forms.Label
  83.         Me.txtpuntata = New System.Windows.Forms.TextBox
  84.         Me.Label5 = New System.Windows.Forms.Label
  85.         Me.Label7 = New System.Windows.Forms.Label
  86.         Me.Label8 = New System.Windows.Forms.Label
  87.         Me.Label9 = New System.Windows.Forms.Label
  88.         Me.Label10 = New System.Windows.Forms.Label
  89.         Me.Button5 = New System.Windows.Forms.Button
  90.         Me.RadioButton2 = New System.Windows.Forms.RadioButton
  91.         Me.RadioButton1 = New System.Windows.Forms.RadioButton
  92.         Me.Button6 = New System.Windows.Forms.Button
  93.         Me.Button7 = New System.Windows.Forms.Button
  94.         Me.Button8 = New System.Windows.Forms.Button
  95.         Me.Panel1 = New System.Windows.Forms.Panel
  96.         Me.Panel2 = New System.Windows.Forms.Panel
  97.         Me.Panel2.SuspendLayout()
  98.         Me.SuspendLayout()
  99.         '
  100.         'Label1
  101.         '
  102.         Me.Label1.BackColor = System.Drawing.Color.Black
  103.         Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  104.         Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  105.         Me.Label1.ForeColor = System.Drawing.Color.Red
  106.         Me.Label1.Location = New System.Drawing.Point(208, 304)
  107.         Me.Label1.Name = "Label1"
  108.         Me.Label1.Size = New System.Drawing.Size(120, 176)
  109.         Me.Label1.TabIndex = 0
  110.         '
  111.         'Label2
  112.         '
  113.         Me.Label2.BackColor = System.Drawing.Color.Black
  114.         Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  115.         Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  116.         Me.Label2.ForeColor = System.Drawing.Color.Red
  117.         Me.Label2.Location = New System.Drawing.Point(344, 304)
  118.         Me.Label2.Name = "Label2"
  119.         Me.Label2.Size = New System.Drawing.Size(120, 176)
  120.         Me.Label2.TabIndex = 1
  121.         '
  122.         'Label3
  123.         '
  124.         Me.Label3.BackColor = System.Drawing.Color.Black
  125.         Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  126.         Me.Label3.Font = New System.Drawing.Font("Comic Sans MS", 72.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  127.         Me.Label3.ForeColor = System.Drawing.Color.Red
  128.         Me.Label3.Location = New System.Drawing.Point(480, 304)
  129.         Me.Label3.Name = "Label3"
  130.         Me.Label3.Size = New System.Drawing.Size(120, 176)
  131.         Me.Label3.TabIndex = 2
  132.         '
  133.         'Timer1
  134.         '
  135.         Me.Timer1.Interval = 800
  136.         '
  137.         'Timer2
  138.         '
  139.         Me.Timer2.Interval = 800
  140.         '
  141.         'Timer3
  142.         '
  143.         Me.Timer3.Interval = 800
  144.         '
  145.         'Button1
  146.         '
  147.         Me.Button1.BackColor = System.Drawing.Color.Black
  148.         Me.Button1.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  149.         Me.Button1.ForeColor = System.Drawing.Color.Red
  150.         Me.Button1.Location = New System.Drawing.Point(216, 232)
  151.         Me.Button1.Name = "Button1"
  152.         Me.Button1.Size = New System.Drawing.Size(120, 32)
  153.         Me.Button1.TabIndex = 3
  154.         Me.Button1.Text = "STOPPA A"
  155.         Me.Button1.Visible = False
  156.         '
  157.         'Button2
  158.         '
  159.         Me.Button2.BackColor = System.Drawing.Color.Black
  160.         Me.Button2.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  161.         Me.Button2.ForeColor = System.Drawing.Color.Red
  162.         Me.Button2.Location = New System.Drawing.Point(344, 232)
  163.         Me.Button2.Name = "Button2"
  164.         Me.Button2.Size = New System.Drawing.Size(128, 32)
  165.         Me.Button2.TabIndex = 4
  166.         Me.Button2.Text = "STOPPA B"
  167.         Me.Button2.Visible = False
  168.         '
  169.         'Button3
  170.         '
  171.         Me.Button3.BackColor = System.Drawing.Color.Black
  172.         Me.Button3.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  173.         Me.Button3.ForeColor = System.Drawing.Color.Red
  174.         Me.Button3.Location = New System.Drawing.Point(480, 232)
  175.         Me.Button3.Name = "Button3"
  176.         Me.Button3.Size = New System.Drawing.Size(120, 32)
  177.         Me.Button3.TabIndex = 5
  178.         Me.Button3.Text = "STOPPA C"
  179.         Me.Button3.Visible = False
  180.         '
  181.         'ComboBox1
  182.         '
  183.         Me.ComboBox1.Items.AddRange(New Object() {"1", "2", "3", "4", "5", "6", "7"})
  184.         Me.ComboBox1.Location = New System.Drawing.Point(424, 88)
  185.         Me.ComboBox1.Name = "ComboBox1"
  186.         Me.ComboBox1.Size = New System.Drawing.Size(48, 21)
  187.         Me.ComboBox1.TabIndex = 9
  188.         Me.ComboBox1.Visible = False
  189.         '
  190.         'Button4
  191.         '
  192.         Me.Button4.BackColor = System.Drawing.Color.Black
  193.         Me.Button4.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  194.         Me.Button4.ForeColor = System.Drawing.Color.Red
  195.         Me.Button4.Location = New System.Drawing.Point(480, 88)
  196.         Me.Button4.Name = "Button4"
  197.         Me.Button4.Size = New System.Drawing.Size(112, 24)
  198.         Me.Button4.TabIndex = 10
  199.         Me.Button4.Text = "Conferma"
  200.         Me.Button4.Visible = False
  201.         '
  202.         'PictureBox1
  203.         '
  204.         Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
  205.         Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
  206.         Me.PictureBox1.Name = "PictureBox1"
  207.         Me.PictureBox1.Size = New System.Drawing.Size(792, 608)
  208.         Me.PictureBox1.TabIndex = 13
  209.         Me.PictureBox1.TabStop = False
  210.         '
  211.         'PictureBox3
  212.         '
  213.         Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Image)
  214.         Me.PictureBox3.Location = New System.Drawing.Point(208, 80)
  215.         Me.PictureBox3.Name = "PictureBox3"
  216.         Me.PictureBox3.Size = New System.Drawing.Size(208, 64)
  217.         Me.PictureBox3.TabIndex = 15
  218.         Me.PictureBox3.TabStop = False
  219.         '
  220.         'PictureBox4
  221.         '
  222.         Me.PictureBox4.BackColor = System.Drawing.Color.White
  223.         Me.PictureBox4.Location = New System.Drawing.Point(208, 80)
  224.         Me.PictureBox4.Name = "PictureBox4"
  225.         Me.PictureBox4.Size = New System.Drawing.Size(400, 192)
  226.         Me.PictureBox4.TabIndex = 16
  227.         Me.PictureBox4.TabStop = False
  228.         '
  229.         'Label4
  230.         '
  231.         Me.Label4.BackColor = System.Drawing.Color.White
  232.         Me.Label4.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  233.         Me.Label4.ForeColor = System.Drawing.Color.Red
  234.         Me.Label4.Location = New System.Drawing.Point(232, 200)
  235.         Me.Label4.Name = "Label4"
  236.         Me.Label4.Size = New System.Drawing.Size(360, 24)
  237.         Me.Label4.TabIndex = 17
  238.         Me.Label4.Text = "Seleziona Il Livello E Clicca Su Conferma"
  239.         Me.Label4.Visible = False
  240.         '
  241.         'lblsoldi
  242.         '
  243.         Me.lblsoldi.BackColor = System.Drawing.Color.Black
  244.         Me.lblsoldi.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  245.         Me.lblsoldi.ForeColor = System.Drawing.Color.Red
  246.         Me.lblsoldi.Location = New System.Drawing.Point(288, 32)
  247.         Me.lblsoldi.Name = "lblsoldi"
  248.         Me.lblsoldi.Size = New System.Drawing.Size(240, 32)
  249.         Me.lblsoldi.TabIndex = 18
  250.         '
  251.         'Label6
  252.         '
  253.         Me.Label6.BackColor = System.Drawing.Color.Black
  254.         Me.Label6.Location = New System.Drawing.Point(376, 64)
  255.         Me.Label6.Name = "Label6"
  256.         Me.Label6.Size = New System.Drawing.Size(8, 8)
  257.         Me.Label6.TabIndex = 19
  258.         Me.Label6.Text = "Label6"
  259.         '
  260.         'txtpuntata
  261.         '
  262.         Me.txtpuntata.Location = New System.Drawing.Point(488, 512)
  263.         Me.txtpuntata.Name = "txtpuntata"
  264.         Me.txtpuntata.Size = New System.Drawing.Size(208, 20)
  265.         Me.txtpuntata.TabIndex = 20
  266.         Me.txtpuntata.Text = ""
  267.         '
  268.         'Label5
  269.         '
  270.         Me.Label5.BackColor = System.Drawing.Color.Black
  271.         Me.Label5.Location = New System.Drawing.Point(480, 512)
  272.         Me.Label5.Name = "Label5"
  273.         Me.Label5.Size = New System.Drawing.Size(232, 32)
  274.         Me.Label5.TabIndex = 21
  275.         '
  276.         'Label7
  277.         '
  278.         Me.Label7.BackColor = System.Drawing.Color.Black
  279.         Me.Label7.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  280.         Me.Label7.ForeColor = System.Drawing.Color.Red
  281.         Me.Label7.Location = New System.Drawing.Point(344, 512)
  282.         Me.Label7.Name = "Label7"
  283.         Me.Label7.Size = New System.Drawing.Size(136, 32)
  284.         Me.Label7.TabIndex = 22
  285.         Me.Label7.Text = "PUNTATA :"
  286.         '
  287.         'Label8
  288.         '
  289.         Me.Label8.BackColor = System.Drawing.Color.Black
  290.         Me.Label8.Font = New System.Drawing.Font("Comic Sans MS", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  291.         Me.Label8.ForeColor = System.Drawing.Color.Red
  292.         Me.Label8.Location = New System.Drawing.Point(480, 32)
  293.         Me.Label8.Name = "Label8"
  294.         Me.Label8.Size = New System.Drawing.Size(48, 32)
  295.         Me.Label8.TabIndex = 23
  296.         Me.Label8.Text = "€"
  297.         '
  298.         'Label9
  299.         '
  300.         Me.Label9.AccessibleRole = System.Windows.Forms.AccessibleRole.MenuBar
  301.         Me.Label9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  302.         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  303.         Me.Label9.ForeColor = System.Drawing.Color.Black
  304.         Me.Label9.Location = New System.Drawing.Point(0, 48)
  305.         Me.Label9.Name = "Label9"
  306.         Me.Label9.Size = New System.Drawing.Size(192, 24)
  307.         Me.Label9.TabIndex = 28
  308.         Me.Label9.Text = "Seleziona Il Gioco : "
  309.         '
  310.         'Label10
  311.         '
  312.         Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte))
  313.         Me.Label10.Location = New System.Drawing.Point(0, 16)
  314.         Me.Label10.Name = "Label10"
  315.         Me.Label10.Size = New System.Drawing.Size(176, 32)
  316.         Me.Label10.TabIndex = 27
  317.         Me.Label10.Text = "SLOT MACHINE"
  318.         '
  319.         'Button5
  320.         '
  321.         Me.Button5.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  322.         Me.Button5.Location = New System.Drawing.Point(24, 144)
  323.         Me.Button5.Name = "Button5"
  324.         Me.Button5.Size = New System.Drawing.Size(128, 32)
  325.         Me.Button5.TabIndex = 26
  326.         Me.Button5.Text = "&Conferma"
  327.         '
  328.         'RadioButton2
  329.         '
  330.         Me.RadioButton2.Location = New System.Drawing.Point(32, 112)
  331.         Me.RadioButton2.Name = "RadioButton2"
  332.         Me.RadioButton2.Size = New System.Drawing.Size(120, 24)
  333.         Me.RadioButton2.TabIndex = 25
  334.         Me.RadioButton2.Text = "Gioco Due"
  335.         '
  336.         'RadioButton1
  337.         '
  338.         Me.RadioButton1.Location = New System.Drawing.Point(32, 80)
  339.         Me.RadioButton1.Name = "RadioButton1"
  340.         Me.RadioButton1.Size = New System.Drawing.Size(120, 24)
  341.         Me.RadioButton1.TabIndex = 24
  342.         Me.RadioButton1.Text = " Gioco Uno"
  343.         '
  344.         'Button6
  345.         '
  346.         Me.Button6.BackColor = System.Drawing.Color.Black
  347.         Me.Button6.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  348.         Me.Button6.ForeColor = System.Drawing.Color.Red
  349.         Me.Button6.Location = New System.Drawing.Point(216, 232)
  350.         Me.Button6.Name = "Button6"
  351.         Me.Button6.Size = New System.Drawing.Size(384, 32)
  352.         Me.Button6.TabIndex = 29
  353.         Me.Button6.Text = "STOPPA TUTTI E TRE"
  354.         Me.Button6.Visible = False
  355.         '
  356.         'Button7
  357.         '
  358.         Me.Button7.Font = New System.Drawing.Font("Comic Sans MS", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  359.         Me.Button7.Location = New System.Drawing.Point(488, 560)
  360.         Me.Button7.Name = "Button7"
  361.         Me.Button7.Size = New System.Drawing.Size(216, 32)
  362.         Me.Button7.TabIndex = 30
  363.         Me.Button7.Text = "Conferma"
  364.         '
  365.         'Button8
  366.         '
  367.         Me.Button8.Font = New System.Drawing.Font("Comic Sans MS", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  368.         Me.Button8.Location = New System.Drawing.Point(24, 184)
  369.         Me.Button8.Name = "Button8"
  370.         Me.Button8.Size = New System.Drawing.Size(128, 32)
  371.         Me.Button8.TabIndex = 31
  372.         Me.Button8.Text = "&Esci dal gioco"
  373.         '
  374.         'Panel1
  375.         '
  376.         Me.Panel1.Location = New System.Drawing.Point(0, 24)
  377.         Me.Panel1.Name = "Panel1"
  378.         Me.Panel1.Size = New System.Drawing.Size(200, 264)
  379.         Me.Panel1.TabIndex = 32
  380.         '
  381.         'Panel2
  382.         '
  383.         Me.Panel2.Controls.Add(Me.Label9)
  384.         Me.Panel2.Controls.Add(Me.RadioButton1)
  385.         Me.Panel2.Controls.Add(Me.RadioButton2)
  386.         Me.Panel2.Controls.Add(Me.Button5)
  387.         Me.Panel2.Controls.Add(Me.Button8)
  388.         Me.Panel2.Location = New System.Drawing.Point(0, 8)
  389.         Me.Panel2.Name = "Panel2"
  390.         Me.Panel2.Size = New System.Drawing.Size(192, 232)
  391.         Me.Panel2.TabIndex = 33
  392.         '
  393.         'Form1
  394.         '
  395.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  396.         Me.BackColor = System.Drawing.Color.Red
  397.         Me.ClientSize = New System.Drawing.Size(792, 598)
  398.         Me.Controls.Add(Me.Label10)
  399.         Me.Controls.Add(Me.Panel2)
  400.         Me.Controls.Add(Me.Button7)
  401.         Me.Controls.Add(Me.Button6)
  402.         Me.Controls.Add(Me.Label8)
  403.         Me.Controls.Add(Me.Label7)
  404.         Me.Controls.Add(Me.txtpuntata)
  405.         Me.Controls.Add(Me.Label5)
  406.         Me.Controls.Add(Me.Label6)
  407.         Me.Controls.Add(Me.lblsoldi)
  408.         Me.Controls.Add(Me.Label4)
  409.         Me.Controls.Add(Me.PictureBox3)
  410.         Me.Controls.Add(Me.Button4)
  411.         Me.Controls.Add(Me.ComboBox1)
  412.         Me.Controls.Add(Me.Button3)
  413.         Me.Controls.Add(Me.Button2)
  414.         Me.Controls.Add(Me.Button1)
  415.         Me.Controls.Add(Me.Label3)
  416.         Me.Controls.Add(Me.Label2)
  417.         Me.Controls.Add(Me.Label1)
  418.         Me.Controls.Add(Me.PictureBox4)
  419.         Me.Controls.Add(Me.PictureBox1)
  420.         Me.Controls.Add(Me.Panel1)
  421.         Me.Name = "Form1"
  422.         Me.Text = "Form1"
  423.         Me.Panel2.ResumeLayout(False)
  424.         Me.ResumeLayout(False)
  425.  
  426.     End Sub
  427.  
  428. #End Region
  429.  
  430.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  431.         Dim a As Integer
  432.         a = (Rnd() * 8) + 1
  433.         Label1.Text = a
  434.     End Sub
  435.  
  436.     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  437.         Dim b As Integer
  438.         b = (Rnd() * 8) + 1
  439.         Label2.Text = b
  440.     End Sub
  441.  
  442.     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
  443.         Dim c As Integer
  444.         c = (Rnd() * 8) + 1
  445.         Label3.Text = c
  446.     End Sub
  447.  
  448.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  449.         Dim x
  450.         ComboBox1.Text = ""
  451.         Randomize()
  452.         Me.Text = " Slot Machine By KrYsTaL  "
  453.         lblsoldi.Text = Val(500)
  454.         txtpuntata.Text = Val(0)
  455.         If RadioButton1.Checked = True Then
  456.             Button1.Visible = False
  457.             Button2.Visible = False
  458.             Button3.Visible = False
  459.             Button5.Visible = True
  460.  
  461.         End If
  462.     End Sub
  463.  
  464.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  465.         Timer1.Enabled = False
  466.     End Sub
  467.  
  468.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  469.         Timer2.Enabled() = False
  470.     End Sub
  471.  
  472.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  473.         Timer3.Enabled = False
  474.         If Label1.Text = Label2.Text And Label2.Text = Label3.Text Then
  475.             lblsoldi.Text = Val(lblsoldi.Text) + Val(txtpuntata.Text)
  476.             MsgBox("Complimenti Hai Guadagnato  " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  477.  
  478.         ElseIf Label1.Text = Label2.Text Or Label2.Text = Label3.Text Or Label1.Text = Label3.Text Then
  479.             lblsoldi.Text = Val(lblsoldi.Text) + (Val(txtpuntata.Text) / 2)
  480.             MsgBox("Complimenti  " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  481.  
  482.         Else
  483.             lblsoldi.Text = Val(lblsoldi.Text) - Val(txtpuntata.Text)
  484.             MsgBox("Hai Perso " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  485.  
  486.         End If
  487.  
  488.         If lblsoldi.Text <= 0 Then
  489.             MsgBox("GAME OVER!!!!!!", MsgBoxStyle.Critical)
  490. EXIT IF
  491.         End If
  492.         Timer1.Enabled = True
  493.         Timer2.Enabled = True
  494.         Timer3.Enabled = True
  495.     End Sub
  496.  
  497.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  498.         Dim x As Integer
  499.         x = ComboBox1.Text
  500.         Label4.Text = "Il tuo Livello è " & CStr(ComboBox1.Text) & " ,Ora Fai La Tua Puntata "
  501.         Select Case ComboBox1.Text
  502.  
  503.             Case 1
  504.                 Timer1.Interval = "800"
  505.                 Timer2.Interval = "800"
  506.                 Timer3.Interval = "800"
  507.             Case 2
  508.                 Timer1.Interval = "700"
  509.                 Timer2.Interval = "700"
  510.                 Timer3.Interval = "700"
  511.             Case 3
  512.                 Timer1.Interval = "600"
  513.                 Timer2.Interval = "600"
  514.                 Timer3.Interval = "600"
  515.             Case 4
  516.                 Timer1.Interval = "500"
  517.                 Timer2.Interval = "500"
  518.                 Timer3.Interval = "500"
  519.             Case 5
  520.                 Timer1.Interval = "400"
  521.                 Timer2.Interval = "400"
  522.                 Timer3.Interval = "400"
  523.             Case 6
  524.                 Timer1.Interval = "300"
  525.                 Timer2.Interval = "300"
  526.                 Timer3.Interval = "300"
  527.             Case 7
  528.                 Timer1.Interval = "200"
  529.                 Timer2.Interval = "200"
  530.                 Timer3.Interval = "200"
  531.         End Select
  532.         Me.Text = " Slot Machine By KrYsTaL - Il livello Attuale è " & CStr(x)
  533.  
  534.  
  535.     End Sub
  536.  
  537.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  538.         If RadioButton1.Checked = True And RadioButton2.Checked = False Then
  539.             ComboBox1.Visible = True
  540.             Button1.Visible = True
  541.             Button2.Visible = True
  542.             Button3.Visible = True
  543.             Button4.Visible = True
  544.             Button6.Visible = False
  545.             Label4.Visible = True
  546.         ElseIf RadioButton1.Checked = False And RadioButton2.Checked = True Then
  547.             Button4.Visible = True
  548.             ComboBox1.Visible = True
  549.             Button6.Visible = True
  550.             Button1.Visible = False
  551.             Button2.Visible = False
  552.             Button3.Visible = False
  553.             Label4.Visible = True
  554.         End If
  555.     End Sub
  556.  
  557.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
  558.         Timer1.Enabled = False
  559.         Timer2.Enabled = False
  560.         Timer3.Enabled = False
  561.         If Label1.Text = Label2.Text And Label2.Text = Label3.Text Then
  562.             lblsoldi.Text = Val(lblsoldi.Text) + Val(txtpuntata.Text)
  563.             MsgBox("Complimenti Hai Guadagnato  " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  564.  
  565.         ElseIf Label1.Text = Label2.Text Or Label2.Text = Label3.Text Or Label1.Text = Label3.Text Then
  566.             lblsoldi.Text = Val(lblsoldi.Text) + (Val(txtpuntata.Text) / 2)
  567.             MsgBox("Complimenti  " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  568.  
  569.         Else
  570.             lblsoldi.Text = Val(lblsoldi.Text) - Val(txtpuntata.Text)
  571.             MsgBox("Hai Perso " & CStr(txtpuntata.Text) & " Quindi Il Tuo Budget Totale è " & CStr(lblsoldi.Text) & " Puoi Ripuntare ora ")
  572.  
  573.  
  574.         End If
  575.  
  576.         If lblsoldi.Text <= 0 Then
  577.             MsgBox("GAME OVER!!!!!!", MsgBoxStyle.Critical)
  578.             End
  579.         End If
  580.         Timer1.Enabled = True
  581.         Timer2.Enabled = True
  582.         Timer3.Enabled = True
  583.     End Sub
  584.  
  585.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
  586.         If Val(txtpuntata.Text) > Val(lblsoldi.Text) Then
  587.             MsgBox("non hai abbastanza soldi per puntare " & CStr(txtpuntata.Text))
  588.             If Val(txtpuntata.Text) = 0 Then
  589.  
  590.                 MsgBox("devi puntare almeno 1 €")
  591.  
  592.             Else
  593.                 Timer1.Enabled = True
  594.                 Timer2.Enabled = True
  595.                 Timer3.Enabled = True
  596.             End If
  597.         End If
  598.     End Sub
  599.  
  600.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
  601.         End
  602.     End Sub
  603. End Class