COMPARACOES DE SELECT CASE CONDICIONAIS[O]

MANCKENNA 15/08/2009 22:23:41
#319947
Listagem 6.7 [Ô] Você Pode Utilizar as Comparações de Select Case Condicionais[Ô]

____________________Código______________________________________________________________

[ô] Testa o Grau de Uma Criança Por Número

Select Case txtGrade.Text

Case Is >= 90

lbl Announce.Caption = [Ô]Perfect![Ô]

Case Is >= 80

lblAnnounce.Caption = Great![Ô]

Case Is >= 70

lblAnnounce.Caption = [Ô]Study Harder![Ô]

Case Is >= 60

lblAnnounce.Caption = [Ô]Get Help![Ô]

Case Else

lblAnnounce.Caption = [Ô]Back to basics![Ô]

End Select
TECLA 15/08/2009 23:07:13
#319951 Resposta escolhida
Para rodar o código acima, insira dois CONTROLES no FORM:
txtGrade = TEXTBOX
lblAnnounce = LABEL
MANCKENNA 16/08/2009 14:11:12
#319970
Citação:

TECLA escreveu:
Para rodar o código acima, insira dois CONTROLES no FORM:

txtGrade = TEXTBOX
lblAnnounce = LABEL



[ô]criei o formulário :
name=frmGrade
Caption= Insira o Grau

[ô]Criei o txtBox
[ô] name = txtGrade

[ô]Criei o lable
[ô]name= lblAnnounce
[ô]Caption= Announce

[ô]Criei o Botão
[ô]name= cmdCase
[ô]Caption= Insira o Case

[ô] E o código ficou como :


Private Sub Command1_Click()
[ô]Testa o Grau de Uma Criança Por Número

Select Case txtGrade.Text

Case Is >= 90

lblAnnounce.Caption = [Ô]Perfect![Ô]

Case Is >= 80

lblAnnounce.Caption = Great![Ô]

Case Is >= 70

lblAnnounce.Caption = [Ô]Study Harder![Ô]

Case Is >= 60

lblAnnounce.Caption = [Ô]Get Help![Ô]

Case Else

lblAnnounce.Caption = [Ô]Back to basics![Ô]

End Select

End Sub
MANCKENNA 16/08/2009 14:21:28
#319971
Renomeado o botão o código agora funciona 100%

Valeu meus amigos !!!!
Tópico encerrado , respostas não são mais permitidas
Voltar