• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

gregurs

[Resolvido] Guardar chaves num ficheiro

14 mensagens neste tópico

Eu fiz este código para guardar as chaves do totoloto num ficheiro de texto só que tem alguns erros que gostava que me tentassem resolver nao sei como resolve-los

        Randomize()
        For Me.i = 0 To 5
            v(i) = (50 * Rnd() + 1)
        Next i
        test = 0
        While (test = 0)
            For Me.i = 0 To 5
                For Me.j = 0 To 5
                    If v(i) = v(j) Then
                        test = test + 1
                    End If
                Next j
            Next i
            Me.Refresh()
            If test > 6 Then
                test = 0
            End If
        End While

        test = 0

        While (test = 0)
            test = 1

            For Me.i = 0 To 4


                If v(i) > v(i + 1) Then

                    Me.Refresh()
                    m = v(i)
                    v(i) = v(i + 1)
                    v(i + 1) = m
                    test = 0


                End If

            Next i
        End While

        Me.Refresh()

        Me.TextBox1.Text = Me.v(0)
        Me.TextBox2.Text = Me.v(1)
        Me.TextBox3.Text = Me.v(2)
        Me.TextBox4.Text = Me.v(3)
        Me.TextBox5.Text = Me.v(4)
        Me.TextBox6.Text = Me.v(5)


        Me.Refresh()

        Label3.Text = TextBox1.Text
        Label4.Text = TextBox2.Text
        Label5.Text = TextBox3.Text
        Label6.Text = TextBox4.Text
        Label7.Text = TextBox5.Text
        Label8.Text = TextBox6.Text
        TextBox13.Text = (Label3.Text & "-" & Label4.Text & "-" & Label5.Text & "-" & Label6.Text & "-" & Label7.Text & "-" & Label8.Text)

        Open("c:\chaves.txt")
For Append As #1
Print #1, "As tuas chaves"

Next  #1

os erros são :

open is not declared

type expected

expression expected

method arguments must be unclose

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Open "d:\chaves.txt" For Append As #1
Print #1, "As tuas chaves"
Close #1

Onde foste buscar o Next :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Open "c:\chaves.txt" For Append As #1

Print #1, "As tuas chaves"

Close #1

o outro código está num topico anterior

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E estás a usar o VB6 ?

Tens acesso de escrita ao disco C ? Experimenta usar outro nome de ficheiro.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nao o vb2008

Mas existe uma área para VB.NET !!! Este código é para VB6 ou mesmo VBA.  :)

Vou mover o tópico ... é que Randomize() e o Rnd() já não se usam em VB.NET!

Em VB.NET fazer:

My.Computer.FileSystem.WriteAllText("c:\chaves.txt", "as tuas chaves", True)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigado já guarda no ficheiro sem problemas

Já agora para criares numeros aleatórios em VB.NET fazes o seguinte:

        Dim rnd As New Random
        rnd.Next(0, 5) ' gera um número entre 0 e 5

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas olá  jpaulino

Para mim ele ficou a saber o mesmo .. Xinês ..!!

Está habituado ao vb6...

Não explicas-te por que razão não se usa :

Open "d:\chaves.txt" For Append As #1

Print #1, "As tuas chaves"

Close #1

Mas sim : My.Computer.FileSystem.WriteAllText("c:\chaves.txt", "as tuas chaves", True)

Muita gente desconhece que nesta nova versão do 2008 o  "My.Computer.FileSystem"  entre muitas outras coisas têm já funções embutidas que nos fzem poupar tempo..

Até+

Ps : já conseguiste resolver a encriptação ?

Tambem estou a matutar nisso.

depois digo-te alguma coisa.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Bem, eu mostro como se deve fazer, e se pessoal pesquisar e mesmo assim tiver dúvidas, é só dizer que eu explico.  :P

O método de trabalhar com ficheiros em VB6 era muito complicado e muitos programadores utilizavam o FileSystemObject(ajudava um pouco).

Com o .NET surgiram classes próprias para trabalhar com ficheiros, para simplificar e abandonar também um pouco a utilização de API's. Estas classes fazem parte do namespace IO e, neste caso IO.File que permite apagar ficheiros, escrever, ler, etc.

Além disso existem ainda o namespace My, que não é mais do que um conjunto de versões simplificadas e que tem a classe FileSystem

Mas podem sempre ler um pouco em: VB.NET: Utilização de Ficheiros de Texto

PS: nunca mais me lembrei mas vou ver se no fim-de-semana investigo um pouco!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora