Eto lods, edit mo na lang para sa user input.
saka by order lang yung pagcheck nia sa winning number so di pa nacheck kung lahit isang number ay match sa winning number
' Super Basic 6/45 lotto
' This does not check for duplicate winning numbers
Module VBModule
Sub Main()
Dim Arr_Guess() As Integer = {2, 4, 6, 8, 10, 12}
Dim count As Integer
Dim Winner As Boolean = True
' Winning numbers array
Dim num(6) As Integer = {}
' save winning numbers to a String for printing on screen
Dim Winning_Numbers As String
Dim Your_Numbers As String
' Generate 6 random winning numbers between 1-45
For count = 0 To 5
num(count) = Int((45 * Rnd) + 1)
Winning_Numbers = Winning_Numbers & num(count).ToString("D2") & " "
Your_Numbers = Your_Numbers & Arr_Guess(count).ToString("D2") & " "
' Check if Arr_Guess matches the winning number
' Winner set to False if a number does not match the winning num
If Arr_Guess(count) <> num(count) And Winner = True Then
Winner = False
End If
Next
If Winner Then
Console.WriteLine("Congrats!! You Won!")
Else
Console.WriteLine(vbCrLf & "You pick numbers: " & Your_Numbers)
Console.WriteLine("Winning numbers: " & Winning_Numbers)
Console.WriteLine("Try again!!")
End If
End Sub
End Module
Eto lods, edit mo na lang para sa user input.
saka by order lang yung pagcheck nia sa winning number so di pa nacheck kung lahit isang number ay match sa winning number
' Super Basic 6/45 lotto
' This does not check for duplicate winning numbers
Module VBModule
Sub Main()
Dim Arr_Guess() As Integer = {2, 4, 6, 8, 10, 12}
Dim count As Integer
Dim Winner As Boolean = True
' Winning numbers array
Dim num(6) As Integer = {}
' save winning numbers to a String for printing on screen
Dim Winning_Numbers As String
Dim Your_Numbers As String
' Generate 6 random winning numbers between 1-45
For count = 0 To 5
num(count) = Int((45 * Rnd) + 1)
Winning_Numbers = Winning_Numbers & num(count).ToString("D2") & " "
Your_Numbers = Your_Numbers & Arr_Guess(count).ToString("D2") & " "
' Check if Arr_Guess matches the winning number
' Winner set to False if a number does not match the winning num
If Arr_Guess(count) <> num(count) And Winner = True Then
Winner = False
End If
Next
If Winner Then
Console.WriteLine("Congrats!! You Won!")
Else
Console.WriteLine(vbCrLf & "You pick numbers: " & Your_Numbers)
Console.WriteLine("Winning numbers: " & Winning_Numbers)
Console.WriteLine("Try again!!")
End If
End Sub
End Module