Mensajes

[vba]

.
Mira carnal si es vb6 puedes usar este modulo ( también lo puedes ocupar en vba qué significa Visual Basiv for Aplications en este paso VBA version Excel solo quita los CreateObjects() Class_initialize y class_finalize )

http://foro.elhacker.net/programacion_visual_basic/srccls_manipulacionsimple_excel_clsexcelaplication_release_memory-t297215.0.html

AHORA SOLO ESTUDIA-LO Y TE SERA SÚBITAMENTE FÁCIL HACER TU TAREA!¡, solo si lo entiendes.

Dulces Lunas!¡.

te la ponde mas facil

Código (vb) [Seleccionar] Expandir



sendkeys(">")
sendkeys("<")



No es recomendable pero la vdd es un proyecto pequeño asi que... xP

Dulces Lunas!¡.

[keybd_event]

mmm

keybd_event , Optativo para delimitar las teclas en X ventana!¡. GetForegroundWindow()...

Dulces Lunas!¡.

.
Todos excepto el 1ero no me gusto...!¡

Dulces Lunas!¡.

Solo haría lo qué no me atrevería a hacer... ( Correr desnudo en la calle!¡. xD... y si no se acaba el mundo entonces una masacre se ejecutara!¡... Ohh mis ojos!¡. xD )

No enserio, seria hacer cosas, pasar el tiempo con quien mas quiero!¡.

Dulces Lunas!¡.

http://www.connectionstrings.com/

Dulces Lunas!¡.

Eso es lo mas ético venganza, el/la desgraciado(a) se come tu conexión mientras tu gentilmente pagas

P.D.: Si pagas entonces es tu Red, por lo tanto has lo qué se te pegue la Gana!¡.

Dulces Lunas!¡.

No si es un solo computador ("Potente") con varios monitores enchufados!¡. xP

Da = ya paso... lo q preocupa son los resultados actuales!¡.

Dulces Lunas!¡.

[HD]

.
Te dejo mi modulo de clase seguro te sirve, lo cree cuando estaba trabajando en una chorrada qué se podía optimizar Exasperada-mente para los qué ya estaban... pero qué hacia un proceso X por qué los demás querían gastarle al HD en lugar de hacerlo por Memoria ya qué el resultado tenia qué ser actualizado!¡. (Ya no lo querían Re-Hacer y ponían Demasiados peros xP espero no seas así!¡.)...


OJO: Esta diseñado para trabajar con Hilos, y esta de forma PRE para MySQL!¡.

CLS_Ado.vb

Código (vbnet) [Seleccionar] Expandir



Option Explicit On

Imports MySql.Data.MySqlClient

