Aula 15 – Funções de Entrada de Dados – Parte 3

 

Olá pessoal, vamos dar continuidade ao nosso curso falando ainda sobre as funções de entrada de dados.

GETSTRING

A função Getstring retorna um texto digitado pelo usuário, o retorno dessa função independente do que for digitado será sempre uma string.

Sintaxe:

(Getstring  [T] [mensagem para o usuário])

T= Com esse argumento na função Getstring a mesma passa a aceitar espaços em branco, caso contrário ao pressionar a barra de espaço ele entenderá como um Enter.

Exemplo 1:

(defun c:tx()
  (setq nome (Getstring "\nDigite o primeiro nome: "))
  (setq pt1 (Getpoint "\nClique sobre o local desejado: "))
  (command "text" pt1 "2" 0 nome)
  )

1) Criamos um comando TX

2) Usando a função Getstring solicitamos ao usuário que digite o seu primeiro nome, nesse caso como foi suprimido o argumento T não será aceito espaços em branco, quando o usuário pressionar a barra de espaço o comando entendera que o Enter foi pressionado. O texto digitado será armazenado na variável NOME.

3) Usando o Getpoint solicitamos que o usuário clique em qualquer ponto da tela, esse ponto será armazenado na variável PT1.

4) Usando a função command vamos criar um texto no ponto PT1 com altura 2 e rotação zero e o texto será o texto que foi armazenado na variável NOME.

Exemplo 2:

(defun c:tx()
  (setq nome (Getstring  t "\nDigite o nome e sobrenome do usuário: "))
  (setq pt1 (Getpoint "\nClique sobre o local desejado: "))
  (command "text" pt1 "2" 0 nome)
  )

1) Criamos um comando TX

2) Usando a função Getstring solicitamos ao usuário que digite o primeiro nome, nesse caso como foi utilizado o argumento T que faz com que a função Getstring aceite espaços em branco. O texto digitado será armazenado na variável NOME.

3) Usando o Getpoint solicitamos que o usuário clique em qualquer ponto da tela, esse ponto será armazenado na variável PT1.

4) Usando a função command vamos criar um texto no ponto PT1 com altura 2 e rotação zero e o texto será o texto que foi armazenado na variável NOME.

GETINT e GETREAL

A função Getint retorna um número inteiro. Caso o dado fornecido não seja um número inteiro ele vai dar uma mensagem de erro e solicitara automaticamente um novo dado.

A função Getreal retorna sempre um número decimal mesmo que o número inserido seja um número inteiro, essa função aceita qualquer tipo de número, inteiro, decimal, negativo etc. Caso o dado informado não seja um número uma mensagem de erro será exibida e o programa solicitará um novo número.

Sintaxe GETINT:

(Getint [mensagem para o usuário])

Sintaxe GETREAL:

(Getreal [mensagem para o usuário])

Exemplo:

(defun c:imc()
  (setq idade (Getint "\nDigite a idade do usuário: "))
  (setq altura (Getreal "\nDigite a altura do usuário em metros: "))
  (setq peso (Getreal "\nDigite o peso do usuário: "))
  (setq imc (/ peso (expt altura 2)))
  )

1) Criamos o comando IMC

2) Usando Getint solicitamos ao usuário que digite a idade do usuário, como geralmente a idade é sempre fornecida como um número inteiro utilizar o Getint garante que receberemos o dado da maneira que imaginamos. Esse valor é armazenado na variável idade.

3) Utilizando Getreal solicitamos ao usuário que digite a sua altura, como geralmente a altura é um valor decimal utilizamos o Getreal. Esse valor será armazenado na variável altura.

4) Utilizando Getreal solicitamos ao usuário que digite o seu peso, como geralmente o peso é um valor decimal utilizamos o Getreal. Esse valor será armazenado na variável peso.

5) Usando o peso e a altura fazemos o calculo o IMC que é o peso dividido pela altura ao quadrado.

Na próxima aula continuaremos falando mais um pouco sobre as funções de entrada de dados.

Baixo segue o link dessa aula no meu canal Manual de Cad no Youtube.

https://www.youtube.com/watch?v=CFcMAl3kyUg&feature=youtu.be

Espero que tenham gostado.

Sergio Fernandes

Manual de Cad.