Menú

Mostrar Mensajes

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ú

Mensajes - 79137913

#1191
HOLA!!!

Abdiel: La vez que use el programa edite directamente el form que viene en el proyecto, no cargue el cls en otro, a mi como era un proyecto chico me sirvio pero fijate, no se que sera ese error.

GRACIAS POR LEER!!!
#1192
HOLA!!!

Mirate este code, lo vi que lo posteo seba123neo en vb-mundo, revisalo, anula la tecla de windows mediante un hook al teclado, lo unico que te faltaria hacer es cambiar la tecla W$ por las F# y fijarte si la ventana activa es la del juego ;).

http://www.uploadsourcecode.com.ar/d/gT4O9xhOYguVS6IGuRDWvT3qT9B1rcH5

GRACIAS POR LEER!!!
#1193
HOLA!!!

Mi codigo:

Código (vb) [Seleccionar]
Private Function Cuenta_Circular7913(N&, m() As Integer, TIPO As Boolean) 'TIPO: FALSE = BLOQUE, TRUE = ESPIRAL
   Dim X        As Long
   Dim Y        As Long
   Dim MEDIO    As Long ' N/2
   Dim CT       As Long
   
       'If N Mod 2 <> 0 Then Exit Function
       'If N > 180 Then Exit Function
       'If N < 2 Then Exit Function
       
       ReDim m(N, N)
       
       MEDIO = N / 2
       
       For X = MEDIO + 1 To N
           m(N - X, N - X) = 7
           m(X, N - X) = 9
           m(N - X, X) = 1
           m(X, X) = 3
       Next
       
       If TIPO Then 'ESPIRAL
       
           Dim SIGUIENTE   As Long
           Dim SIGUIENTE_2 As Long 'SIGUIENTE * 2
           Dim SIGUIENTE_3 As Long 'SIGUIENTE * 3
           
           For Y = 0 To MEDIO
               CT = CT + SIGUIENTE_3
               SIGUIENTE = N - (Y * 2) - 1
               SIGUIENTE_2 = SIGUIENTE * 2
               SIGUIENTE_3 = SIGUIENTE * 3
               
               For X = (Y + 1) To N - (Y + 1)
                   CT = CT + 1
                   m(X, Y) = CT
                   m(N - Y, X) = CT + SIGUIENTE
                   m(N - X, N - Y) = CT + SIGUIENTE_2
                   m(Y, N - X) = CT + SIGUIENTE_3
               Next
           Next
           
       Else 'TRIANGULAR
       
           Dim MEDIO2     As Long 'MEDIO ^ 2
           Dim MEDIO2_2   As Long 'MEDIO2 * 2
           Dim MEDIO2_3   As Long 'MEDIO2 * 3
           
           MEDIO2 = MEDIO * MEDIO
           MEDIO2_2 = MEDIO2 * 2
           MEDIO2_3 = MEDIO2 * 3
           
           For Y = 0 To MEDIO
               For X = (Y + 1) To N - (Y + 1)
                   CT = CT + 1
                   m(X, Y) = CT
                   m(N - Y, X) = CT + MEDIO2
                   m(N - X, N - Y) = CT + MEDIO2_2
                   m(Y, N - X) = CT + MEDIO2_3
               Next
           Next
       End If
End Function



TEST:
"TEST HECHO POR 79137913"
Cuenta_Circular7913(180, Matriz, False)           : 0,456 msec
Leandro_Cuenta_Circular7913(180, Matriz, False)   : 0,522 msec
Cuenta_Circular7913(180, Matriz, True)            : 0,424 msec
Leandro_Cuenta_Circular7913(180, Matriz, True)    : 0,398 msec

GRACIAS POR LEER!!!
#1194
HOLA!!!

XD bueno igual no entendi :P

En un rato posteo el code que ya lo tengo bastante bien.

GRACIAS POR LEER!!!
#1195
HOLA!!!

Black:
Perdon :P.

Cita de: BlackZeroX▓▓▒▒░░ en 13 Enero 2011, 07:20 AM
( un servidor en la facultad ).

:o Que le paso al server?

GRACIAS POR LEER!!!
#1196
HOLA!!!

Yo uso siempre ese control, funciona con todos los controles basicos.
Mod: Fijate :AutoResCtrl1.Resize Form1, 1
el ",1" es si queres o no que redimensione las fuentes.

;)

GRACIAS POR LEER!!!
#1197
HOLA!!!

No habia leido bien, ni idea

Suponete que la queres ejecutar en el form_load:

Private Sub Form_Load()
Call Mensaje
End Sub

GRACIAS POR LEER!!!
#1198
HOLA!!!

Descargar URL:
http://www.gigasize.com/get.php?d=qp05cs4opxc

Para usarlo pones el control en el formulario y en el Form_resize() esto:
Código (vb) [Seleccionar]
Private Sub Form_Resize()
AutoResCtrl1.Resize Form1, 1
End Sub


GRACIAS POR LEER!!!
#1199
HOLA!!!

Busca AutoResCtrl en Google, el OCX hace todo por vos menos cambiar el tamaño de los hearders de un ListView o DBGrid

GRACIAS POR LEER!!!
#1200
HOLA!!!

Bueno... parece que no va a agregarse nadie mas, falta Mr. Frog.... :silbar:
Mañana posteo mi codigo, le pisa los talones al de Lea :P.

Espero.

GRACIAS POR LEER!!!