Mensajes

Creo que es relativo y depende que programaras. pero al saber lo básico suma,resta multiplicación, potencia etc. se logra mucho. también la matemática te da mucha lógica que es una de las cosas principales en la programación. creo que deberías programar y intentar hacer cosas luego tu mismo te darás cuenta que matemáticas necesitas.

digo que es relativo porque si programaras algún software de contabilidad no necesitas saber mucha geométricas. y no esta de mas saber matemáticas. que buen programador no las sabe.  


PD:
de igual manera que alguien con mas experiencia hable. yo simplemente soy un bachiller.

saludos

así obtenías el código Ascii. Asc(vbTab)


saludos

pues pone una dos condición dentro del while


if edad>=18 and  edad<29:
cont=cout+1

y para saber  si vas a imprimir

if cont = 4 :
print "imprimo"


saludos

["@" "\" "/"]

Pues como dices no hay mucho sobre lo que pides solo MSDN   


Bueno me puse a leer un poco en MSDN y te arme un ejemplo:

Código (vb) [Seleccionar] Expandir

'Constantes para las teclas y otros
 
Const KEYEVENTF_KEYUP = &H2
Const VK_LMENU = &HA4   'Alt Izquierdo
Const VK_RMENU = &HA5   'Alt Derecho
Const VK_NUMPAD6 = &H66 '6
Const VK_NUMPAD4 = &H64 '4
Const VK_LSHIFT = &HA0  'Shift Izquierdo
Const VK_NUM7 = &H37    'Numero 7  Barra de división "/"
Const VK_OEM_5 = &HDC   'Barra inversa \


Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyW" (ByVal wCode As Long, ByVal wMapType As Long) As Long
 
 
 

 
Private Sub Command1_Click()
Text1.SetFocus

'Enviar @ Arroba
Call keybd_event(VK_LMENU, MapVirtualKey(VK_LMENU, 0), 0, 0)
Call keybd_event(VK_NUMPAD6, MapVirtualKey(VK_NUMPAD6, 0), 0, 0)
Call keybd_event(VK_NUMPAD4, MapVirtualKey(VK_NUMPAD4, 0), 0, 0)
Call keybd_event(VK_NUMPAD6, MapVirtualKey(VK_NUMPAD6, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_NUMPAD4, MapVirtualKey(VK_NUMPAD4, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_LMENU, MapVirtualKey(VK_LMENU, 0), KEYEVENTF_KEYUP, 0)


'Enviar / Barra de division
Call keybd_event(VK_LSHIFT, MapVirtualKey(VK_LSHIFT, 0), 0, 0)
Call keybd_event(VK_NUM7, MapVirtualKey(VK_NUM7, 0), 0, 0)
Call keybd_event(VK_NUM7, MapVirtualKey(VK_NUM7, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_LSHIFT, MapVirtualKey(VK_LSHIFT, 0), KEYEVENTF_KEYUP, 0)


'Enviar \ Barra inversa
Call keybd_event(VK_RMENU, MapVirtualKey(VK_RMENU, 0), 0, 0)
Call keybd_event(VK_OEM_5, MapVirtualKey(VK_OEM_5, 0), 0, 0)
Call keybd_event(VK_OEM_5, MapVirtualKey(VK_OEM_5, 0), KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_RMENU, MapVirtualKey(VK_RMENU, 0), KEYEVENTF_KEYUP, 0)


End Sub



Espero te sriva de algo. te dejo solo enviando "@"  "\"  "/" es cuestion de ver las VirtualKey correspondiente para armas los otros. saludos

cuando dije deformas no lo dije en mal sentido (por si lo tomaste a mal)


y gracias por la función realmente es muy útil.

saludos sietenueveunotressietenueveunotres(79137913) 

podrías usar sendkeys

SendKeys "%" & Chr(64)


saludos

Ese array quedaría como cadena ASCII en memoria. Si intercalas un byte nulo entre cada carácter sería UNICODE.

@Karcrack me refiero a este que coloca 79137913 seria UNICODE. no ASCII.

Código (vb) [Seleccionar] Expandir

'esta seria ASCII
   cadenaASCII(0) = Asc("H")
   cadenaASCII(1) = 0
   cadenaASCII(2) = Asc("o")
   cadenaASCII(3) = 0
   cadenaASCII(4) = Asc("l")
   cadenaASCII(5) = 0
   cadenaASCII(6) = Asc("a")
   cadenaASCII(7) = 0
   cadenaASCII(8) = 0
   cadenaASCII(9) = 0
?


@79137913  ya entendí el propósito de la función esta muy buena.

entonces si usas GetModuleFileNameW ya sabes que el carácter sera unicode. así diga "hola"  o "Unicode ▀gpj"

básicamente lo que haces es deformar la cadena unicode. porque le estas quitando el segundo byte. aunque igual el vb6 le seguirá agregando el byte nulo automáticamente(exepto en el caracter unicode 8238 q lo estas convirtiendo en "R") porque Aux sigue siendo de tipo string.


saludos

@ ahora si me confundí :S

Código (vb) [Seleccionar] Expandir

'esta seria ASCII
   cadenaASCII(0) = Asc("H")
   cadenaASCII(1) = 0
   cadenaASCII(2) = Asc("o")
   cadenaASCII(3) = 0
   cadenaASCII(4) = Asc("l")
   cadenaASCII(5) = 0
   cadenaASCII(6) = Asc("a")
   cadenaASCII(7) = 0
   cadenaASCII(8) = 0
   cadenaASCII(9) = 0

me parece que de esa forma se structura las cadenas unicode 2 byte por carácter y en Ascii un byte por carácter. o no ?


@Karcrack por eso digo que esta byte array quedaria en memoria como una cadena unicode o no?

Yo lo veo de esta forma a ver si estoy correcto. seria ASCII si es un byte array

Código (vb) [Seleccionar] Expandir

Dim cadenaASCII(4) As Byte
Dim cadenaUnicode As String

'esta seria ASCII
cadenaASCII(0) = Asc("H")
cadenaASCII(1) = Asc("o")
cadenaASCII(2) = Asc("l")
cadenaASCII(3) = Asc("a")
cadenaASCII(4) = 0
'esta seria Unicode
cadenaUnicode = "Hola" ' con doble terminacion nula.


corrijanme si me equivoco
saludos

el lindo python

Código (python) [Seleccionar] Expandir

import os
from fnmatch import fnmatch

root = "C:\\"
pattern = "*.exe"

for path, subdirs, files in os.walk(root):
    for name in files:
        if fnmatch(name, pattern):
            print os.path.join(path, name)



saludos