visita la sección de electronica, ahi hay un hilo bastante extenso y bien documentado sobre lo que pides... saludos
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úChr30 dt 0x03E, 0x051, 0x049, 0x045, 0x03E ; '0'
Chr31 dt 0x000, 0x042, 0x07F, 0x040, 0x000 ; '1'
Chr32 dt 0x042, 0x061, 0x051, 0x049, 0x046 ; '2'
Chr33 dt 0x021, 0x041, 0x045, 0x04B, 0x031 ; '3'
Chr34 dt 0x018, 0x014, 0x012, 0x07F, 0x010 ; '4'
Chr35 dt 0x027, 0x045, 0x045, 0x045, 0x039 ; '5'
Chr36 dt 0x03E, 0x049, 0x049, 0x049, 0x032 ; '6'
Chr37 dt 0x001, 0x071, 0x009, 0x005, 0x003 ; '7'
Chr38 dt 0x036, 0x049, 0x049, 0x049, 0x036 ; '8'
Chr39 dt 0x006, 0x049, 0x049, 0x029, 0x01E ; '9'
Chr3A dt 0x000, 0x036, 0x036, 0x000, 0x000 ; ':'
Chr3B dt 0x000, 0x056, 0x036, 0x000, 0x000 ; ';'
Chr3C dt 0x008, 0x014, 0x022, 0x041, 0x000 ; '<'
Chr3D dt 0x014, 0x014, 0x014, 0x014, 0x014 ; '='
Chr3E dt 0x000, 0x041, 0x022, 0x014, 0x008 ; '>'
Chr3F dt 0x002, 0x001, 0x051, 0x009, 0x006 ; '?'
Chr40 dt 0x03E, 0x041, 0x05D, 0x055, 0x01E ; '@'
Chr41 dt 0x07E, 0x011, 0x011, 0x011, 0x07E ; 'A'
Chr42 dt 0x07F, 0x049, 0x049, 0x049, 0x036 ; 'B'OOOOO
OOOOO
OOOOO
OOOOO
OOOOO
OOOOO
OOOOO
12345
1 OOOOO
2 OOOOO
3 O+++O
4 +OOO+
5 +++++
6 +OOOO
7 O+++O
;Algo asi es el prototipo:
Show "Mensaje", Tamaño mensaje, Velocidad de barrido
;Y para poner algo es asi:
Show "Syphroot", 8, .30
Citar
Dim szStr As String
Dim szSaca As String
Dim szNueva As String
Dim long1 As Long
Dim long2 As Long
Dim lPos As Long
szStr = "345&%$#26HOLA8)('¡"
szSaca = "HOLA"
long1 = Len(szSaca)
long2 = Len(szStr)
lPos = InStr(1, szStr, szSaca)
If lPos > 0 Then ' si hay ocurrencias
szNueva = Mid(szStr, lPos, long1)
Else
szNueva=""
End If