C# Online Compiler | .NET Fiddle

<no name> by Anonymous

'Red Bull Air Race
'A organização Do Red Bull Air Race pretende um programa para analisar estatisticamente o campeonato. 
'Para cada uma das 8 corridas, pretende-se guardar num vector, vecRaces o nome da cidade, 
'num vector vecPilotos o piloto que venceu a corrida e num vector vecTempos o tempo obtido.

'Pode substituir os vetores anteriores com uma estrutura e uma vetor.
'A introdução de dados deve ser processada da seguinte forma: para cada uma das 8 corridas, 
'o utilizador deve introduzir o nome da cidade e depois introduz o nome Do vencedor e o tempo obtido. 
'Estes dados devem ser guardados nos respetivos vetores ou outras estruturas.

'Menu:
'1. Introdução dados
'2. Geração dados (preenchimento dos vectores de forma automática)
'3. Alterar dados
'4. Eliminar dados
'5. Consultar
'6. Pesquisar (ver dados de uma determinada corrida)
'7. Grelha de classificação
'8. Guardar em ficheiro de texto
'9. Carregar dados do ficheiro
'10. Sair
Imports System
Public Module Module1

    'Estrutura com dados do Piloto vencedor
    Structure Race
        Dim cidade As String
        Dim nome As String
        Dim tempo As Date
    End Structure

