Visual Basic

User 989707410-Jun-17 0:43

10-Jun-17 0:43

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.

Ralf Meier10-Jun-17 10:18

10-Jun-17 10:18

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 ?

User 989707411-Jun-17 1:15

11-Jun-17 1:15

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.

User 989707411-Jun-17 5:13

11-Jun-17 5:13

Here.. the full code i have now:

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.

Ralf Meier11-Jun-17 8:43

11-Jun-17 8:43

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" ... Frown | :(

User 989707411-Jun-17 8:47

11-Jun-17 8:47

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.

Ralf Meier11-Jun-17 8:51

11-Jun-17 8:51

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 ... Frown | :(

User 989707411-Jun-17 9:07

11-Jun-17 9:07

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.

User 989707412-Jun-17 1:35

12-Jun-17 1:35

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.

Ralf Meier12-Jun-17 1:41

12-Jun-17 1:41

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 ...

User 989707412-Jun-17 1:47

12-Jun-17 1:47

ok..thanks anyway : ) ... you already helped me!

modified 7-Jan-19 21:02pm.

User 989707412-Jun-17 1:50

12-Jun-17 1:50

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.

Ralf Meier12-Jun-17 2:04

12-Jun-17 2:04

No ... sorry ...
If I have any idea I had told it to you ...

User 989707412-Jun-17 2:17

To get the contionus Bill Number

12-Jun-17 2:17

OK..thank you..you already did a lot : )

modified 7-Jan-19 21:02pm.

Annapurna anu2-Jun-17 20:18

Annapurna anu

2-Jun-17 20:18

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

Re: To get the contionus Bill Number

Richard MacCutchan2-Jun-17 22:22

Richard MacCutchan

2-Jun-17 22:22

Change the constraints so the dates do not cover just one month.

Re: To get the contionus Bill Number

Richard Deeming5-Jun-17 8:32

Richard Deeming

5-Jun-17 8:32

It looks like you're storing dates as strings. Don't do that. Use one of the more appropriate data types instead.

And NEVER use string concatenation to build a SQL query. ALWAYS use a parameterized query.

Everything you wanted to know about SQL injection (but were afraid to ask) | Troy Hunt[^]
How can I explain SQL injection without technical jargon? | Information Security Stack Exchange[^]
Query Parameterization Cheat Sheet | OWASP[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: To get the contionus Bill Number

jsc4228-Jul-17 7:41

jsc42

28-Jul-17 7:41

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.

Need real time list of on/off computers on lan amongst other things

Member 130478152-Jun-17 19:13

Member 13047815

2-Jun-17 19:13

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.

Re: Need real time list of on/off computers on lan amongst other things

OriginalGriff2-Jun-17 19:18

OriginalGriff

2-Jun-17 19:18

If you know the IP addresses, just ping them each in turn in a background thread, saving the current status.
BackgroundWorker Class (System.ComponentModel)[^]
Ping.Send Method (IPAddress) (System.Net.NetworkInformation)[^]

Bad command or file name. Bad, bad command! Sit! Stay! Staaaay...
AntiTwitter: @DalekDave is now a follower!

Re: Need real time list of on/off computers on lan amongst other things

Dave Kreskowiak3-Jun-17 5:19

Dave Kreskowiak

3-Jun-17 5:19

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.

System.ItDidntWorkException: Something didn't work as expected.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

Barcode commands to Zebra printer

Randy Crockett1-Jun-17 13:34

Randy Crockett

1-Jun-17 13:34

I have a Zebra printer that I need to send a character array to, so that it generates a barcode.
I have text and font maping working, by using a RichTextBox and using the Windows PrintDialog.
To send a barcode, I need to send something like this: "^XA^BY8,0^FT124,209^BON,8,N,0,N,1,^FDBase Material^FS^XZ"

The Printer is on a USB port ("USB002") and does not take the SerialPort.Open() command.
Here is my code, which works for other items on USB if I set the SerialPort.PortName = "COM1", just doesn't work for this printer...I'm out of ideas:

Try
                SerialPort1.Open()
                If Me.SerialPort1.IsOpen() Then

                    Dim buf(Command.Length) As Byte
                    For i As Integer = 0 To (Command.Length - 1)
                        buf(0) = Asc(Mid(Command, 1, 1))
                    Next
                    ' send to Printer
                    Me.SerialPort1.ReadExisting()
                    Me.SerialPort1.Write(buf, 0, Command.Length())

                    ' wait for response
                    Dim ReturnValue As Integer = -99999

                    Dim start_time As Integer = My.Computer.Clock.TickCount
                    Do Until (Me.SerialPort1.BytesToRead >= 8 Or DemoMode = True)
                        If My.Computer.Clock.TickCount > start_time + 1000 Then
                            DemoMode = True
                            MessageBox.Show("Printer Meter Timed Out")
                            Return ReturnValue
                            Exit Function
                        End If
                    Loop

                    Dim Results As String = Me.SerialPort1.ReadExisting()
                    Dim length = Results.Length()
                    If length < 8 Then
                        MessageBox.Show("Bad Value Sent To Printer")
                        Return True
                    End If
                End If
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try

Re: Barcode commands to Zebra printer

Ralf Meier1-Jun-17 19:41