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

ForsakeNzk

Programa cartas

6 mensagens neste tópico

Ora viva!

n7h3McUgwko3GHuzm1JN

Tou com uma dificuldade queria fazer um Array que contasse o score de 10 rondas..

Ou seja nos apostamos, depois mostram-nos as cartas e

Mas como eu sou um bocado noob em termos de arrays lool

Aquilo devia fazer refresh ou seja á 11 vez que desse para carregar no botao apostar ele mostrava o score, ou numa label ou picture whatever.

Preciso de ajuda rápido o projecto e para entregar amanha o mais tardar quarta feira de manha!

Obrigado Pessoal quem leu e quem poste!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Queres à 11 vez mostrar o score ? E porque não mostraste o código que carrega no array ?

Basicamente o que tens de fazer é usar a função Ubound() que te calcula o número de elementos no array, e caso seja >= 10 mostras a mensagem

Exemplo:

Dim myArray(20) As String

If Ubound(myArray) >= 10 Then
  ' o teu código
End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

so mais uma coisa, por exemplo tenho esta função para gerar cartas aleatoriamente:

Function Gerar5Cartas(g As Integer) As Integer
Dim randomcard As Integer

Randomize

For i = 1 To 5
randomcard = Int((50 * Rnd()) + 1)
Form2.HandImg(i - 1).Picture = LoadPicture("C:\Users\ForsakeN\Documents\Escola\Bases Programação\BP Projecto\Codigo Visual Basic\" & randomcard & ".jpg")
If Form2.HandImg(1) = Form2.HandImg(2) Or Form2.HandImg(1) = Form2.HandImg(3) Or Form2.HandImg(1) = Form2.HandImg(4) Or Form2.HandImg(1) = Form2.HandImg(0) Then MsgBox ("erro")
If Form2.HandImg(2) = Form2.HandImg(3) Or Form2.HandImg(2) = Form2.HandImg(4) Or Form2.HandImg(2) = Form2.HandImg(0) Then MsgBox ("erro")
If Form2.HandImg(3) = Form2.HandImg(4) Or Form2.HandImg(3) = Form2.HandImg(0) Then MsgBox ("erro")
If Form2.HandImg(4) = Form2.HandImg(0) Then MsgBox ("erro")
Form2.DrawAllFiveCardsCmd.Enabled = False
randomcard = Gerar5Cartas
Next
End Function

Eu sei que isto não dá, tentei fazer por este passo so que nao funciona -.-"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Eu sei que isto não dá, tentei fazer por este passo so que nao funciona -.-"

Não dá o quê ? O que queres fazer.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

quero gerar 5 cartas para mostar num array de 5 picturebox e evitar que os numeros se repitam.

Tambem tava a atentar fazer um sistema de score mas ta dificil

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