Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como fazer uma temperatura Convertendo Programa em QBasic
Conversão entre Fahrenheit e Celsius requer manualmente usando as equações básicas : Celsius é ( 5/9) * (Fahrenheit -32) e Fahrenheit é (9/5) * Celsius +32 . Para fazer um programa em QBasic que realiza este cálculo , você precisa saber como recuperar dados de um usuário, analisar esses dados e , em seguida, executar uma ação com base nos dados . Isso requer uma compreensão do PRINT , INPUT e if-then funções. Instruções
1

Imprima um cabeçalho para identificar o programa e sua funcionalidade para o usuário. Fornecer um título para o programa e as instruções iniciais.

PRINT " ------------------------------- ----- "PRINT" Programa de Conversão de Temperatura "PRINT" --------------------------------- --- "PRINT" "PRINT" Tipo C para Celsius -> Fahrenheit (padrão) PRINT "Tipo F Para Fahrenheit -> Celsius ) PRINT " "
2

Adquirir a resposta do usuário (F ou C) , utilizando uma função de entrada que armazena o valor na cadeia de USERANSWER variável $

iNPUT " resposta "; . USERANSWER $
< br > 3

Peça ao usuário que temperatura ele gostaria de converter-se, em seguida, armazenar o valor no ConvertTemp variável numérica

INPUT " por favor, forneça uma temperatura "; . ConvertTemp
4

Construir uma instrução IF -THEN que verifica o valor da USERANSWER $, executa a ação correspondente e armazena o resultado no FINALANSWER variável numérica. Incluir uma cláusula ELSE que executa a ação padrão no caso a resposta do usuário está incorreta

IF USERANSWER $ = "C" ENTÃO

FINALANSWER = 5/9 * ( ConvertTemp - 32) .

ELSEIF USERANSWER $ = F " ENTÃO

FINALANSWER = 9/5 * ( CONVERTEMP + 32)

MAIS

FINALANSWER = 5/9 * ( ConvertTemp - 32)

END IF
5

retransmitir a resposta final para o usuário com a função PRINT. Utilize outra construção IF-THEN para adequar a resposta de acordo com a solicitação inicial do usuário

IF USERANSWER $ = "C" ENTÃO

PRINT " A temperatura Celsius é" ; . FinalAnswer ; "graus ".

ELSEIF USERANSWER $ = F " ENTÃO

PRINT " A temperatura Fahrenheit é " ; FinalAnswer ; " . graus "

ELSE

PRINT " A temperatura Celsius é" ; FinalAnswer ; " . graus "

END IF

Anterior :

Próximo : No
  Os artigos relacionados
·Como usar VB Lite 
·Como procurar dados em um arquivo com VB Script 
·Como criar um controle do MSChart para uma dispersão X…
·Como acessar portas seriais e paralelas usando o Visual…
·Como fazer uma caixa de texto aceitar apenas números n…
·Como instalar um Tamanho Form Grande com VB6 
·A diferença entre DataGrid e GridView 
·Como colocar uma Favicon em Tabs em VB 
·Como notificar um usuário Terminal Service em VB.Net 
·Como converter Visual Basic para ponto flutuante 
  Artigos em destaque
·Como detectar um navegador Safari em JavaScript 
·Como fazer uma cópia de um objeto com Python 
·Como fazer um aplicativo Win32 para executar um cliente…
·A Importância da Buffers 
·Erro Site: O Arquivo Requer o ionCube PHP Carregador I …
·Processos Python OS 
·Como matar o Processo Python 
·Como exibir dados MySQL com PHP 
·Como obter a diferença de duas datas em Perl 
·Como mesclar um XML em Crystal Reports 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados