Visual Basic

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

Ralf Meier

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

Ralf Meier

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

Ralf Meier1-Jun-17 19:41

Ralf Meier

1-Jun-17 19:41

USB-Port and Serial-Port is not the same.
But normally, if you install a Driver on your System, you get an emulated Serial-Port for your USB-Device with which you can access it.
Have you took a look at the System-Configuration of your PC-System if there is such a Driver installed ???

Randy Crockett2-Jun-17 8:05

Randy Crockett

2-Jun-17 8:05

I have taken a look and there is no such driver. I even contacted Zebra to see if I could modify the port name from "USB002" to COM, or even relocate the install, but no-go.
I'll try a different method.
Thank you for the help.

Richard Deeming2-Jun-17 1:11

Richard Deeming

2-Jun-17 1:11

To print to a Zebra printer, you don't use the port; you just send a raw string directly to the printer.

Here's the C# class I use to do that: Raw printer helper · GitHub[^]

There's also a similar VB.NET version here on CodeProject: Print Direct To Windows Printer (EPOS Receipt)[^]

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