Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Constantes e Enumeradores

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

11062014

Mensagem 

Constantes e Enumeradores







CONSTANTES
Usamos constantes para fixar um valor que estará presente ao longo do código sem alterações ou para estabelecer uma regra de cálculo para conversões de dados. Na verdade ela difere da variável porque ao se atribuir um valor, o programa ao ser compilado, esse valor permanece inalterável.

Exemplo de constantes:

const double pi = 3.14159265358979323846264338327950
const TW = 567   ‘Uma twip é usada como medida padrão no Visual Basic 6 e em outras versões anteriores e também no Access VBA quando no modo "Fontes pequenas" do Windows, 15 twips são iguais a um pixel, e 567 twips equivale a 1 cm para efeito de definição de largura e altura de um objeto no formulário.

Exemplo Prático:
Código:
Option Compare Database
Option Explicit

'por Eduardo Machado (Good Guy) com códigos de sua autoria

Public Function Redimensionar(sLargura As Double, sAltura As Double) As String
On Error Resume Next

Dim sValor1 As Double
Dim sValor2 As Double

Const TW As Integer = 567 'Uma twip é usada como medida padrão no Visual Basic 6 e em outras versões anteriores e também 'no Access VBA quando no modo "Fontes pequenas" do Windows, 15 twips são iguais a 'um pixel, e 567 twips equivale a 1 cm para 'efeito de definição de largura e altura de um objeto no formulário.

sValor1 = Nz(Forms!frmConstantes!txtLargura)
sValor2 = Nz(Forms!frmConstantes!txtAltura)

If Forms!frmConstantes!txtLargura = sValor1 Then
Forms("frmConstantes").Controls("MinhaFigura").Width = sValor1 * TW
End If

If Forms!frmConstantes!txtAltura = sValor2 Then
Forms("frmConstantes").Controls("MinhaFigura").Height = sValor2 * TW
End If

End Function

Private Sub cmdMostrar_Click()
Call Redimensionar(txtLargura, txtAltura)
End Sub

ENUMERADORES
Os enumeradores, na minha concepção, são um tipo de constante utilizada para assumir valores predefinidos pelo programador para representar os membros de uma classe.

Exemplo de enumeradores:

Código:
Option Compare Database
Option Explicit

Private Enum DiasdeTrabalho

Segunda = 2
Terca = 3
Quarta = 4
Quinta = 5
Sexta = 6
Sabado = 7

End Enum



Private Function ObterDiadaSemana(ValordeEntrada As DiasdeTrabalho) As String

Select Case ValordeEntrada
     Case Is = 2
      MsgBox "Segunda-Feira", vbInformation, "Dia da Semana"
     Case Is = 3
      MsgBox "Terça-Feira", vbInformation, "Dia da Semana"
     Case Is = 4
      MsgBox "Quarta-Feira", vbInformation, "Dia da Semana"
     Case Is = 5
      MsgBox "Quinta-Feira", vbInformation, "Dia da Semana"
     Case Is = 6
      MsgBox "Sexta-Feira", vbInformation, "Dia da Semana"
     Case Is = 7
      MsgBox "Sábado", vbInformation, "Dia da Semana"
End Select

End Function

‘Coloque uma caixa de texto no seu formulário com o nome txtValor e rótulo com a expressão Digite uma Valor de 1 a 7:

Private Sub cmdTestar_Click()
Call ObterDiadaSemana(txtValor)
End Sub

Baixe um exemplo aqui: http://www.goodguyaccessvba.com.br/dicas_vba_32.html
avatar
good guy
Facilitador
Facilitador

Brasil


http://www.goodguyaccessvba.com.br

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: diggdeliciousredditstumbleuponslashdotyahoogooglelive

Constantes e Enumeradores :: Comentários

avatar

Mensagem em Sex 11 Jul 2014 - 11:23 por Dilson

Ótima contribuição. Obrigado Eduardo!

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum