Mensajes

Esta Excelente Aprendí un par de cosas viendo el Source. Gracias. Lo voy a agregar a la colección si me lo permites y una cosa le arreglaría evitar de alguna manera que si yo escribo el numero a mano y el numero supera el valor máximo o minino ponga el max o el min según corresponda

Supongamos que a tu UC le asigno mínimo un "3" y Máximo un "6" si escribo manualmente 2 me lo cambie por un 3 y si escribo manualmente 10 me lo cambie por un 6 pero esto no se puede poner en el evento text_Change por que supongamos que el Max es 200 y el min "3" si escribo "100"  no me dejaría por que lo primero que haría es detectar el 1 bueno eso solo, lo único que se me ocurre en este momento es LostFocus() pero no se...

Gracias por compartir

Código (vb) [Seleccionar] Expandir


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


esta bien le faltaría que se anule si tardas mucho en apretar las teclas

Jaja que buena idea ahora me pongo a ver esto... ¿El Tuyo donde esta? jaja nadie le dio bola a este Reto

[Karcry]

Wooow Karcry, esta genial!

DoEvents!

Si es verdad Lo Termine de probar Esta excelente!! Murió mi Proyecto :S

Os recomiendo MZ-Tools, que ademas de tener la opcion de crear cabeceras tiene otras muchas cosas utiles

Código [Seleccionar] Expandir

http://www.mztools.com/v3/download_sp.aspx

Un saludo

No conocía ningún programa por el estilo. pero me imagine que habría alguno...  es mas pensé "Seguro alguien de foro tira un "Tenes X programa para hacer eso"...

Gracias Karcrack ahora lo Pruebo

Gracias Ranita, Lo de La Fecha se me había ocurrido ahora cuando lo retoque le agrego que el ancho varíe según el largo de la cadena mas larga así no es exageradamente grande, Jajaj no me di cuenta de lo de Title jaja. Después Voy a Chequear todo lo que me dijeron por que hay cosas que no conocía.

Gracias por Sus Recomendaciones y me alegro que te guste la idea

Hola Foro Como ahora estoy empezando a Hacer módulos y demás proyectos que voy a compartir dije ... "Tengo que ponerle mi marca, Como hacen Los chicos del foro..." así que para facilitarme la creación de estos me hice un programa que los Auto completa.... y lo comparto con Ustedes, por supuesto también el Source.

Se que el Código se puede reducir... pero Lo hice rapidito y sin pensarlo mucho, lo que mas me importaba era el resultado final, igual por supuesto siempre estoy abierto a criticas constructivas... sin mas Bla, Bla, Bla:

