Private Sub CommandButton1_Click()
Dim x As Complesso
Dim y As Complesso
Dim z As Complesso
x.Re = Range("D4").Value
x.Im = Range("F4").Value
x = ReIm_to_MoPh(x)
y.Mo = Range("D6").Value
y.Ph = Range("F6").Value
y = MoPh_to_ReIm(y)
z = ProdottoComplesso(x, y)
Range("D14").Value = z.Re
Range("F14").Value = z.Im
Range("D16").Value = z.Mo
Range("F16").Value = z.Ph
End Sub
|