• Home
 · 
• Games
 · 
• Its a powerball game!!!

Its a powerball game!!!

Its a powerball game!!!

API Declarations


Dim kount As Single
Dim num1, num2, num3, num4, num5 As Integer
Dim Pb As Integer
Dim upot As Double



Rate Its a powerball game!!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

then put the labels in the circles
you will also need a command button
name it cmdplay
you will also have a another button 
name it cmddone

Private Sub cmddone_Click()
    End
End Sub

Private Sub cmdPlay_Click()
Shape1.FillColor = vbWhite
Shape2.FillColor = vbWhite
Shape3.FillColor = vbWhite
Shape4.FillColor = vbWhite
Shape5.FillColor = vbWhite
Shape6.FillColor = vbRed
Label1.BackColor = vbWhite
Label2.BackColor = vbWhite
Label3.BackColor = vbWhite
Label4.BackColor = vbWhite
Label5.BackColor = vbWhite
Label6.BackColor = vbRed
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
Label6.Visible = True
num1 = txt1.Text
num2 = txt2.Text
num3 = txt3.Text
num4 = txt4.Text
num5 = txt5.Text
Pb = txt6.Text
Randomize
    num1 = Int(Rnd * 45) + 1
    Label1.Caption = num1
    Do
    num2 = Int(Rnd * 45) + 1
    Loop Until num2 <> num1
    Do
    num3 = Int(Rnd * 45) + 1
    Loop Until num3 <> num2 And num3 <> num1
    Do
    num4 = Int(Rnd * 45) + 1
    Loop Until num4 <> num3 And num4 <> num2 And num4 <> num1
    Do
    num5 = Int(Rnd * 45) + 1
    Loop Until num5 <> num4 And num5 <> num3 And num5 <> num2 And num5 <> num1
    Label2.Caption = num2
    Label3.Caption = num3
    Label4.Caption = num4
    Label5.Caption = num5
Randomize
    Pb = Int(Rnd * 45) + 1
    Label6.Caption = Pb
    
    If txt1 = Label1 Then
    Shape1.FillColor = vbBlue
    Label1.BackColor = vbBlue
    End If
    
    If txt1 = Label2 Then
    Shape2.FillColor = vbBlue
    Label2.BackColor = vbBlue
    End If
    
    If txt1 = Label3 Then
    Shape3.FillColor = vbBlue
    Label3.BackColor = vbBlue
    End If
    
    If txt1 = Label4 Then
    Shape4.FillColor = vbBlue
    Label4.BackColor = vbBlue
    End If
    
    If txt1 = Label5 Then
    Shape5.FillColor = vbBlue
    Label5.BackColor = vbBlue
    End If
    
    If txt2 = Label2 Then
    Shape2.FillColor = vbBlue
    Label2.BackColor = vbBlue
    End If
    
    If txt2 = Label1 Then
    Shape1.FillColor = vbBlue
    Label1.BackColor = vbBlue
    End If
    
    If txt2 = Label3 Then
    Shape3.FillColor = vbBlue
    Label3.BackColor = vbBlue
    End If
    
    If txt2 = Label4 Then
    Shape4.FillColor = vbBlue
    Label4.BackColor = vbBlue
    End If
    
    If txt2 = Label5 Then
    Shape5.FillColor = vbBlue
    Label5.BackColor = vbBlue
    End If
    
    If txt3 = Label3 Then
    Shape3.FillColor = vbBlue
    Label3.BackColor = vbBlue
    End If
    
    If txt3 = Label2 Then
    Shape2.FillColor = vbBlue
    Label2.BackColor = vbBlue
    End If
    
    If txt3 = Label1 Then
    Shape1.FillColor = vbBlue
    Label1.BackColor = vbBlue
    End If
    
    If txt3 = Label4 Then
    Shape4.FillColor = vbBlue
    Label4.BackColor = vbBlue
    End If
    
    If txt3 = Label5 Then
    Shape5.FillColor = vbBlue
    Label5.BackColor = vbBlue
    End If
    
    If txt4 = Label4 Then
    Shape4.FillColor = vbBlue
    Label4.BackColor = vbBlue
    End If
    
    If txt4 = Label3 Then
    Shape3.FillColor = vbBlue
    Label3.BackColor = vbBlue
    End If
    
    If txt4 = Label2 Then
    Shape2.FillColor = vbBlue
    Label2.BackColor = vbBlue
    End If
    
    If txt4 = Label1 Then
    Shape1.FillColor = vbBlue
    Label1.BackColor = vbBlue
    End If
    
    If txt4 = Label5 Then
    Shape5.FillColor = vbBlue
    Label5.BackColor = vbBlue
    End If
    
    If txt5 = Label5 Then
    Shape5.FillColor = vbBlue
    Label5.BackColor = vbBlue
    End If
    
    If txt5 = Label4 Then
    Shape4.FillColor = vbBlue
    Label4.BackColor = vbBlue
    End If
    
    If txt5 = Label3 Then
    Shape3.FillColor = vbBlue
    Label3.BackColor = vbBlue
    End If
    
    If txt5 = Label2 Then
    Shape2.FillColor = vbBlue
    Label2.BackColor = vbBlue
    End If
    
    If txt5 = Label1 Then
    Shape1.FillColor = vbBlue
    Label1.BackColor = vbBlue
    End If
    
    If txt6 = Label6 Then
    Shape6.FillColor = vbGreen
    Label6.BackColor = vbGreen
    End If
     
    
        





End Sub

Private Sub Form_Load()
    Label1.Visible = False
    Label2.Visible = False
    Label3.Visible = False
    Label4.Visible = False
    Label5.Visible = False
    Label6.Visible = False
End Sub