[GUIDA VB.NET] Guida per sviluppare il gioco: MORRA CINESE

Light ~

Posted on 23/11/2011, 16:54

User deleted

Ed eccoci con la seconda guida, ovvero creare con vb.net il gioco: " Morra cinese ". Prima di iniziare voglio specificare che stavolta il gioco sarà non sarà più umano VS umano, ma sarà umano VS computer. Lo sviluppo del programma sarà abbastanza semplice, utile per chi è alle prime mani con vb.net. Detto questo, incominciamo:

- Creare 3 BUTTON (Con i seguenti nomi: forbici, sasso, carta).
- Creare 6 PICTURE BOX (Naturalmente due rappresentati forbici, due rappresentanti il sasso, ed due rappresentanti la carta).
- Creare 3 TEXT-BOX (Dopo vedrete nello screen come ordinarli ed cosa scriverci).
- Creare 3 LABEL.

Fatto questo ordinate il tutto in questo modo:

SPOILER (clicca per visualizzare)

Adesso ecco come procedere:

- Come potete vedere ci sono solo 2 picture box, ma voi dovrete disporre 3 picture una dietro l'altra, una da un lato ed una da un altro lato. (Naturalmente le tre immagini sovrapposte una sopra l'altra dovranno essere: forbici, sasso, carta, ed quindi ripetete la stessa operazione nell'altro lato). Attenzione: Tutte le immagini dovranno essere impostate invisibili!
- Dopo aver fatto le operazioni descritte sopra, le picture box chiamatele in questo modo: Sasso1, forbici1 e carta1, ed quindi dall'altro lato: Sasso2, forbici2 e carta2.

Bene, ora non ci rimane che inserire il codice nella form (doppio click nella form), cioè questo:

SPOILER (clicca per visualizzare)

CODICE

Public Class Form2

Private Sub gioco()
Dim x As New Random
Dim y As Integer
y = x.Next(1, 3)
If y = 1 Then
Carta2.Visible = True

ElseIf y = 2 Then
Forbici2.Visible = True

ElseIf y = 3 Then
Sasso2.Visible = True

End If

End Sub
Private Sub controlla()

If Carta2.Visible = True And carta1.Visible = True Then
MsgBox("Pari", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False
TextBox1.Text = Val(TextBox1.Text) + 1

ElseIf Sasso2.Visible = True And sasso1.Visible = True Then
MsgBox("Pari", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False

TextBox1.Text = Val(TextBox1.Text) + 1

ElseIf Forbici2.Visible = True And forbici1.Visible = True Then
MsgBox("Pari", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False
TextBox1.Text = Val(TextBox1.Text) + 1

ElseIf Forbici2.Visible = True And carta1.Visible = True Then
MsgBox("Un punto per il PC", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False
TextBox2.Text = Val(TextBox2.Text) + 1
ElseIf Forbici2.Visible = True And sasso1.Visible = True Then
MsgBox("Un punto per" + " " + Form1.TextBox1.Text, vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False

TextBox3.Text = Val(TextBox3.Text) + 1

ElseIf Carta2.Visible = True And sasso1.Visible = True Then
MsgBox("Un punto per il PC", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False

TextBox2.Text = Val(TextBox2.Text) + 1
ElseIf Carta2.Visible = True And forbici1.Visible = True Then
MsgBox("Un punto per" + " " + Form1.TextBox1.Text, vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False

TextBox3.Text = Val(TextBox3.Text) + 1

ElseIf Sasso2.Visible = True And carta1.Visible = True Then
MsgBox("Un punto per" + " " + Form1.TextBox1.Text, vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False

TextBox3.Text = Val(TextBox3.Text) + 1
ElseIf Sasso2.Visible = True And forbici1.Visible = True Then
MsgBox("Un punto per il PC", vbInformation, "Risultato")
carta1.Visible = False
Carta2.Visible = False
forbici1.Visible = False
Forbici2.Visible = False
sasso1.Visible = False
Sasso2.Visible = False
TextBox2.Text = Val(TextBox2.Text) + 1

End If
End Sub

Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
End
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label3.Text = Form1.TextBox1.Text
TextBox3.Enabled = False
TextBox2.Enabled = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
sasso1.Visible = True
forbici1.Visible = False
carta1.Visible = False
Sasso2.Visible = False
Forbici2.Visible = False
Carta2.Visible = False
gioco()
controlla()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sasso1.Visible = False
forbici1.Visible = True
carta1.Visible = False
Sasso2.Visible = False
Forbici2.Visible = False
Carta2.Visible = False
gioco()

controlla()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sasso1.Visible = False
forbici1.Visible = False
carta1.Visible = True
Sasso2.Visible = False
Forbici2.Visible = False
Carta2.Visible = False
gioco()

controlla()
End Sub

Private Sub Mirko185ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mirko185ToolStripMenuItem.Click
End Sub
End Class

Quindi ora eseguite il debug ed testate il tutto. Ricordo che oltre ad " sviluppare " questo programma ed importate imparare il suo funzionamento ed quindi studiarlo per diventare dei veri esperti di vb.net. Ricordo che per ogni dubbio & chiarimento potrete sempre scrivere in questo topic!

Alla prossima!

Fonte: Tutta mia tranne lo screen ed il codice.

0 replies since 23/11/2011, 16:54 62 views