Taller para visual basic 6, con código para ser transcritoDescripción completa
Programas de consola en visual basic usando sentencias if y caseDescripción completa
Visual basic
Descripción: Visual basic
Full description
Descripción completa
Ejercicios de Visual BasicDescripción completa
Descripción completa
Descripción: examen
propiedades de objetos visualDescripción completa
Descripción completa
Descripción completa
Full description
JUEGO DE HOROSCOPO EN VISUAL BASIC
Dim a, Dim a, ms, d As String String, , b As Integer Private Sub Sub Button1_Click( Button1_Click(ByVal ByVal sender sender As As System. System.Object Object, , ByVal ByVal e e As System.EventArgs System. EventArgs) ) Handles Button1.Click Button1.Click For b For b = 1 To To 31 31 Select Case Case (b) (b) Case 1 Case 1 : a = "uno" Case 2 Case 2 : a = "dos" Case 3 Case 3 : a = "tres" Case 4 Case 4 : a = "cuatro" Case 5 Case 5 : a = "cinco" Case 6 Case 6 : a = "seis" Case 7 Case 7 : a = "siete" Case 8 Case 8 : a = "ocho" Case 9 Case 9 : a = "nueve" Case 10 Case 10 : a = " diez" Case 11 Case 11 : a = "once" Case 12 Case 12 : a = "doce" Case 13 Case 13 : a = "trece" Case 14 Case 14 : a = "catorce" Case 15 Case 15 : a = "quince" Case 16 Case 16 : a = "dieciseis" Case 17 Case 17 : a = "diecisiete" Case 18 Case 18 : a = "dieciocho" Case 19 Case 19 : a = "diecinueve" Case 20 Case 20 : a = " veinte" Case 21 Case 21 : a = "veinte y uno" Case 22 Case 22 : a = "veinte y dos" Case 23 Case 23 : a = "veinte y tres" Case 24 Case 24 : a = "veinte y cuatro" Case 25 Case 25 : a = "veinte y cinco"
Case 26 Case 27 Case 28 Case 29 Case 30 Case 31 End Select If cb1.Text t1.Text End If
: : : : : :
a a a a a a
= = = = = =
"veinte y seis" "veinte y siete" "veinte y ocho" "veinte y nueve" " treinta" "treinta y uno"
= b Then = a
Next ms = cb1.Text d = cb2.Text Select Case (ms) Case "enero" If (d >= 21 And ms = "enero") Or (d <= 19 And ms = "febrero") Then t2.Text = "acuario" PictureBox1.Image = Image.FromFile("D:\@franki\signos\acuario.jpg") End If Case "febrero" If (d >= 20 And ms = "febrero") Or (d <= 20 And ms = "marzo") Then t2.Text = "piscis" PictureBox1.Image = Image.FromFile("D:\@franki\signos\piscis.jpg") End If Case "marzo" If d >= 21 And ms = "marzo" Or d <= 20 And ms = "abril" Then t2.Text = "aries" PictureBox1.Image = Image.FromFile("D:\@franki\signos\aries.jpg") End If Case "abril" If d >= 21 And ms = "abril" Or d <= 21 And ms = "mayo" Then t2.Text = "tauro" PictureBox1.Image = Image.FromFile("D:\@franki\signos\tauro.jpg") End If Case "mayo" If d >= 22 And ms = "mayo" Or d <= 21 And ms = "junio" Then t2.Text = "geminis" PictureBox1.Image = Image.FromFile("D:\@franki\signos\geminis.jpg") End If Case "junio" If d >= 21 And ms = "junio" Or d <= 23 And ms = "julio" Then t2.Text = "cancer" PictureBox1.Image = Image.FromFile("D:\@franki\signos\cancer.jpg") End If Case "julio" If d >= 24 And ms = "julio" Or d <= 23 And ms = "agosto" Then t2.Text = "leo" PictureBox1.Image = Image.FromFile("D:\@franki\signos\leo.jpg") End If
Case "agosto" If d >= 24 And ms = "agosto" Or d <= 23 And ms = "setiembre" Then t2.Text = "virgo" PictureBox1.Image = Image.FromFile("D:\@franki\signos\virgo.jpg") End If Case "setiembre" If d >= 24 And ms = "setiembre" Or d <= 23 And ms = "octubre" Then t2.Text = "libra" PictureBox1.Image = Image.FromFile("D:\@franki\signos\libra.jpg") End If Case "octubre" If d >= 24 And ms = "octubre" Or d <= 22 And ms = "noviembre" Then t2.Text = "escorpio" PictureBox1.Image = Image.FromFile("D:\@franki\signos\escorpio.jpg") End If Case "noviembre" If d >= 23 And ms = "noviembre" Or d <= 21 And ms = "disciembre" Then t2.Text = "sagitario" PictureBox1.Image = Image.FromFile("D:\@franki\signos\sagitario.jpg") End If Case "diciembre" If d >= 21 And ms = "diciembre" Or d <= 19 And ms = "enero" Then t2.Text = "acuario" PictureBox1.Image = Image.FromFile("D:\@franki\signos\acuario.jpg") End If End Select