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

gregurs

Totoloto em vb

24 mensagens neste tópico

não conseguem mesmo o totoloto

Só tens de adaptar! Toda a lógica está lá.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

algem arranja a função para ordenar a chave do totoloto ou euro milhões

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Olá,

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mas todas as chaves, num ficheiro de texto, numa base de dados, etc ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Substitui a virgula por "&"

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 "

   

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens de mostrar o que estás a fazer (código).

Não sou bruxo :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

  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

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