k Lk 1 (La Dora)
Versió 1.0 Fes una calculadora creant tots els objectes amb matrius de controls.
Fer una calculadora amb:
- Una etiqueta que fa de pàntalla (display)
- Una matriu de 10 dígits (Numero(0), ..., Numero(9)).
- Una matriu amb les operacions + - x / = C (Operacio(0), ..., Operacio(4)).
RECORDA:
Dim MatriuBotons(9) As Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'CREA BOTO i
MatriuBotons(i) = New Button
'AFEGEIX BOTO A FORMULARI
Me.Controls.Add(MatriuBotons(i))
'ASSIGNA EVENT CLIC A BOTO i
AddHandler MatriuBotons(i).Click, AddressOf MatriuBotons_Click
End Sub
'CREO LA FUNCIO QUE MANEGARA ELS CLICS DE QUALSEVOL BOTO DE LA MATRIU
Private Sub MatriuBotons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'FAIG QUE LA MATRIU ENVII (SEND) EVENTS
Dim MatriuBotons = CType(sender, Button)
'CAPTURO INDEX DE TABULACIO DEL BOTO CLICAT
j = Val(MatriuBotons.TabIndex)
'EL MOSTRO A LA ETIQUETA
etiqueta.Text = "Boto premut: " & Str(j + 1)
End Sub
Versió 2.0 Que funcioni també amb el teclat.
- 18 de maig 2021, 10:10
Resum de la qualificació
| Ocult per a l'estudiantat | Sí |
|---|---|
| Participants | 17 |
| S'han tramès | 0 |
| Necessiten qualificació | 0 |
| Temps restant | 2 anys 195 dies |