W | C# Online Compiler

W by ac30335

Imports System

Public Module Module1

	dim finish as integer = 1

	dim cards as integer

	dim rand as new random

	dim card1 as integer

	dim card2 as integer

	dim card3 as integer

	dim suit1 as integer

	dim suit2 as integer

	dim suit3 as integer

	dim s as integer

	dim a as integer

	dim i as integer

	dim d as integer

	Public Sub Main()
		do while finish = 1
			console.writeline("To start press 1")
			console.writeline("To end press 0")
			finish = console.readline()
			if finish = 1
				console.writeline("starting game")
			else if finish = 0
				console.writeline("ending game")
			else
				console.writeline("invalid number: re-enter number")
				finish = console.readline()
			end if

			card1 = rand.next(13) + 1
			card2 = rand.next(13) + 1
			card3 = rand.next(13) + 1
			s = rand.next(4) + 1
			a = rand.next(4) + 1
			i = rand.next(4) + 1

			select case card1
				case 1
console.writeline("2 of" )
suits1(s)
				case 2
console.writeline("3 of" )
suits1(s)
				case 3
console.writeline("4 of" )
suits1(s)
				case 4
console.writeline("5 of" )
suits1(s)
				case 5
console.writeline("6 of" )
suits1(s)
				case 6
console.writeline("7 of" )
suits1(s)
				case 7
console.writeline("8 of")
suits1(s)
				case 8
console.writeline("9 of" )
suits1(s)
				case 9
console.writeline("10 of" )
suits1(s)
				case 10
					console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red

				case 11
					console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
				case 12
					console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
				case 13
					console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan

				case else
					console.writeline("errror ")
			end select

			select case card2
				case 1
console.writeline("2 of" )
				case 2
console.writeline("3 of" )
				case 3
console.writeline("4 of" & suit2)
				case 4
console.writeline("5 of" & suit2)
				case 5
console.writeline("6 of" & suit2)
				case 6
console.writeline("7 of" & suit2)
				case 7
console.writeline("8 of" & suit2)
				case 8
console.writeline("9 of" & suit2)
				case 9
console.writeline("10 of" & suit2)
				case 10
					console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red
				case 11
					console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
				case 12
					console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
				case 13
					console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan

				case else
					console.writeline("errror ")

			end select

			select case card3
				case 1
console.writeline("2 of" & suit3)
				case 2
console.writeline("3 of" & suit3)
				case 3
console.writeline("4 of" & suit3)
				case 4
console.writeline("5 of" & suit3)
				case 5
console.writeline("6 of" & suit3)
				case 6
console.writeline("7 of" & suit3)
				case 7
console.writeline("8 of" & suit3)
				case 8
console.writeline("9 of" & suit3)
				case 9
console.writeline("10 of" & suit3)
				case 10
					console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red
				case 11
					console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
				case 12
					console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
				case 13
					console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan

				case else
					console.writeline("errror ")
			end select

			

			if card1 > card2 > card3
				console.writeline("your highest is " & card1)
			else if card1 < card2 > card3
				console.writeline("your highest is " & card2)
			else if card1 < card2 < card3
				console.writeline("your highest is " & card3)
			else
				console.writeline("error")
			end if
		loop
	End Sub
sub suits1
select case suit1
				case 1
					console.writeline("hearts")
Console.ForegroundColor = ConsoleColor.red
				case 2
					console.writeline("spades")
Console.ForegroundColor = ConsoleColor.black
				case 3
					console.writeline("diamond")
Console.ForegroundColor = ConsoleColor.red
				case 4
					console.writeline("clubs")
Console.ForegroundColor = ConsoleColor.black
				case else
					console.writeline("errror ")
			end select
end sub
sub suits2
			select case suit2
				case 1
					console.writeline("hearts")
Console.ForegroundColor = ConsoleColor.red
				case 2
					console.writeline("spades")
Console.ForegroundColor = ConsoleColor.black
				case 3
					console.writeline("diamond")
Console.ForegroundColor = ConsoleColor.red
				case 4
					console.writeline("clubs")
Console.ForegroundColor = ConsoleColor.black
				case else
					console.writeline("errror ")
			end select
end sub
sub suits3
			select case suit3
				case 1
					console.writeline("hearts")
				case 2
					console.writeline("spades")
				case 3
					console.writeline("diamond")
				case 4
					console.writeline("clubs")
				case else
					console.writeline("errror ")
			end select
end sub
End Module

​x
 
Imports System
​
Public Module Module1
​
    dim finish as integer = 1
​
    dim cards as integer
​
    dim rand as new random
​
    dim card1 as integer
​
    dim card2 as integer
​
    dim card3 as integer
​
    dim suit1 as integer
​
    dim suit2 as integer
​
    dim suit3 as integer
​
    dim s as integer
​
    dim a as integer
​
    dim i as integer
​
    dim d as integer
