[Aula 6] Operadores

[DuDz 0]

@vufusuf

 

Cara, eu vi lá sua calculadora, não sou o Boleta ou o Zero (o.O), mas acho que ela tá certinha. Mas, sabe o que você podia fazer?

 

Você podia colocar pro Valor 2 somar no Valor 1, pra poder continuar a conta. Se não, só vai dar pra fazer uma conta por vez. ;P

 

Ela tá certinha, só faz esse ajuste, mesmo. ;P

 

Abraços,

 

//DuD

[Vufusuf 1]

Originally posted by DuDz

@vufusuf

 

Cara, eu vi lá sua calculadora, não sou o Boleta ou o Zero (o.O), mas acho que ela tá certinha. Mas, sabe o que você podia fazer?

 

Você podia colocar pro Valor 2 somar no Valor 1, pra poder continuar a conta. Se não, só vai dar pra fazer uma conta por vez. ;P

 

Ela tá certinha, só faz esse ajuste, mesmo. ;P

 

Abraços,

 

//DuD

Ah, aquela calculadora fiz quando tava lendo as aulas (era um exercicio).

Hoje eu vejo como ela é horrível xD

 

Mas valeu pelo toque!

[Firelias 0]

Originally posted by Vufusuf

Firelias,

É bem simples fazer esse tipo de calculadora,

Coloque apenas uma TextBox pra ficar melhor, igual a calculadora do windows, e coloque o nome dessa textBox de Display.

E em cada botão (os de numeros) coloque o code dento do evento Click do botão.

Display.Text = Display.Text + Str(x)

No lugar de x você coloca o número correspondente ao botão

 

Depois coloque uma variavel em General Declarations, para armazenar qual o sinal esta sendo usado (+, -, x...)  

 

Troque esse Calculkar pelo sinal "=" e coloque o code para calcular nele.

 

Se você quiser que eu te ajude passe seu msn por MP

valeu cara!

ja passei o msn

mas eu eskeci qq eh General Declarations xD

vo ve nos tutoriais aki pra ver se lembro ¬¬

vlw!

 

_______________Edit__________________

lembrei!

eh akele espaço branco entre os parenteses da subrotina!

vlw!

[Tester 0]

Estou com um pequeno problema, quando eu vô fazer a soma na minha calculadora, ela junta os número, tipo eu boto 30 + 30 ela transforma em 3030.

Alguém ai tem a solução?

Porque o resto tá OK

^^

Flws

 

EDIT: Pronto, nem sei o que eu fiz mas tá funcionando agora ^^

Oia como fico

[Vufusuf 1]

Originally posted by Tester

Estou com um pequeno problema, quando eu vô fazer a soma na minha calculadora, ela junta os número, tipo eu boto 30 + 30 ela transforma em 3030.

Alguém ai tem a solução?

Declare o variavel dos valores como Integer, e não use aspas (" ") para somalas

 

Exemplo:

Dim val1 as Integer

Dim val2 as Integer



Resultado = val1 + val2

Se tiver assim não vai dar certo:

Resultado = "val1" + "val2"

Espero que isso resolva, e se não resolver poste seu code aqui para ver-mos-lo o que tem de errado.

[CrownRabbit 0]

Dei Editada aqui , Já achei oque precisava em outro topico

 

//CR

[Faelzinhow 0]

Private Sub Command1_Click()

Dim Man As Long

Dim Woman As Long

Dim Kid As Long

Man = Text2.Text

Woman = Text3.Text

Kid = Text4.Text

Text1.Text = "Nesse Churrasco será usado:" & vbNewLine & "" & vbNewLine & "" & Man * 0.4 + Woman * 0.25 + Kid * 0.2 & " Kg de Picanha" & vbNewLine & "" & Man * 0.2 + Woman * 0.15 + Kid * 0.13 & " Kg de Maminha" & vbNewLine & "" & Man * 0.1 + Woman * 0.09 + Kid * 0.08 & " Kg de Linguiça"

End Sub

[Faelzinhow 0]

Private Sub Command1_Click()

