Some Function plug-ins from brainedit helpfile

[Andre Hendriks]

functions like Getdefinition, GetMeronyms, GetHolonyms, GetHypernyms

all from the brainedit.zip help file.

here some of the code

Function GetDefinition(PartOfSpeech As Variant, Sense As Variant, DefType As String) As Variant
List_Of_Definition = ""
WN.LookUpWord("") 'this points WN to your word "".
List_Of_Definition = WN.GetDefinition("NOUN", 1,"D")
End Function

Function GetHolonyms(Sense As Variant, SubSet As Variant) As Variant
WN.LookUpWord("")
List_Of_GetSynonyms = WN.GetHolonyms(1,"Member")
End Function

Function GetHypernyms(PartOfSpeech As Variant, Sense As Variant, Level As Variant) As Variant
Hypernym = WN.ChooseRandomWord(WN.GetHypernyms("NOUN", 1, 1))
End Function

Function GetMeronyms(Sense As Variant) As Variant
List_Of_Meronyms = " "
WN.LookUpWord("") 'This points WN to your word "".
List_Of_Meronyms = WN.GetMeronyms(1)
End Function