​
    Public Sub Main()
        do while finish = 1
            console.writeline("To start press 1")
            console.writeline("To end press 0")
            finish = console.readline()
            if finish = 1
                console.writeline("starting game")
            else if finish = 0
                console.writeline("ending game")
            else
                console.writeline("invalid number: re-enter number")
                finish = console.readline()
            end if
​
            card1 = rand.next(13) + 1
            card2 = rand.next(13) + 1
            card3 = rand.next(13) + 1
            s = rand.next(4) + 1
            a = rand.next(4) + 1
            i = rand.next(4) + 1
​
            select case card1
                case 1
console.writeline("2 of" )
suits1(s)
                case 2
console.writeline("3 of" )
suits1(s)
                case 3
console.writeline("4 of" )
suits1(s)
                case 4
console.writeline("5 of" )
suits1(s)
                case 5
console.writeline("6 of" )
suits1(s)
                case 6
console.writeline("7 of" )
suits1(s)
                case 7
console.writeline("8 of")
suits1(s)
                case 8
console.writeline("9 of" )
suits1(s)
                case 9
console.writeline("10 of" )
suits1(s)
                case 10
                    console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red
​
                case 11
                    console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
                case 12
                    console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
                case 13
                    console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan
​
                case else
                    console.writeline("errror ")
            end select
​
            select case card2
                case 1
console.writeline("2 of" )
                case 2
console.writeline("3 of" )
                case 3
console.writeline("4 of" & suit2)
                case 4
console.writeline("5 of" & suit2)
                case 5
console.writeline("6 of" & suit2)
                case 6
console.writeline("7 of" & suit2)
                case 7
console.writeline("8 of" & suit2)
                case 8
console.writeline("9 of" & suit2)
                case 9
console.writeline("10 of" & suit2)
                case 10
                    console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red
                case 11
                    console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
                case 12
                    console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
                case 13
                    console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan
​
                case else
                    console.writeline("errror ")
​
            end select
​
            select case card3
                case 1
console.writeline("2 of" & suit3)
                case 2
console.writeline("3 of" & suit3)
                case 3
console.writeline("4 of" & suit3)
                case 4
console.writeline("5 of" & suit3)
                case 5
console.writeline("6 of" & suit3)
                case 6
console.writeline("7 of" & suit3)
                case 7
console.writeline("8 of" & suit3)
                case 8
console.writeline("9 of" & suit3)
                case 9
console.writeline("10 of" & suit3)
                case 10
                    console.writeline("jack of " )
Console.ForegroundColor = ConsoleColor.red
                case 11
                    console.writeline("queen of " )
Console.ForegroundColor = ConsoleColor.green
                case 12
                    console.writeline("king of " )
Console.ForegroundColor = ConsoleColor.blue
                case 13
                    console.writeline("ace of " )
Console.ForegroundColor = ConsoleColor.cyan
​
                case else
                    console.writeline("errror ")
            end select
​
            
​
            if card1 > card2 > card3
                console.writeline("your highest is " & card1)
            else if card1 < card2 > card3
                console.writeline("your highest is " & card2)
            else if card1 < card2 < card3
                console.writeline("your highest is " & card3)
            else
                console.writeline("error")
            end if
        loop
    End Sub
sub suits1
select case suit1
                case 1
                    console.writeline("hearts")
Console.ForegroundColor = ConsoleColor.red
                case 2
                    console.writeline("spades")
Console.ForegroundColor = ConsoleColor.black
                case 3
                    console.writeline("diamond")
Console.ForegroundColor = ConsoleColor.red
                case 4
                    console.writeline("clubs")
Console.ForegroundColor = ConsoleColor.black
                case else
                    console.writeline("errror ")
            end select
end sub
sub suits2
            select case suit2
                case 1
                    console.writeline("hearts")
Console.ForegroundColor = ConsoleColor.red
                case 2
                    console.writeline("spades")
Console.ForegroundColor = ConsoleColor.black
                case 3
                    console.writeline("diamond")
Console.ForegroundColor = ConsoleColor.red
                case 4
                    console.writeline("clubs")
Console.ForegroundColor = ConsoleColor.black
                case else
                    console.writeline("errror ")
            end select
end sub
sub suits3
            select case suit3
                case 1
                    console.writeline("hearts")
                case 2
                    console.writeline("spades")
                case 3
                    console.writeline("diamond")
                case 4
                    console.writeline("clubs")
                case else
                    console.writeline("errror ")
            end select
end sub
End Module
​

Compilation error (line 55, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 58, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 61, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 64, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 67, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 70, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 73, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 76, col 0): Too many arguments to 'Public Sub suits1()'.
Compilation error (line 79, col 0): Too many arguments to 'Public Sub suits1()'.

Last Run:	5:51:24 am
Compile:	0s
Execute:	0.12s
Memory:	0b
CPU:	0s

View IL Code