HOLA!!!

Como el titulo lo dice, para las regiones donde no funcionaba ImagesHack ya esta funcionando, solo hay que Registrarse o loguearse .

GRACIAS POR LEER!!!

HOLA!!!

Primero que nada, no me tomen para el chiste.

Voy a pedir algo sobre tecnologia obsoleta, casi arcaica...

Tengo mi commodore 128 guardada, y la quiero usar, aunque sea de terminal...

La verdad no se si sera capaz de crear una conexión con un Win XP, pero estaria genial.

Espero que alguien me pueda pasar algo de documentacion, puesto que no encuentro mucho en la web... se encuentran manuales de basic pero no llegan al uso de sockets, a lo sumo llegan a For - Next.

Por ahora es eso. Gracias.

GRACIAS POR LEER!!!

HOLA!!!

Me parece que va a estar bueno, el reto consiste en crear 3 funciones:
(Usa Long por la rapidez y para soportar numeros grandes)


Creo que mucho no hay que explicar las funciones deben devolver lo mismo que los operadores binarios convencionales.

P.D: Me habia olvidado... NotAlt(Byte1 As Long)
P.D2: Creo que es obvio, no se pueden usar los operadores en las funciones.
P.D3:Para los que no saben como funcionan los operadores binarios:

GRACIAS POR LEER!!!

HOLA!!!

Antes que nada, el codigo esta un poco desordenado pero funciona perfect.

El programa es perfecto para cuando uno no quiere que accedan a la pc mientras uno no esta.

Posee Calculadora integrada, Calendario y Tetris

Si la pc se reinicia, el Programa al iniciar sesion se activa nuevamente.
Bloquea el administrador de tareas.
Queda "Always on top"
Te dice la fecha y la hora.

Metodos para Anularlo, bueno simple, entrar en modo a prueba de fallos y borrar o mover el exe. (o borrar el .bat que se crea en la carpeta inico).

Una captura:



Atencion:

Como cerrarlo?

En el campo Nota1 poner el numero de dia en los primeros 2 caracteres
En el campo Nota2 poner el numero de mes en los primeros 2 caracteres
En el campo Nota3 poner el numero de año en los primeros 4 caracteres
(en el caso del mes y el dia , si son menores a 10 habra que poner un 0 antes del numero)

Ahi el boton salir funcionara...

Presionamos salir (dblclick)

Y en contraseña ponemos la hora y los minutos seguidos de "7913"

Presionamos salir y listo.

Descargar URL:
http://www.mediafire.com/?bmy8nwa3gbm053z

GRACIAS POR LEER!!!

HOLA!!!

Tengo una pequeña duda, hay posibilidades de "animar" los iFrames de tal manera que aparezcan* en x tiempo y desaparezcan* a los y segundos de aparecidos?

El iFrame contendria: http://Http://www.chalecosmdq.com.ar/clima/index.php

*Al decir aparezcan y desaparezcan me refiero a algun tipo de bucle temporal que vaya modificando el alfa del iframe.

GRACIAS POR LEER!!!

HOLA!!!

Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.

Private Sub Form_Load()
Dim hola() As String
hola = CharSplit7913("hola")
' Devuelve
' Hola(0) = "h"
' Hola(1) = "o"
' Hola(2) = "l"
' Hola(3) = "a"
End Sub
 
Private Function CharSplit7913(expression As String) As String()
    Dim X        As Long
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
 
    ExpB = expression
    lExp = UBound(ExpB)
    ReDim AuxArr(lExp)
 
    For X = 0 To lExp Step 2
        AuxArr(X / 2) = ChrW$(ExpB(X))
    Next
 
    ReDim Preserve AuxArr(lExp \ 2)
 
    CharSplit7913 = AuxArr
 
End Function

GRACIAS POR LEER!!!

HOLA!!!

Hoy queria hacer un split que devuelva un array con varios delimitadores y aparte tenga la opcion de guardar el delimitador... en fin... hice esta funcion, espero que les sirva.

