EJERCICIOS DE PROGRAMACIÓN DEL CUARTO CICLO

EJERCICIOS DE DEBERES

FMAIN

EJECUTABLE

' Gambas class file

PUBLIC SUB _new()

Label1.Font = font["serif,20,italic,underline,bold"]

Button1.Font = Font["SERIF,20,ITALIC,UNDERLINE,BOLD"]

END

PUBLIC SUB Button1_Click()

IF TextBox1.Text = "PEPE" THEN

FMain.Hide

Form1.Show

ELSE

Message("CONTASEÑA INCORRECTA")

TextBox1.Text = ""

TextBox1.SetFocus

ENDIF

END

FMAIN

EJECUTABLE

 

' Gambas class file

PUBLIC SUB Form_Open()

Timer1.Enabled = TRUE

Timer1.Delay = 60

ProgressBar1.Value = 0.01

Timer2.Enabled = TRUE

Timer2.Delay = 7000

END

PUBLIC SUB Timer1_Timer()

IF ProgressBar1.Value < 1.00 THEN

ProgressBar1.Value = ProgressBar1.Value + 0.01

END IF

END

FMAIN

EJECUTABLE

' Gambas class file

PUBLIC SUB Button1_Click()

Form3.Show

Form2.Hide

END

PUBLIC SUB Button2_Click()

QUIT

END

FMAIN

  

EJECUTABLE

   

' Gambas class file

PUBLIC SUB _new()

Button1.Font = font["serif,20,italic,underline,bold"]

Button2.Font = font["serif,20,italic,underline,bold"]

Button3.Font = font["serif,20,italic,underline,bold"]

Button4.Font = font["serif,20,italic,underline,bold"]

END

PUBLIC SUB Button3_Click()

Form4.Show

FMain.Hide

END

PUBLIC SUB Button1_Click()

Form4.Show

FMain.Hide

END

PUBLIC SUB Button2_Click()

Form5.Show

FMain.Hide

END

PUBLIC SUB Button4_Click()

Form5.Show

FMain.Hide

END

PUBLIC SUB Button5_Click()

Form2.Show

Form3.Hide

END

PUBLIC SUB Button6_Click()

QUIT

END

FMAIN

 

EJECUTABLE

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = TextBox1.Text * TextBox2.Text / 2

TextBox1.Font = font["serif,20"]

TextBox2.Font = font["serif,20"]

TextBox3.Font = font["serif,20"]

Label1.Font = font["serif,20,italic,underline,bold"]

Label2.Font = font["serif,20,italic,underline,bold"]

Label3.Font = font["serif,20,underline,italic,bold"]

Label4.Font = font["serif,20,underline,bold,underline"]

END

PUBLIC SUB Button2_Click()

Form2.Show

Form4.Hide

END

FMAIN

EJECUTABLE

 

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox2.Text = (TextBox1.Text) * (TextBox1.Text) * 3.14

Label3.Text = "EL AREA DEL CIRCULO ES:"

TextBox1.Font = font["serif,20"]

TextBox2.Font = font["serif,20"]

Label1.Font = font["serif,20,italic,underline,bold"]

Label2.Font = font["serif,20,italic,underline,bold"]

Label3.Font = font["serif,20,italic,underline,bold"]

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

END

PUBLIC SUB Button3_Click()

Form3.Show

Form5.Hide

END