HOLA!!!

Bueno, mas que nada lo que les pido es que entren a la pagina y pongan un simple "ME GUSTA" XD

Gracias!

http://www.facebook.com/pages/Carteras-Importadas/199210443460355?sk=wall

GRACIAS POR LEER!!!

HOLA!!!

Les comento, soy medio amateur con el tema de la electronica, he hecho circuitos pero siempre con simuladores y demas.

Quisiera saber si alguien tiene algun circuito para manejar Reles por LPT, me comentaron de los optocopladores, pero, pregunto estos que voltaje y amperaje resisten?

Por que a mi parecer con optocopladores no requiero mas que el voltaje del puerto paralelo pero si quiero habilitar una linea de corriente de 220v voy mal ...

Habia pensado hacer que con los 1 del puerto se activaran los optocopladores y que estos habiliten a su ves a los Reles, me entienden?

D¡sculpen por mi mala redaccion, tengo las ideas mezcladas XD.

GRACIAS POR LEER!!!

HOLA!!!

(Se en que programar y lo que me gusta, solo para saber la opinión de la gente del foro)

Quisiera que pusieran su opinión sobre cual les parece mejor en estos aspectos:

1- Velocidad de Desarrollo.
2- Velocidad de Proceso.
3- Re utilización de Codigos.
4- Modelo Mental (cual les parece que enseña a pensar mejor)
5- Modelo Mental (cual les parece que requiere pensar mas)
6- Envergadura de Proyecto (cual les parece mejor para proyectos GRANDES)
7- Eficiencia en uso de Memoria y procesador.
8- Facilidad de lectura del codigo.
9- Organizacion de codigo.
10- Su opinion y eleccion Personal.

GRACIAS POR LEER!!!

HOLA!!!

Como lo dice el titulo, agrega un scrollbar horizontal al ListBox, yo la usaria con Call, pero le puse para que devolviera false en el caso que no resultara.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Function HListScroll7913Add(ListX As ListBox) As Boolean
On Error GoTo Err:
Dim X As Long
Dim new_len As Long
Dim max_len As Long
    HListScrollAdd7913 = True
    For X = 0 To ListX.ListCount - 1
        new_len = 10 + ScaleX(TextWidth(ListX.List(X)), ScaleMode, vbPixels)
        If max_len < new_len Then max_len = new_len
    Next
    SendMessage ListX.hwnd, &H194, max_len, 0
Err:
    HListScrollAdd7913 = False
End Function

GRACIAS POR LEER!!!

HOLA!!!

Estoy buscando algún tipo de ide para programar en android 2.2 (en una tablet pc) conocen algo? Se me hace dificil encontrar :S, que compile y permita debug. Espero que me puedan ayudar, no importa mucho el lenguaje, preferiblemente vb,c#,delphi/pascal o Java.

Aclaro por si no se entendió, no quiero programar para una tablet, quiero programar en la tablet.

GRANIAS POR LEER!!!

HOLA!!!

Estaba viendo Sources de mi biblioteca (virtual), y encontre uno que hacia letras 3D (medio cutre el codigo pero bueno) lo edite y hace letras 3D con diferentes orientaciones, soporta cambio de colores, fuentes tamaños y orientacion.

Las letras salen muy coloridas por la funcion ABS cambien ahi y pierden los colores Flasheros.

Nota, la Funcion la llaman con Call.

Una Imagen (letra arial color 90,200,30):


Source:

Private Function Letras3D7913(Pic As PictureBox, Frase As String, Red As Long, Green As Long, Blue As Long, Optional Orientacion As Boolean = True, Optional Tamaño As Long = 25, Optional Fuente As String = "Arial")
Dim x As Long
    Pic.FontName = Fuente
    Pic.FontSize = Tamaño
    For x = 255 To 1 Step -1
        Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
        If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
        If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
        Pic.Print Frase
    Next x
End Function

Nota: La funcion original no tenia autor aparentemente, al que lo hizo gracias!

GRACIAS POR LEER!!!

HOLA!!!

