|
i understand the code..yes..but it is not working! : (
modified 7-Jan-19 21:02pm.
|
|
|
|
|
You need to go into more detail with problem descriptions. "Not working" is not helping me understand. Does it not do anything any more or still the same problem as before or what?
If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson
|
|
|
|
|
sorry..everything works except the sound ... no sound!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
if i set it like this:
If Status <> 90 Then
it seems to work...the 90/80 might not be the "correct" value!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
I missed that you formatted the output as hexadecimal. Change that line to:
If Status = 144 Then
If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson
|
|
|
|
|
OOOOOOOOKKKKKKK..seems good..A LOT OF THANKS!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
i am encountering this issue..i do not know where to put the
Dim duration = CInt(cboduration.Text)
m.NoteDuration = duration
code.... i tried several ways, but when i load the app, it doesnt updades..only after a manual update it plays ok! Basically when i load the app..the duration is infinite!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
I have an idea how to fix that but I'm leaving for a vacation trip until Monday. I'll get back to you then.
If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson
|
|
|
|
|
OK..thanks..later then!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
It looks like something gets stuck..i overpassed the problem by adding this:
m.PlayMIDINote(0, 0)
m.STOPMIDINote(0)
to the form´s load event!!
modified 7-Jan-19 21:02pm.
|
|
|
|
|
I copied the code from : [^]
..to see if it works/ed ....
modified 7-Jan-19 21:02pm.
|
|
|
|
|
Hi.
(Uppsssie just missed the there where more Replies, is just saw only that about the First Error Message  )
I did alot of VB.NET and VB6 MIDI Stuff. That´s why I started to learn Programing.
To be honest, I used like You a Library, Mostly MidiOx. (Oldie, but goldie...)
It is always the same things that are nessesary for Midi Handling.
First check if the Midi Device(s) are Present. Then Open them and Store it in a Instance (Variable). Then use the Subparts (Properties) like Channel number (MIDI-Channel) etc.
Then handle (Midi is mostly about Timings) the Midi Events.
But if You have a USB Midi Controller, You have to make Sure it has a Tone Generator.
Like the Korg NanoPads, they can only be used as Input Devices.
Maybe thats the cause for the Error-Messages.
If that´s the Case, use Your Computer and find a Software Synthesizer (Or some Tone Generator, Sampler etc.) and connect them inside the Computer. Of course Virtual Plugs (And there is no WLAN-Cable  ) to connect the MIDI Input (Controller) with the Generator
(You can make your own Sampler in VB A Soundboard for example).
Or use a DAW ( 'Digital Audio Workstation' Application like: Cubase, Reason, Logik Fruity-Loops to name some of them, and all are Commercial I can´t remeber some Freeware atm.)
Please consider to use a MIDI analyzer Software like MIDIOX to see how MIDI DATA is transported and Connected Interchanged etc.)
For the VB Programming, it is very easy to Programm basic Midi Handling.
Lik I sad:
First get the Inputs and Outputs of the Midi-Devices in a List.
Like Jazz.GetDevices()
Then find the Proper Device, maybe with a Index or by a Name, whats the most convinitent way to do it.
Then Get the Input of Your USB-Controller.
Test it with MidiOX it has all Information allready awailable to see what is named what etc.
Then Connect the Midi-Messages of the Inputs and send them to the Tone generator Input.
So You have to Reroute the Midi Flow from the Controller to the Tonegenerator.
Wow very Complicated explained.
Let me break it Down. Your VB-App will have to have Inputs and Outputs.
The USB-Controller will be a Input in Your App. You have to use then the Output of your App to create some Noise (A Symphony for Example).
But if the Output should be a Soundboard that will be Playing MP3/or Wav Files on a Keyboardpress (Pianokeyboard) You can ommit the Output and just play the Files with the Windows Soundsystem, when the NoteOn Message is recieved.
When Jazz Library is saying Down and Up, it is ment the MidiMessages NoteOn and NoteOff.
Then you look inside the NoteOn-Message for the Channel Bit the ToneHight Bit and here we are.
And if You want to use the MidiMessages to behave like a real Instroment You have to handle also the NotOff-Message, to cancle the NoteOn.
A Piano Key makes a Noise as long You holding down the Key (Or it gets Quiet). But from a Programmers View it is a "Gate".
The Begin of the Gate is Called NoteOn and the End of the Gate is Called NoteOff.
I think You get the Idea.
Besides these 'easiest' Midi-Messages, there are alot of another Messages like SysEx (System Exclusive), but only in some cases there will be a need to do SysEx handling at all. Usally You will use them to send Data (like Backups) to/from the Mididevice(s).
So if you gonna use Jazz it is the right choise (I think i never used it).
It is the best way to use a Library for that Task.
Midi is very old and Robust and there is no need to recreate all the Midi-Bit Handling. Just focus on the Normal Tasks like Playing Music.
If You need some more advices please Ask, because Millions of People are doing Midi, but not in VB. Sniff me is very Sad about VB...
Happy new Year from Hamburg, Gemany
modified 28-Dec-17 22:49pm.
|
|
|
|
|
I have this XLS Sheet to create, or a report that groups sales by states and by customers.
Some of the customers have multiple locations in states, and have different customer names but it' the same customer.
EG.
ABC Company (Ontario)
ABC Company (Anaheim)
ABC Company *
(San Jose) ABC Company
I'm not even sure what to call this so I can search the internet.
Nor where to even start on this.
But this is my final GroupBy Call before I send it to the XLS creator.
Dim gCustomersItems_Final As List(Of model_itemDistribution_Items) = gCustomer_items.OrderBy(Function(ob) ob.FSSTATE).ThenBy(Function(tb) tb.FCOMPANY).GroupBy(Function(v) New With {Key v.FCOMPANY, Key v.FSSTATE}).Select(Function(cl) New model_itemDistribution_Items() With {
.FSADDR1 = cl.First().FSADDR1,
.FITEMNO = cl.First().FITEMNO,
.FDESCRIPT = cl.First().FDESCRIPT,
.FSHIPQTY = cl.Sum(Function(qty) qty.FSHIPQTY),
.FCSAMT = cl.Sum(Function(amount) amount.FCSAMT),
.FSCITY = cl.First().FSCITY,
.FSSTATE = cl.First().FSSTATE,
.FSZIPCODE = cl.First().FSZIPCODE,
.FSCOUNTRY = cl.First().FSCOUNTRY,
.FCUSTNO = cl.First().FCUSTNO,
.FCOMPANY = cl.First().FCOMPANY,
.FSALESPN = cl.First().FSALESPN,
.FMAXDATE = cl.Max(Function(m) m.FSHIPDATE)
}).ToList()
If it ain't broke don't fix it
|
|
|
|
|
The problem is that the database is badly designed, the Customer table needs a grouping field that is common to all the branch records, you need a company table with a foreign key to your customer table so you can group them.
I will be astonished if you can cater for all the garbage in that users can type for a company name. You should never rely on user input for key values (grouping makes it a key value).
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Your right. There is so much garbage in the database from all the users with half a brain that entered customers.
I tried the Levenstein and it came close to extracting but it takes too long to test and adjust the integer.
Now I'm just going to try and manually change the names first based on a static list and then run the function.
If it ain't broke don't fix it
|
|
|
|
|
Surely the static list would be better used as a Company table content and linking ot to the customer table. It will require a change to the UI to support the Company. Not trivial but will make your life a lot simpler down the track.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
not able find error
addn:
If h = 1 Then lr = Range("GTB").Rows.Count + 9
If h = 2 Then lr = Range("NGTB").Rows.Count + 9
Set Gcell = wb.Sheets(InputSheet).Cells.Find(GetVal(CStr(Area(x, j))))
GCA = Gcell.Address(ReferenceStyle:=xlA1, _
RowAbsolute:=False, ColumnAbsolute:=False)
Range("B" & lr).Value = i
Range("C" & lr).Value = "01-" + headers(1, j) + "-" + Year
'Range("D" & lr).Value = i
Range("G" & lr).Value = Area(x, 15)
Range("H" & lr).Value = Area(x, 16)
Range("I" & lr).Value = Area(x, 14)
Range("E" & lr).Value = Area(x, 17)
Range("J" & lr).Value = Now()
wb.Sheets(InputSheet).Range(GCA).Copy Range("D" & lr)
Range("D" & lr).Font.Size = 9
Range("D" & lr).Font.Name = "Calibri"
End If
nxtc:
Next j
Next x
Erase Area, headers
nw:
Next i
Next h
Del Worksheets("GTB AUDIT"), "GTB", wb
Del Worksheets("NOT GTB AUDIT"), "NGTB", wb
Ordering
FormatGTB Sects
FormatNGTB Sects
wb.Close False
Application.ScreenUpdating = True
'ActiveCell.MergeArea.Rows.Count
End Sub
|
|
|
|
|
actually error line is :
l Worksheets("GTB AUDIT"), "GTB", wb
|
|
|
|
|
Del Worksheets("GTB AUDIT"), "GTB", wb
|
|
|
|
|
Error 9 is "Subscript out of range".
Try to find out on which line the error occured and check the (array) indexes used on that line.
We can't really help because we don't kow where the error occurs. Even then we would probably not know the allowed ranges for indexes used on that line because your code snippet is incomplete (EndIf without matching If, labels that are never targeted, and loop variable increments without the loop start and stop statements).
[EDIT]
And another tip:
Instead of posting new messages to fix errors in previous ones or add more information, you should edit your existing one like I have done here. There is an 'Edit' link on the bottom of each of your messages.
[/EDIT]
|
|
|
|
|
Hi guys! How are you all doing?
I'm new to this forum, just started working in VB .Net and I'm now starting my first project.
I ran into a little snag today, spent quiet a bit of time trying to fix it but you can't fix something if you don't understand what's going on, right?
So two things - can someone explain why I'm getting the error In the attached screen shot and how do I fix it?
Additional info:
Intellisense is suggesting that I generate a constructor sub in frm_reportviewer1 but when I do I get some more errors saying "reference to a non-shared member requires an object reference" (I get this when I say frm_reportviewer.show()
Any assistance is appreciated.
Thanks!
[IMG]https://uploads.tapatalk-cdn.com/20171108/e3f28c9691a422dd78d7a84def68f5e7.jpg[/IMG]
|
|
|
|
|
A genuine screenshot 
frm_reportviewer1 is basically a special class, and to create a new instance of a class you generally so something like:
class frm_reportviewer1
sub new()
end sub
sub new(byval Object as MyClass)
end sub
end class
In your code you lack the method overload to send your Object witch I called MyClass.
|
|
|
|
|
Data source configuration wizard, choose database objects, click tables, click finish to configure the dataset - get this message "Dynamic SQL generation is not supported against a SelectCommand that does not return any base table information". I have a split access database and am pointing to the back end where the tables are and in the correct folder. VS configuration wizard finds the Access database back end and the table names which it has.
I am SO STUCK. When I put code inside the form to open the connection all I am able to know is that the table itself is where the bounded area is on the form but no information details from the access table. The VS form does show the correct number of records that the main table has, which strikes me as odd to know how many records are in the table but not be able to grab the individual fields in the table.
Any help would be greatly appreciated!
|
|
|
|
|
I would suspect you can't use Linked Tables in Access with the tools in Visual Studio. I don't use Access for anything anymore, so I can't test this theory.
My guess would be that you have to go directly to the underlying database, NOT ACCESS, for this to work.
|
|
|
|
|
ANY VB 6 CODE FOR AN .EML FILE ARCHIVE WITH VIEWER.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
