Anouk Posted December 21, 2019 at 01:51 PM Report Share #616907 Posted December 21, 2019 at 01:51 PM Olá a todos! Estou a desenvolver um jogo do tipo Quem Quer ser Milionário, no âmbito de um curso profissional. Neste momento tenho todas as perguntas num ficheiro em que cada linha tem o seguinte formato: C1|Pergunta|RespostaCerta|RespostaErrada1|RespostaErrada2/RespostaErrada3|Pista O "C1" é uma referência para saber que aquele registo pertence à Categoria de Ciências e ao Nível1. Cada categoria vai ser 45 perguntas, divididas em 3 níveis de 15 perguntas. Dessas 15 perguntas, vão ser selecionados aleatoriamente 5 em cada nível. Fiz esta estrutura para ao ler conseguir selecionar a posição da substring que pretendo atribuir às labels no formulário: Structure Registo Dim codigo As String Dim pergunta As String Dim certa As String Dim errada1 As String Dim errada2 As String Dim errada3 As String Dim pista As String End Structure Do Until LerRegisto.Count = 15 Posicao1 = LerRegisto.IndexOf("|") + 1 Posicao2 = LerRegisto.IndexOf("|", Posicao1) + 1 Posicao3 = LerRegisto.IndexOf("|", Posicao2) + 1 Posicao4 = LerRegisto.IndexOf("|", Posicao3) + 1 Posicao5 = LerRegisto.IndexOf("|", Posicao4) + 1 Posicao6 = LerRegisto.IndexOf("|", Posicao5) + 1 With LinhaRegisto .codigo = LerRegisto.Substring(0, Posicao1 - 1) .pergunta = LerRegisto.Substring(Posicao1, Posicao2 - Posicao1 - 1) .certa = LerRegisto.Substring(Posicao2, Posicao3 - Posicao2 - 1) .errada1 = LerRegisto.Substring(Posicao3, Posicao4 - Posicao3 - 1) .errada2 = LerRegisto.Substring(Posicao4, Posicao5 - Posicao4 - 1) .errada3 = LerRegisto.Substring(Posicao5, Posicao6 - Posicao5 - 1) .pista = LerRegisto.Substring(Posicao6) End With ctdRegisto += 1 Loop Já tenho 2 rotinas para atribuir números aleatórios às perguntas e às respostas, respectivamente. Já testei a aleatoriamente das respostas e está a funcionar bem. O que não estou a conseguir fazer é selecionar aleatoriamente as perguntas de um determinado intervalo. Não sei onde guardar essa informação. Já tentei guarda as linhas de registo num vetor, mas não resultou. Agradecia a quem me pudesse ajudar. Link to comment Share on other sites More sharing options...
Dark Posted December 23, 2019 at 12:20 PM Report Share #616911 Posted December 23, 2019 at 12:20 PM (edited) Ola, Conseguiria elaborar melhor o seu problema? Quer selecionar perguntas de onde? (diretamente de um ficheiro? de um array?) Se podesse mostrar o código dessa selecção também seria bom. Edited December 23, 2019 at 02:11 PM by Dark Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now