alluda con un trabajo freke ^^

[rataman11]

saven necesito programar un juego de combate naval...no se si lo conoscan...y no caxo nada de visual basic....T_T enrrealidad nunka le agarre muxo la mano...tonces si alguien tiene ...puta seria la raja...si necesitan alguna especificacion se las doy yo por mientras seguire peleando con los compiladores y sus millones de errores fatales..de antemanos grasias ^^ los programadores rulean...pero yo soy impaciente y programar exije muxas paciencia...creo...mi paciencia no a durado tanto como para averiguarlo XD(aa a todo esto la idea es conectar dos pc por puerto serie y asi jugar la weaita XD es una doble paja Xd)

[xmaurox]

deberias empezar primero viendo la estructura de datos que emplearas, luego aplicas las reglas del juego y por ultimo las validaciones. Lamentablemente la gracia del foro es ayudar en problemas que tengas, nadie te hará la tarea ;)

[rataman11]

bueno esto es lo ke tengo ...es ke el profe paso una guia y teminava en esto,...y claro se ve la raja ....pero ahora nos pide ke conectemos dos pc y ke el juego corra...pero noc axo como T_T bueno...no es ke no haya exo nada...pero no caxo como konectar los pc para ke funke...hay ke conectarlos por un cable serie ... bueno esto es lo ke tengo de mi programa de juego.... no es muxo..pero hay kisas les de una idea...y alguien me pueda orientar en esto XD

 

sorry ke llege y lo pege pero no se como meterlo de otra forma grax por cualkier alluda (y si e exo algo,...es solo ke estoy negado pa este ramo....me tiene muy cabreado XD)

 

 

Dim Enemigo(15), MiArmada(15) As Button

Dim Modo As Integer = 0

Dim CuentaBarcos As Integer = 0

Const INICIO = 0

Const COMBATE = 1

Const FIN = 1

 

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

Enemigo(0) = Button1

Enemigo(1) = Button2

Enemigo(2) = Button3

Enemigo(3) = Button4

Enemigo(4) = Button5

Enemigo(5) = Button6

Enemigo(6) = Button7

Enemigo(7) = Button8

Enemigo(8) = Button9

Enemigo(9) = Button10

Enemigo(10) = Button11

Enemigo(11) = Button12

Enemigo(12) = Button13

Enemigo(13) = Button14

Enemigo(14) = Button15

Enemigo(15) = Button16

 

MiArmada(0) = Button32

MiArmada(1) = Button31

MiArmada(2) = Button30

MiArmada(3) = Button29

MiArmada(4) = Button28

MiArmada(5) = Button27

MiArmada(6) = Button26

MiArmada(7) = Button25

MiArmada(8) = Button24

MiArmada(9) = Button23

MiArmada(10) = Button22

MiArmada(11) = Button21

MiArmada(12) = Button20

MiArmada(13) = Button19

MiArmada(14) = Button18

MiArmada(15) = Button17

 

For i As Integer = 0 To 15

Enemigo(i).Enabled = False

Next

 

 

Me.Button33.Focus()

Me.Button33.Enabled = False

 

 

 

End Sub

 

Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click

BOTONES_MI_ARMADA(sender, e, 0)

 

End Sub

 

Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click

BOTONES_MI_ARMADA(sender, e, 1)

End Sub

 

Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click

BOTONES_MI_ARMADA(sender, e, 2)

End Sub

 

Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click

BOTONES_MI_ARMADA(sender, e, 3)

End Sub

 

Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click

BOTONES_MI_ARMADA(sender, e, 4)

End Sub

 

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click

BOTONES_MI_ARMADA(sender, e, 5)

End Sub

 

Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click

BOTONES_MI_ARMADA(sender, e, 6)

End Sub

 

Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click

BOTONES_MI_ARMADA(sender, e, 7)

End Sub

 

Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click

BOTONES_MI_ARMADA(sender, e, 8)

End Sub

 

Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click

BOTONES_MI_ARMADA(sender, e, 9)

End Sub

 

Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click

BOTONES_MI_ARMADA(sender, e, 10)

End Sub

 

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

BOTONES_MI_ARMADA(sender, e, 11)

End Sub

 

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

BOTONES_MI_ARMADA(sender, e, 12)

End Sub

 

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click

BOTONES_MI_ARMADA(sender, e, 13)

End Sub

 

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click

BOTONES_MI_ARMADA(sender, e, 14)

End Sub

 

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click

BOTONES_MI_ARMADA(sender, e, 15)

End Sub

 

Public Sub BOTONES_MI_ARMADA(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal index As Integer)

 

Select Case Modo

Case INICIO

If (CuentaBarcos < 4) Then

MiArmada(index).Text = "V"

CuentaBarcos = CuentaBarcos + 1

End If

If CuentaBarcos = 4 Then

For i As Integer = 0 To 15

Enemigo(i).Enabled = True

Next

End If

Case FIN

 

End Select

End Sub

 

 

End Class