Public Class Cls_Ado

   '   //  Constantes de conexión a MySQL por ADO .NET!¡.
   Private Const PreStrConexion As String = "Server=(ip);Database=(db);user id=(u);password=(p);Connect Timeout=30;"
   Private Const PREDBIpServer As String = "localhost"                 '   //  Predeterminado Default
   Private Const PREDBUser As String = "root"                          '   //  Predeterminado Default
   Private Const PREDBPass As String = "PYP" '"argetniPYP123"          '   //  Predeterminado Default
   Private Const PREDBIni As String = "information_schema"             '   //  Predeterminado Default

   '   //  Otros.
   Private StrConexion As String
   Private MySQLConnectionString As String

   '   //  .||.
   Private MyDataAdapter As MySqlDataAdapter
   Private MyCommandBuilder As MySqlCommandBuilder

   '   //  .||.
   Private DBIpServer As String
   Private DBUser As String
   Private DBPass As String
   Private DBIni As String

   Private PrivDataSet As DataSet
   Private PrivSqlQuery As String
   Private PrivTable As String
   Private PrivThisTheardTag As String

   Event ErrorEvent(ByVal Ex As Exception, ByVal Cancel As Boolean)
   Event Finish()

   Public Property StringConection() As String
       Get
           Return StrConexion
       End Get
       Set(ByVal value As String)
           StrConexion = value
       End Set
   End Property

   Public Property This_Theard_Tag() As String
       Get
           Return PrivThisTheardTag
       End Get
       Set(ByVal value As String)
           PrivThisTheardTag = value
       End Set
   End Property

   Public Property ServerIP() As String
       Get
           Return DBIpServer
       End Get
       Set(ByVal value As String)
           DBIpServer = value
       End Set
   End Property

   Public Property ServerDataBase() As String
       Get
           Return DBIni
       End Get
       Set(ByVal value As String)
           DBIni = value
       End Set
   End Property

   Public Property ServerPassword() As String
       Get
           Return DBPass
       End Get
       Set(ByVal value As String)
           DBPass = value
       End Set
   End Property

   Public Property ServerUserName() As String
       Get
           Return DBUser
       End Get
       Set(ByVal value As String)
           DBUser = value
       End Set
   End Property

   Public Function OpenDBMySql(ByVal pServidorIPDNS As String, ByVal pDBuser As String, ByVal pDBPass As String, _
                                ByVal pBDD As String, ByVal SqlQuery As String, ByVal MySQLConnectionString As String) _
   As MySql.Data.MySqlClient.MySqlConnection

       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection

       If StrConexion = Nothing And MySQLConnectionString = Nothing Then
           MySQLConnectionString = PreStrConexion
       Else
           If MySQLConnectionString = Nothing Then
               MySQLConnectionString = StrConexion
           End If
       End If
       If pServidorIPDNS = Nothing And DBIpServer = Nothing Then
           pServidorIPDNS = PREDBIpServer
       Else
           If pServidorIPDNS = Nothing Then
               pServidorIPDNS = DBIpServer
           End If
       End If
       If pDBuser = Nothing And DBUser = Nothing Then
           pDBuser = PREDBUser
       Else
           If pDBuser = Nothing Then
               pDBuser = DBUser
           End If
       End If
       If (pDBPass = Nothing And DBPass = Nothing) Then
           pDBPass = PREDBPass
       Else
           If pDBPass = Nothing Then
               pDBPass = DBPass
           End If
       End If
       If pBDD = Nothing And DBIni = Nothing Then
           pBDD = DBDataBaseIni 'PREDBIni
       Else
           If pBDD = Nothing Then
               pBDD = DBIni
           End If
       End If

       MySQLConnectionString = MySQLConnectionString.Replace("(ip)", pServidorIPDNS). _
                               Replace("(db)", pBDD).Replace("(u)", pDBuser).Replace("(p)", pDBPass)

       If Not MyDataAdapter Is Nothing Then
           MyDataAdapter = Nothing
       End If
       If Not MyCommandBuilder Is Nothing Then
           MyCommandBuilder = Nothing
       End If

       Try
           MyADOConnection = New MySql.Data.MySqlClient.MySqlConnection(MySQLConnectionString)
           MyDataAdapter = New MySqlDataAdapter(SqlQuery, MyADOConnection)
           MyCommandBuilder = New MySqlCommandBuilder(MyDataAdapter)
           Return MyADOConnection
       Catch ex As Exception
           Dim Cancel As Boolean
           RaiseEvent ErrorEvent(ex, Cancel)
           Return Nothing
       End Try

   End Function

   Public Function ExecuteQuery(Optional ByVal SqlQuery As String = "", Optional ByVal Tabla As String = "") As Boolean
       Dim MyComandoMysql As New MySqlCommand
       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       If Not SqlQuery = "" Then
           PrivSqlQuery = SqlQuery
       End If
       If Tabla = "" Then
           PrivTable = Tabla
       End If
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyComandoMysql.Connection = MyADOConnection
               MyComandoMysql.CommandType = CommandType.Text
               MyComandoMysql.CommandText = PrivSqlQuery
               MyComandoMysql.ExecuteNonQuery()
               MyADOConnection.Close()
               RaiseEvent Finish()
               Return True
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               Return False
           End Try
       Else
           RaiseEvent Finish()
           Return False
       End If
   End Function

   Public Function GetDataSet(Optional ByVal SqlQuery As String = "", Optional ByVal Tabla As String = "") As DataSet
       Dim tmpDataSet As New DataSet
       Dim MyComandoMysql As New MySqlCommand
       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       If Not SqlQuery = "" Then
           PrivSqlQuery = SqlQuery
       End If
       If Not Tabla = "" Then
           PrivTable = Tabla
       End If
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyComandoMysql.Connection = MyADOConnection
               MyComandoMysql.CommandType = CommandType.Text
               MyComandoMysql.CommandText = PrivSqlQuery
               MyComandoMysql.ExecuteNonQuery()
               MyDataAdapter.Fill(tmpDataSet, PrivTable)
               MyADOConnection.Close()
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               If Cancel Then
                   RaiseEvent Finish()
                   Return Nothing
               End If
               tmpDataSet = Nothing
           End Try
           PrivDataSet = tmpDataSet
           RaiseEvent Finish()
           Return tmpDataSet
       Else
           RaiseEvent Finish()
           Return Nothing
       End If
   End Function

   Public Property This_DataBase() As DataSet
       Get
           Return PrivDataSet
       End Get
       Set(ByVal value As DataSet)
           PrivDataSet = value
       End Set
   End Property

   Public Property This_SqlQuery() As String
       Get
           Return PrivSqlQuery
       End Get
       Set(ByVal value As String)
           PrivSqlQuery = value
       End Set
   End Property

   Public Property This_Table() As String
       Get
           Return PrivTable
       End Get
       Set(ByVal value As String)
           PrivTable = value
       End Set
   End Property

   Public Function UpdateFromDataSet(Optional ByVal pDataSet As DataSet = Nothing, _
                                     Optional ByVal SQLQuery As String = "", _
                                     Optional ByVal Tabla As String = "") _
   As Boolean

       If Not pDataSet Is Nothing Then
           PrivDataSet = pDataSet
       End If
       If Not SQLQuery = "" Then
           PrivSqlQuery = SQLQuery
       End If
       If Not Tabla = "" Then
           PrivTable = Tabla
       End If

       Dim MyADOConnection As MySql.Data.MySqlClient.MySqlConnection
       MyADOConnection = OpenDBMySql(DBIpServer, DBUser, DBPass, DBIni, PrivSqlQuery, StrConexion)
       If Not MyADOConnection Is Nothing Then
           Try
               MyADOConnection.Open()
               MyDataAdapter.Update(PrivDataSet, PrivTable)
               MyADOConnection.Close()
               RaiseEvent Finish()
               Return True
           Catch ex As Exception
               Dim Cancel As Boolean
               RaiseEvent ErrorEvent(ex, Cancel)
               RaiseEvent Finish()
               Return False
           End Try
       Else
           RaiseEvent Finish()
           Return False
       End If
   End Function

   Public Sub New()

   End Sub

End Class



P.D.: Se puede Optimizar xP

Sangriento Infierno Lunar!¡.

["N"]

manejalo por niveles

digamos que tienes

Nivel 1  <-- Compo mas cercano
Nivel 2  <-- campo donde esta el personaje
Nivel 3  <-- Nose digamos que montañas o algo al fondo
Nivel 4  <-- Fondo

así en el campo mas cercano tiene velocidad "N"
en niveles mas superiores (es decir con mayor profundidad) solo divides siendo cada nivel divisible entre 3 por decir algo

así

N 1 = N
N 2 = N/3
N 3 = N/3/3
N 4 = N/3/3/3
N X = N/3/.../X-1

P.D.: Mientras mas nivel mas lento su desplazamiento (X,Y y si es  3D incluyendo a Z)!¡.

Dulces Lunas!¡.