Dim Man As Long

Dim Woman As Long

Dim Kid As Long

Man = Text2.Text

Woman = Text3.Text

Kid = Text4.Text

Text1.Text = "Nesse Churrasco será usado:" & vbNewLine & "" & vbNewLine & "" & Man * 0.4 + Woman * 0.25 + Kid * 0.2 & " Kg de Picanha" & vbNewLine & "" & Man * 0.2 + Woman * 0.15 + Kid * 0.13 & " Kg de Maminha" & vbNewLine & "" & Man * 0.1 + Woman * 0.09 + Kid * 0.08 & " Kg de Linguiça"

End Sub

[Flatronez 1]

Eu fiz com sistema de inputboxes + está dando um erro na hora de mostrar o resultado, vejam ai o que eu fiz de errado:

Private Sub Form_Load()



Dim Termo1 As Integer

Dim Termo2 As Integer

Dim Result As Integer

Dim ValorMais As Integer

Dim ValorMenos As Integer

Dim ValorVezes As Integer

Dim ValorDividir As Integer

Dim ValorExpo As Integer

Dim Operacao As Integer





Termo1 = InputBox("Digite o 1° número")

Termo2 = InputBox("Digite o 2° número")

Operacao = InputBox("Digite a operação: Adição, Subtração, Multiplicação, Divisão, Esponenciação")



If Operacao = Adição Then Operacao = ValorMais

If Operacao = Subtração Then Operacao = ValorMenos

If Operacao = Multiplicação Then Operacao = ValorVezez

If Operacao = Divisão Then Operacao = ValorDividir

If Operacao = Espoenciação Then Operacao = ValorExpo

'...

End



ValorMais = Termo1 + Termo2

ValorMenos = Termo1 - Termo2

ValorVezes = Termo1 * Termo2

ValorDividir = Termo1 \ Termo2

ValorExpo = Termo1 ^ Termo2

'...



MsgBox Operacao





End Sub

 

Já tentei de tudo e não encontrei o erro =/

[Vufusuf 1]

Flatronze, você declarou a variável operação como Integer, e armazenou nela valores como "Adicao", "Subtracao"...

Se você declarou como Integer, significa que os valores tem de ser números. Tambem você fez uma "bagunça" com as variáveis.

Vou tentar dar uma ajeitada no seu code:

 

Private Sub Form_Load() 



Dim Termo1 As Integer 

Dim Termo2 As Integer 

Dim Result As Integer 

Dim Operacao As String



Termo1 = InputBox("Digite o 1° número") 

Termo2 = InputBox("Digite o 2° número") 

Operacao = InputBox("Digite a operação: Adição, Subtração, Multiplicação, Divisão, Esponenciação") 



If Operacao = "Adição" Then Result = Termo1 + Termo2

If Operacao = "Subtração" Then Result = Termo1 - Termo2

If Operacao = "Multiplicação" Then Result = Termo1 * Termo2

If Operacao = "Divisão" Then Result = Termo1 \ Termo2

If Operacao = "Esponenciação" Then Result = Termo1 ^ Termo2

'... 

End 



MsgBox Result



End Sub 

 

Não tentei aqui, mas da uma olhada se agora deu certo.

 

Cya

[Fozz 0]

Eu fiz assim:

 

e o código:

Private Sub Command1_Click()

Text2.Text = "+"

End Sub
---------------------------------------------
Private Sub Command2_Click()

Text2.Text = "-"

End Sub
---------------------------------------------
Private Sub Command3_Click()

Text2.Text = "*"

End Sub
---------------------------------------------
Private Sub Command4_Click()

Text2.Text = "/"

End Sub
---------------------------------------------
Private Sub Command5_Click()

Text2.Text = "^"

End Sub
---------------------------------------------
Private Sub Command6_Click()

If Text2.Text = "+" Then

Dim num1 As Currency
Dim num2 As Currency
Dim soma As Currency

num1 = Text1.Text
num2 = Text3.Text
soma = num1 + num2

Text4.Text = soma

ElseIf Text2.Text = "-" Then