Antes que el codigo Ejemplo:

Private Sub Ejemplo()
Dim dels(3) As String
Dim result() As String
Const ss As String = "hola+como--andas(((esto====es+una--prueba"
    dels(0) = "+"
    dels(1) = "--"
    dels(2) = "((("
    dels(3) = "===="
 
    'sin preservar delimitadores
    result = MultiSplit7913(ss, dels, False)
    'result = ("hola";"como";"andas";"esto";"es";"una";"prueba")
 
    'preservando delimitadores
    result = MultiSplit7913(ss, dels, True)
    'result = ("hola";"+como";"--andas";"(((esto";"====es";"+una";"--prueba")
End Sub

El Codigo

Private Function MultiSplit7913(expression As String, Delimiter() As String, PreserveDel As Boolean) As String()
Dim DelCount    As Long
Dim lExp        As Long
Dim X           As Long
Dim Pos         As Long
Dim DelPos()    As Long
Dim AuxArr()    As String
Dim LastPos     As Long
Dim LastLen     As Long
Dim LastInstr   As Long
 
    expression = expression & Delimiter(0)
    lExp = Len(expression)
    DelCount = UBound(Delimiter)
    ReDim DelPos(lExp)
 
    For X = 0 To DelCount
        Pos = 1
        LastInstr = InStr(Pos, expression, Delimiter(X))
        Do While LastInstr <> 0
            DelPos(LastInstr) = X + 1
            Pos = LastInstr + Len(Delimiter(X)) + Pos
            LastInstr = InStr(Pos, expression, Delimiter(X))
        Loop
    Next
 
    ReDim AuxArr(0)
 
    LastPos = 1
 
    For X = 0 To lExp
        If DelPos(X) <> 0 Then
            ReDim Preserve AuxArr(UBound(AuxArr) + 1)
            If PreserveDel Then
                AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos, X - LastPos)
            Else
                AuxArr(UBound(AuxArr) - 1) = Mid$(expression, LastPos + LastLen, X - LastPos - LastLen)
                LastLen = Len(Delimiter(DelPos(X) - 1))
            End If
            LastPos = X
        End If
    Next
 
    ReDim Preserve AuxArr(UBound(AuxArr) - 1)
 
    MultiSplit7913 = AuxArr
 
End Function
 

GRACIAS POR LEER!!!

HOLA!!!

Ya se que el tema esta super tratado, pero no pude encontrar nada al respecto que me solucione el tema, y cuando lo encontraba los links estaban caidos o el soft traia "regalitos" ... espero ayuda ...

Dejo la cadena...
(Pff, supongo que me lo van a mover)

GRACIAS POR LEER!!!

HOLA!!!

Bueno, hoy intentando hacer una interfaz totalmente pintada intente hacer unas lineas en escala de grises, pero no se que numeros corresponden a los grises... :S

Yo pensaba que conseguia grises haciendo n*n*n y me daba un long correspondiente a un punto de la escala de grises, me pueden pasar como calcular esta Escala PLZ.

Me.Line (0, Y)-(Me.ScaleWidth, Y), GRIS

Solucion: usar funcion RGB XD

GRACIAS POR LEER!!!

HOLA!!!

No se si en este subforo corresponde tambien animacion, pero espero que si...

Me pidieron que arme una animacion para el clima (para un canal de TV) pero el tema es que quieren una animacion en 3D y que despues salga el reporte del clima...

Osea Una Intro en 3D, despues el reporte del clima con dibujitos en 3d y con movimiento y despues un cierre en 3D.

Yo lo que hice ya es el reporte del clima en Flash, pero las animaciones en 3D que puedo hacer en flash :S no me gustan... Por eso pense en hacer un video para la intro y el cierre con otro soft y despues subirlo al flash...

En definitiva quiero saber que software me recomiendan para hacer la animacion en 3D.

GRACIAS POR LEER!!!