Mensajes

xD

[Urbe Tecnologica]

Weeee, eso mismo lo había dejado hace un par de días pero en python, no me había planetado hacerlo en VB

Urbe Tecnologica, a que le llamas "la inversa"?

yo vi un reto en indetectables.net y por aburrimiento lo hize ahora busco el tipo me interesa python xP

Dulces Lunas!¡

Bueno lo he arreglado para que no se quede parado tanto tiempo, el código esta en el primer post es el 3er código!¡.

Dulces Lunas1¡.

Lo que pasa es que win 7 consume mas recursos que XP asi de sencillo, igual hay otras cosas que involucren el uac o el antivirus pero no lo se

@Urbe Tecnologica

ami no me interesa si ganan o no $ la duda fue que cual es o cual seria el problema mas no que le hiciéramos el trabajo, ademas de que en este foro me parece que hay personas que ya tienen ing. lic post-grados etc y aun siguen ayudando mas no haciendo el trabajo ojo que es muy diferente, si hubiese sido este el caso me presento y se la mienta al autor ( Aun que siempre lo hago cuando piden o dan a entender que les hagan el trabajo un ejemplo aquel tipo que vine de youtube para que le diéramos el código de conexión a SQL Server, pero eso si que nadie de este foro es moso ojo )

Dulces Lunas!¡

ponle un DoEvents en los for next asi no se traba

en el post principal puse un código pero con do while

Dulces lunas!¡.

[Código ligeramente mejorado ya se se queda tanto tiempo muerto!¡.]

bueno andaba aburrido e hice el codigo para generar el triangulo de pascal

se nesesitan

2 textBox (textbox 2 en propiedad multilinea = true)
1 CommandButton

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////

Option Explicit

Public Function GenerateTrianglePascal(ByVal nLineas As Long) As String
On Error GoTo 1
Dim a                       As Long
Dim b                       As Long
Dim CelVar()                As Double
   If nLineas > 0 Then
       ReDim CelVar(nLineas, nLineas)
       For a = 1 To nLineas
           For b = 1 To a: DoEvents
               CelVar(a, b) = Val(IIf(b = 1, 1, Val(CelVar(a - 1, b - 1)) + Val(CelVar(a - 1, b))))
               GenerateTrianglePascal = GenerateTrianglePascal & CelVar(a, b) & IIf(Not b = a, String(3, " "), "")
           Next b
           If a <> nLineas Then GenerateTrianglePascal = GenerateTrianglePascal & vbCrLf
       Next a
1:      Erase CelVar
   End If
End Function

Private Sub Form_Load()
   Text2.Alignment = 2 '   //  Modo centralizado
End Sub

Private Sub Command1_Click()
   Text2.Text = GenerateTrianglePascal(Val(Text1.Text))
End Sub



con dowhile y doevents

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////

Option Explicit

Public Function GenerateTrianglePascal(ByVal nLineas As Long) As String
On Error GoTo 1
Dim a                           As Long
Dim b                           As Long
Dim CelVar()                    As Double
   If nLineas > 0 Then
       ReDim CelVar(nLineas, nLineas)
       a = 1: Do While a <= nLineas
           b = 1: Do While b <= a: DoEvents
               CelVar(a, b) = Val(IIf(b = 1, 1, Val(CelVar(a - 1, b - 1)) + Val(CelVar(a - 1, b))))
               GenerateTrianglePascal = GenerateTrianglePascal & CelVar(a, b) & IIf(Not b = a, String(2, " "), "")
           b = b + 1: Loop
           If a <> nLineas Then GenerateTrianglePascal = GenerateTrianglePascal & vbCrLf
       a = a + 1: Loop
1:      Erase CelVar
   End If
End Function

Private Sub Form_Load()
   Text2.Alignment = 2 '   //  Modo centralizado
End Sub

Private Sub Command1_Click()
   Text2.Text = GenerateTrianglePascal(Val(Text1.Text))
