Hvordan taster man sin Lingo kode?
HejsaJeg sidder med følgende 5 klasser:
--En ansat har et fornavn og efternavn. En ansat skal desuden have en metode der fortæller hvor meget han har tjent på en måned, kald metoden Tjent. Derudover skal en ansat have en toString metode der returnere navn og hvor meget der er tjent.
property fornavn, efternavn
on new me, fornavnP, efternavnP
fornavn = fornavnP
efternavn = efternavnP
return me
end
on tjent me
return 20000
end
on toString me
return fornavn+" "+efternavn+" "+me.tjent()
end
Og
-- Firma, der har et antal ansatte. Et firma skal have een metode, udgifterTilLøn som fortæller hvor meget løn der skal udbetales til alle ansatte.
property ansatte
on new me
ansatte = []
return me
end
on addAnsat me, ansatP
ansatte.add(ansatP)
end
on removeAnsat me, ansatP
ansatte.deleteOne(ansatP)
end
on udgifterTilLon me
sum = 0
repeat with e in ansatte
sum = sum + e.tjent()
end repeat
return sum
end
og
-- en fast-ansat. En fast-ansat får een bestemt løn lige meget hvor meget han arbejder.
property maanedslon, ancestor
on new me, fornavnP, efternavnP, maanedslonP
ancestor = script("Ansat").new(fornavnP, efternavnP)
maanedslon = maanedslonP
return me
end
on tjent me
return maanedslon
end
og
--en ansat på provision. Denne specielle ansatte skal have et antal ting han har solgt, en sats pr. ting der er solgt samt en basis-løn.
property antalTing, basisløn, ancestor
on new me, fornavnP, efternavnP, antalTingP, basislønP
ancestor = script("Ansat").new(fornavnP, efternavnP)
antalTing = antalTingP
basisløn = basislønP
return me
end
on tjent me
return basisløn + antalTing*2
end
og
-- en time-lønnet. Dvs. lønnen afhænger af time-satsen samt antallet af timer han har arbejdet.
property timelon, antalTimer, ancestor
on new me, fornavnP, efternavnP, timelonP, antalTimerP
ancestor = script("Ansat").new(fornavnP, efternavnP)
timelon = timelonP
antalTimer = antalTimerP
return me
end
on tjent me
return antalTimer*timelon
end
Jeg skal nu have alt det her ting testet, således at jeg får et output og kan se, at det jeg har lavet er korrekt.
Jeg bruger Director Mx.
Tak på forhånden
Oprah