Descargar Ejecutable (SOLO "*.exe)

Descargar Source

                                                                                                                                                           
Solo mMakeHeader.bas:

Código (vb) [Seleccionar] Expandir


'////////////////////////////////////////////////////////////////////////////////////////////////////////'
'///                                                                                                  ///'
'///  º Tite:          mMakeHeader.bas                                                                ///'
'///  º Author:        agus0                                                                          ///'
'///  º Mail:          agus0@vbfree.com.ar                                                            ///'
'///  º Date:          17/12/10                                                                       ///'
'///  º Contributors:  -                                                                              ///'
'///  º Web:           www.agus0.com.ar & www.vbfree.com.ar                                           ///'
'///                                                                                                  ///'
'////////////////////////////////////////////////////////////////////////////////////////////////////////'

Option Explicit

Private Const cLine1 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cLine2 = "'///                                                                                                   ///'"
Private Const cLineT = "'///  º Tite:          TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  ///'"
Private Const cLineA = "'///  º Author:        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  ///'"
Private Const cLineM = "'///  º Mail:          MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  ///'"
Private Const cLineD = "'///  º Date:          DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ///'"
Private Const cLineC = "'///  º Contributors:  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  ///'"
Private Const cLineW = "'///  º Web:           WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW  ///'"
Private Const cLine3 = "'///                                                                                                   ///'"
Private Const cLine4 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cCadenaT = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Private Const cCadenaA = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Private Const cCadenaM = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Private Const cCadenaD = "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Private Const cCadenaC = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Private Const cCadenaW = "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"

Public Function MakeHeader(Titulo As String, Autor As String, Mail As String, Fecha As String, Ayuda As String, Web As String, Optional Style As String = "///", Optional Vig As String = "º") As Variant
    Dim Linea1, Linea2, LineaT, LineaA, LineaM, LineaD, LineaC, LineaW, Linea3, Linea4 As String
    Dim B As Integer
    Dim Space As String
    'Estilos:
    Linea1 = Replace(cLine1, "///", Style)
    Linea2 = Replace(cLine2, "///", Style)
    Linea3 = Replace(cLine3, "///", Style)
    Linea4 = Replace(cLine4, "///", Style)
    LineaT = Replace(cLineT, "º", Vig)
    LineaT = Replace(LineaT, "///", Style)
    LineaA = Replace(cLineA, "º", Vig)
    LineaA = Replace(LineaA, "///", Style)
    LineaM = Replace(cLineM, "º", Vig)
    LineaM = Replace(LineaM, "///", Style)
    LineaD = Replace(cLineD, "º", Vig)
    LineaD = Replace(LineaD, "///", Style)
    LineaC = Replace(cLineC, "º", Vig)
    LineaC = Replace(LineaC, "///", Style)
    LineaW = Replace(cLineW, "º", Vig)
    LineaW = Replace(LineaW, "///", Style)
    'Pasaje de Variables (Max Len 77)
    Titulo = Left(Titulo, 77)
    Autor = Left(Autor, 77)
    Mail = Left(Mail, 77)
    Fecha = Left(Fecha, 77)
    Ayuda = Left(Ayuda, 77)
    Web = Left(Web, 76)
    Space = ""
    For B = Len(Titulo) To 77
        Space = Space & " "
    Next B
    LineaT = Replace(LineaT, cCadenaT, Titulo & Space)
    Space = ""
    For B = Len(Autor) To 77
        Space = Space & " "
    Next B
    LineaA = Replace(LineaA, cCadenaA, Autor & Space)
    Space = ""
    For B = Len(Mail) To 77
        Space = Space & " "
    Next B
    LineaM = Replace(LineaM, cCadenaM, Mail & Space)
    Space = ""
    For B = Len(Fecha) To 77
        Space = Space & " "
    Next B
    LineaD = Replace(LineaD, cCadenaD, Fecha & Space)
    Space = ""
    For B = Len(Ayuda) To 77
        Space = Space & " "
    Next B
    LineaC = Replace(LineaC, cCadenaC, Ayuda & Space)
    Space = ""
    For B = Len(Web) To 77
        Space = Space & " "
    Next B
    LineaW = Replace(LineaW, cCadenaW, Web & Space)
    'Juntar
    MakeHeader = Linea1 & vbCrLf & Linea2 & vbCrLf & LineaT & vbCrLf & LineaA & vbCrLf & LineaM & vbCrLf & LineaD & vbCrLf & LineaC & vbCrLf & LineaW & vbCrLf & Linea3 & vbCrLf & Linea4 & vbCrLf
End Function



✗ Gracias ✗

Las DEMO no suelen hacer ni la mitad de funciones de una versión full o caducan a los 30 días tiempo muy insuficiente para probar programas como la suite de Adobe. No pagué ni voy a pagar ninguna licencia de Office puesto que tengo la versión de estudiantes full y gratis (con licencia).

Gracias a que pude probar Photoshop, Dreamweaver, Flash, InDesign etc piratas hoy día poseo la suit completa de Adobe pagada puesto que trabajo con ella. Si no la hubiese tenido pirata y hubiese trabajado con ella durante años sin pagar licencia hoy día no la tendría original para hacer mi trabajo.
Tampoco recomendaría programas como Adobe Audition si no los hubiese probado antes piratas. Gracias a eso cuando mi empresa necesitó un programa de edición de audio recomendé Adobe Audition y se compró puesto que iba a ser utilizado para realizar trabajos y por lo tanto con fines de lucro, quedaron bastante satisfechos con el programa, por lo tanto la piratería benefició a estas empresas. Gracias a mi buena experiencia usando esos programas he comprado al final algunos de sus productos.

Lo que tú no puedes pretender es que yo pague 200 euros para tener en mi casa una suite de adobe para empezar a trastear con páginas web y hacer mis primeros comienzos. Mis comienzos fueron con una suite pirata y gracias a eso hoy día tengo tanta experiencia usando estos programas y por ello los compré originales para trabajar, nunca hubiera ocurrido si no hubiese podido utilizarlos durante años para mi uso personal.

Y no me vengas diciendo que hay alternativas gratuitas porque ni Gimp le llega a la suela de los zapatos a photoshop ni tampoco hay ningún editor de páginas web de la calidad de Dreamweaver (en mi opinión). Además si quieres dedicarte a esto, no puedes pasarte años trabajando con Gimp por tu cuenta para cuando entres en una empresa te pongan Photoshop y no tengas ni idea de como funciona, obviamente un diseñador web sin ideas de Photoshop o Fireworks tiene muy pocas posibilidades de trabajar en una empresa que se dedique al diseño y para eso es necesario tener la suite de Adobe y no todo el mundo puede permitirse pagar una suite de 200€ con 15 años, que fue la edad a la que empecé yo a diseñar mis primeras páginas web.

Yo veo mal que las empresas, que ganan dinero a costa de estos programas los pirateen, puesto que los están usando con fines de lucro y por lo tanto están cometiendo un delito. Pero si tú en tu casa quieres quitarle los ojos rojos a una foto, o hacer un fotomontaje en Cancún me parece muy bien que piratees photoshop para hacerlo, porque Adobe no pierde nada y tú podrás trastear con el programa.

Tenes razón que piratear un programa para aprender esta bien, es mas creo que este tipo de programas debería ser gratis para usuarios normales y pago para las empresas como muchos programas (TemViewer por ejemplo). Lo que yo decía es desde el punto de viste de una empresa por supuesto. por que como bien tu ya dijiste, Prácticamente no habría gente que sepa usar el Photoshop por ende no tendría ventas...

No tengo ni idea de a qué te refieres.

Como ya hemos dicho varias veces, el programa que me he descargado no lo hubiera comprado de todas maneras. Lo descargo y lo uso gratis pero si no fuese así simplemente no lo usaría, por lo tanto no estás perdiendo nada. La mayoría del material que descargamos no lo hubiésemos comprado.

Para eso existen las DEMO, O después pagaste la licencia del "Ofice".... Por favor eso es solo una excussa