Erro Em Algoritmo

[Vinícius]

Ola pessoal me deem uma ajuda com o erro que estou tendo aqui.

Algoritmo:

P2.25. Faça um algoritmo para calcular a conta final de um hóspede de um hotel fictício, considerando que:

a)  serão lidos o nome do hóspede, o tipo do apartamento utilizado (A, B, C ou D), o número de diárias utilizadas pelo hóspede e o valor do consumo interno do hóspede;

  o valor da diária é determinado pela seguinte tabela:

TIPO DO APTO. VALOR DA DIÁRIA (R$)

A 150,00

B 100,00

C 75,00

D 50,00

c) o valor total das diárias é calculado pela multiplicação do número de diárias utilizadas pelo valor da diária;

d) o subtotal é calculado pela soma do valor total das diárias e o valor do consumo interno;

e) o valor da taxa de serviço equivale a 10% do subtotal;

f) a total geral resulta da soma do subtotal com a taxa de serviço.

g) escreva a conta final contendo: o nome do hóspede, o tipo do apartamento, o número de diárias utilizadas, o valor unitário da diária, o valor total das diárias, o valor do consumo interno, o subtotal, o valor da taxa de serviço e o total geral.

Rotina CommandButton:

Private Sub Command1_Click()

 

  Dim nome As String

  Dim ta As String 'Tipo de Apartamento'

  Dim nd As Integer ' Número de Diarias'

  Dim ci As Integer 'Consumo Interno'

  Dim vd As Integer 'Valor da diária'

  Dim vt As Integer 'Valor Total'

  Dim st As Integer 'Sub-Total'

  Dim ts As Integer 'Taxa de Serviço'

  Dim tg As Integer 'Total Geral'

 

  nome = Text1.Text

  ta = Text2.Text

  nd = Text3.Text

  ci = Text4.Text

 

  If ta = a Then

    vd = 150

  ElseIf ta = b Then

    vd = 100

  ElseIf ta = c Then

    vd = 75

  ElseIf ta = d Then

    vd = 50

  End If

 

  vt = nd * vd

  st = vt + ci

  ts = st / 10

  tg = st + ts

 

  MsgBox "Seu nome é " & nome

  MsgBox "Tipo de Apartamento: " & ta

  MsgBox "Número de diárias: " & nd

  MsgBox "Valor unitário da diária: " & vd & ",00"

  MsgBox "Valor Total das diárias: " & vt & ",00"

  MsgBox "Consumo interno: " & ci & ",00"

  MsgBox "SubTotal: " & st & ",00"

  MsgBox "Taxa de Serviço: " & ts & ",00"

  MsgBox "Total Geral: " & tg & ",00"

End Sub

Está dando erro no calculo da variável vd (Valor das Diárias).

Sou iniciante em VB e queria que vocês me alertassem caso esteja cometendo alguma gafe na escrita do código.

[William Rodrigues]

Brother...

Não testei o seu código, mas como se trata de valores, use a função Val() para transformar em valores

Ah...

Procure aqui no fórum como fazer para que a caixa de texto só receba números

Abraços,

William Rodrigues

[Guest Guest]

valeu William.

Vou fazer uma pesquisa aqui.

[AlexMunhoz]

Amigão,

Tente Trocar isso:

nome = Text1.Text

ta = Text2.Text

nd = Text3.Text

ci = Text4.Text

If ta = a Then

vd = 150

ElseIf ta = b Then

vd = 100

ElseIf ta = c Then

vd = 75

ElseIf ta = d Then

vd = 50

End If

Por:

nome = Text1.Text

ta = Text2.Text

nd = Val(Text3.Text)

ci = Val(Text4.Text)

If ta = "a" Then

vd = 150

ElseIf ta = "b" Then

vd = 100

ElseIf ta = "c" Then

vd = 75

ElseIf ta = "d" Then

vd = 50

End If

[William Rodrigues]

É...Ou use o Select Case

Abraços,

William Rodrigues

[AlexMunhoz]

É...Ou use o Select Case

Will,

Como ficaria isso com Select Case?

eu não sei como usar, você pode me mostrar?

[CKorneLL]

select case ta

case "a"

[CKorneLL]

opa! foi mal...

select case ta

case "a"

vd = 150

case "b"

vd = 100

case "c"

vd = 75

case "d"

vd = 50

end select

Essa é a opção Correta...

Um abraço.

CKorneLL!!!

[William Rodrigues]

select case ta

case "a"

vd = 150

case "b"

vd = 100

case "c"

vd = 75

case "d"

vd = 50

end select

Isso mesmo!

Qualquer coisa cara, é só postar

Abraços,

William Rodrigues

[Vinícius]

Funcionou aqui.

Agora queria vocês resumissem para mim como funciona essa função Val.

[CKorneLL]

Resumindo a Função Val...

Bom se eu fizer isso...

variável = txt1.text + txt2.text, atribuindo os valores 1 e 2 respectivamente, eu terei o valor 12... ou seja, ela apenas concatenará os valores, pois só pegará o valor como string, e qd você coloca a função Val, ela transformará em integer, assim fazendo a soma... ou qualquer operação!!!

variável = Val(txt1.Text) + Val(txt2.Text)

resultará em 3...

Abraços...