Public Sub Main()
        Console.WriteLine()
        Console.WriteLine("          * Bem vindo ao programa de gestão de vencedores das corridas *  *  mais loucas do mundo, organizadas pela Red Bull Air Race. * ")
        Console.WriteLine()
        Console.WriteLine("-------------------------------------------------------------------------")
        Console.WriteLine("* Tenha atenção ao menu, e de seguida escolha uma das seguintes opções: *")
        Console.WriteLine("-------------------------------------------------------------------------")
        Console.WriteLine()
        Console.WriteLine(" _______________________________M_E_N_U_______________________________")
        Console.WriteLine("|                                                                     |")
        Console.WriteLine("|1. Introdução dados                                                  |")
        Console.WriteLine("|2. Geração dados (preenchimento dos vectores de forma automática)    |")
        Console.WriteLine("|3. Alterar dados                                                     |")
        Console.WriteLine("|4. Eliminar dados                                                    |")
        Console.WriteLine("|5. Consultar                                                         |")
        Console.WriteLine("|6. Pesquisar (ver dados de uma determinada corrida)                  |")
        Console.WriteLine("|7. Grelha de classificação                                           |")
        Console.WriteLine("|8. Guardar em ficheiro de texto                                      |")
        Console.WriteLine("|9. Carregar dados do ficheiro                                        |")
        Console.WriteLine("|10. Sair                                                             |")
        Console.WriteLine("|_____________________________________________________________________| ")

        Dim numero As Integer
        Dim vecRace(8) As Race
        Console.WriteLine()

        'ESCOLHER CASE
        Do
            Console.WriteLine("Escolha a sua opção pretendida:(1 a 10) ")
            numero = Console.ReadLine()
            Console.WriteLine()
        Loop While numero > 10 Or numero < 1

        Dim eliminaçao As Boolean
        Dim resposta As Boolean

        Do
            'CASE
            Select Case numero

                Case 1
                    'INTRODUÇÃO DE DADOS
                    Console.WriteLine("************************")
                    Console.WriteLine("* Introdução de dados: *")
                    Console.WriteLine("************************")

                    'VETOR/CASE
                    For i = 1 To 8
                        Console.WriteLine("Introduza:")
                        Console.WriteLine("O nome da Cidade da corrida Nº " & i & " :")
                        vecRace(i).cidade = Console.ReadLine()
                        Console.WriteLine("O nome do Piloto vencedor: ")
                        vecRace(i).nome = Console.ReadLine()
                        Console.WriteLine("O tempo final do Piloto, " & vecRace(i).nome & ", foi (HH:MM:SS) : ")
                        vecRace(i).tempo = Console.ReadLine()
                        Console.WriteLine()
                    Next

                Case 2  'DADOS ALEATORIOS
				
					vecRace = preenchimentoAleatoreo()
					

                Case 3 'ALTERAR  DADOS
                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("***********************")
                        Console.WriteLine("* Alteração de dados: *")
                        Console.WriteLine("***********************")
                        Console.WriteLine()
                        Console.WriteLine("Pretende alterar a totalidade dos dados?     (True/False)")
                        resposta = Console.ReadLine()
                        If resposta = "True" Then

                            'VETOR/CASE
                            For i = 1 To 8
                                Console.WriteLine("Introduza:")
                                Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & i & " :")
                                vecRace(i).cidade = Console.ReadLine()
                                Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                                vecRace(i).nome = Console.ReadLine()
                                Console.WriteLine("O tempo que o Piloto, " & vecRace(i).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                                vecRace(i).tempo = Console.ReadLine()
                                Console.WriteLine()
                            Next
                        Else
                            Console.WriteLine("Qual é o número da corrida que pretende alterar os dados? ")
                            numero = Console.ReadLine()

                            'VETOR/CASE
                            Console.WriteLine("Introduza:")
                            Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & numero & " :")
                            vecRace(numero).cidade = Console.ReadLine()
                            Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                            vecRace(numero).nome = Console.ReadLine()
                            Console.WriteLine("O tempo que o Piloto, " & vecRace(numero).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                            vecRace(numero).tempo = Console.ReadLine()
                            Console.WriteLine()
                        End If
                    End If

                Case 4 'ELIMINAR DADOS
                    Console.WriteLine("************************")
                    Console.WriteLine("* Eliminação de dados: *")
                    Console.WriteLine("************************")
                    Console.WriteLine()
                    Console.WriteLine("Tem a certeza que pretende eliminar os dados?    (True/False) ")
                    eliminaçao = Console.ReadLine()
                    If eliminaçao = True Then
                        For i = 1 To 8
                            vecRace(i).cidade = ""
                            vecRace(i).nome = ""
                            vecRace(i).tempo = "00:00:00"
                        Next
                        Console.WriteLine()
                        Console.WriteLine("Os seus dados foram totalmente removidos!")
                    End If

                Case 5 'CONSULTAR

                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("************************")
                        Console.WriteLine("*  Consulta de dados:  *")
                        Console.WriteLine("************************")
                        For i = 1 To 8
                            Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & i & " :")
                            Console.WriteLine(vecRace(i).cidade)
                            Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                            Console.WriteLine(vecRace(i).nome)
                            Console.WriteLine("O tempo que o Piloto, " & vecRace(i).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                            Console.WriteLine(vecRace(i).tempo)
                            Console.WriteLine()
                        Next
                    End If

                Case 6 'PESQUISAR CORRIDA
                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("*******************************")
                        Console.WriteLine("* Pesquisa avançada de dados: *")
                        Console.WriteLine("*******************************")
                        Console.WriteLine("Introduza o número da corrida de que pretende observar os dados: ")
                        numero = Console.ReadLine()
                        Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & numero & " :")
                        Console.WriteLine(vecRace(numero).cidade)
                        Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                        Console.WriteLine(vecRace(numero).nome)
                        Console.WriteLine("O tempo que o Piloto, " & vecRace(numero).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                        Console.WriteLine(vecRace(numero).tempo)
                        Console.WriteLine()
                    End If

                Case 7 'Grelha de classificações 

                Case 8 'GUARDAR TXT 
                    Dim NomeFicheiro As String = "Dados.txt"
                    Dim FicheiroTextoRace As New IO.StreamWriter(NomeFicheiro)

                    FicheiroTextoRace.WriteLine("Cidade, Nome do Piloto, Tempo em (HH:MM:SS)")

                    For i = 1 To 8
                        FicheiroTextoRace.WriteLine(vecRace(i).cidade & ", " &
                                                vecRace(i).nome & ", " &
                                                vecRace(i).tempo)
                    Next

                Case 9 'CARREGAR DADOS DO FICHEIRO

                Case 10 'Sair
                    Console.WriteLine()
                    Console.WriteLine("Prima ENTER para terminar o programa...")
                    Console.ReadLine()
                    numero = 10

            End Select

            If numero <> 10 Then
                Console.WriteLine("Pretende continuar?   (True/False)")
                resposta = Console.ReadLine()
                If resposta = True Then
                    Console.WriteLine()
                    Console.WriteLine("Qual é a seguinte tarefa a executar? ")
                    numero = Console.ReadLine()
                Else
                    numero = 10
                End If
            End If



        Loop While numero <> 10

    End Sub
	
		
	Function preenchimentoAleatoreo() As Race()
	
		Dim vecRace(8) As Race
		
		For i = 1 To 8
			
			vecRace(i).cidade = "Cidade" & i          
			vecRace(i).nome = "piloto " & i
            vecRace(i).tempo = "00:00:00"
        Next
		Return vecRace

	
	End Function

End Module

​x
 
'Red Bull Air Race
'A organização Do Red Bull Air Race pretende um programa para analisar estatisticamente o campeonato. 
'Para cada uma das 8 corridas, pretende-se guardar num vector, vecRaces o nome da cidade, 
'num vector vecPilotos o piloto que venceu a corrida e num vector vecTempos o tempo obtido.
​
'Pode substituir os vetores anteriores com uma estrutura e uma vetor.
'A introdução de dados deve ser processada da seguinte forma: para cada uma das 8 corridas, 
'o utilizador deve introduzir o nome da cidade e depois introduz o nome Do vencedor e o tempo obtido. 
'Estes dados devem ser guardados nos respetivos vetores ou outras estruturas.
​
'Menu:
'1. Introdução dados
'2. Geração dados (preenchimento dos vectores de forma automática)
'3. Alterar dados
'4. Eliminar dados
'5. Consultar
'6. Pesquisar (ver dados de uma determinada corrida)
'7. Grelha de classificação
'8. Guardar em ficheiro de texto
'9. Carregar dados do ficheiro
'10. Sair
Imports System
Public Module Module1
​
    'Estrutura com dados do Piloto vencedor
    Structure Race
        Dim cidade As String
        Dim nome As String
        Dim tempo As Date
    End Structure
​
Public Sub Main()
        Console.WriteLine()
        Console.WriteLine("          * Bem vindo ao programa de gestão de vencedores das corridas *  *  mais loucas do mundo, organizadas pela Red Bull Air Race. * ")
        Console.WriteLine()
        Console.WriteLine("-------------------------------------------------------------------------")
        Console.WriteLine("* Tenha atenção ao menu, e de seguida escolha uma das seguintes opções: *")
        Console.WriteLine("-------------------------------------------------------------------------")
        Console.WriteLine()
        Console.WriteLine(" _______________________________M_E_N_U_______________________________")
        Console.WriteLine("|                                                                     |")
        Console.WriteLine("|1. Introdução dados                                                  |")
        Console.WriteLine("|2. Geração dados (preenchimento dos vectores de forma automática)    |")
        Console.WriteLine("|3. Alterar dados                                                     |")
        Console.WriteLine("|4. Eliminar dados                                                    |")
        Console.WriteLine("|5. Consultar                                                         |")
        Console.WriteLine("|6. Pesquisar (ver dados de uma determinada corrida)                  |")
        Console.WriteLine("|7. Grelha de classificação                                           |")
        Console.WriteLine("|8. Guardar em ficheiro de texto                                      |")
        Console.WriteLine("|9. Carregar dados do ficheiro                                        |")
        Console.WriteLine("|10. Sair                                                             |")
        Console.WriteLine("|_____________________________________________________________________| ")
​
        Dim numero As Integer
        Dim vecRace(8) As Race
        Console.WriteLine()
​
        'ESCOLHER CASE
        Do
            Console.WriteLine("Escolha a sua opção pretendida:(1 a 10) ")
            numero = Console.ReadLine()
            Console.WriteLine()
        Loop While numero > 10 Or numero < 1
​
        Dim eliminaçao As Boolean
        Dim resposta As Boolean
​
        Do
            'CASE
            Select Case numero
​
                Case 1
                    'INTRODUÇÃO DE DADOS
                    Console.WriteLine("************************")
                    Console.WriteLine("* Introdução de dados: *")
                    Console.WriteLine("************************")
​
                    'VETOR/CASE
                    For i = 1 To 8
                        Console.WriteLine("Introduza:")
                        Console.WriteLine("O nome da Cidade da corrida Nº " & i & " :")
                        vecRace(i).cidade = Console.ReadLine()
                        Console.WriteLine("O nome do Piloto vencedor: ")
                        vecRace(i).nome = Console.ReadLine()
                        Console.WriteLine("O tempo final do Piloto, " & vecRace(i).nome & ", foi (HH:MM:SS) : ")
                        vecRace(i).tempo = Console.ReadLine()
                        Console.WriteLine()
                    Next
​
                Case 2  'DADOS ALEATORIOS
                
                    vecRace = preenchimentoAleatoreo()
                    
​
                Case 3 'ALTERAR  DADOS
                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("***********************")
                        Console.WriteLine("* Alteração de dados: *")
                        Console.WriteLine("***********************")
                        Console.WriteLine()
                        Console.WriteLine("Pretende alterar a totalidade dos dados?     (True/False)")
                        resposta = Console.ReadLine()
                        If resposta = "True" Then
​
                            'VETOR/CASE
                            For i = 1 To 8
                                Console.WriteLine("Introduza:")
                                Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & i & " :")
                                vecRace(i).cidade = Console.ReadLine()
                                Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                                vecRace(i).nome = Console.ReadLine()
                                Console.WriteLine("O tempo que o Piloto, " & vecRace(i).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                                vecRace(i).tempo = Console.ReadLine()
                                Console.WriteLine()
                            Next
                        Else
                            Console.WriteLine("Qual é o número da corrida que pretende alterar os dados? ")
                            numero = Console.ReadLine()
​
                            'VETOR/CASE
                            Console.WriteLine("Introduza:")
                            Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & numero & " :")
                            vecRace(numero).cidade = Console.ReadLine()
                            Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                            vecRace(numero).nome = Console.ReadLine()
                            Console.WriteLine("O tempo que o Piloto, " & vecRace(numero).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                            vecRace(numero).tempo = Console.ReadLine()
                            Console.WriteLine()
                        End If
                    End If
​
                Case 4 'ELIMINAR DADOS
                    Console.WriteLine("************************")
                    Console.WriteLine("* Eliminação de dados: *")
                    Console.WriteLine("************************")
                    Console.WriteLine()
                    Console.WriteLine("Tem a certeza que pretende eliminar os dados?    (True/False) ")
                    eliminaçao = Console.ReadLine()
                    If eliminaçao = True Then
                        For i = 1 To 8
                            vecRace(i).cidade = ""
                            vecRace(i).nome = ""
                            vecRace(i).tempo = "00:00:00"
                        Next
                        Console.WriteLine()
                        Console.WriteLine("Os seus dados foram totalmente removidos!")
                    End If
​
                Case 5 'CONSULTAR
​
                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("************************")
                        Console.WriteLine("*  Consulta de dados:  *")
                        Console.WriteLine("************************")
                        For i = 1 To 8
                            Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & i & " :")
                            Console.WriteLine(vecRace(i).cidade)
                            Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                            Console.WriteLine(vecRace(i).nome)
                            Console.WriteLine("O tempo que o Piloto, " & vecRace(i).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                            Console.WriteLine(vecRace(i).tempo)
                            Console.WriteLine()
                        Next
                    End If
​
                Case 6 'PESQUISAR CORRIDA
                    If vecRace(1).cidade = "" Then
                        Console.WriteLine("Não há dados a mostrar.")
                        Console.WriteLine("Deve introduzir dados escolhendo a opção Nº1 do MENU principal.")
                        Console.WriteLine()
                    Else
                        Console.WriteLine("*******************************")
                        Console.WriteLine("* Pesquisa avançada de dados: *")
                        Console.WriteLine("*******************************")
                        Console.WriteLine("Introduza o número da corrida de que pretende observar os dados: ")
                        numero = Console.ReadLine()
                        Console.WriteLine("O nome da Cidade onde ocorreu a corrida Nº " & numero & " :")
                        Console.WriteLine(vecRace(numero).cidade)
                        Console.WriteLine("O nome do Piloto vencedor da Corrida: ")
                        Console.WriteLine(vecRace(numero).nome)
                        Console.WriteLine("O tempo que o Piloto, " & vecRace(numero).nome & ", demorou a terminar o percurso, em (HH:MM:SS) : ")
                        Console.WriteLine(vecRace(numero).tempo)
                        Console.WriteLine()
                    End If
​
                Case 7 'Grelha de classificações 
​
                Case 8 'GUARDAR TXT 
                    Dim NomeFicheiro As String = "Dados.txt"
                    Dim FicheiroTextoRace As New IO.StreamWriter(NomeFicheiro)
​
                    FicheiroTextoRace.WriteLine("Cidade, Nome do Piloto, Tempo em (HH:MM:SS)")
​
                    For i = 1 To 8
                        FicheiroTextoRace.WriteLine(vecRace(i).cidade & ", " &
                                                vecRace(i).nome & ", " &
                                                vecRace(i).tempo)
                    Next
​
                Case 9 'CARREGAR DADOS DO FICHEIRO
​
                Case 10 'Sair
                    Console.WriteLine()
                    Console.WriteLine("Prima ENTER para terminar o programa...")
                    Console.ReadLine()
                    numero = 10
​
            End Select
​
            If numero <> 10 Then
                Console.WriteLine("Pretende continuar?   (True/False)")
                resposta = Console.ReadLine()
                If resposta = True Then
                    Console.WriteLine()
                    Console.WriteLine("Qual é a seguinte tarefa a executar? ")
                    numero = Console.ReadLine()
                Else
                    numero = 10
                End If
            End If
​
​
​
        Loop While numero <> 10
​
    End Sub
    
        
    Function preenchimentoAleatoreo() As Race()
    
        Dim vecRace(8) As Race
        
        For i = 1 To 8
            
            vecRace(i).cidade = "Cidade" & i          
            vecRace(i).nome = "piloto " & i
            vecRace(i).tempo = "00:00:00"
        Next
        Return vecRace
​
    
    End Function
​
End Module

View IL Code