Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

gregurs

[Resolvido] Guardar chaves num ficheiro

Mensagens Recomendadas

gregurs    0
gregurs

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
programadorvb6    1
programadorvb6

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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

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!

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade