Dim a,b,c,d,e,f,g,h,i,j,k,l a=msgbox("Você quer somar?",vbYesNo) if a =vbYes then b=inputbox ("Digite o Primeiro Valor") c=inputbox ("Digite o Segundo Valor") msgbox b*1+c else d=msgbox("Você quer subtrair?",vbYesNo) if d =vbYes then e=inputbox ("Digite o Primeiro Valor") f=inputbox ("Digite o Segundo Valor") msgbox e-f else g=msgbox("Você quer multiplicar?",vbYesNo) if g =vbYes then h=inputbox ("Digite o Primeiro Valor") i=inputbox("Digite o Segundo Valor") msgbox h*i else j=msgbox("Você quer dividir?",vbYesNo) if j=vbYes then k=inputbox ("Digite o Primeiro Valor") l=inputbox("Digite o Segundo Valor") msgbox k/l end if end if end if end ifDa hora neh?
Calculadora Em Vbs
Started By
RoCcO
, 17/12/2003, 17:54
7 replies to this topic
#1
Posted 17/12/2003, 17:54
Olha soh que código simples de calculadora em VBS que eu fiz:
- RonsisM likes this
<?php
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
#2
Posted 17/12/2003, 18:07
muito legal
www.andrewsmedina.com.br
#3
Posted 17/12/2003, 18:38
Interessante e simples.
#4
Posted 23/03/2010, 16:24
Outro exemplo de calculadora, sem Loop, segue abaixo:
Dim a,b,c
a=inputbox("escolha uma operacao digitando: somar, subtrair, multiplicar ou dividir ") ' escolha da operacao
if a = "somar" then
b=cint(inputbox ("digite o primeiro valor"))
c=cint(inputbox ("digite o segundo valor"))
msgbox b+c
end if
if a = "subtrair" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b-c
end if
if a = "multiplicar" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b*c
end if
if a = "dividir" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b/c
end if
'_______________
'Usem a vontade
'Créditos: A. Tenório
'Gerenciamento de Redes
Dim a,b,c
a=inputbox("escolha uma operacao digitando: somar, subtrair, multiplicar ou dividir ") ' escolha da operacao
if a = "somar" then
b=cint(inputbox ("digite o primeiro valor"))
c=cint(inputbox ("digite o segundo valor"))
msgbox b+c
end if
if a = "subtrair" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b-c
end if
if a = "multiplicar" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b*c
end if
if a = "dividir" then
b=inputbox ("digite o primeiro valor")
c=inputbox ("digite o segundo valor")
msgbox b/c
end if
'_______________
'Usem a vontade
'Créditos: A. Tenório
'Gerenciamento de Redes
Edição feita por: SANTENÓRIO, 23/03/2010, 16:25.
#5
Posted 22/10/2017, 06:34
Pfizer Patient Assistance Cephalexin For Canine Prix Cialis Boite De 4 cialis buy online Comprare Cialis Generico Line Cialis Reflusso Gastroesofageo
Best Levitra Buy Non Prescription Viagra Online cialis Doxycycline Acne Achat Viagra En Tunisie Cialis Precio Oficial En Farmacia
Amoxicillin Chlamydia cialis Cialis Lagerung Propecia Equidad
Cheap Zithromax Uk Levitra Miglior Prezzo Keflex Antibiotic Structural Formula cialis levitra sales viagra Order Discount Propecia Cialis 20mg Achat France
Best Levitra Buy Non Prescription Viagra Online cialis Doxycycline Acne Achat Viagra En Tunisie Cialis Precio Oficial En Farmacia
Amoxicillin Chlamydia cialis Cialis Lagerung Propecia Equidad
Cheap Zithromax Uk Levitra Miglior Prezzo Keflex Antibiotic Structural Formula cialis levitra sales viagra Order Discount Propecia Cialis 20mg Achat France
#7
Posted 04/11/2017, 17:07
Propecia Pause What Do You Take Cephalexin For Buy Propecia Finasteride Online order levitra without a prescription Priligyonlineusa
Il Cialis Commenti Acheter Cialis Ligne Cilag Preis cialis price Metformin No Rx Buying Macrobid 100mg Free Shipping In Internet Mail Order Amoxicillin Mexico
Il Cialis Commenti Acheter Cialis Ligne Cilag Preis cialis price Metformin No Rx Buying Macrobid 100mg Free Shipping In Internet Mail Order Amoxicillin Mexico
#8
Posted 29/11/2017, 06:43
Venta De Cialis Internet Online Pharmaciy Nombre Droga Generica Viagra viagra online prescription Female Cialis Recomended Dose Buy Plavix Generic
Keflex Breastfeeding Precios Cialis Generico viagra Viagra Cialis Levitra Combo Packs Cheapest Synthroid No Prescription
Cialis Super Active Avis isotretinoin with overnight delivery Viagra Legal Bestellen cialis Lawrence Walter Pharmacy
Buy Lynoral Online Uk Priligy Vente Uk cialis Cialis 5 Mg Dosaggio Levitra Canada Free Shipping Kamagra Oral Jelly Online Australia
Keflex Breastfeeding Precios Cialis Generico viagra Viagra Cialis Levitra Combo Packs Cheapest Synthroid No Prescription
Cialis Super Active Avis isotretinoin with overnight delivery Viagra Legal Bestellen cialis Lawrence Walter Pharmacy
Buy Lynoral Online Uk Priligy Vente Uk cialis Cialis 5 Mg Dosaggio Levitra Canada Free Shipping Kamagra Oral Jelly Online Australia
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)