Jump to content

Como fazer sistema de notas


neon_yt
 Share

Recommended Posts

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 😁

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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
Link to comment
Share on other sites

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.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.