rgrlinx - challenge 1 - VBA/VB

Ir em baixo

rgrlinx - challenge 1 - VBA/VB

Mensagem  rgrlinux em Seg Jul 11, 2011 1:05 pm

Editado pelo Admin aos moldes da competição.

1 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Este exemplo funciona em qualqur aplicativo msoffice(excel, access, word, outlook etc), aplicações que tenham VBA embutido(corel, autocad, etc) ou vb6
'Para rodar em aplicativos ofice abre o editor de codidof e cole o texto em um mõdulo e pressione f5

Sub Challenge1()
'1 - Faça um Programa que peça cinco números separados por vírgula, e imprima o maior deles.
'Declaração de variaveis
Dim arrTmp() As String 'Array para armazer o input
Dim i As Long 'Contador
Dim lngMaior As Long 'Variavel para armazenar o maior número

'A função inputbox mostra ao usuario um prompt para receber valores ::> Uso InputBox(Prompt,Titulo)
'A função split trasnforma uma string em um array ::> Uso Split(String,Separador)
arrTmp() = Split(InputBox("Digite 5 numeros separados por vírgula", "Challenge1"), ",") 'Passando o texto digitado para o array
lngMaior = CLng(arrTmp(0)) 'Passando o primeiro valor para a variavel maior
For i = 1 To UBound(arrTmp()) 'iniciando o loop a partir do segundo item do array
If CLng(arrTmp(i)) > lngMaior Then lngMaior = CLng(arrTmp(i)) ' Testando valores, se for maior atribui a variavel
Next i
'Exibe o resultado em uma msgbox
Call MsgBox("O número maior é: " & lngMaior, vbOKOnly)
'Descarrega o array
Erase arrTmp()

End Sub


2 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Challenge2()
'2 - Faça um Programa que peça cinco números separados por espaço e imprima o maior deles.
'Declaração de variaveis
Dim arrTmp() As String 'Array para armazer o input
Dim i As Long 'Contador
Dim lngMaior As Long 'Variavel para armazenar o maior número

'A função inputbox mostra ao usuario um prompt para receber valores ::> Uso InputBox(Prompt,Titulo)
'A função split trasnforma uma string em um array ::> Uso Split(String,Separador)
arrTmp() = Split(InputBox("Digite 5 numeros separados por espaço", "Challenge1"), " ") 'Passando o texto digitado para o array
lngMaior = CLng(arrTmp(0)) 'Passando o primeiro valor para a variavel maior
For i = 1 To UBound(arrTmp()) 'iniciando o loop a partir do segundo item do array
If CLng(arrTmp(i)) > lngMaior Then lngMaior = CLng(arrTmp(i)) ' Testando valores, se for maior atribui a variavel
Next i
'Exibe o resultado em uma msgbox
Call MsgBox("O número maior é: " & lngMaior, vbOKOnly)
'Descarrega o array
Erase arrTmp()

End Sub


3 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Challenge3()
'3 - Faça um Programa que verifique se uma letra digitada é "F" ou "M". Conforme a letra escrever: F - Feminino, M - Masculino, Sexo Inválido. Exemplo:
'Declaração de variaveis
Dim strValor As String 'Variavel para armazenar o valor digitado
Dim strMensagem As String 'Mensagem de retorno

'A função inputbox mostra ao usuario um prompt para receber valores ::> Uso InputBox(Prompt,Titulo)
strValor = InputBox("Digite o sexo (M/F).", "Challenge3") 'Passando o texto digitado para a varaivel
If strValor = "F" Then
strMensagem = "Feminino"
ElseIf strValor = "M" Then
strMensagem = "Masculino"
Else
strMensagem = "Sexo inválido"
End If
'Exibe o resultado em uma msgbox
Call MsgBox(strMensagem, vbOKOnly)


End Sub


4 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Challenge4()
'4 - Faça um Programa que verifique se uma letra digitada é vogal ou consoante.
'Declaração de variaveis
Dim strValor As String 'Variavel para armazenar o valor diigtado
Dim strMensagem As String 'Mensagem de retorno

'A função inputbox mostra ao usuario um prompt para receber valores ::> Uso InputBox(Prompt,Titulo)
strValor = InputBox("Digite uma letra.", "Challenge3") 'Passando o texto digitado para a varaivel

Select Case strValor
Case Is = "a", "e", "i", "o", "u"
strMensagem = "Vogal"
Case Else
strMensagem = "Consoante"
End Select
'Exibe o resultado em uma msgbox
Call MsgBox(strMensagem, vbOKOnly)

End Sub


5 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Challenge5()
'5 - Faça um Programa que pergunte quanto você ganha por hora e o número de horas trabalhadas no mês.
'Calcule e mostre o total do seu salário no referido mês.
'Declaração de variaveis
Dim dblSalario As Double 'Variavel para armazenar o sálario
Dim lngHoras As Long 'variavel para armazenar as horas trabalhadas

dblSalario = CLng(InputBox("Entre com seu valor hora:", "Valor Hora"))
lngHoras = CLng(InputBox("Entre com o numero de horas trabalhadas no mês", "Numero de horas"))
'Exibe o resultado em uma msgbox
Call MsgBox("O valor a receber este mês é " & FormatCurrency(dblSalario * lngHoras), vbOKOnly)

End Sub


6 - )
 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Chalenge6()
'Faça um programa para uma loja de tinta.
'O programa deverá pedir o tamanho em metros quadrados da área a ser pintada.
'Considere que a cobertura da tinta é de 1 litro para cada 3 metros quadrados e que a tinta é vendida em latas de 18 litros,
'que custam R$ 95,00. Informe ao usuário a quantidades de latas de tinta a serem compradas e o preço total.

