Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
complex numbers
Getting stuck here.
In class called cNum I have this: Option Explicit Private m_rP As Double Private m_iP As Double Public Property Get rP() As Variant rP = m_rP End Property Public Property Let rP(ByVal rPart As Variant) rP = m_rPart End Property Public Property Get iP() As Variant iP = m_iP End Property Public Property Let iP(ByVal iPart As Variant) iP = m_iPart End Property In a module I have this: Sub test() Dim cNum1 As cNum cNum1 = Set_cNum(11, 3) End Sub Function Set_cNum(rPart As Double, iPart As Double) As cNum Set_cNum.rP = rPart Set_cNum.iP = iPart End Function But I dont know where´s the flaw. TIA Fabio Coatis |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
complex numbers
But I dont know where´s the flaw.
Besides some typos in the class module you never actually instantiated the class. Private m_rP As Double Private m_iP As Double Public Property Get rP() As Variant rP = m_rP End Property Public Property Let rP(ByVal rPart As Variant) m_rP = rPart End Property Public Property Get iP() As Variant iP = m_iP End Property Public Property Let iP(ByVal iPart As Variant) m_iP = iPart End Property Module: Sub test() Dim cNum1 As cNum Set cNum1 = set_cnum(11, 3) Debug.Print cNum1.rP Debug.Print cNum1.iP End Sub Function set_cnum(rPart As Double, iPart As Double) As cNum Dim x As New cNum x.rP = rPart x.iP = iPart Set set_cnum = x End Function -- Jim "Fcoatis" wrote in message ... Getting stuck here. In class called cNum I have this: Option Explicit Private m_rP As Double Private m_iP As Double Public Property Get rP() As Variant rP = m_rP End Property Public Property Let rP(ByVal rPart As Variant) rP = m_rPart End Property Public Property Get iP() As Variant iP = m_iP End Property Public Property Let iP(ByVal iPart As Variant) iP = m_iPart End Property In a module I have this: Sub test() Dim cNum1 As cNum cNum1 = Set_cNum(11, 3) End Sub Function Set_cNum(rPart As Double, iPart As Double) As cNum Set_cNum.rP = rPart Set_cNum.iP = iPart End Function But I dont know where´s the flaw. TIA Fabio Coatis |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
complex numbers
On 1 abr, 16:21, "Jim Rech" wrote:
But I dont know where´s the flaw. Besides some typos in the class module you never actually instantiated the class. Private m_rP As Double Private m_iP As Double Public Property Get rP() As Variant * * rP = m_rP End Property Public Property Let rP(ByVal rPart As Variant) * * m_rP = rPart End Property Public Property Get iP() As Variant * * iP = m_iP End Property Public Property Let iP(ByVal iPart As Variant) * * m_iP = iPart End Property Module: Sub test() * * Dim cNum1 As cNum * * Set cNum1 = set_cnum(11, 3) * * Debug.Print cNum1.rP * * Debug.Print cNum1.iP End Sub Function set_cnum(rPart As Double, iPart As Double) As cNum * * Dim x As New cNum * * x.rP = rPart * * x.iP = iPart * * Set set_cnum = x End Function ooops Thanks Jim for the correction. Regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA: Calculating Complex Numbers | Excel Discussion (Misc queries) | |||
Round-down complex numbers | Excel Discussion (Misc queries) | |||
VBA complex numbers | Excel Programming | |||
Complex Numbers | Excel Programming | |||
Complex numbers | Excel Programming |