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

gregurs

Totoloto em vb

Recommended Posts

jpaulino

Mostra lá o que tens, ou seja, como consegues os números que necessitam de ser ordenados.

Share this post


Link to post
Share on other sites
jpaulino

sabem como guardar as chaves do totoloto num ficheiro ???

Olá,

Cria uma nova questão e explica o que queres.

Share this post


Link to post
Share on other sites
gregurs

Eu fiz o totoloto e esta a funcionar. O que quero e que o programa guarda num ficheiro as chaves geradas

Share this post


Link to post
Share on other sites
jpaulino

Exacto, ir buscar as chaves a base de dados

Não comas palavras, explica bem o que queres.

Ir buscar o que? O que já tens feito ?

Share this post


Link to post
Share on other sites
gregurs

Como disse anteriormente eu fiz um totoloto em vb que funciona sem problemas e queria guardar as chaves geradas pelo programa num ficheiro de texto,é isso que quero

Share this post


Link to post
Share on other sites
jpaulino

Ok se é só isso fazes assim:

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

Procura mais informação caso queiras ler, modificar, etc.

Share this post


Link to post
Share on other sites
jpaulino

Geras a chave e guardas numa variável ou numa textbox, etc, e depois juntas a chave completa e gravas para o ficheiro.

Deste modo vais gravando sempre as chaves no final do ficheiro.

Share this post


Link to post
Share on other sites
gregurs

Estou a guardar as chaves em labels e juntar numa textbox.

para as juntar na textbox, usei este código:

TextBox13.Text = (Label3.Text, "-",label4.Text,"-",label5.Text,"-",label6.Text,"-",label7.Text,"-",label8.Text)

assim como está dá erro na primeira virgula, o erro que me dá é "  ')' expected  "

se tirar parenteses é a mesma coisa

Share this post


Link to post
Share on other sites
jpaulino

Substitui a virgula por "&"

TextBox13.Text = Label3.Text & "-" & label4.Text & "-" & label5.Text & "-" & label6.Text & "-" & label7.Text & "-" & label8.Text

Share this post


Link to post
Share on other sites
gregurs

criei o ficheiro no disco c con o nome chaves.txt alterei no programa e pus o código que disseste.

E ele dá me erro no open  " open is not declared "

No primeiro # dá me erro " type expected "

No segundo e terceiro  # dá me erro " expression expected "

   

Share this post


Link to post
Share on other sites
jpaulino

dá- me o teu mail que eu mando-te já

Eu não quero que me envies nada!

Ou colocas o programa aqui (upload) ou mostras o código e dizes onde está a dar erro.

Share this post


Link to post
Share on other sites
gregurs

  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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.