DuDz 0 #41 Postado 18 Janeiro, 2007 @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 Compartilhar este post Link para o post Compartilhar em outros sites
Vufusuf 1 #42 Postado 18 Janeiro, 2007 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! Compartilhar este post Link para o post Compartilhar em outros sites
Firelias 0 #43 Postado 18 Janeiro, 2007 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! Compartilhar este post Link para o post Compartilhar em outros sites
Tester 0 #44 Postado 22 Janeiro, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Vufusuf 1 #45 Postado 23 Janeiro, 2007 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. Compartilhar este post Link para o post Compartilhar em outros sites
CrownRabbit 0 #46 Postado 26 Janeiro, 2007 Dei Editada aqui , Já achei oque precisava em outro topico //CR Compartilhar este post Link para o post Compartilhar em outros sites
Faelzinhow 0 #47 Postado 10 Fevereiro, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Faelzinhow 0 #48 Postado 10 Fevereiro, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Flatronez 1 #49 Postado 16 Março, 2007 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 =/ Compartilhar este post Link para o post Compartilhar em outros sites
Vufusuf 1 #50 Postado 17 Março, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
Fozz 0 #51 Postado 19 Abril, 2007 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 Compartilhar este post Link para o post Compartilhar em outros sites
colt7r 0 #52 Postado 6 Maio, 2007 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! Compartilhar este post Link para o post Compartilhar em outros sites
Thest 0 #53 Postado 20 Maio, 2007 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" Compartilhar este post Link para o post Compartilhar em outros sites
Full'House 0 #54 Postado 2 Maio, 2008 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? Compartilhar este post Link para o post Compartilhar em outros sites