Pa help sa visual basic

[Joshuabat]

Patulong po ako mag create ng 6/45 lotto game using visual basic

 

[iannejay27]

much better na gumawa ka na muna, saka ka matutulungan hehe

 

[Migfus]

Pa lagay din ng backdoor.

 

[iannejay27]

result = []
for i = 1 to 6
    x = Math.rand(45)
    if not exist (x) in result
        add x to result
        
for i = 0 to sizeof (result)
    print result[i]

 

[Joshuabat]

much better na gumawa ka na muna, saka ka matutulungan hehe

Sige po

 

[Joshuabat]

much better na gumawa ka na muna, saka ka matutulungan hehe

much better na gumawa ka na muna, saka ka matutulungan hehe

gusto ko po sana lumabas si congrats

much better na gumawa ka na muna, saka ka matutulungan hehe

kaso po naga labas try again

 

[iannejay27]

View attachment 2388888


gusto ko po sana lumabas si congrats
View attachment 2388892


kaso po naga labas try again

seriously 2010 pa talaga ang gamit mong version?

nalabas yung try again kasi nasa labas sya ng condition and mahirap talaga manalo dyan and yung code mo kulang pa, hindi pa nagbobola

 

[Joshuabat]

Oo lods sana matulongan mo ako

seriously 2010 pa talaga ang gamit mong version?

nalabas yung try again kasi nasa labas sya ng condition and mahirap talaga manalo dyan and yung code mo kulang pa, hindi pa nagbobol

seriously 2010 pa talaga ang gamit mong version?

nalabas yung try again kasi nasa labas sya ng condition and mahirap talaga manalo dyan and yung code mo kulang pa, hindi pa nagbobola

Bagohan palang po kasi ako first year bsit

 

[derksd]

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

You do not have permission to view the full content of this post. Log in or register now.

' 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

 

[Joshuabat]

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

You do not have permission to view the full content of this post. Log in or register now.

' 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

View attachment 2392923

Sige po salamats