|
Hi..sorry..my ability to explain myself in english is low!!
I have a piece of code to play a sound and when i press a key the sound is played..
what i want is to select a key from a combobox (A/B/S/D any key) to play that sound!
Basicaly i want to map the key to play the sound via a combobox!
I hope the explanation is better now...
modified 7-Jan-19 21:02pm.
|
|
|
|
|
So you want to create a kind of Music-Keyboard ?
Why do you want to use a Combobox for that ?
What is exactly the goal ?
English is also not my first language ... but if I have a question and want an answer it is necessary to explain what I want or need. So it is up to you again ...
|
|
|
|
|
hi..
well yes...my goal is to make a drum machine that plays several drums..
The combobox would be used to map which key plays each drum!!
for eg.
Drum 1 - Combobox value "A/B/C/D Key ...etc"
Drum 2 - ComboBox2 value "A/B/C/D whatever"
I want to assign keys to my drums via several Combobox controls..so that the user might choose which key he wants for each Drum!!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
OK ... I wouldn't do it like this ... but it is your 'game' and you decide how to go ...
Actually I don't understand where your problem is.
You decided via the ComboBox-Selection which Keys from your Keyboard should work with which drums OK ... So ... where do you stuck now ?
Are you generally able to play different sounds with different Keys ?
|
|
|
|
|
I am stuck here..
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim SDrum1 = ComboBox1.Text
Dim SDrum2 = ComboBox2.Text
Select Case e.KeyCode
Case Keys.SDrum1
NoteNum = GeneralMidiPercussion.HiBongo
bPlayDrum = True
Case Keys.SDrum2
NoteNum = GeneralMidiPercussion.Vibraslap
bPlayDrum = True
End Select
End Sub
i am not able to make this conversion..i tried to convert string to integer but no result..
modified 7-Jan-19 21:02pm.
|
|
|
|
|
You don't make any conversion ...
Combobox1 (or 2) deliver you a String. So your Definition for SDrum1 and 2 must be as string - like this :
Dim SDrum1 as string = ComboBox1.Text
Dim SDrum2 as string = ComboBox2.Text
The Form.Keydown deliver you a Keycode - that is not the same as a String - but you can make a String from it.
Dim keyPressed As String = e.KeyData.ToString
Select Case keyPressed
Case SDrum1
NoteNum = GeneralMidiPercussion.HiBongo
bPlayDrum = True
Case SDrum2
NoteNum = GeneralMidiPercussion.Vibraslap
bPlayDrum = True
End Select
As what is NoteNum defined ? Integer ? Or as the same Enumeration as GeneralMidiPercussion ?
And after your Select case - what should happen after that ? And where does it happen ?
|
|
|
|
|
All right man..well i changed the code a bit the NoteNum and bPlayDrum are not needed..
Now it looks like this:
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim SDrum1 As String = ComboBox2.Text
Dim keyPressed As String = e.KeyData.ToString
Select Case keyPressed
Case SDrum1
Dim vol = volu.Value
MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
End Select
End Sub
modified 7-Jan-19 21:02pm.
|
|
|
|
|
Imports Toub.Sound.Midi
Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MidiPlayer.OpenMidi()
End Sub
Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
MidiPlayer.CloseMidi()
End Sub
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim SDrum1 As String = ComboBox2.Text
Dim SDrum2 As String = ComboBox3.Text
Dim keyPressed As String = e.KeyData.ToString
Select Case keyPressed
Case SDrum1
Dim vol = volu.Value
MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
Case SDrum2
Dim vol = volu2.Value
MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.BassDrum, vol))
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim vol = volu.Value
MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ComboBox3.Enabled = True
ComboBox2.Enabled = True
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
ComboBox2.Enabled = False
End Sub
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
ComboBox3.Enabled = False
End Sub
End Class
I would like to have some panning on my sounds but i find it hard..cause i cannot get any info for that in Google and by my own is complicated!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
What I want to know is :
Is it working like you want ?
Refering to what to wrote :
If you don't have any documentation it's allmost difficult to get further. But sometimes there is no other way than "try and error" ... 
|
|
|
|
|
hi..YES its working like i want...LOTS OF THANKS!!
i have been rumbling around and i cannot find a panorama piece of code!!!
Would you like to help me building the PANS for my sounds? (if its possible)
Thanks : )
I tried some code to insert a way of controlling by a MIDI controller..but i can only go til the part i select a device..i might leave this out of my gadget!! : (
modified 7-Jan-19 21:02pm.
|
|
|
|
|
Of course would I help you ... but I can only help you with the code ... not with your Application.
I'm still not complete understanding what you are doing ... 
|
|
|
|
|
i am doing a drum machine that is controlled by the users keyboard!
The idea is to play drums with the keyboard or MIDI controller(if i was able to insert one) like you were playing piano!
So the user chooses the keyboard keys for each drum (bassdrum, snare, cymbal etc.) and plays like it was a piano but with the keyboard!
I would like to insert also the option of connecting a MIDI Controller and play from the controller..(but thats what i say i might not be able to do it)
--- Now.. i have the sounds and the volume/velocity control...but i also would like to control the "pan" factor for each of the drums!!!
and thats all i want for this gadget!
I will make .ini file to keep the settings (they are not much) and a load/save buttons for them..probably a Master Volume control and that all!!!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
so..where do i start to make the pans for my sounds?
i am completely blind on it now!!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
I'm sorry ... but in the Moment I don't know how to help you.
As I allready wrote : I could only help you with the code - not with your application ...
|
|
|
|
|
ok..thanks anyway : ) ... you already helped me!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
well..you might be able..
i was thinking..do you know which code is needed to create a master pan for sound?
I could insert variou values for the master pan..but well...i do not know what happens if the user presses 2 keys at same time?!! : S
modified 7-Jan-19 21:02pm.
|
|
|
|
|
No ... sorry ...
If I have any idea I had told it to you ...
|
|
|
|
|
OK..thank you..you already did a lot : )
modified 7-Jan-19 21:02pm.
|
|
|
|
|
Hii..
I need to know how to get continuous bill numbers, I have a query which gives Bill numbers Continuously for a month but once the month get ends the bill number will start from one again which is not required it should continue with the last bill numbers which was generated in last month...
The Query is...
stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill WHERE dt_bill_date BETWEEN '" & _
Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"
Thanks In Advance
|
|
|
|
|
Change the constraints so the dates do not cover just one month.
|
|
|
|
|
|
Drop all of the
Annapurna anu wrote: WHERE dt_bill_date BETWEEN '" & _
Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"
and just leave the
Annapurna anu wrote: stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill"
because you are not interested in the dates.
If you are still at the design stage, I'd have the st_bill_no split into its subcomponents as separate fields (e.g. chars 1 to 8, 9 to 23, and 24 onwards). You can then used the required middle part as a single numeric entity. What is currently st_bill_no could then be built as an expression field in views that use it; this would give you greater flexibility.
|
|
|
|
|
Without using a vb timer control, whats the best way to to get a known computer list of on off machines. (the app im making knows host names and ip's) Im just hoping there is a better solution than making my own service that i need to install and run each time the computer boots to communicate with my app.
Whats the best method of doing this? Do i need to make a service for each machine to communicate with my app? Ive been out of the loop for programming since visual studio 6. (10 yrs xp though) Back at it again...
Thanks for any links/pointers you may provide.
|
|
|
|
|
|
You have a choice to make.
To get a "real time" status, you must have a client on the target machines that checks-in with a central database to give it's status. Obviously, a machine that's off cannot give a status so the client application has to check-in when the user hits Windows Shutdown. It would also check-in with a status of Up when the app starts and possibly even check-in with that status every so often. This gives you a current status and you don't have to wait for a report to be generated.
Pinging every machine on the network will not give you a "real time" status, but the known status the last time the machine was pinged. If you have a small number of machines, this can give you a status of every machine fairly quickly. This status will fall farther and farther behind the larger the number of machines you have to get a status on. This gives the status of all machines but you have to wait for that status to be generated when you want the report.
To prevent this delay, to a point, you would have to have a service running on a server somewhere that just pings the machines all the time and updates the database. This will give a report of the status of the machines the last time it was pinged but you wont have to wait for the report to be generated. Again, even this will fall behind as the number of machines increases.
The problem with pinging machines is that the firewalls on them can be configured to block ICMP packets causing the pings to fail and look like the machine is off.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
