Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » Ayuda con 6 programas

Visual Basic para Aplicaciones - Ayuda con 6 programas

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con 6 programas

Publicado por Ana (8 intervenciones) el 02/03/2015 23:25:24
Se que es demasiado pedir, pero ME URGEN.... soy muy novata el este tema de VBA y mi profesor va demasiado rápido... necesito apoyo en verdad pues no es mi especialidad y es una materia que solo cursare por UNICA vez...

2. Programa que invierta las palabras de una frase dada, pero no su orden de aparición.
3. Programa que diga cuantas palabras de cada tamaño n= 1…20 tiene una frase dada.
4. Programa que convierta una hora dada a formato de texto (3:25 -> Son las tres veinticinco a.m.).
6. Programa que corrija automáticamente una frase agregando acentos a las palabras que terminen en ‘ion’ (camión, avión, raton, evolución, desilusión, etc.).
7. Programa que cambie las mayúsculas por minúsculas y viceversa en una frase dada.
9. Programa que diga cuántos diptongos hay en una frase dada.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

Ayuda con 6 programas

Publicado por Ana (8 intervenciones) el 03/03/2015 01:28:15
Ya solo me falta el 2, 3, 4
AYUDAAAAAAA!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con 6 programas

Publicado por Hugo Correa (5 intervenciones) el 03/03/2015 23:36:08
Problema 2:
creas textbox1 y textbox2

copias el código en un botón:
1
2
3
4
5
6
7
8
9
10
11
Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
    Dim longitud As Integer = Me.TextBox1.Text.Trim.Length
    Dim x As Integer
    Dim resultado As String = ""
    For x = 0 To longitud
        If x < longitud Then
            resultado = resultado + Mid(Me.TextBox1.Text.Trim, longitud - x, 1)
        End If
    Next
    Me.TextBox2.Text = resultado
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Ayuda con 6 programas

Publicado por Ana (8 intervenciones) el 04/03/2015 03:57:09
MUCHAA GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Ayuda con 6 programas

Publicado por Roberto F. (8 intervenciones) el 04/03/2015 18:55:15
Para el 4 podría valer algo así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Function hora2letra(hora As String)
    Dim Resultado As String
    Dim h As Integer
    Dim m As Integer
    Dim aux
 
    aux = Split(hora, ":")
    h = aux(0)
    m = aux(1)
 
    Select Case h
        Case 0:
            Resultado = "doce " & num2letra(m) & " a.m."
        Case 1 To 11:
            Resultado = num2letra(h) & " " & num2letra(m) & " a.m."
        Case 12:
            Resultado = "doce " & num2letra(m) & " p.m."
        Case 13 To 23:
            Resultado = num2letra(h) & " " & num2letra(m) & " p.m."
    End Select
    hora2letra = "Son las " & Resultado
 
End Function
 
 
 
Function num2letra(num As Integer) 'solo implementado del 0 al 59

    Dim Resultado As String
 
    Select Case num
        Case 0:
            Resultado = "en punto"
        Case 1:
            Resultado = "una"
        Case 2:
            Resultado = "dos"
        Case 3:
            Resultado = "tres"
        Case 4:
            Resultado = "cuatro"
        Case 5:
            Resultado = "cinco"
        Case 6:
            Resultado = "seis"
        Case 7:
            Resultado = "siete"
        Case 8:
            Resultado = "ocho"
        Case 9:
            Resultado = "nueve"
        Case 10:
            Resultado = "diez"
        Case 11:
            Resultado = "once"
        Case 12:
            Resultado = "doce"
        Case 13:
            Resultado = "trece"
        Case 14:
            Resultado = "catorce"
        Case 15:
            Resultado = "quince"
        Case 20:
            Resultado = "veinte"
        Case 30:
            Resultado = "treinta"
        Case 40:
            Resultado = "cuarenta"
        Case 50:
            Resultado = "cincuenta"
        Case 16 To 19:
            Resultado = "dieci" & num2letra(num Mod 10)
        Case 21 To 29:
            Resultado = "veinti" & num2letra(num Mod 10)
        Case 31 To 59:
            Resultado = num2letra(num - (num Mod 10)) & " y " & num2letra(num Mod 10)
    End Select
    num2letra = Resultado
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Ayuda con 6 programas

Publicado por Ana (8 intervenciones) el 04/03/2015 20:25:36
MUCHISIMAS GRACIAS POR SU APOYO!!!!

EN VERDAD QUE SE LOS DEBO Y SPBRE TODO GRACIAS PORQUE SI ME ENTENDIERON, NO QUE EN EL OTRO FORO HASTA REGAÑADA SALI!!! JAJAJAJAJAJAJAJA

SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar