Dando os primeiros passos - Escrevendo Código VB.NET - II
No artigo Dando os primeiros passos - Escrevendo Código VB.NET - I abordei os conceitos básicos para você que esta começando a querer aprender a utilizar a linguagem Visual Basic.NET. Neste artigo vou mostrar como podemos usar efetivamente a linguagem para realizar algumas tarefas básicas.
VB.NET - Operadores e funções básicas
Já falamos sobre variáveis e constantes no artigo anterior e vimos como são importantes , mas , de que adianta criar variáveis e constantes se eu não posso fazer nada com elas ? Por isso o VB.NET oferece um conjunto de funções que podemos usar para fazer algo de útil .
O VB.NET possui também operadores matemáticos que podemos usar para realizar cálculos outras operações; junte tudo isto e já podemos ver o VB.NET funcionando a todo vapor.
Vou mostrar a seguir os operadores mais comumente usados no Visual Basic .NET :
| Operador | Utilização | Exemplo |
| = | Atribui um valor a uma variável ou constantes | y = 10 ou Sobrenome = "Macoratti" |
| + | Soma dois valores | x = y + 5 ( o valor de x será igual a 15) |
| - | Subtrai um valor de outro | x = y - 2 ( o valor de x será igual a 5) |
| * | Multiplica dois valores | x = y * 2 ( o valor de x será igual a 20) |
| / | Divide um valor por outro | x = y / 2 ( o valor de x será igual a 5) |
| \ | Divide um valor por outro e retorna somente a parte inteira do resultado | x = y \ 3 ( o valor de x será igual a 3) |
| Mod | Divide um valor por outro e retorna o resto da operação | x = y mod 3 ( o valor de x será igual a 1) |
| & | Combina , concatena duas strings | cliente = "Jose Carlos " & Sobrenome ( cliente será igual a Jose Carlos Macoratti) |
| += | soma o valor e atribui o resultado | y += 3 ( y será igual a 13) |
| -= | subtrai o valor e atribui o resultado | y -= 6 ( y será igual a 7) |
| *= | multiplica o valor e atribui o resultado | y *= 2 ( y será igual a 14) |
| /= | divide o valor e atribuiu o resultado | y /= 2 ( y será igual a 7) |
| &= | concatena a string e atribui o resultado | Sobrenome &= ", Jose Carlos" ( Sobrenome será igual a "Macoratti , Jose Carlos" ) |
| ^ | Eleva um valor a um determinado expoente | 3 ^ 3 ( 3 elevado a 3 ; resultado = 27 ) |
| Sqrt | Extrai a raiz quadrada de um valor (Namespace System classe Math) | x = Math.Sqrt(81) ( O valor de x será igual a 9) |
Obs: A classe Math do namespace System possui diversos métodos que oferecem um suporte matemático. (Ex: Atan , Exp , Sign , Sqrt , Pow , Min , Round , Abs , Cos , Sin , Tan , etc...)
Além destas funções oferecidas pelo .NET Framework o Visual Basic .NET possui muitas funções intrínsecas que permite realizar além de conversões entre tipos de variáveis , cálculos matemáticos , manipulação de strings , etc. Vejamos primeiro as funções para conversão de variáveis.
Todas as funções de conversão no VB.NET iniciam com a letra C (de conversão) e terminam com uma forma abreviada do novo tipo.
Existem também a função de conversão genérica - Ctype - que pode converter para qualquer tipo. Vejamos as principais:
| Função | Descrição | Exemplo |
| Cbool | Converte para um Booleano ( False ou True). False ou 0 será definido como False. Retorna um Boolean |
Dim A, B, C As Integer Dim Check As Boolean A = 5 B = 5 Check = CBool(A = B) ' Check será True. ' ... C = 0 Check = CBool(C) ' Check será False. |
| Cbyte | Converte para um Byte . Qualquer valor maior que 255 ou valor fracionário será perdido. Retorna um Byte. |
Dim MyDouble As Double Dim MyByte As Byte MyDouble = 125.5678 MyByte = CByte(MyDouble) ' MyByte será igual a 125.5678 |
| CChar | Converte para um Caracter . Qualquer valor maior que 65,535 será perdido e , se você tentar converter uma string somente o primeiro caractere será convertido. |
Dim MyString As String Dim MyChar As Char MyString = "BCD" 'converte só o primeiro caractere MyChar = CChar(MyString) ' MyChar será igual a "B". |
| CDate | Converte para um Date. Aceita qualquer representação de data e tempo. |
Dim
MyDateString, MyTimeString As String Dim MyDate, MyTime As Date MyDateString = "February 12, 1969" MyTimeString = "4:35:47 PM" ' ... MyDate = CDate(MyDateString) ' Converte p/ o tipo Date. MyTime = CDate(MyTimeString) ' Converte p/ o tipo Date. |
| CDbl | Converte para um Double. |
Dim
MyDec As Decimal Dim MyDouble As Double MyDec = 234.456784D . MyDouble = CDbl(MyDec * 8.2D * 0.01D) ' Converte para Double |
| CDec | Converte para um Decimal. |
Dim
MyDouble As Double Dim MyDecimal As Decimal MyDouble = 10000000.0587 MyDecimal = CDec(MyDouble) ' Converte para Decimal. |
| CInt | Converte para um inteiro. Valores de -2,147,483,648 até 2,147,483,647 . Frações são arredondadas. |
Dim MyDouble As Double Dim MyInt As Integer MyDouble = 2345.5678 MyInt = CInt(MyDouble) ' MyInt será igual a 2346. |
| CLng | Converte para um Longo. Valores -9,223,372,036,854,775,808 até 9,223,372,036,854,775,807. Frações são arredondadas. |
Dim
MyDbl1, MyDbl2 As Double Dim MyLong1, MyLong2 As Long MyDbl1 = 25427.45 MyDbl2 = 25427.55 MyLong1 = CLng(MyDbl1) ' MyLong1 conterá 25427. MyLong2 = CLng(MyDbl2) ' MyLong2 conterá 25428. |
| CSht | Converte para um Short. Valores de 32,768 a 32,767. Frações são arredondadas. |
Dim MyByte
as Byte Dim MyShort as Short MyByte = 100 MyShort = CShort(MyByte) ' Converte para Short. |
| CStr | converte para um String. Se for uma Data o retorno será no formato - Short Date. |
Dim MyDouble As Double Dim MyString As String MyDouble = 437.324 MyString = CStr(MyDouble) ' MyString será igual a "437.324". |
| CSng | Converte para um Single . -3.402823E+38 até -1.401298E-45 // 1.401298E-45 até 3.402823E+38 |
Dim MyDouble1, MyDouble2 As Double Dim MySingle1, MySingle2 As Single MyDouble1 = 75.3421105 MyDouble2 = 75.3421567 MySingle1 = CSng(MyDouble1) ' MySingle1 será igual a 75.34211. MySingle2 = CSng(MyDouble2) ' MySingle2 será igual a 75.34216. |
| CObj | Converte para um objeto. |
Dim MyDouble As Double Dim MyObject As Object MyDouble = 2.7182818284 MyObject = CObj(MyDouble) ' MyDouble estará apontada para MyObject. |
| Ctype | Converte para qualquer tipo de dados. Sintaxe: Variavel = Ctype( TipoVelho , NovoTipo) |
Dim MyNumber
As Long Dim MyNewType As Single MyNumber = 1000 MyNewType = CType(MyNumber,Single) ' MyNewType é igual a p/1000.0 |
Nota:
Se a expressão submetida a função estiver fora do intervalo do tipo de dados para o qual você quer converter ocorrerá um erro
Usamos estas funções para forçar que o resultado de uma operação seja de um tipo particular diferente do resultado padrão. Assim usamos CDec para forçar para decimal em casos no qual a precisão simples, dupla ou um valor inteiro normalmente iria ocorrer.
Se o valor fracionário submetido for exatamente 0,5 , CInt e CLng irão arredondar para o número par mais próximo. Assim 0,5 será arredondado para 0 e 1,5 será arredondado para 2.
CDate reconhece o formato de datas de acordo com a configuração local do sistema. Você deve informar o dia , mês e ano na ordem correta de acordo com a configuração local.
Funções para tratar Strings
Vejamos agora as principais funções para manipular Strings : (Para maiores detalhes leia o artigo: Strings um novo enfoque )
| Função | Descrição | Exemplo |
| Len | Retorna o comprimento(tamanho) de uma string. | a = len("Macoratti") => a = 9 |
| Chr | Retorna o caractere correspondente ao valor ASCII ou UNICODE | a = Chr(56) => a = A |
| Asc | Retorna o valor ASCII ou UNICODE do caractere correspondente | a = ASC("A") => a = 56 |
| Left | Retorna um número definido de caracteres mais a esquerda de uma string | a= Left("Macoratti",4) => a= "Maco" |
| Right | Retorna um número definido de caracteres mais a direita de uma string | a= Rigth("Macoratti",5) => a= "oratti" |
| Mid | Retorna uma string contendo um número definido de caracteres. Sintaxe: Mid(String , inicio, tamanho) | a= Mid("Macoratti", 4,3) => a= "ora" |
| Instr | Retorna um inteiro informando a posição inicial da primeira ocorrência de uma string em outra. Sintaxe: Instr( inicio , String1 , String2 , Compare) | a= Instr( 1, "Macoratti", "t") => a= 7 |
| Lcase | Converte os caracteres de uma string para caracteres minúsculos. | a= Lcase("Macoratti") => a="macoratti" |
| Ucase | Converte os caracteres de uma string para caracteres maiúsculos. | a= Ucase("Macoratti") => a="MACORATTI" |
| Trim | Remove todos os espaços contidos em uma string. | a= Trim(" Macoratti ") => a="Macoratti" |
Para encerrar com as funções intrínsecas abaixo temos algumas funções úteis:
| Função | Descrição | Exemplo |
| IsArray | Retorna True se o parâmetro for um array. | |
| IsDate | Retorna True se o parâmetro for uma Data. | |
| IsNumeric | Retorna True se o parâmetro for um número. | |
| IsObject | Retorna True se o parâmetro for um objeto. | |
| TypeName | Retorna o nome do tipo de dados do parâmetro. | |
| Now | Retorna a data e hora atual. | |
| Today | Retorna a data atual no formato: 0:00:00 a.m. | |
| IsDBnull | Retorna True se a variável ainda não foi iniciada com um valor. |
Dim MyVar As Object Dim MyCheck As Boolean MyCheck = IsDBNull(MyVar) ' Retorna False. MyVar = "" MyCheck = IsDBNull(MyVar) ' Retorna False. MyVar = System.DBNull.Value MyCheck = IsDBNull(MyVar) ' Retorna True. |
Bem , você já tem a disposição um verdadeiro arsenal de funções que já lhe dão um ideia do poder de fogo do VB.NET e, tenha certeza, isto é apenas o começo.
Na
continuação deste artigo vou mostrar como criar suas próprias funções e do
escopo das variáveis : Dando os primeiros passos - Escrevendo Código VB.NET -
III ... 
Veja os Destaques e novidades do SUPER DVD VB (sempre atualizado) : clique e confira ! Quer migrar para o VB .NET ? Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira... Quer aprender C# ?? Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C# Veja também os cursos em Vídeo Aulas : |
Gostou ? 
Compartilhe no Facebook 
Compartilhe no Twitter
Referências:
Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#
Visual Basic .NET - aquecendo as turbinas