|
Hello
As a member of a norwegian choir I am on my way to make a script for exercise. I have no experience with KiXtart so I'm calling you for help.
When we start at an new song we'll make a number of short wav-files. Each of them is just 3-4-5-6 measures long (10-15 second), short pieces, with critical part of the song. By KixForms I have succeeded to make a simple form with a number of buttons like this: $Button1.OnClick = "PLAY 12.wav " $Button2.OnClick = "PLAY 27.wav " ;12 and 27 is measure number..
In this way it will be easy to repeat x number of times a short cut of the song. The plan is to distribute the package to all the other members as an exe-file. Ready for exercise.
And it funks. Except that it's not possible to restart the music-file until it's finished. That's a must! The whole idea is to >start, >restart, >restart immediately.... Neither is it possible to close the window until the play-command is finished. Here is the script (not complete):
Break On $System = CreateObject("Kixtart.System") SetConsole("HIDE") ;KD START
;************* Form ************** $Form = $System.Form() $Form.BackColor = 150,192,200 $Form.FontName = "Tahoma" $Form.FontSize = 8 $Form.Height = 291 $Form.Left = 20 $Form.Text = "KiXforms Designer Template" $Form.Top = 20 ;************************************** ;************* Button1 ************** $Button1 = $Form.Controls.Button() $Button1.FontName = "Tahoma" $Button1.FontSize = 8 $Button1.Height = 23 $Button1.Left = 40 $Button1.Text = "Meas.no 12-14" $Button1.Top = 60 $Button1.Width = 100 $Button1.OnClick = "PLAY Bess12.wav " ;************************************** ;************* Button2 ************** $Button2 = $Form.Controls.Button() $Button2.FontName = "Tahoma" $Button2.FontSize = 8 $Button2.Height = 23 $Button2.Left = 40 $Button2.Text = "Meas.no 27-32" $Button2.Top = 100 $Button2.Width = 100 $Button2.OnClick = "PLAY Bess27.wav " ;**************************************
;KD END $Form.Show While $Form.Visible $=Execute($Form.DoEvents()) Loop Exit 1
It seems like it's frozen until the wav-file is finished. I hope somebody could help me to improve this script. Isn't KiXscript the right «tool» for this job?
Best regards LarsRoan, Norway
|