Jump to content


Photo

Calculadora Em Vbs


  • Faça o login para participar
7 replies to this topic

#1 RoCcO

RoCcO

    Turista

  • Banidos
  • Pip
  • 59 posts
  • Sexo:Não informado

Posted 17/12/2003, 17:54

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
(y) Da hora neh?
<?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

?>

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 17/12/2003, 18:07

muito legal
www.andrewsmedina.com.br

#3 Without a Nick

Without a Nick

    Sem culpa no cartório

  • Usuários
  • 2378 posts
  • Sexo:Não informado
  • Localidade:Guarulhos

Posted 17/12/2003, 18:38

Interessante e simples.

#4 SANTENÓRIO

SANTENÓRIO

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Masculino
  • Localidade:BRASIL

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

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


#5 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

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

#6 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 28/10/2017, 22:31

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

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

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

#8 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

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




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq