xojoでコールバックとかスレッドとかアニメーションとかを ゆるーく使える 「Nekonote」 のおはなし

開発環境&言語のXojoでコールバックとかスレッドとかアニメーションとかを楽に扱えるライブラリ「Nekonote（ネコノテ）」の解説です。

Transcript

1. xojoͰίʔϧόοΫͱ͔εϨουͱ͔Ξχϝʔγϣϯͱ͔Λ
 ΏΔʔ͘࢖͑Δ
 ʮNekonoteʯ
 ͷ͓͸ͳ͠ @yuneco info@nekobooks.com
2. • ͳ·͑ɿΏ͖(@yuneco) • ΠϥετϨʔλʔͱ͔΍ͬͯ·͢ • ։ൃ΋΍Γ·͢ ࠓ೔࿩͢ਓ
3. ࡞ͬͯΔ΋ͷ • xojoͰʮֆശʯͱ͍͏ը૾ϏϡʔΞΛ࡞ͬͯ·͢ http://nekobooks.com/main/ebako/
4. ࠓ೔ͷ಺༰ • ɹʢΏΔ͍ʣίʔϧόοΫ͕ඞཁͳΘ͚ • ɹnekonoteΛ࢖ͬͨίʔϧόοΫ • ɹԠ༻ɿόοΫάϥ΢ϯυॲཧʹ࢖͏ • ɹԠ༻ɿΞχϝʔγϣϯʹ࢖͏ • ɹ࢓૊Έͷ͓࿩ͱ͔ʁ 4
5. GitHubʹ͋Γ·͢ https://github.com/yuneco/nekonote MITϥΠηϯεͳͷͰΏΔʔ͘࢖͑·͢
6. ʢΏΔ͍ʣίʔϧόοΫ͕ ඞཁͳΘ͚
7. ίʔϧόοΫͬͯ࢖͍·͔͢ʁ 何それ
8. ͓୊ɿΧϥʔύϨοτ෦඼Λ࡞Δ ৭Λม͑Δͱ ͦͷͨͼʹ ͜͜ͷ৭΋มΘΔ ΧϥʔύϨοτΛ։͍ͯ
9. ճ౴1ɿૉ௚ʹॻ͘ Sub MouseUp Window1.Rect1.FillColor = બ୒৭ ͜͜ͷ৭΋มΘΔ Dim Cp as New ColorPalette Cp.Show 汎用性？何それおいしいの？
10. ճ౴2ɿίϯτϩʔϧΛ౉͢ Sub MouseUp TargetView.FillColor = બ୒৭ ౉ͨ͠Rectangleͷ FillColor͕มΘΔ Dim Cp as New ColorPalette Cp.ShowWithView(Self.Rect1) Rectangle以外は渡せないの？
11. ճ౴3ɿ΍ͬͺRectҎ֎ͷ৭΋ม͍͑ͨΑͶ Sub MouseUp TargetView.ChangeColor બ୒৭ Dim Cp as New ColorPalette Cp.ShowWithView(Self.Rect1) Sub ChangeColor(C as Color) Self.BackColor = C できたけど、Rectangleいらなくない？
12. ͍Βͳ͍ɺͰ΋ফͤͳ͍ 見えないとこに隠しとこう xojoあるある！！！
13. ճ౴4ɿDelegateͯ͠ΈΔ ࢦఆ͞ΕͨϝιουʹॲཧΛҕৡ Sub MouseUp OnColorChange.Invoke(બ୒৭) DelegateʹϝιουΛࢦఆͯ͠ Dim Cp as New ColorPalette Cp.OnColorChanged = AddressOf ChangeColor Cp.Show ༧Ίϝιου͝ͱʹద੾ͳ DelegateΛఆ͓ٛͯ͘͠ Delegateʹ߹Θͤͨҕৡઌ ϝιουΛఆ͓ٛͯ͘͠ 正解っぽいけど、面倒かも 難しい＞＜
14. ΍Γ͍ͨ͜ͱ 14 ʮ৭͕มΘͬͨΒࢲͷ
 ࢦఆͨ͠ϝιουΛݺ΂ʯ Ҏ্
