Jump to content
Fórum Script Brasil

argentino

Membros
  • Posts

    32
  • Joined

  • Last visited

About argentino

  • Birthday 12/06/1980

Perfil

  • Gender
    Male
  • Location
    Minas Gerais

Recent Profile Visitors

956 profile views

argentino's Achievements

0

Reputation

  1. Não usei variaveis Globais e nem Public, mas com elas fica melhor, imagino. Private Sub Command1_Click() 'VARIAVEIS Dim L1, L2, L3, L4, L5, Q_LINHA, TEXTO, NOME As String Dim CONT, NUMERO As Integer Q_LINHA = Chr(13) & Chr(10) CONT = 1 NOME = "F:\Fabiano\Aula de Visual Basic\V.Basic Banco de Dados\TESTE.txt" <=ENDEREÇO DO SEU ARQUIVO NUMERO = 1 'CODIGO LER Open NOME For Input As NUMERO Do Until EOF(NUMERO) If (CONT = 1) Then Line Input #NUMERO, L1 CONT = CONT + 1 ElseIf (CONT = 2) Then CONT = CONT + 1 Line Input #NUMERO, L2 ElseIf (CONT = 3) Then CONT = CONT + 1 Line Input #NUMERO, L3 ElseIf (CONT = 4) Then CONT = CONT + 1 Line Input #NUMERO, L4 ElseIf (CONT = 5) Then 'CONT = CONT + 1 Line Input #NUMERO, L5 End If Loop Close #NUMERO 'INSERÇÃO DE NOVO TEXTO NA LINHA 1 L1 = TXTLER.Text TEXTO = L1 & Q_LINHA & L2 & Q_LINHA & L3 & Q_LINHA & L4 & Q_LINHA & L5 'CODIGO IMPRIMIR Open NOME For Output As NUMERO Print #NUMERO, TEXTO Close #NUMERO End Sub Private Sub Command2_Click() 'VARIAVEIS Dim L1, L2, L3, L4, L5, Q_LINHA, TEXTO, NOME As String Dim CONT, NUMERO As Integer Q_LINHA = Chr(13) & Chr(10) CONT = 1 NOME = "F:\Fabiano\Aula de Visual Basic\V.Basic Banco de Dados\TESTE.txt" NUMERO = 1 'CODIGO LER Open NOME For Input As NUMERO Do Until EOF(NUMERO) If (CONT = 1) Then Line Input #NUMERO, L1 CONT = CONT + 1 ElseIf (CONT = 2) Then CONT = CONT + 1 Line Input #NUMERO, L2 ElseIf (CONT = 3) Then CONT = CONT + 1 Line Input #NUMERO, L3 ElseIf (CONT = 4) Then CONT = CONT + 1 Line Input #NUMERO, L4 ElseIf (CONT = 5) Then 'CONT = CONT + 1 Line Input #NUMERO, L5 End If Loop Close #NUMERO 'INSERÇÃO DE NOVO TEXTO NA LINHA 2 L2 = TXTLER.Text TEXTO = L1 & Q_LINHA & L2 & Q_LINHA & L3 & Q_LINHA & L4 & Q_LINHA & L5 'CODIGO IMPRIMIR Open NOME For Output As NUMERO Print #NUMERO, TEXTO Close #NUMERO End Sub Private Sub Command3_Click() 'VARIAVEIS Dim L1, L2, L3, L4, L5, Q_LINHA, TEXTO, NOME As String Dim CONT, NUMERO As Integer Q_LINHA = Chr(13) & Chr(10) CONT = 1 NOME = "F:\Fabiano\Aula de Visual Basic\V.Basic Banco de Dados\TESTE.txt" NUMERO = 1 'CODIGO LER Open NOME For Input As NUMERO Do Until EOF(NUMERO) If (CONT = 1) Then Line Input #NUMERO, L1 CONT = CONT + 1 ElseIf (CONT = 2) Then CONT = CONT + 1 Line Input #NUMERO, L2 ElseIf (CONT = 3) Then CONT = CONT + 1 Line Input #NUMERO, L3 ElseIf (CONT = 4) Then CONT = CONT + 1 Line Input #NUMERO, L4 ElseIf (CONT = 5) Then 'CONT = CONT + 1 Line Input #NUMERO, L5 End If Loop Close #NUMERO 'INSERÇÃO DE NOVO TEXTO NA LINHA 3 L3 = TXTLER.Text TEXTO = L1 & Q_LINHA & L2 & Q_LINHA & L3 & Q_LINHA & L4 & Q_LINHA & L5 'CODIGO IMPRIMIR Open NOME For Output As NUMERO Print #NUMERO, TEXTO Close #NUMERO End Sub Private Sub Command4_Click() 'VARIAVEIS Dim L1, L2, L3, L4, L5, Q_LINHA, TEXTO, NOME As String Dim CONT, NUMERO As Integer Q_LINHA = Chr(13) & Chr(10) CONT = 1 NOME = "F:\Fabiano\Aula de Visual Basic\V.Basic Banco de Dados\TESTE.txt" NUMERO = 1 'CODIGO LER Open NOME For Input As NUMERO Do Until EOF(NUMERO) If (CONT = 1) Then Line Input #NUMERO, L1 CONT = CONT + 1 ElseIf (CONT = 2) Then CONT = CONT + 1 Line Input #NUMERO, L2 ElseIf (CONT = 3) Then CONT = CONT + 1 Line Input #NUMERO, L3 ElseIf (CONT = 4) Then CONT = CONT + 1 Line Input #NUMERO, L4 ElseIf (CONT = 5) Then 'CONT = CONT + 1 Line Input #NUMERO, L5 End If Loop Close #NUMERO 'INSERÇÃO DE NOVO TEXTO NA LINHA 4 L4 = TXTLER.Text TEXTO = L1 & Q_LINHA & L2 & Q_LINHA & L3 & Q_LINHA & L4 & Q_LINHA & L5 'CODIGO IMPRIMIR Open NOME For Output As NUMERO Print #NUMERO, TEXTO Close #NUMERO End Sub Private Sub Command5_Click() 'VARIAVEIS Dim L1, L2, L3, L4, L5, Q_LINHA, TEXTO, NOME As String Dim CONT, NUMERO As Integer Q_LINHA = Chr(13) & Chr(10) CONT = 1 NOME = "F:\Fabiano\Aula de Visual Basic\V.Basic Banco de Dados\TESTE.txt" NUMERO = 1 'CODIGO LER Open NOME For Input As NUMERO Do Until EOF(NUMERO) If (CONT = 1) Then Line Input #NUMERO, L1 CONT = CONT + 1 ElseIf (CONT = 2) Then CONT = CONT + 1 Line Input #NUMERO, L2 ElseIf (CONT = 3) Then CONT = CONT + 1 Line Input #NUMERO, L3 ElseIf (CONT = 4) Then CONT = CONT + 1 Line Input #NUMERO, L4 ElseIf (CONT = 5) Then 'CONT = CONT + 1 Line Input #NUMERO, L5 End If Loop Close #NUMERO 'INSERÇÃO DE NOVO TEXTO NA LINHA 5 L5 = TXTLER.Text TEXTO = L1 & Q_LINHA & L2 & Q_LINHA & L3 & Q_LINHA & L4 & Q_LINHA & L5 'CODIGO IMPRIMIR Open NOME For Output As NUMERO Print #NUMERO, TEXTO Close #NUMERO End Sub
  2. Valeu, eu tinha usado este raciocinio já...criado as 5 variaveis e funfo beleza! Achei que poderia ter um comando que buscase a linha em questao diretamente e alterase apenas ela. Apliquei a linha de leitura e a cada finalização de linha, salvei o conteudo em uma variavel, e lá no fim concactenei as 5 e alterei a variavel do botao clicado. Valeu pela resposta ai. Tipo assim, command click variavel L1 = txtnovotexto Ate uma proxima! Depois posto o codigo, ainda não comentei ele todo.
  3. Criei o form com uma txtbox e 5 botoes,nome(linha 1), endereço(linha 2), tel(linha 3), email(linha 4) e profissão(linha 5). Agora, imaginen o arquivo Carlos Parlatore Avenida Prastes 9999-8888 [email protected] Consultor Pronto, agora ao digitar um novo email pra ele, quero alterar apenas o email, digito na txtbox e clico no botao 4 ,alterar email ( linha4), ou alterar telefone, digito o novo numero e clico no botao 3, alterar telefone(linha 3)...como faço? Private Sub CMD2_Click() NOME = "C:\exercicio\EXERCICIO.txt" NUMERO = 1 TEXTO = TXT1.Text Open NOME For Output As NUMERO TEXTO = TXT1.Text Print #NUMERO, Chr(13) & Chr(10) & TEXTO Close End Sub Usei esta linha de comando aumentando apenas o numero de quebra de linhas, comecei a programar a dois meses...agradeço a força.
  4. Estou tentando criar uma matriz usando outras duas, exemplo: pegar um arquivo numerico em bloco de notas com 8000 linhas e conferir a primeira com todas as 8000, a segunda com todas as 8000, a terceira, e assim ate rodar todas, o resultado deve sair da seguinte forma, a conferencia da primeira seria uma coluna e as demais conferencias, segunda; segunda coluna, terceira; terceira coluna e assim ate completar 8000 colunas, é possivel criar tal matriz? e visualiza-lá?
  5. Olá, fiquei um tempo sem visitar Site, problemas de saude, saude mental, esquecimento...Valdilei, eu tenho as combinações em ordem crescente, no bloco de notas, 102mb, achei num banco de dados de um programa que tenho. Este programa que conseguiu consegue gerar pra qualquer jg? Entre em contato, tenho algumas ideias.
  6. Certo, a função randomize, só ouvi falar, é a que devo usar pra combinar números? Exemplo:10 de 6 em 6. Se sim como faço pra gerar e salvar diretamente no sql200?
  7. Olha eu aqui novamente, agora estou precissando de um log. que carregue um arquivo(este em numeros)do bloco de notas para um banco de dados(mudando para letras) e puderem me ajudar a encontrar o melhor local pra baixar o oracle tambem agradeço. Exemplo: 010203040506070809101112131415( no bloco de notas) abcdefghijklmno (banco de dados)
  8. Qual é o objetivo desse programa? Como o Felipe Pedroso disse, poste aqui o enunciado do exercício por favor, como você se expressou aí a cima, não tem como a gente ajudar você, pois não tem muita LOGICA o que você disse... Me desculpe, mais poste o enunciado... Abraços... Paulo Este é um programa para conferencia de dados, 1,2 1,3 1,4 2,3 2,4 3,4 seria um dados de um local e tambem os dados de outoro local e seria comparados gerando a matriz. 2 1 1 1 1 0 1 2 1 1 0 1 1 1 2 0 1 1 1 1 0 2 1 1 1 0 1 1 2 1 0 1 1 1 1 2 desculpe a falta de informações.
  9. Olha eu dinovo, o outro algoritimo deu certo, porem geraria uma matriz muito grande, então pensei nisto: Comparar em dois bancos de dados (total de jogos seria um e total de probabilidades seria o outro) só que ao invés de numeros usariamos letras pois uma letra representaria um nº de dois digitos diminuindo o tamnho. Apos comparar criaria um terceiro com o resultado e este seria base do estudo.
  10. Ok, estava tentando mesmo através de caixa de texto e consegui hoje de manhã, bom a primeira parte esta pronta agora vou gerar esta matriz com os 25 números da LotoFácil e depoisentro novamente em contato, gravá-la em um banco de dados e depois de testá-la vou disponibilizá-la ai no ScriptBrasil, obrigado e desculpe a enchesão. Precissando sou bom em cálculos e logística, permutações, estudo de estatisticas.
  11. Estou quase certo que o problema é com meu VB, já que mesmo usando seu arquivo não aconteceu nada. Olhe com fiz: baixei o arquivo, salvei na pasta visual studio, projects e mandei abrir, esta igualzinho os meus, porém o seu não tem o action button na form. Porquê?Outra coisa, pra postar estas imagens como faço, dai poderia ficar mas fácil para descobrims o erro. PrintScreen?
  12. Vou diminuir os números, apenas 4, (1,2/ 1,3/ 1,4/ 2,3/ 2,4/ 3,4) vai ser a linha e também a coluna, daí devemos conferir todos em todos e gerar a matriz 2,1,1,1,1,0 1,2,1,1,0,1 1,1,2,0,1,1 1,1,0,2,1,1 1,0,1,1,2,1 0,1,1,1,1,2
  13. Boa noite, estou executando sim o programa, aparece apenas um ponto de exclamação em cima do ícone da immediatle Windon do Vb, crie e envie-me o arquivo de salve do form que abro ele aqui e vejo o que esta errado. ou no MSN [email protected]
  14. , Olá Graymalkin, estive pensando, crie o salve do WindowsAplication e me envie que abor ele no vb e olho o que tem de diferente, pois aqui não quer rodar a matrz na tela immediteWindows. Obrigado e até mais.
×
×
  • Create New...