Mensajes

Mirate este ejemplo d eloq ue digo, es complicado hacer una resta como la quieres hacer...

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Type udtDouble
    value As Double
End Type

Private Type udtStr
    value As String * 8
End Type

Private Sub Form_Load()
Dim One     As udtDouble, _
    Two     As udtDouble, _
    Res     As udtDouble
Dim tStr    As udtStr


    tStr.value = "8"    '1000 0000
    LSet One = tStr
   
    tStr.value = "2"    '0010 0000
    LSet Two = tStr
   
    Res.value = (One.value - Two.value) ' 1000 0000 - 0010 0000 = 11000000 = (192 >> 4) = 12
    LSet tStr = Res

    Debug.Print tStr.value '= 192
    Debug.Print Asc(tStr.value) '= 12
   
End Sub



Dulces Lunas!¡.

pues...

Para hacer la resta debes pasar los strings a numero... (Ni siquiera te acercas a los numeros de la string).

Al hacer el LSET lo que andas haciendo es que SOLO COPIAS los bytes tal cuales de un UDT a otro UDT, es decir que tan solo el string "6420" es el numero "9007336695791664", es decir un numero de 8 Bytes (Double)... asi que la operacion matematica que tu planteas esta alocada...

Cada caracter de una string son 2 bytes es decir que en un tipo long solo caben dos caracteres... aun que esto creo que ya lo sabes por que en el UDT tStr creas un buffer adecuado a el UDT cD.

El metodo es mas complicado aun (Debes crear una funcion que sume).

Dulces Lunas!¡.

.
Esta mal ese trato de flags...(Me dio un sape 79137913) esta bien la operacion de bits,

* Se igualan a los flags con los que se realizan las operaciones en algunos casos...

la suma no se hace como normalmente se hace... se hace de manera binaria...

0000 0000 0000 0001 = Battery charge status: High
0000 0000 0000 0010 = Battery charge status: Low
0000 0000 0000 0100 = Battery charge status: Critical
0000 0000 0000 1000 = Battery charge status: Charging
0000 0000 1000 0000 = Battery charge status: No system battery
0000 0000 1111 1111 = Battery charge status: Unknown Status

Operadores a nivel bit

es decir que si te da 9 es decir

0000 0000 0000 1001 = 9

es por esto:

0000 0000 0000 0001 = Battery charge status: High
0000 0000 0000 1000 = Battery charge status: Charging

Código (vb) [Seleccionar] Expandir



Private Type SYSTEM_POWER_STATUS
       ACLineStatus As Byte
       BatteryFlag As Byte
       BatteryLifePercent As Byte
       Reserved1 As Byte
       BatteryLifeTime As Long
       BatteryFullLifeTime As Long
End Type
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Sub Form_Paint()
   'KPD-Team 2000
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Hotmail.com
   Dim SPS As SYSTEM_POWER_STATUS
   'get the battery powerstatus
   GetSystemPowerStatus SPS
   Me.AutoRedraw = True
   'show some information
   Select Case SPS.ACLineStatus
       Case 0
           Me.Print "AC power status: Offline"
       Case 1
           Me.Print "AC power status: OnLine"
       Case 2
           Me.Print "AC power status: Unknown"
   End Select

   ' Ya que se tratan de flags, se omiten los else a cada if ... then
   If (SPS.BatteryFlag And &H1) = &H1 Then Me.Print "Battery charge status: High"
   If (SPS.BatteryFlag And &H2) = &H2 Then Me.Print "Battery charge status: Low"
   If (SPS.BatteryFlag And &H4) = &H4 Then Me.Print "Battery charge status: Critical"
   If (SPS.BatteryFlag And &H8) = &H8 Then Me.Print "Battery charge status: Charging"
   If (SPS.BatteryFlag And &H80) = &H80 Then Me.Print "Battery charge status: No system battery"
   If (SPS.BatteryFlag And &HFF) = &HFF Then Me.Print "Battery charge status: Unknown Status"
End Sub



Dulces Lunas!¡.

[Frog cheat]

.
Debes transladar las coordenadas X,Y del Punto deseado de la ventana a coordenadas globales, usando el API GetWindowRect, despues con u timer + getpixel() verificas el color.

Nota: El Frog cheat solo dibuja un CrossHair en el DC del Desktop.

Dulces Lunas!¡.

.

Código (vbnet) [Seleccionar] Expandir



If rbtnadmin.Checked and txtpass.Text = USER_ADMIN then
    if (txtpass.Text = USER_ADMIN_PASS) then
        'lo que tenga que ver con el USER_ADMIN, por ejemplo mostrar un Form.
        'Podemos aqui habilitar mas opciones o que se yo.
        return ' Creo que era return...
    end if
else
    if (txtpass.Text = USER_NOMARL_PASS and txtpass.Text = USER_NORMAL) then
        'lo que tenga que ver con USER_NORMAL, por ejemplo mostrar un form
        'Podemos aqui deshabilitar mas opciones o que se yo.
        return ' Creo que era return...
    end if
end if

'MsgBox "Contraseña Incorrecta, vuelva a intentar" ' mejor usar messagebox
MessageBox.Show("Contraseña Incorrecta, vuelva a intentar", "!¡")



@Elemental Code
Parece mas codigo de vbs que pseudocodigo.

Dulces Lunas!¡.

lo mas cutre seria generar un array de longitud a-z y llevar en este el conteo de cada caracter...

//'z' - 'a' = 25
int iAZCount[25];
//memset( iAZCount, 0, sizeof(int) * 25);
//memset( iAZCount, 0, 25<<((sizeof(int)>>1 & 0xff)));
memset( iAZCount, 0, 100);
... Tu codigo de contar, vas sumando 1 a cada indice...
... Recorres el iAZCount y verificas los que son > 3.
...

Dulces Lunas!¡.

.
Yo lo conozco el caso Base como caso de termino. donde el stack deja de aumentar y se empiesan a retornar los resultados (Similar al BackTracking pero la recursividad esta mas ligada al Stack).

Igual y es un error de terminos.

Dulces Lunas!¡.

@Randomize

Iluminanos, queremos ver a los demas por sus camaras por medio del msn!¡.

Dulces Lunas!¡.

jajajaja que chapuza, eso esatara bueno para hacer bromas mas que para otra cosa xP

Dulces Lunas!¡.

#include <cstdio> = C++
#include <stdio.h> = C

Dulces Lunas!¡.