7 replies to this topic

[RoCcO]

Olha soh que código simples de calculadora em VBS que eu fiz:

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 if

Da hora neh?

[cybermix]

muito legal

[Without a Nick]

Interessante e simples.

[SANTENÓRIO]

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

Edição feita por: SANTENÓRIO, 23/03/2010, 16:25.

[RonsisM]

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

[LarPhozyHah]

Viagra Vendita Italia Achat Cialis En Martinique viagra Effetti Cialis 20 Mg

[RonsisM]

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

[RonsisM]

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