argentino

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

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.

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 consultorparlatore@internet.com 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.

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á?

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.

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?

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)

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.

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.

Esqueci as aspas do Card.

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.

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?

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

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 fabiano-aparecido@hotmail.com

, 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.

Boa noite, ainda não rodou o programa, ode será que errei, colo aquele post de vb" dim v as integer....

Graymalkin, não esta aparecendo aqui no meu pc as respostas enviadas por min, e tem hora que nem aparece estas ultimas telas, vem so uma pagina. não seria melhor abrir outor post?

Desculpe, tinha achado aquela tela mas não aprece nada, olhe meus passos, abro o vb, escolho create projeto, windows aplication, form1, buton1, double click e colo aquela tela de vb do post. Talves eu tenha que configurar algo no Vb, pois ainda não criei nada nele. Vou olhar com calma amanha a tarde e a noite devo recorrer dinovo a vocês, muito obrigado. Quanto tempo levou pra visualizar a matriz?Talves não estou esperando o nescessario.

Achei o debug, estava oculto em tool, mas mesmo ativando-o não apareceu nada, nem em immediate, local e watch, e o exe, como crio?

meu vb é expresson edititon, e ainda não achei a linha debug em baixo da tela, se eu mudar o comando debug pra algum do tipo writelinebloco de notas, para abrir em um bloco de notas, como deveria fazer?

Antes que eu me esqueça, meus parabéns adiantado e muitas decadas de vida.

Ok, isto eu fiz,não sei se correto, mas não aconteceu nada, tem que escolher um local pra gerar a matriz? Salvá-la, visualizá-la? como crio o exe do programa? O estudo que voc~es fizeram era baseado em qual modo, estatistica?

Help, minhas duvida são onde colocar as linhas de comando que voces me passaram.....

Bom amigos, estou aprendendo programação sozinho, sozinho não, com vocês; mas estou apanhando mais que Judas na semana Santa. Onde coloco as linhas de comndo que me passaram? Tutorial"programinha basico pra zerar matriz, qual melhor forma de fazelo? Olhem lá e me ajudem, minha meta este ano é coseguir gerar esta matriz....

O ideal seria te explicar no MSN, mas vou tentar aqui, em todo jogo sempre terá um certo numero de cartões premiados.Na lotofacil por ser menos numeros é mais facil de separá-los olhe este cronograma: 5 acertos=3003 6 acertos=50050 7 acertos=289575 8 acertos=772200 9 acertos=1051050 10 acertos=756756 11 acertos=286650 12 acertos=54600 13 acertos=4725 14 acertos=150 15 acertos=1 total é igual ao total de probabilidades(3.268.760) De 11 pra cima paga premios então total de 11+12+13+14+15 / 3268760 = 9 (chance de acertar onze) só que pra chegar nestes nove cartoes tem que criar tal matriz para depois separar em colunas de premiados e escolher qual premio quer ganhar. Me adciona que te explico melhor, você parece ser bom com este tipo de programa. Vou te mandar outros arquivos de excel com totais de todos os jogos.