Mensajes

.
tal vez no sea la mas rapida pero si la que no te va a devolver cosas raras.

Ej (Agregar estas cadena al Test):

Código [Seleccionar] Expandir



C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:\carpetas con varios puntos ... segun los parametros\ARCHIVO.EXE
C:ARCHIVO.exe
C:ARCHIVO.exe
C:ARCHIVO.exe
C:...ARCHIVO.exe
C:...ARCHIVO.exe
C:...ARCHIVO.exe



GetPatchInfo

Dulces Lunas!¡.

[&]

.
@puchero

gracias no sabia eso de la referencia al puntero con el signo &.

Me quedare con esta.

Código (vb) [Seleccionar] Expandir



template<class T>
T* setnewptr( T *&old , T *New)
{
    if ( old != NULL )
        delete (old); // free (old);
    return old=New;
}



Temibles Lunas!¡.

[quiero evitar]

para reservar y liberar memoria en c++ tienes new y delete.

lo se.

Código (cpp) [Seleccionar] Expandir



c_pstr=(char *)setnewptr(c_pstr,c_str);



Es lo que quiero evitar, ya que actualmente asi es como lo estoy haciendo.

Lo que quiero evitar es hacer una igualdad  asi a=b.

Dulces Lunas!¡.

[setnewptr]

.
mi problema es que en TEORIA mi funcion setnewptr deberia de asignar y/o devolver en el parametro old el puntero a New, pero solo lo afecta dentro de la funcion mas cuando termina no me afecta a c_pstr... ¿Como puedo solucionar esto?...

Aquí lo que digo...

Código (cpp) [Seleccionar] Expandir



#include<iostream>
#include<cstdlib>
#include<cstring>

using namespace std;

void* setnewptr( void *old , void *New);

int main() {
   char *c_pstr = NULL;
   char *c_str = (char*)malloc(sizeof(char)*10);
   strcpy(c_str , (const char*)"Hola");
   cout << (char*)setnewptr( c_pstr , c_str );
   cout << c_pstr << endl;
   return 0;
}

void* setnewptr( void *old , void *New)
/**
   Libera a [*old] si apunta a algo y le establece [*New];
   By BlackZeroX ( http://Infrangelux.sytes.net/ )
**/
{
   if ( old != NULL )
       free (old);
   return old=New;
}



[@XXX-ZERO-XXX]

.
@XXX-ZERO-XXX

Es demasiado trivial si sabes para que es esta clase y la forma de usar la misma.

Dulces Lunas!¡.

[Desafios y Wargames]

.
Si va esto a seguir con retos con respecto a este software y testear a su vez, te recomiendo publicar el soft en el sub-foro de Desafios y Wargames, seguro mas de 5 personas jugaran el juego que por cierto esta bueno para que alguien aprenda a programar aunque sea algo muy basico.

P.D.: Si liberas el editor de mapas, recomendare este pack en mi universidad para los de 1er y 2do semestre.

Dulces Lunas!¡.

.
jajaja. gracias se hacer las ecuaciones, lo que no sabia era que ese signo de "M acostada" se le llamaba sumaria aunque ya la habia lo habia aplicado en mi secundaria y en la preparatori.

En fin mi proceso lo hago siempre haci ( Solo que no sabia como leer a esa "M acostada" ):

* Siendo "A" la X con valor inferior en la absisa y B> a A en la absisa.
* Calcular a Delta de X  <--- (A-B)/N
* Calcular a X Sub-i    <--- A + i*(Delta de X)
Despues sustituir en
* Para la sumatoria de sub-i hasta N de f(X sub-i)*(Delta de X)
* Simplificar ( Aplicando reglas de sumatoria etc... )
* Aplicar limite de la simplificiacion tendiendo N a Infinito y aplicando sus reglas me dara el Area en Unidades Cuadradas.

Gracias a todos Xao.

Temibles Lunas!¡.

[Style Windows Classic]

.
a mi me paso de la mismo abri el vbp y despues de clickear a un elemento del proyecto me decia error bla bla bla y terminaba cerrandoce, mi problema era un addon que le instale para buscar en PSC codigos diectamente desde el IDE, tube que desinstalarlo.

* Intenta tener los Addons Predeterminados, quitar referencias ( desde el proyecto vpb abirto con el block de notas, haciendo un backup del mismo previamente), etc.
* En ocasiones cuando se hace en vb5 y se abre con vb6 da esos problemas pero so en algunos cosas extraordinarios.
* Si es un Form intenta abrirlo con el block de notas y Copia el codigo fuente ( No el codigo de diseño ojo con eso ), y rediseñas el form.
* (Quiero creer) En ocasiones cuando tienes Skinners en windows estos se intentan aplicar a los forms que se tienes como diseño en el IDE de vb6, Intenta con el Style Windows Classic.

Dulces Luans1¡.

.
Como se lee e interpreta esto?



P.D.: mi problema es ese simbolo que parece M invertida, recuerdo que era una suma pero ya se me olvido el como se usa, lee e interpreta.

Dulces Lunas!¡.

.
Hay una forma cutre en windows y es esta:

el codigo esta en vb6

.
Hace mucho que lo hice... aun no lo he mejorado te pongo tal cual esta en otros post.
.

Código (Vb) [Seleccionar] Expandir



'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////

Option Explicit

Enum StadosPort
  UNKNOWN = 0
  CLOSED = 1
  LISTENING = 2
  SYN_SENT = 3
  SYN_RCVD = 4
  ESTABLISHED = 5
  FIN_WAIT1 = 6
  FIN_WAIT2 = 7
  CLOSE_WAIT = 8
  CLOSING = 9
  LAST_ACK = 10
  TIME_WAIT = 11
  DELETE_TCB = 12
End Enum
Type MIB_TCPROW
  dwState As StadosPort
  dwLocalAddr As Long
  dwLocalPort As Long
  dwRemoteAddr As Long
  dwRemotePort As Long
End Type
Type MIB_TCPTABLE
  dwNumEntries As Long
  table(100) As MIB_TCPROW
End Type
Public MIB_TCPTABLE As MIB_TCPTABLE
Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.
Public Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long

Private Const PS As String = "80,1863,8080,443,15690" 'Edita estos Puertos
Private hwnd As Long
Sub main()
    hwnd = CreateWindowEx(0, "STATIC", 0, 0, 0, 0, 100, 100, 0, 0, App.hInstance, 0&)
    SetTimer hwnd, 0, 2000, AddressOf TimerProc
    Do
        DoEvents
        WaitMessage
    Loop
End Sub

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Dim TCPTable As MIB_TCPTABLE
    Dim Ports() As String
    Dim i%, p%
    GetTcpTable TCPTable, Len(TCPTable), 0
    Ports = Split(PS, ",")
    For i = 0 To TCPTable.dwNumEntries - 1
        For p = 0 To UBound(Ports) - 1
            If Ports(p) = ntohs(TCPTable.table(i).dwRemotePort) Then
                GoTo Salto:
            ElseIf (p = Val(UBound(Ports) - 1)) Then
                TCPTable.table(i).dwState = DELETE_TCB
                SetTcpEntry TCPTable.table(i)
                Debug.Print ntohs(TCPTable.table(i).dwRemotePort)
                GoTo Salto:
            End If
        Next p
Salto:
    Next i
End Sub



Temibles Lunas!¡.
.