15. nekonoteΛ࢖ͬͨ ίʔϧόοΫ
16. ࡞Δ
17. ࡞Δ Me.ChangeColor() ΛΦϒδΣΫτԽ Dim CB as New NekoCallback(Me,"ChangeColor") 簡単
18. ݺͿ
19. ݺͿ ChangeColor() ͕࣮ߦ͞ΕΔ CB.Execute() 超簡単
20. Φϓγϣϯ
21. ύϥϝʔλΛࢦఆ͢Δ Variantܕ഑ྻ Dim CB as New NekoCallback(Me,"ChangeColor",ParamArray) Dim ParamArray(-1) as Variant ParamArray.Append 3 ParamArray.Append 2 Dim CB as New NekoCallback(Me,"AddNum",ParamArray) ྫ
22. ݁ՌΛड͚औΔ Variantܕ Dim Result as Variant = CB.ReturnValue Dim ParamArray(-1) as Variant ParamArray.Append 3 ParamArray.Append 2 Dim CB as New NekoCallback(Me,”AddNum",ParamArray) Dim Ans as Integer = CB.ReturnValue.IntegerValue //ଟ෼5 ྫ
23. ࢀরΛڧ੍͢Δ TrueʢσϑΥϧτʣ …ऑࢀর False …ڧ͍ʢ௨ৗͷʣࢀর Dim CB as New NekoCallback(Me,”ChangeColor",ParamArray,IsWeak) Dim CB as New NekoCallback(AnObj,”AddNum”,Nil) AnObj = Nil //΋͠ଞ͔Βͷࢀর͕ͳ͍ͳΒ CB.Execute() //Կ΋ݺ͹Εͳ͍ ྫ ͜ΕΛऑࢀরʹ͢Δ͔ڧ͍ ʢ௨ৗͷʣࢀরʹ͢Δ͔ Dim CB as New NekoCallback(AnObj,”AddNum”,Nil,False) AnObj = Nil CB.Execute() //ݺ͹ΕΔ ྫ
24. Interfaceͱ͔Delegateͱ͔ͱͲ͏ҧ͏ͷʁ • ϝιου໊͕จࣈྻࢦఆ • શ෦NekoCallbackܕʢܕ͕શ෦Ұॹʣ • ݺͿํ͸Կ͕དྷͯ΋execute()͢Δ͚ͩ 24 ௒ΏΔ͍
25. Ԡ༻ฤ1ɿ όοΫάϥ΢ϯυॲཧʹ࢖͏
26. όοΫάϥ΢ϯυͰ࣮ߦ͢Δ
27. όοΫάϥ΢ϯυͰ࣮ߦ͢Δ Me.Piyo()͕όοΫάϥ΢ϯυͰ ࣮ߦ͞ΕΔ Dim CB as New NekoCallback(Me,"Piyo") NekoCallback.ExecOnBackground(CB) NekoCallback.ExecOnBackground(Me,"Piyo") ͍͖ͳΓͰ΋OK 超簡単！！！
28. όοΫάϥ΢ϯυͰ࣮ߦ͢Δ Ωϡʔʹ֨ೲ͞Εͯ ॱ൪ʹ࣮ߦ͞ΕΔ NekoCallback NekoCallback NekoCallback Execute() ϝΠϯεϨου ڞ༗όοΫάϥ΢ϯυεϨου ExecOnBackground() NekoCallback
29. ʢόοΫάϥ΢ϯυ͔Βʣ ϝΠϯεϨουͰ࣮ߦ͢Δ
30. NekoCallback.ExecOnMainThread(Window1,"UpdateView") ϝΠϯεϨουͰ࣮ߦ͢Δ Me.Piyo()͕ϝΠϯεϨουͰ ࣮ߦ͞ΕΔ Dim CB as New NekoCallback(Window1,"UpdateView") NekoCallback.ExecOnMainThread(CB) ͍͖ͳΓͰ΋OK 超簡単！！！
31. Φϓγϣϯ
32. ڞ༗εϨουҎ֎Ͱ࣮ߦ͢Δ TaskMngΫϥε͕εϨουΛ؅ཧͯ͠·͢ NekoCallback.ExecOnBackground(Me,"Piyo",New Nekonote.TaskMng()) //΢Πϯυ΢͝ͱʹεϨουΛ࣋ͭ If Self.BgThread = Nil Then Self.BgThread = New Nekonote.TaskMng() End If NekoCallback.ExecOnBackground(Me,"Piyo", Self.BgThread) ྫ
33. ଟॏ౓Λ্͛Δ ࠷େ3εϨουͰ࣮ߦ NekoCallback.ExecOnBackground(Me,"Piyo",New Nekonote.TaskMng(3)) // 100ݸͷݺͼग़͠Λ3εϨουͰฒྻॲཧ͢Δ Dim Tm as New Nekonote.TaskMng(3) For I as Integer = 0 to 100 NekoCallback.ExecOnBackground(Me,"Piyo", Tm) Next ྫ
34. Ԡ༻ฤ2ɿ Ξχϝʔγϣϯʹ࢖͏
35. ͳΜͰ͍͖ͳΓΞχϝʔγϣϯʁ ʁ
36. nekonoteʹ͸NekoCallbackͷԠ༻ͱͯ͠ɺ Ξχϝʔγϣϯʹ࢖͑ΔNekoTweenΛ ಉ͍ࠝͯ͠·͢
37. NekoTweenͰग़དྷΔ͜ͱ • ࢦఆͨ͠ϓϩύςΟΛࢦఆͨ࣌ؒ͠ͰεϜʔζʹมԽͤ͞Δ • ஋͕มΘͬͨͱ͖΍ऴΘͬͨͱ͖ʹࢦఆͷίʔϧόοΫΛ࣮ߦ 37 ͵Δ͵Δಈ͘λϒͷΞχϝʔγϣϯ ͳΜ͔Ͱ࢖ͬͯ·͢
38. Ξχϝʔγϣϯͯ͠ΈΔ
39. Ξχϝʔγϣϯͯ͠ΈΔ NekoTweenContainer.Default.TweenFor(Self,"Top").StartTween(Top,300,1000) 1ߦʂ NekoTweenContainer.Default … σϑΥϧτͷίϯςφͰ TweenFor(Self,”Top") … Self.TopΛ StartTween(Top,300,1000) … ݱࡏ஋͔Β300·Ͱ1000ms͔͚ͯม͑Δ
40. ஋͕มΘͬͨͱ͖ʹԿ͔͢Δ
41. ஋͕มΘͬͨͱ͖ʹԿ͔͢Δ Dim Tw as NekoTween = NekoTweenContainer.Default.TweenFor(Self,"Score") Tw.OnUpdate = New NekoCallback(Self,"ShowScore") Tw.StartTween(Score , Score + 1000 , 500) ஋͕มΘΔͨͼʹShowScore()Λ࣮ߦ
42. Φϓγϣϯ
43. σϑΥϧτҎ֎ͷίϯςφΛ࡞Δ ߋ৽ස౓(ϛϦඵ) Dim TC as New NekoTweenContainer(Period) ίϯςφͷ୯ҐͰઃఆมߋɾ։࢝ɾఀࢭɾഁغ͕Ͱ͖·͢
44. Πʔδϯά NekoTween.kTypeNormalʢσϑΥϧτʣ NekoTween.kTypeEaseIn NekoTween.kTypeEaseOut Dim Tw as NekoTween = NekoTweenContainer.Default.TweenFor(Self,"Top") Tw.TweenType = NekoTween.kTypeEaseIn
45. ίʔϧόοΫ ɾίϯςφશମͷUpdateޙ ɾTweenͷUpdateޙ ɾTweenͷऴྃޙ TC.OnUpdate = New NekoCallback(Self,”OnUpdate”) Tw.OnUpdate = New NekoCallback(Self,”OnUpdate”) Tw.OnEnd = New NekoCallback(Self,”OnEnd”)
46. ࢓૊Έͱ͔
47. શ෦xojoඪ४Ͱ͢ Introspection //จࣈྻ͔Βϝιου/ϓϩύςΟΛݺͿ Thread //όοΫάϥ΢ϯυॲཧ͸ී௨ʹ Timer //ϝΠϯεϨουͷݺͼग़͠ʹ WeakRef //ϝϞϦϦʔΫ͜Θ͍ Semaphor //σουϩοΫ͜Θ͍
48. ࠓ೔ͷ·ͱΊ • nekonoteΛ࢖͏ͱίʔϧόοΫͱ͔εϨουॲཧͱ͔Ξχϝʔγϣ ϯͱ͔ΏΔʔָ͘ʹ࡞ΕΔΑ • GitHubͰެ։ͯ͠Δ͔Βࣗ༝ʹ࢖ͬͯͶ • Xojoͷඪ४ػೳͰ΋૊Έ߹ΘͤΔͱ
 ໘ന͍΋ͷͭ͘ΕΔΑ • Happy Programming ! 48