Class calculate
//Variable
Dim gLup 
Dim fCo
Dim AALup

//Functions GIBU
Function GIbu(IBU, PorcA, Alpha, VolumeDH, Density)
If Density < 1050 Then 
gLup = int((IBU * VolumeDH * 10 / ( Alpha * PorcA ))*100) / 100
End If
If Density > 1049 Then 
fCo = 1 + ((( Density / 1000 ) - 1.05)/(0.2))
gLup = int((IBU * VolumeDH * fCo * 10 / ( Alpha * PorcA ))*100) / 100
End If
Return gLup
End Function 

//Functions Alpha-acid*L
Function AALp(Grms, Alpha, VolumeDH)
AALup = int((Grms*Alpha*1000/(VolumeDH * 100))*100) / 100
Return AALup
End Function 
End Class
Dim calclass = New calculate()




