fmainDecoradorCafesYcondimentos

' Gambas class file
Public bebidaElegida As New Bebida

Public Sub Form_Open()
  Me.center()
  RadioButtonHouse_Click() 'elijo una bebida inicialmente
End

Public Sub ToolButtonCalcular_Click()
 'reviso los checkbox, si esta true, lo añado....
  If CheckBoxCanela.Value = True Then bebidaElegida = New Canela(bebidaElegida)
  If CheckBoxChocolate.Value = True Then bebidaElegida = New Chocolate(bebidaElegida)
  If CheckBoxLeche.Value = True Then bebidaElegida = New Leche(bebidaElegida)
  If CheckBoxLecheCond.Value = True Then bebidaElegida = New LecheCondensada(bebidaElegida)
  If CheckBoxHielo.Value = True Then bebidaElegida = New Hielo(bebidaElegida)

  TextLabelCafeACrear.text = bebidaElegida.getDescripcion() & " Coste " & Format(bebidaElegida.cost(), "0#.##") & " €"
  ToolButtonCalcular.Enabled = False

End

Public Sub RadioButtonHouse_Click()
  bebidaElegida = New HouseBlend
End

Public Sub RadioButtonDark_Click()
  bebidaElegida = New DarkRoast
End

Public Sub RadioButtonDecaf_Click()
  bebidaElegida = New Decaf
End

Public Sub RadioButtonEspreso_Click()
  bebidaElegida = New Espresso
End

Public Sub ButtonReiniciar_Click()
  CheckBoxCanela.value = False
  CheckBoxChocolate.value = False
  CheckBoxHielo.value = False
  CheckBoxLeche.value = False
  CheckBoxLecheCond.value = False
  RadioButtonHouse.Value = True
  ToolButtonCalcular.Enabled = True
  TextLabelCafeACrear.text = ""
End