Hay alguien de Mar del Plata aca en el foro?

GRACIAS POR LEER!!!

HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos, pero al trabajar con strings anda lento. Igual funciona bastante bienn .

Siguiendo... les dejo una captura, el source y el binario.

Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona .

Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
Const Num As String = "0123456789"                   'Numeros
Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
Dim Cad As String                                    'Cadena entera de caracteres
Dim X As Long                                        'Para los Bucles
 
Private Sub Inicio()
Dim Letras() As String
Dim Posiciones() As Long
Dim Palabras() As String
Dim a As Long
Dim CT As Long
Dim CantPos As Long
Dim CantLet As Long
    Letras = CharSplit7913(Cad)
    CantLet = UBound(Letras)
    Open "C:\Dic7913.txt" For Output As #1
    Close #1
    ReDim Palabras(1000)
    For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
        CantPos = MinMaxL(0) + a - 1
        ReDim Posiciones(CantPos)
        Do
        For X = 0 To CantPos
            Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
        Next
        CT = CT + 1
        Posiciones(0) = Posiciones(0) + 1
        For X = 0 To CantPos - 1
            If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
        Next
        If CT = 1001 Then
            Open "C:\Dic7913.txt" For Append As #1
                For X = 0 To 1000
                    Print #1, Palabras(X)
                Next
            Close #1
            ReDim Palabras(1000)
            CT = 0
        End If
        If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
        Loop
Terminado:
    Next
    If CT <> 0 Then
        Open "C:\Dic7913.txt" For Append As #1
            For X = 0 To CT
                Print #1, Palabras(X)
            Next
        Close #1
        CT = 0
    End If
    MsgBox "Terminado", vbInformation, "Atencion"
End Sub
 
Private Sub Caracteres_Click(Index As Integer)
    'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
    If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
End Sub
 
Private Sub Go_Click()
Dim FlagCheck As Boolean
    'Comprobacion de los minimos y maximos de longitud
    If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
    If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
    'Comprobacion de los checkboxes, minimo uno debe estar tildado
    For X = 0 To 6
        If Caracteres(X).Value = 1 Then FlagCheck = True
    Next
    If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
    Cad = vbNullString 'Vacio el string Cad por si estaba lleno
    'Lleno cad con la seleccion del usuario
    If Caracteres(0).Value = 1 Then Cad = Num
    If Caracteres(1).Value = 1 Then Cad = Cad & Sym
    If Caracteres(2).Value = 1 Then Cad = Cad & Min
    If Caracteres(3).Value = 1 Then Cad = Cad & Max
    If Caracteres(4).Value = 1 Then Cad = Cad & SpL
    If Caracteres(5).Value = 1 Then Cad = Cad & SpU
    If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
    MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
    Call Inicio ' llamo al inicio de proceso
End Sub
 
Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
End Sub
 
Private Function CharSplit7913(expression As String) As String()
    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(Int(lExp / 2))
    CharSplit7913 = AuxArr
End Function
 

Descargar Source y Binario:
Mediafire

GRACIAS POR LEER!!!

HOLA!!!

Quiero comprar una MicroPc pero la verdad no quiero pagar de mas ni que me vendan gato por liebre...

Esta es la que vi, sale USD 157 pero tiene 256 de ram :S eso no me convence... igual no quiero muuuucha ram con 512 estaria perfecto

Si saben de otras MiniPc Buenas que no superen los USD 200 Me avisan Plz.

Mas que nada mi duda es que dice "FanLess" osea supongo que no tiene ventiladores por lo cual puede que se recaliente no?

Despues no dice nada de Wifi pero eso se soluciona con un usb y chau.

Les dejo las especificaciones:



GRACIAS POR LEER!!!

HOLA!!!

Seguramente es de distraido, pero no me permite compilar por que... bueno lo que dice el titulo... debe ser por despistado, pero lei 4 veces el codigo y no encuentro el problema... les dejo el codigo a ver si saben por que .


Mod: Solucionado

GRACIAS POR LEER!!!