End Sub




Código ligeramente mejorado ya se se queda tanto tiempo muerto!¡.

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////

Option Explicit

Public Sub GenerateTrianglePascal(ByVal nLineas As Long, ByRef OutData As String)
'On Error GoTo 1
Dim a                       As Long
Dim b                       As Long
Dim Puntero                 As Long
Dim Longitud                As Long
Dim Temporal                As String
Dim CelVar()                As Double
Dim OutDataTemp             As String
Const KiloByte              As Long = 5120
   If nLineas > 0 Then
       ReDim CelVar(nLineas, nLineas)
       Puntero = 1
       OutDataTemp = Space(KiloByte)
       Temporal = Space(255)
       For a = 1 To nLineas
           For b = 1 To a: DoEvents
               CelVar(a, b) = Val(IIf(b = 1, 1, Val(CelVar(a - 1, b - 1)) + Val(CelVar(a - 1, b))))
               Temporal = CelVar(a, b) & IIf(a <> b, " ", "")
               Longitud = Len(Temporal)
               Mid(OutDataTemp, Puntero, Longitud) = Temporal
               Puntero = Puntero + Longitud
               If Puntero > KiloByte Then
                   OutData = OutData & OutDataTemp
                   OutDataTemp = Space(KiloByte)
                   Puntero = 2
               End If
           Next b
           If a <> nLineas Then
               Puntero = Puntero
               Mid(OutDataTemp, Puntero, 2) = vbCrLf
               Puntero = Puntero + 2
           End If
           Caption = a
       Next a
1:      Erase CelVar
   End If
   OutData = OutData & Trim$(OutDataTemp)
End Sub
Private Sub Form_Load()
   Text2.Alignment = 2 '   //  Modo centralizado
End Sub
Private Sub Command1_Click()
Dim datas                   As String
   Call GenerateTrianglePascal(Val(Text1.Text), datas)
   Text2.Text = datas
End Sub



la longitud de los números esta limitada por el buffer que solo le asigne 255 caracteres.

El limite de lineas es de 932 si es que no se aumentan los buffers de memoria


P.D.: El código en lugar de hacerle un redim a celvar(x,x) puede hacerse de esta forma Celver(1,x) pero decidí dejar los registros anteriores por si alguien deseaba hacerles cambios aun que de esta forma en la que lo deje gasta mas memoria ram en el modo celvar(1,x) no gastaría tanta pero tendría que estarse usando copymemori (API) para mover el de 1 a 0 y sacar los nuevos valores.



Dulces Lunas!¡

a se me olvidaba y centrar el formulario respecto a el monitor

Dulces Lunas!¡.

o mejor es obtener la resulucion maxima posible verificar si es posible redimencionar la resolucion en este monitor y si es asi mejor redimencionar la resolucion ma sno la del formulario y si la resolucion no es aguantada por el monitor actual entonces mandar un mensaje de incompatibilidad con el monitor respecto a las resoluciones adminisbles del monitor

aqui un enlace que demuestra como cambair las dichas resoluciones.

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-23.htm

Dulces Lunas!¡.

eso va en el data arrival y seria el pribmer dato a resivir

Código (vb) [Seleccionar] Expandir



dim datos as string
winsock1getdata datos, vbstring
select case split(data,"|")(0)
   case "login"
       if not split(datos,"|")(1) = "username" and split(datos,"|")(2) = "userpass" then
           winsock1.sendata "error en nombre de de usuario o contraseña"
       else
           call adduserToconnection
       end if
   case else
    '   //  Hay que verificar que este conectado este usuario para evitar que manden mensajes anónimos
       call mensajesblablabla
end select



Dulces Lunas!¡.

Aun que los parámetros también los puedes meter como recursos xP solo conviertes de alfanumérico a un array tipo byte y con puras ApIS lo puedes hacer!¡.

dulces lunas!¡.