Dim num3 As Currency
Dim num4 As Currency
Dim subt As Currency

num3 = Text1.Text
num4 = Text3.Text
subt = num3 - num4

Text4.Text = subt

ElseIf Text2.Text = "*" Then

Dim num5 As Currency
Dim num6 As Currency
Dim mult As Currency

num5 = Text1.Text
num6 = Text3.Text
mult = num5 * num6

Text4.Text = mult

ElseIf Text2.Text = "/" Then

Dim num7 As Currency
Dim num8 As Currency
Dim divi As Currency

num7 = Text1.Text
num8 = Text3.Text
divi = num7 / num8

Text4.Text = divi

ElseIf Text2.Text = "^" Then

Dim num9 As Currency
Dim num0 As Currency
Dim expo As Currency

num9 = Text1.Text
num0 = Text3.Text
expo = num9 ^ num0

Text4.Text = expo

End If

End Sub

o/

axo q ficou bom, e tá certim, eu só não conheco VB o suficiente pra poder escrever só números e tudo em um TextBox só, mas pra 1ª ta bom, ne??

cya~

 

EDIT: ali na calculadora eu só adicionei p botaozim com o ^

 

cya

[colt7r 0]

Olha como ficou o meu:

 

Private Sub Command1_Click()

Dim numero1 As Integer
Dim numero2 As Integer
Dim resultado As String

numero1 = InputBox("Qual o primeiro número?", "Primeiro termo")
numero2 = InputBox("Qual o segundo número?", "Segundo termo")
resto = numero1 Mod numero2

operador = InputBox("O que vc quer fazer? dividir, multiplicar, somar ou subtrair?", "Operador")
If operador = dividir Then
   resultado = numero1 / numero2
   MsgBox "O resultado é " & resultado & "."
   MsgBox "O resto é " & resto & "."

ElseIf operador = multiplicar Then
   resultado = numero1 * numero2
   MsgBox "O resultado é " & resultado & "."

ElseIf operador = somar Then
   resultado = numero1 + numero2
   MsgBox "O resultado é " & resultado & "."

ElseIf operador = subtrair Then
   resultado = numero1 - numero2
   MsgBox "O resultado é " & resultado & "."

Else
   MsgBox "Operador não encontrado!"
   End If

End Sub

 

Não sei qual é o erro!

[Thest 0]

Olha como ficou o meu:

 

Private Sub Command1_Click()

Dim numero1 As Integer
Dim numero2 As Integer
Dim resultado As String

numero1 = InputBox("Qual o primeiro número?", "Primeiro termo")
numero2 = InputBox("Qual o segundo número?", "Segundo termo")
resto = numero1 Mod numero2

operador = InputBox("O que vc quer fazer? dividir, multiplicar, somar ou subtrair?", "Operador")
If operador = dividir Then
   resultado = numero1 / numero2
   MsgBox "O resultado é " & resultado & "."
   MsgBox "O resto é " & resto & "."

ElseIf operador = multiplicar Then
   resultado = numero1 * numero2
   MsgBox "O resultado é " & resultado & "."

ElseIf operador = somar Then
   resultado = numero1 + numero2
   MsgBox "O resultado é " & resultado & "."

ElseIf operador = subtrair Then
   resultado = numero1 - numero2
   MsgBox "O resultado é " & resultado & "."

Else
   MsgBox "Operador não encontrado!"
   End If

End Sub

 

Não sei qual é o erro![/b]

Bom eu não programo mais em VB, mas eu acho que quando você está fazendo a análise das expressões, você está tratando somar, subtrair, dividir, etc, como variáveis, para tratalas como string, bote aspas, por exemplo:

If operador = "somar" Then
código
end if

E você esqueceu de declarar a variável "operador"

[Full'House 0]

Boleta estou lendo seus tutoriais de Visual Basic, e estou gostando muito, parabéns, mas me diga um coisa:

Eu faço técnico de informatica, e em logica de programação eu aprendio nor e o nand, no Visual Bsic, o nor(não ou) é substituido pelo Xor?