Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub RandomNumbersinGrid() 'put images of selected numbers based on randomized in grid Dim DrawNumber As Integer Dim NumberAlreadyHit As Integer Dim lCol As Integer, lRow As Integer Dim i As Integer, thisIndex As Integer, j As Integer 'Shuffle For i = 1 To DRAWN_NUMBERS 'DRAWN_NUMBERS = 20 thisIndex = Int(80 * Rnd + 1) CellFromIndex thisIndex, lRow, lCol 'get the row and column number Debug.Print "GivenNumber " & thisIndex DoEvents Sleep 100 DrawNumber = DrawNumber + 1 With flexCleo .Row = lRow .Col = lCol If .CellPicture = imgHitUnSelected.Picture Then' number already hit NumberAlreadyHit = NumberAlreadyHit + 1 Debug.Print "Hit on the same number " & NumberAlreadyHit '& " " & "number " & thisIndex End If Set .CellPicture = imgHitUnSelected.Picture 'DrawNumber = DrawNumber + 1 End With Next Debug.Print "Hit on the same number " & NumberAlreadyHit & " " & "number " & thisIndex Me.Caption = DrawNumber End Sub Private Sub CellFromIndex(ByVal pindex As Long, ByRef pRow As Integer, ByRef pCol As Integer) 'sets the row and column numbers based on the number passed pRow = (pindex - 1) \ flexCleo.Cols pCol = (pindex - 1) Mod flexCleo.Cols End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.