Como fazer sistema de notas

[neon_yt]

Olá, eu estou a fazer um jogo e preciso de transformar, por exemplo, 90 em 5, 80 em 4, 60 em 3, etc.

Como posso fazê-lo?

[He B TeMy]

Precisas de transformar o quê? Podes ser mais específico.

[ribeiro55]

A pergunta é tão vaga, que até posso dar-me ao luxo de responder assim:

90/18 = 5

80/20 = 4

60/20 = 3

Tenta ser um pouco mais explícito, pois só tu sabes o teu contexto 😁

[neon_yt]

A pergunta é tão vaga, que até posso dar-me ao luxo de responder assim:

90/18 = 5

80/20 = 4

60/20 = 3

Tenta ser um pouco mais explícito, pois só tu sabes o teu contexto 😁

Eu quero classificar com um de 0 a 19, com dois de 21 a 49, com três de 50 a 69, com quatro de 70 a 89 e com cinco de 90 a 100, ou substituir os números que eu escrevi por extenso com texto, com, por exemplo, o um "Mau", o dois "Nada de importante", o três "Normal", o quatro "Acima da média" e o cinco "Viral". Já tentei usar o If, mas não funciona. Já apaguei o código, não o peçam =P.

[Retsu9]

e um if nao da porque? if ..else ou select case é o que tens de utilizar

[He B TeMy]

Podes usar um select case...

Dim number As Integer = 20

 Select Case number
	 Case < 20
		 MessageBox.Show("Menor que 20")
	 Case < 40
		 MessageBox.Show("Menor que 40")
 End Select

Ou podes fazer:

Case 1 to 19
'etc

[ribeiro55]

Se o If "não deu" é porque não o fizeste correctamente 🙂

Deixo-te 3 alternativas para que possas analisar.

   Private Function Classificar(valor As Integer, Optional numeros As Boolean = False) As String
       Select Case valor
           Case 90 To 100 : Return IIf(numeros, 5, "Viral")
           Case 70 To 89 : Return IIf(numeros, 4, "Acima da Média")
           Case 50 To 69 : Return IIf(numeros, 3, "Normal")
           Case 21 To 49 : Return IIf(numeros, 2, "Nada de Importante")
           Case 0 To 19 : Return IIf(numeros, 1, "Mau")
           Case Else : Return IIf(numeros, 0, "Não faço ideia")
       End Select
   End Function

   Private Function Classificar2(valor As Integer, Optional numeros As Boolean = False) As String
       If valor >= 90 And valor <= 100 Then Return IIf(numeros, 5, "Viral")
       If valor >= 70 And valor <= 89 Then Return IIf(numeros, 4, "Acima da Média")
       If valor >= 50 And valor <= 69 Then Return IIf(numeros, 3, "Normal")
       If valor >= 21 And valor <= 49 Then Return IIf(numeros, 2, "Nada de Importante")
       If valor >= 0 And valor <= 19 Then Return IIf(numeros, 1, "Mau")
       Return IIf(numeros, 0, "Não faço ideia")
   End Function

   Private Function Classificar3(valor As Integer, Optional numeros As Boolean = False) As String
       If valor >= 90 And valor <= 100 Then
           Return IIf(numeros, 5, "Viral")
       ElseIf valor >= 70 And valor <= 89 Then
           Return IIf(numeros, 4, "Acima da Média")
       ElseIf valor >= 50 And valor <= 69 Then
           Return IIf(numeros, 3, "Normal")
       ElseIf valor >= 21 And valor <= 49 Then
           Return IIf(numeros, 2, "Nada de Importante")
       ElseIf valor >= 0 And valor <= 19 Then
           Return IIf(numeros, 1, "Mau")
       Else
           Return IIf(numeros, 0, "Não faço ideia")
       End If
   End Function

A primeira é a mais elegante, no universo Visual Basic.

[neon_yt]

Obrigado =)