• Home
 · 
• Games
 · 
• A Simple Number Game

A Simple Number Game

A Simple Number Game

Rate A Simple Number Game

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Option Explicit
    Dim i As Integer
    Dim j As Integer
    Dim First As Integer
    Dim Last As Integer
    Dim X As Integer
    Dim Y As Integer
    Dim Sh As Long
    Dim Sh1 As Long
    
Private Sub Command1_Click(Index As Integer)
   On Error GoTo Srinivas
    If Command1(Index - 4).Caption = "" Then
        Command1(Index - 4).Caption = Command1(Index).Caption
        Command1(Index).Caption = ""
    ElseIf Command1(Index - 1).Caption = "" Then
        Command1(Index - 1).Caption = Command1(Index).Caption
        Command1(Index).Caption = ""
    ElseIf Command1(Index + 1).Caption = "" Then
        Command1(Index + 1).Caption = Command1(Index).Caption
        Command1(Index).Caption = ""
    ElseIf Command1(Index + 4).Caption = "" Then
        Command1(Index + 4).Caption = Command1(Index).Caption
        Command1(Index).Caption = ""
    End If
   Exit Sub
Srinivas:
    If (Index - 1) < 0 Then
        If Command1(Index + 4).Caption = "" Then
            Command1(Index + 4).Caption = Command1(Index).Caption
            Command1(Index).Caption = ""
        End If
        If Command1(Index + 1).Caption = "" Then
            Command1(Index + 1).Caption = Command1(Index).Caption
            Command1(Index).Caption = ""
        End If
    End If
     
    If (Index - 4) < 0 Then
       If (Index - 1) < 0 Then
           If Command1(Index + 4).Caption = "" Then
              Command1(Index + 4).Caption = Command1(Index).Caption
              Command1(Index).Caption = ""
           End If
           Exit Sub
       End If
  
        If Command1(Index - 1).Caption = "" Then
            Command1(Index - 1).Caption = Command1(Index).Caption
            Command1(Index).Caption = ""
        End If
        If Command1(Index + 1).Caption = "" Then
            Command1(Index + 1).Caption = Command1(Index).Caption
            Command1(Index).Caption = ""
        End If
        If Command1(Index + 4).Caption = "" Then
            Command1(Index + 4).Caption = Command1(Index).Caption
            Command1(Index).Caption = ""
        End If
    End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Activate()
    Static arr(100) As Integer
    Randomize
    While Y < 15
srinu:      X = Rnd * Last
      For i = First To Last
        If X = arr(i) Then GoTo srinu
      Next i
      arr(j) = X
      j = j + 1
      Command1(Y).Caption = X
      Y = Y + 1
    Wend
End Sub

Private Sub Form_Load()
    First = 0
    Last = 15
Sh = CreateEllipticRgn(10, 10, 450, 300)
Sh1 = SetWindowRgn(Me.hWnd, Sh, True)
End Sub