Pantallazos de ejercicios ejercicios 1 y 2

[fraktal]

Se puede copiar y pegar desde un pdf, al menos si tienes la version de Adobe original, quiero decir no el Acrobar Reader, que es el gratuito y solo sirve para leer. Si tiene la version de Adobe Acrobat que sirve para crear pdf, y unir etc, con esasi puedes seleccionar texto.
S2.

[sp26]

En acrobat reader tambien se puede copiar y pegas ¬¬

[Adri58]

He hecho el ejercicio 2  y funciona bien pero tengo 2 dudas:
1-como se hace lo de la fecha
2-como se hace para rellenar con 0\\\\\\\'s
aquí te pongo mi código(no se pasa que aparecen barras por todas partes(pero la sintaxis está bien))

Código [Seleccionar] Expandir


Function Comprobar() As Boolean
    Dim guion As String, espacio As String, contenido As String
    Dim SinGuionSinEsp As Boolean
\\\'guardamos en las variables si existen o guiones o espacios
\\\\\\\'si es distinto de 0 es que SI existe(el numero nos dice la posicion)
    guion = InStr(txttlf.Text, \\\"-\\\")
    espacio = InStr(txttlf.Text, \\\" \\\")
\\\'en la variable SinNumSinEsp decimos si tienen o guiones o espacios
    If guion = 0 And espacio = 0 Then
        SinGuionSinEsp = True
    Else
        SinGuionSinEsp = False
    End If
\\\'si no tiene ni guiones ni espacios comprobamos si es numerico
    If SinNumSinEsp = True Then
        If IsNumeric(txttlf.Text) = True Then
            Comprobar = True
        Else
            MsgBox \\\"en telefono solo pueden ir max 12 caracteres numericos. TAmbien se admiten - y espacio\\\"
        End If
    Else
\\\'si no es numerico guardamos en una variable nueva la cadena sin espacios ni guiones(para que funcione el isnumeric)
        On Error Resume Next
        contenido = Replace(txttlf.Text,\\\"-\\\", \\\"\\\")
        On Error Resume Next
        contenido = Replace(contenido, txttlf.Text, \\\" \\\", \\\"\\\")
        If IsNumeric(contenido) = True Then
            Comprobar = True
        Else
            MsgBox \\\"en telefono solo pueden ir max 12 caracteres numericos. TAmbien se admiten - y espacio\\\"
        End If
    End If
End Function
Private Sub cmdAceptar_Click()
    Dim comprobacion As Boolean
    If Len(txtNombre.Text) <= 50 And Len(txtApe1.Text) <= 50 And Len(txtApe2.Text) <= 50 Then
        If Len(txtDireccion.Text) <= 50 Then
            If Len(txtPobla.Text) <= 20 Then
                If IsNumeric(txtCodPostal.Text) = True And Len(txtCodPostal.Text) = 5 Then
                    comprobacion = Comprobar
                    If comprobacion = True Then
                        If txtFNa.Text Like \\\"##-##-####\\\" Then \\\'esto no está del todo bien porque lo del año bisiesto no se como va
                            If txtDni.Text Like \\\"########-[A-Z]\\\" Then \\\'8 numeros,guion y una letra entre la A y la Z(mayusculas)
                                If txtCuenta.Text Like \\\"####-####-##-##########\\\" Then MsgBox \\\"DATOS CORRECTOS\\\"
                            Else
                                MsgBox \\\"DNI: 8 Numeros, guion y letra en MAYUSCULAS\\\"
                            End If
                        Else
                            MsgBox \\\"LA FECHA tiene que tener el fomato dd-mm-aaaa\\\"
                        End If
                    End If
                Else
                    MsgBox \\\"Cod Postal 5 numeros\\\"
                End If
            Else
                MsgBox \\\"poblacion max 20 caracteres\\\"
            End If
        Else
            MsgBox \\\"dIRECCION TIENE QUE TENER MAX 50 caracteres\\\"
        End If
    Else
        MsgBox \\\"Nombre,Apellido1 y Apellido2 tienen que tener max 50 caracteres\\\"
    End If
End Sub


[the_hacker_tlc]

hola a todos soy un poco novato en vb y si no os importa, kisieran que me explicaran porfavor a realizar el ejercicio numero 1 este de aki.

Gracias

[lieberman]

AMI ME JALO CON EL SIGUIENTE CODIGO DENTRO DEL COMMANBUTTON Y TENIENDO UN LIST BOX

For i = 1 To 5
' tabla(i) = (Int(num * Rnd) + 1)
' Next i
 

'Do While tabla(1) = tabla(2) Or tabla(1) = tabla(3) Or tabla(1) = tabla(4) Or tabla(1) = tabla(5)
'    tabla(1) = (Int(num * Rnd) + 1)
'    Loop

'Do While tabla(2) = tabla(1) Or tabla(2) = tabla(3) Or tabla(2) = tabla(4) Or tabla(2) = tabla(5)
'    tabla(2) = (Int(num * Rnd) + 1)
'    Loop

'Do While tabla(3) = tabla(1) Or tabla(3) = tabla(2) Or tabla(3) = tabla(4) Or tabla(3) = tabla(5)
'    tabla(3) = (Int(num * Rnd) + 1)
'    Loop


'Do While tabla(4) = tabla(1) Or tabla(4) = tabla(2) Or tabla(4) = tabla(3) Or tabla(4) = tabla(5)
'    tabla(4) = (Int(num * Rnd) + 1)
'    Loop

'Do While tabla(5) = tabla(1) Or tabla(5) = tabla(2) Or tabla(5) = tabla(3) Or tabla(5) = tabla(4)
'    tabla(2) = (Int(num * Rnd) + 1)
'   Loop

For m = 1 To Num
Lista.AddItem tabla(m)
Next m

[nidia]

hola alguien sabe de programacion que me pueda ayudar porfavor

dejo mi correo nidiaxa@hotmail.com ojala me agregen los que sepan de visual basic bueno eso era adios

[bellido19]

alguien sabe como hacer los ejercicios del 1 al 6 por favor que los pase a la direccion bellido19@hotmail.com gracias

[juancho77]

Y donde estan los ejercicios? Que cosa es esta?

[tropialfred]

 

[Amerikano|Cls]

Que se creen estos 3????, por Dios