Grading System

PROJECT IN
PROGRAMMING IV

(RANDOM GAME)

Submitted by:
BSCS – 3D
Escanillas, Krystal Marie M.
Romero, Brohnson D.
Serio, Rommel F.
Tajan, Jesulunar D.
Torres, Keisha Ann J.

Submitted to:
Prof. Espiritu

Date Submitted:
27th August, 2013

Imports System.IO
Module Module1 Dim PLAYER As Double Dim F, L, name As String Dim view As String Dim autonum As Integer = (PLAYER <> autonum = 0) Dim win As String = "WIN" Dim battle As String = "BATTLE DRAW" Dim input As Double Sub Main() Console.ForegroundColor = ConsoleColor.Yellow Console.WriteLine("--------------------------------") Console.WriteLine("1-ADD NEW PLAYER") Console.WriteLine("2-START THE GAME") Console.WriteLine("3-VIEW ALL LIST") Console.WriteLine("4-HISTORY") Console.WriteLine("5-EXIT") Console.Write("CHOOSE: ")

Dim choose As String = Val(Console.ReadLine) Console.Clear()

Select Case choose Case 1

Console.WriteLine("----------------------------") Console.WriteLine("LASTNAME: ") L = (Console.ReadLine) Console.WriteLine("FIRSTNAME: ") F = (Console.ReadLine) name = (L & "," & F) Dim file As New StreamWriter(".\namesofchallengers.text", True) file.WriteLine(INUMBERMO & name) Console.ReadLine() file.Close()

Case 2

Console.WriteLine("------------------------------") Console.WriteLine(" LIST OF PLAYER ") Console.WriteLine(“------------------------------") Dim LIST As New StreamReader(".\namesofchallengers.text") Dim intloop As Integer = 1 'Dim view As String = LIST.ReadToEnd