'Declaração de variaveis
Dim lngArea As Long ' Armazena a area inputada
Const lngCusto As Long = 95 'Constante com valor de cada lata
Const lngCoberturaporLata = 54 ' Cada lata cobre 54m² (3 metros por litro x 18litros)
Dim strMsgRetorno As String 'variavel para montar a mensagem de retorno

lngArea = CLng(InputBox("Entre com a Area(M²) as ser pintada:", "Cobertura"))

strMsgRetorno = "Você precisará de : " & lngArea \ lngCoberturaporLata + 1 & " latas para pintar." 'o simbolo "\" faz a divisao inteira
strMsgRetorno = strMsgRetorno & vbLf & " Ao custo de : " & FormatCurrency((lngArea \ lngCoberturaporLata + 1) * lngCusto) ' vblf é quebra de linha

Call MsgBox(strMsgRetorno, vbOKOnly)

End Sub
avatar
rgrlinux

Mensagens : 4
Data de inscrição : 11/07/2011
Idade : 44
Localização : Guarulhos

Ver perfil do usuário

Voltar ao Topo Ir em baixo

rgrlinux

Mensagem  Z3r0 em Seg Jul 11, 2011 4:33 pm

Seja bem vindo ao Challenge.
Muito legal ter escrito em vb..... não esperava ter vb aqui.
Mas...uma dúvida... como faz para rodar teu código no Linux/ubuntu?
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

Ver perfil do usuário http://projectzim.blogspot.com

Voltar ao Topo Ir em baixo

Rodando vba no Linux

Mensagem  rgrlinux em Seg Jul 11, 2011 5:08 pm

Z3r0 escreveu:Seja bem vindo ao Challenge.
Muito legal ter escrito em vb..... não esperava ter vb aqui.
Mas...uma dúvida... como faz para rodar teu código no Linux/ubuntu?

Grato,
O exercício acima foi feito no access mesmo dentro de uma maquina virtual, trabalho com office, preciso disso instalado, e acabei de colar estes exemplos no libreoffice e funcionam bem com exceção do 5 e 6 que tem que fazer uma leve correção na funcao de formatacao, mas da para usar o basic nativo dele na boa, não acho a melhor linguagem do mundo para se aprender, mas pode ser útil as vezes Very Happy
avatar
rgrlinux

Mensagens : 4
Data de inscrição : 11/07/2011
Idade : 44
Localização : Guarulhos

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: rgrlinx - challenge 1 - VBA/VB

Mensagem  Z3r0 em Seg Jul 11, 2011 5:27 pm

rgrlinux escreveu:
Grato,
O exercício acima foi feito no access mesmo dentro de uma maquina virtual, trabalho com office, preciso disso instalado, e acabei de colar estes exemplos no libreoffice e funcionam bem com exceção do 5 e 6 que tem que fazer uma leve correção na funcao de formatacao, mas da para usar o basic nativo dele na boa, não acho a melhor linguagem do mundo para se aprender, mas pode ser útil as vezes Very Happy

A propósito, VB é a única linguagem que você domina ou ... decidiu participar com ela por não haver até então nenhum participante que se apresentou com esta linguagem? é só uma curiosidade pois, no caso do vfox que domina php e perl, ele decidiu por competir com perl porque já havia alguém com php aqui. ( O que de fato não tem problema... uma vez que tem vários de C ).
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

Ver perfil do usuário http://projectzim.blogspot.com

Voltar ao Topo Ir em baixo

rgrlinux linguagens

Mensagem  rgrlinux em Seg Jul 11, 2011 7:39 pm

Nativamente, sim e a linguagem que mais uso no dia a dia junto com sql, logo tramito bem entre as duas atualmente estou tentando entrar no mundo web com a django, logo tenho alguma prática com python (que imho é a linguagem mais fantástica que já vi) e javascript, além de ter começado com pascal(ainda lembro algumas coisinhas).
avatar
rgrlinux

Mensagens : 4
Data de inscrição : 11/07/2011
Idade : 44
Localização : Guarulhos

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: rgrlinx - challenge 1 - VBA/VB

Mensagem  Z3r0 em Seg Jul 11, 2011 9:01 pm

rgrlinux escreveu:Nativamente, sim e a linguagem que mais uso no dia a dia junto com sql, logo tramito bem entre as duas atualmente estou tentando entrar no mundo web com a django, logo tenho alguma prática com python (que imho é a linguagem mais fantástica que já vi) e javascript, além de ter começado com pascal(ainda lembro algumas coisinhas).

É estranho ver que você depende do windows para sobreviver mas ama o linux sendo que este tem um ambiente para programação fantástico. Mas no caso do VB que foi fundado no S.O da M$ , complicam as coisas mesmo.
avatar
Z3r0

Mensagens : 149
Data de inscrição : 01/07/2011
Idade : 32

Ver perfil do usuário http://projectzim.blogspot.com

Voltar ao Topo Ir em baixo

Re: rgrlinx - challenge 1 - VBA/VB

Mensagem  rgrlinux em Seg Jul 11, 2011 9:55 pm

Fazer o que né, trabalho em um nicho de mercado, e ainda não consegui nada em ambiente *nix, por isso estou me aprofundando em desenvolvimento web, ai não dependo do SO do tio.
avatar
rgrlinux

Mensagens : 4
Data de inscrição : 11/07/2011
Idade : 44
Localização : Guarulhos

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: rgrlinx - challenge 1 - VBA/VB

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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