Ficha nº3 Continuação

6.

Código:

Private Sub cmdigual_Click()

Dim restoH As Long, restoM As Integer, restoS As Integer

dias.Caption = Val(s_pedidos.Text) \ 86400

restoH = Val(s_pedidos.Text) Mod 86400

horas.Caption = restoH \ 3600

restoM = restoH Mod 3600

minutos.Caption = restoM \ 60

restoS = restoM Mod 60

segundos.Caption = restoS

End Sub

Private Sub cmdsair_Click()

End

End Sub

7.

Código:

Private Sub cmdigual_Click()

pesoideal.Caption = (72.7 * Val(altura.Text)) - 58

End Sub

Private Sub cmdsair_Click()

End

End Sub

8.

Código:

Private Sub cmdcalcular_Click()

Dim litrosprecisos As Single, latasprecisas As Single

litrosprecisos = Val(Apintada.Text) / 3

latasprecisas = litrosprecisos \ 15

If (litrosprecisos Mod 15) <> 0 Then

    latasprecisas = latasprecisas + 1

End If

latasdetinta.Caption = latasprecisas

precototal.Caption = latasdetinta.Caption * 80

End Sub

Private Sub cmdsair_Click()

End

End Sub