AJUDA
Preciso de ajuda com os seguintes exercicios, é bem basico mas como iniciante no VB não sei nada, se alguem puder ajudar com umas dicas ficarei grato...
1-Uma fabrica de camisetas produz os tamanhos pequeno, medio e grande, sendo vendidas respectivamente por 10,12 e 15 reais. Construir uma tela em que o usuario forneça a quantidade de camisetas pequenas, medias e grandes ( referente a uma venda) e um botão executar para apresentar os valores por produto e total de vendas.
2-construir uma tela para informar idade de um nadador, classificalo em uma das seguintes categorias:
Infantil A=5 a 7 anos
Infantil B=8 a 11 anos
Juvenil A= 12 a 13 anos
JUvenil B=14 a 17 anos
Adultos= maiores de 18 anos
obrigado.
1-Uma fabrica de camisetas produz os tamanhos pequeno, medio e grande, sendo vendidas respectivamente por 10,12 e 15 reais. Construir uma tela em que o usuario forneça a quantidade de camisetas pequenas, medias e grandes ( referente a uma venda) e um botão executar para apresentar os valores por produto e total de vendas.
2-construir uma tela para informar idade de um nadador, classificalo em uma das seguintes categorias:
Infantil A=5 a 7 anos
Infantil B=8 a 11 anos
Juvenil A= 12 a 13 anos
JUvenil B=14 a 17 anos
Adultos= maiores de 18 anos
obrigado.
resolvi o segundo exercicio, agora só falta o primeiro, fiz desta maneira e deu certo, se alguem tiver mas alguma sugestão eu aceito:
Private Sub Command2_Click()
Dim Anos As Integer
Anos = Val(Text1.Text)
If (Anos > 0 And Anos < 8) Then
Label2.Caption = [Ô]Infantil A[Ô]
Else
If (Anos > 7 And Anos < 12) Then
Label2.Caption = [Ô]Infantil B[Ô]
Else
If (Anos > 11 And Anos < 14) Then
Label2.Caption = [Ô]Juvenil A[Ô]
Else
If (Anos > 13 And Anos < 18) Then
Label2.Caption = [Ô]Juvenil B[Ô]
Else
If (Anos > 17) Then
Label2.Caption = [Ô]Adultos[Ô]
Else
Label2.Caption = [Ô]Idade não Existe[Ô]
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
Dim Anos As Integer
Anos = Val(Text1.Text)
If (Anos > 0 And Anos < 8) Then
Label2.Caption = [Ô]Infantil A[Ô]
Else
If (Anos > 7 And Anos < 12) Then
Label2.Caption = [Ô]Infantil B[Ô]
Else
If (Anos > 11 And Anos < 14) Then
Label2.Caption = [Ô]Juvenil A[Ô]
Else
If (Anos > 13 And Anos < 18) Then
Label2.Caption = [Ô]Juvenil B[Ô]
Else
If (Anos > 17) Then
Label2.Caption = [Ô]Adultos[Ô]
Else
Label2.Caption = [Ô]Idade não Existe[Ô]
End If
End If
End If
End If
End If
End Sub
O raciocÃnio do exercÃcio 2 é exatamente o que precisa para o exercÃcio 1 fazendo para cada if quantidade x preço
guardar o valor em uma variavel com o valor total da venda tipo:
dim Totalvenda as currency [ô] (ou double - como quiser)
Totalvenda = qtde camisetas pequenas x 10
Totalvenda = qtde camisetas medias x 12
Totalvenda = qtde camisetas grandes x 15
Para mostrar o total da venda numa label:
labe1.caption = Totalvenda
Desculpa, o correto é este
Dim Totalvenda as Currency
Totalvenda = Totalvenda + (qtde camisetas pequenas x 10)
Totalvenda = Totalvenda + (qtde camisetas medias x 12)
Totalvenda = Totalvenda + (qtde camisetas grandes x 15)
Labe1.caption = Totalvenda
não entendi muito bem, creio que para esse exercicio eu teria que declarar 4 variaveis não? tipo:
dim peq as integer
dim med as integer
dim gd as integer
dim totalvendas as currency ( como mencionou)
seria essa a logica?
dim peq as integer
dim med as integer
dim gd as integer
dim totalvendas as currency ( como mencionou)
seria essa a logica?
. . .
vlw...consegui terminar graças a sua ajuda...tenho só mas uma duvida aqui...não lembro como é comando para fazer um botão de [Ô]Retornar[Ô]..
Blz . . .
Se for pra retornar para um, digamos, textbox:
no evento click do commandbutton:
text1.setfocus ou seja nomedobutton.setfocus
Se for fechar um form e retornar ao anterior que chamou:
unload me ou unload nomedoformatual
. . .
Veja o anexo
Desculpa ai mano veio, esse é o anexo
vlw...consegui teriminar os exercicios...
...
obrigado pelas dicas.
...obrigado pelas dicas.
Tópico encerrado , respostas não são mais permitidas