Каждый объект класса должен быть хозяином своих собственных данных!
ferrari AS CCar'the following does not work!
porsche AS CCar
STATIC PUBLIC SUB Main()
hForm AS Fmain
hForm = NEW Fmain
hForm.show
END
PUBLIC SUB _new()
ferrari = NEW CCar("ferrari", 430, 150000.56)
porsche = NEW CCar
porsche.setBrand("porsche")
porsche.setPS_Power(300)
porsche.setPrice(100345.72)
END
PUBLIC SUB Button1_Click()
Label1.Text = ferrari.getBrand()
END
PUBLIC SUB Button2_Click()
TextLabel1.Text = Str(ferrari.getPS_Power()) & " PS <br>" &
Str(ferrari.getKW_Power()) & " KW"
END
PUBLIC SUB Button3_Click()
TextLabel2.Text = Str(ferrari.getPrice()) & " €"
END
'------------------------------------------
PUBLIC SUB Button4_Click()
Label4.Text = porsche.getBrand()
END
PUBLIC SUB Button5_Click()
TextLabel3.Text = Str(porsche.getPS_Power()) & " PS <br>" &
Str(porsche.getKW_Power()) & " KW"
END
PUBLIC SUB Button6_Click()
TextLabel4.Text = Str(porsche.getPrice()) & " €"
END