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

alphasil

Jogo das 3 cartas

4 mensagens neste tópico

Olá

Preciso fazer um trabalho que me pede o seguinte jogo de cartas

Crie o seguinte interface do jogo utilizando as imagens que estão na plataforma e utilizando os componentes Image, MenuStrip, etc.:

Escreva o código necessário para executar o Jogo das 3 cartas escondidas.

o problema é que não fui a a esta aula..

Pelo que já li tenho de criar uma array, como é que se faz isso?. Depois nas picturebox, tem de ser random, ou seja mudam as cartas sempre que se puser "novo jogo"

Alguma dica?

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá ppl

Continuo com problemas, comecei por fazer uma coisa simples, agora o problema quando carrego em "deal", nada aparece  :rant_01:

o código é este :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim palco As Jogo = New Jogo

        Dim cartas(12, 0) As String

        'Naipe de cartas de copas

        cartas(0, 0) = "as de copas"

        cartas(1, 0) = "dois"

        cartas(2, 0) = "três"

        cartas(3, 0) = "quatro"

        cartas(4, 0) = "cinco"

        cartas(5, 0) = "seis"

        cartas(6, 0) = "sete"

        cartas(7, 0) = "oito"

        cartas(8, 0) = "nove"

        cartas(9, 0) = "dez"

        cartas(10, 0) = "Valete de copas"

        cartas(11, 0) = "Rainha de copas"

        cartas(12, 0) = "Rei de copas"

 

        If New IO.FileInfo("C:\Users\Gil\Desktop\IPVC 2º Semestre\PED\cartas\esce1.png").Exists Then

            pic1.Image = Image.FromFile("C:\Users\Gil\Desktop\IPVC 2º Semestre\PED\cartas\esce1.png")

            pic2.Image = Image.FromFile("C:\Users\Gil\Desktop\IPVC 2º Semestre\PED\cartas\esce1.png")

            pic3.Image = Image.FromFile("C:\Users\Gil\Desktop\IPVC 2º Semestre\PED\cartas\esce1.png")

        End If

     

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cartas(12, 0) As String

        Dim x, y As Integer

        x = (0 * Rnd() + 1) ' makes random number

        y = (12 * Rnd() + 1) ' another random number

        Label1.Text = cartas(y, x)

        Label2.Text = cartas(y, x)

        Label3.Text = cartas(y, x)

        Label4.Text = cartas(y, x)

    End Sub

End Class

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