Soy socket-Fan! JAJA.... es que desde que aprendi sockets (en vb6) lo uso de esa manera y me parece mas "comoda"
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: seba123neo en 14 Marzo 2010, 01:41 AMjajaja....como me mato eso
es facil saber donde esta el error, pones un punto de interrupción (el 60% de los que programan ni saben que es) y vas con F8 hasta esa linea
Cita de: seba123neo en 14 Marzo 2010, 01:36 AMCita de: cobein en 14 Marzo 2010, 00:49 AM
Hay una manera muy simple de hacer eso, usa un bitmap por ejemplo, haces blanco para el camino, negro obstaculos y rojo la meta; Entonces cuando moves el personaje por ejemplo a la derecha te fijas el color del pixel que este a la derecha de la posiscion actual, si es blanco (camino) se puede mover, si es negro (obstaculo) se "anula" la accion y si es rojo (meta) terminaste.
Todo esto es muy basico pero podes "mejorarlo" utilizando un mapa de "patron" el que va a tener los obstaculos etc y otro en paralelo con un laberinto mas lindo y colorido xD
si, asi se hacen los de flash creo, esos que tenes que ir sin tocar el borde...y te podes hacer un editor de niveles, he visto juegos asi que guardan sus niveles en archivos .txt con la forma del nivel en asteriscos o simbolos, y cada uno representa el borde o algun obstaculo, despues lees ese archivo y cargas el nivel segun lo que haya en el...y asi te podes hacer todos los niveles que quieras con un solo codigo...y no hacer un codigo para cada nivel como hacen muchos y el codigo ni se puede leer...
Dim Contador As integer
Dim bcolor As New Random()
Public Sub newControl(ByVal nomctrl As String)
Dim pan As Panel= new Panel
pan.name=nomctrl
pan.left= Contador * 60 ' Para que no se pongan uno encima de otro
Contador += 1
pan.BackColor = Color.FromArgb(bcolor.Next(0, Int32.MaxValue)) ' Color Aleatorio para diferenciarlo
pan.text=nomctrl
Me.control.add(pan)
' Esta linea es la que agrega el evento, debes tomar en cuenta que hay eventos especiales
' ejemplo: OnPaint tiene como clase PaintEventHandler, eso debes averiguarlo por ti mismo ;-)
AddHandler pan.Click, New EventHandler(AddressOf panel_Click)
End Sub
'' Form_Load
newControl("panel1")
newControl("panel2")
' ...........
Public Sub panel_Click(sender as object, e as EventArgs)
Dim p as panel = Ctype(sender, TypeOf(panel))
Select Case p.Name
Case "panel1": MsgBox("Hiciste click en el panel 1")
Case "panel2": MsgBox("Hiciste click en el panel 2")
End Select
End Sub
$final = preg_replace('/[^\w](pedro)[^\w]/i', "pablo", $text, 1); // Solo reeemplaza la primer coincidencia
CitarHola pedro, pedro no se como decirte esto: pablo se la come
CitarHola pablo, pedro no se como decirte esto: pablo se la come