<><><><><><><><><><><><><> 6 VB 6 BY Draco Bom pessoal eu tive ultimamente uma pequena experiencia com VB5.. Da para eu passar o b sico do b sico aqui para vc[]'Z, com o tempo posso ir colocando coisas novas em futuros numeros do zine... Vai ser foda explicar uma linguagem visual sem nenhuma fotinha mas vamos tentar.......... Eu nao vou ficar explicando passo a passo do codigo igual eu fa‡o com o JAVA ei pego coloco e vc[]'Z comparam na cabe‡a de vc[]'Z e chegam nas suas proprias conclusoes.......... Eu xeroquei um livrointeiro de VB5 o primeiro programa que eu escrevi ‚ um que ta l  no livro o primeiro exemplo, tipo eu vou simplificar ao maximo como fazer isto... o prog ‚ o sete da sorte TODOS os creditos sao dados ao livro: MICROSOFT VISUAL BASIC 5 PASSO A PASSO MAKRON BOOKS MICROSOFT PRESS MICHAEL HAVORSON Comece um novo projeto e crie 2 botoes, apos crie 4 label e um image.... Chame as propriedades com o F4 Vamos definir as propriedades do botao um..... Chamando as propriedades do botao um coloque em CAPTION a palavra GIRAR... No botao dois autere o CAPTION para encerrar Segure o shift e clique nos tres primeiros label, depois aperte o F4 e coloque na propriedade BORDSTYLE para FIXED SINGLE Cliqueno quarto label e n CAPTION digite SETE DA SORTE e autere o tamanho da fonte ao seu bel prazer. Na caixa image defina na propriedade STRETCH defina como TRUE, agora na propriedade picture escolha uma imagem qualquer, altere a prorpriedade VISIBLE para FALSE. De um clique duplo no botao ENCERRAR dae vai aparecer a janela CODE Vai estar escrito: Private Sub Command2_Click () End Sub Todo o codigo tem que ser escrito entre Private e Sub isto ‚ chamado de procedure de evento Digite entre Private e Sub a palavra END entao ficara... Private Sub Command2_Click () END End Sub De um clique duplo no botao GIRAR e digite o codigo... Image1.Visible = False Label1.Caption = Int (Rnd * 10) Label2.Caption = Int (Rnd * 10) Label3.Caption = Int (Rnd * 10) If (Label1.Caption = 7) OR (Label2.Caption = 7)_ OR (label3.caption = 7)Then Image1.Visible = True Beep End If De um clique duplo no corpo do prog e chame o load... Deve estar escrito Private Sub Form_Load () END Coloque a instru‡ao RANDOMIZE entre Private e END Pronto acabaram o primeiro programa de VB de vc[]'Z legal..... Escreveremos o eteno OI MUNDO Inicie um novo projeto crie um TextBox e um botao Defina as propriedades... Command1 Caption OK De um clique duplo no botao OK e digite o seguinte procedure Text1.Text = "Oi, mundo!" Cabou o segundo programinha........ Programa Visualizador Abra o novo projeto, adicione o DriveListBox, um DirListBox e um FileListBox e por fim uma caixa de imagem..... Defina as propriedades File1 pattern *.bmp;*.wmf;*.ico Image1 Stretch True Image1 BorderStyle 1 - Fixed Single Coloque o seguinte procedure no DiveListBox: Dir1.Path = Drive1.Drive No DirListBox coloque: File1.Path = Dir1.Path Por fim no FileListBox coloque: ArquivoSelecionado = File1.Path & "\"& File1.Filename Image1.Picture = LoadPicture (ArquivoSelecionado) Cabou........ Se pode ver imangem bmp, wmf e icones legal nao... Para come‡ar programas que nao sao VB por um programa feito pelo VB temos o SHELL e o OLE.. Pelo OLE vc clica no comando OLE na caixa de ferramentas, e faz uma caixinha quando solta o botao ele chama uma janela que vc define o programa a ser chamado.. O mais legal ‚ o SHELL (presta aten‡ao nesse) da para chamar os progs por um botao imagem qualquer coisa ‚ s˘ definir no procedure: SHELL (C:\*.*.*.*.**.*.) Agora uma pergunta classica em qualquer linguagem de programa‡ao.. Como eu fa‡o para ocultar um arquivo?????????? Simples no VB para fazer isto ‚ so dar um attrib pelo shell tipo: Shell (C:\attrib -h nome-do-arquivo-a-ser-ocultado) Attrib ‚ o comando mais velho do mundo ‚ um programa residente no MS-DOS que protege arquivos de copia, protege a visibilidade deles, nao ‚ preciso fazer um programa para isto TODOS os virus ocultam pelo ATTRIB pelo menos a maioria................ Para definir variaveis em VB usamos DIM tipo: Dim ai Ai = 5*2 Label1.Caption = Ai Ou a variavel pode ser definida diretamente tipo: Ai = 5*2 Utilizaremos a fun‡ao InputBox... Crie dois botoes e um label.... No primeiro botao mude o CAPTION para "INSER€AO DE DADOS" no procedure coloque: Dim Prompt, NomeCompleto Prompt = "Por Favor, digite o seu nome." NomeCompleto = InputBox$ (prompt) Label1.Caption = NomeCompleto Agora um MessageBox Insira no procedure MsgBox (NomeCompleto), , "Resultado Da Entrada" Tipos de Dados: INTEIRO 2 bytes % INTEIRO LONGO 4 bytes & PONTO FLUTUANTE 4 bytes ! PONTO FLUTUANTE DE PRECISAO DUPLA 8 bytes # MOEDA 8 bytes @ STRING 1 bytes POR CARACTER $ BOOLEANO 2 bytes FLAG AS BOOLEAN FLAG DATA 8 bytes NASC AS NASC VARIANTE 16 bytes DIM NOME-DA-VARIAVEL Operadores matematicos sao os mesmos que no JAVA..... Estruturas de condi‡ao...... if condi‡ao Then instru‡ao if Pontua‡ao >= 20 Then Label1.Caption = "Vc, ganhou!" Select Case Select Case nome-da-variavel-que-vai-ser-comparada Case valor1 instru‡ao Case valor2 instru‡ao Case valor3 instru‡ao End Select Select Case Idade Case 16 Label1.Caption = "Vc, j  pode votar!" Case 18 Label1.Caption = Vc, j  pode dirigir!" Case 21 Label1.Caption = "Vc, j  pode ser deputado!" End Select Utilizando comparadores Select Case Idade Case is < 13 Label1.Caption = "Aproveite sua infancia!" Case 13 To 19 Label1.Caption = Aproveite sua adolescencia!" Case is > 100 Label1.Caption = "vc, esta para morrer!" Case Else Label1.Caption = "O louco!" end Select Ta bom por aqui to com pregui‡a de por mais se me der vontade eu coloco mais coisas nas proximas edi‡oes........ Vc[]'Z podem se perguntar o que tem a ve com hacking, eu digo se vc se fez esta pergunta enfia o dedao do p‚ no rabo e sai assoviando o hino nacional....... 1998 FW - Corporation <><><><><><><><><><><><><>