Jogo do Monopólio
Download de imagens:
| monopoly.jpg |
|
|
| ||||||
|
|
| ||||||
|
|
| ||||||
|
|
| ||||||
|
|
| ||||||
|
|
| ||||||
|
| ||||
Consulte aqui as do Jogo (versão brasileira) em tabuleiro: pt.wikihow.com/Jogar-Monopoly
Instruções iniciais:
Propriedades do Formulário inicial:
- BackGroundImage: monopoly.jpg
- BackGroundImageLayout: Stretch
- KeyPreview: True
- Size: 1200, 700
- StartPosition: CenterScreen
- Text: PSI - Jogo do Monopolio
Crie três botões com os names: btnJ1, btnJ2 e btnHelp
Crie as seguintes variáveis públicas do tipo inteiro:
dados1 ->para guardar o número aleatório gerado
saldo1, saldo2 ->para guardar o saldo de cada jogador
valor ->para guardar o preço da propriedade
p1, p2, ..., 40 ->para guardar o dono da propriedade (1 ou 2)
xx, yy ->para guardar as coordenadas das imagens dos jogadores
localx1, localx2 ->localização do jogador 1 e jogador 2 (casas de 1 a 40)
Dentro da pasta bin\debug crie uma nova pasta denominada: imagens
Copie todas as imagens para dentro desta pasta
Crie um novo bloco de código com a seguinte designação:
Public Sub posicoes(pos As Integer)
End Sub
Dentro do bloco anterior (posicoes) escreva o seguinte código:
Select Case pos
Case 0
xx = 10
yy = 580
valor = 600
Case 1
xx = 10
yy = 516
valor = 600
Case 2
xx = 10
yy = 460
Case 3
xx = 10
yy = 405
Case 4
xx = 10
yy = 350
Case 5
xx = 10
yy = 295
Case 6
xx = 10
yy = 245
Case 7
xx = 10
yy = 190
Case 8
xx = 10
yy = 135
Case 9
xx = 10
yy = 80
Case 10
xx = 10
yy = 3
Case 11
xx = 170
yy = 3
Case 12
xx = 270
yy = 3
Case 13
xx = 370
yy = 3
Case 14
xx = 470
yy = 3
Case 15
xx = 570
yy = 3
Case 16
xx = 665
yy = 3
Case 17
xx = 760
yy = 3
Case 18
xx = 860
yy = 3
Case 19
xx = 960
yy = 3
Case 20
xx = 1050
yy = 3
Case 21
xx = 1115
yy = 95
Case 22
xx = 1115
yy = 147
Case 23
xx = 1115
yy = 200
Case 24
xx = 1115
yy = 250
Case 25
xx = 1115
yy = 300
Case 26
xx = 1115
yy = 350
Case 27
xx = 1115
yy = 400
Case 28
xx = 1115
yy = 450
Case 29
xx = 1115
yy = 500
Case 30
xx = 1115
yy = 590
Case 31
xx = 965
yy = 595
Case 32
xx = 870
yy = 595
Case 33
xx = 775
yy = 595
Case 34
xx = 680
yy = 595
Case 35
xx = 580
yy = 595
Case 36
xx = 485
yy = 595
Case 37
xx = 390
yy = 595
Case 38
xx = 290
yy = 595
Case 39
xx = 190
yy = 595
End Select
---> complete os valores para as restantes posições após a observação da imagem de cada propriedade
Escreva o código do Form Load:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim imagem As String
imagem = Application.StartupPath + "\Imagens\Monopoly.jpg"
Dim fundo As New Bitmap(imagem)
Me.BackgroundImage = fundo
' Posiciona ambos os jogadores na casa de partida (0)
posicoes(0)
pctJ1.Left = xx
pctJ1.Top = yy
pctJ2.Left = xx
pctJ2.Top = yy
saldo1 = 7500 'saldo inicial para o jogador 1
saldo2 = 7500 'saldo inicial para o jogador 2
' Inicializar a sequencia de números aleatórios
Randomize()
End Sub
