|
|
Yup- that works. Hopefully I can modify it to allow dynamic adjustment of freq, duration and volume.
Thanks!
|
|
|
|
|
<pre>
Option Explicit
Private Declare Function GetMem8 Lib "msvbvm60" (ByRef src As Any, ByRef Dst As Any) As Long
Private Declare Function GetMem4 Lib "msvbvm60" (ByRef src As Any, ByRef Dst As Any) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundW" (ByRef pData As Any, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long
Private Const SND_MEMORY = &H4
Dim x As Integer
Private Function PlayTone(ByVal fFrequency As Single, ByVal fDurationMS As Single) As Boolean
Dim bData() As Byte
Dim lSize As Long
Dim lSamples As Long
Dim lIndex As Long
Dim fPhase As Single
Dim fDelta As Single
lSamples = 44.1 * fDurationMS
lSize = lSamples + 44
fDelta = fFrequency / 44100 * 6.28318530717959
ReDim bData(lSize - 1)
GetMem4 &H46464952, bData(0): GetMem4 CLng(lSize - 8), bData(4)
GetMem8 233861439252950.2551@, bData(8)
GetMem8 28147927167.7968@, bData(16)
GetMem8 18940805779.77@, bData(24)
GetMem8 702234480110259.4049@, bData(32)
GetMem4 lSamples, bData(40)
For lIndex = 0 To lSamples - 1
bData(lIndex + 44) = Sin(fPhase) * 127 + 128
fPhase = fPhase + fDelta
If fPhase > 6.28318530717959 Then fPhase = fPhase - 6.28318530717959
Next
PlaySound bData(0), 0, SND_MEMORY
End Function
Private Sub Form_Load()
For x = 300 To 1100 Step 9
PlayTone x, 8
Next
For x = 900 To 300 Step -9
PlayTone x, 7
Next
End
End Sub
</pre>
|
|
|
|
|
Hi!
I'm developing a MDI application. There are few search buttons respectively in child forms. When I clicked the search button, the results shall be displayed in search form which uses list view to display results.
I want to make the search form as a common form to be called by all the search button? And how do I capture the results to text boxes in active child forms from the search form? Below is the code snippet for search btn:
Private Sub btnSearchName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchName.Click
Dim oSearch As New frmSearch
Dim sSQL As String
sSQL = "SELECT * FROM tbl_user"
Try
oSearch.FillDataset(sSQL)
oSearch.Show()
Catch
oSearch.Dispose()
End Try
End Sub
Please guide and assist me. Your help is much apprecited.
Thank you,
jputhra
|
|
|
|
|
Hello,
I have created a report that when the customers number is selected from a combobox, it displays the individual items for that cust fine. I have another combobox that displays the states for each customer, so if I selected NY, I would like to see all the Customers for that region in the report.
I have put a break point right where my table adapter fills my dataset item, and I see exactly the results that I'm looking for...
After that line of code is this: Me.ReportViewer1.RefreshReport()
When I execute the code, I get a blank report. Is there anywhere in my reportviewer that I need to specify multiple records?
Thanks,
Rashar
-- modified at 20:48 Sunday 26th February, 2006
|
|
|
|
|
Hi,
i want to create a multiple datasets and bind it seperately. the query will look like
select * from table where id=ID
now,
if id = 1,
i want to generate dataset1 just for records with id=1 and
if id = 2,
i want to generate dataset2 just for records with id=2 and so forth
so that i can bind those datasets to different web control say for webchart component or a datagrid.
Please note id can be any value from null to 100 and the select statement can return 0 to n records based upon id.
hope my question makes sense.
please help!!!
robin69
|
|
|
|
|
Hi all,
I want to get the grammar suggestions from Microsoft Word 2003 Pro. I can get the problems but not the correction offerings, has anybody done this and if so could you possibly point me in the right direction.
This is what i have so far
Dim oWord As New Word.Application
Dim oDoc As New Word.Document
Dim oRng As Word.Range
Dim i As Long
Dim oGrErrors As Word.ProofreadingErrors
oWord.Visible = False
oWord.WindowState = 0
oWord.Top = -3500
oDoc = oWord.Documents.Add
oRng = oDoc.Range
oRng.Text = strPhrase
oGrErrors = oRng.GrammaticalErrors
For i = 1 To oGrErrors.Count
oRng = oGrErrors.Item(i)
MsgBox(oRng.Text)
Next
oDoc.Close(0)
oWord.Quit(0)
oWord = Nothing
The above example just picks out the problems and shows you them which is useless unless i write my own grammar dictionary. I have managed to get the spelling suggestions but there seems to be no way of getting the grammar suggestions.
Note: Calling CheckGrammar provides the grammar check interface which i don't want the user to see or use, this needs to be an internal check.
I have been looking everywhere and found that no-one seems to have an example of this, please help.
Thanks
Purple
"If i was king cigarettes would be free."
|
|
|
|
|
I am checking out the BindingNavigator control and might use it if I can solve one last issue. I am using this control to navigate a dataset table displayed in a group of textboxes. I would like to allow the user to select a record to jump to. Is there a way to tell the BindingNavigator to go to a particular record or position number?
Thank you
Brian
|
|
|
|
|
I have programme who strone html shows me in axwebbrowser. How do replenish field login and password automatically ??
IF somebody give me a simple code how to do IT ??
Thanks
|
|
|
|
|
Hi Guys!!;)
I get a TypeInitializer Exception in the Load event of the Main Form of my Project. I have called a Sub Procedure insidethe Load Event of the Form called FillLvLogs() which is present in a Module in my Project. This exception is coming whenever i try to access any Sub or Function inside the Module. Please help me. I'm frustrated with this Exception . Any suggestions are Welcome!! Thanx!! Cya! Bye!!
Devraj Raut!!!
|
|
|
|
|
The TypeInitializerException exception is a wrapper around the exception that is thrown inside the constructor of the class.
Examine the code in the constructor to see it there is something there that might cause an exception.
See what the inner exception is. If this is not shown in the error message, catch the exception and throw it's inner exception to see what the real error is.
---
b { font-weight: normal; }
|
|
|
|
|
I believe this exception occurs when the .NET framework fails to connect to a COM object, ActiveX, or PInvoke unmanaged code. Are you using any unmanaged libraries? If so, then that's probably it.
|
|
|
|
|
hello, i have a problem with the scrollbar! i made a messanger via ip and when the rich text box is full up with words a scrollbar apears! the problem is not that the scrollbar appears but every line i write or the client writes the scrollbar goes default (in top).
So the problem is this: when i write a line the scrollbar will go on the top so the line cannot be seen. i want to scroll the bar down again every time i write a line or the client! how can i make the scroll bar down all the time?? 10x alot!!
Adrian De Battista
|
|
|
|
|
ADY007,
Somthing like this:
richTextBox1.Select()
richTextBox1.SelectionStart = richTextBox1.Text.Length
richTextBox1.ScrollToCaret
progload
-- modified at 16:14 Sunday 26th February, 2006
Sorry, forgot the RichTextBox1.Select() line...
(The textbox in the richtextbox must have focus)
|
|
|
|
|
I have an access db that I am accessing through a dataform in a vb.net windows application. It ran fine until I made a change to a field of a record that had been previously entered and updated. After I make the change and try to update the database an error message comes up, "syntax error in INSERT INTO statement". Any suggestions anyone?
Shawn
|
|
|
|
|
Your SQL string is probably being built incorrectly.
You should run the debugger and take a look at the SQL string before it gets sent to the database. It's the only way you're going to find out what's wrong.
Also, if you have any apostrophes ['] in your fields, then you need to properly escape them.
|
|
|
|
|
I am using dot.Net
I have a control table with Menu group and Group Items. I display the Menugroups on a treeview control. For each item on the group tree, there are corresponding items that is displayed in the listview. There is no problem with the treeview items. My problem is how to know a the particular listview items selected or clicked by the user.
There is nothing like Key property or index property to track the listview items in dot Net
Please assist
Tunde Aransiola
|
|
|
|
|
You can store information in the ListViewItem.Tag property.
|
|
|
|
|
After doing a lot of searches on many many forum, i feel that this one is closest to the help lvl i need...
Introduction:"
*Lift your hand and put it on top of any key on your keyboard. example [F]*
*Put down you finger and press this key [F] ... as a result you will see the character "F" writen on your screen.
*From what ive seen sendkeys.send("f") or sendkeys.send("F") i belive it only sends a msg of the character "F"\"f" instead of reproducing the signals the keyboard makes.
My Problem:"
*** I need an program that each 'x' seconds will press the keys "space bar"\"q"\"w"\"e" ... i dont know if my solution is setting something like hook.dll and control it thru there  . And after that, i need the program i made to control my mouse to be able to move the mouse & preform clicks, within any game (ex:liniage\mu-online\World of warcraft...etc)
Basically i need a program that mimics the functions of the mouse & keyboard. I trust you gurus will help me on this...  cause im allmost getting a nervius tick  
|
|
|
|
|
Dim AbortSending As Boolean = True
Dim Keyboard As SendKeys
Do While Not AbortSending
Keyboard.Send(" qwe")
'Or
Keyboard.SendWait(" qwe")
Threading.Thread.Sleep(500) ' This will delay for 500ms before next send
Loop
|
|
|
|
|
If you are not simply looking for code to do this yourself, i.e. you only want to simulate mouse and keystrokes, then there is an excellent BASIC like scripting language called AutoIt which even compiles to standalone exe's.
goto http://www.autoitscript.com/autoit3/index.php for details and downloads (its FREEWARE).
Hope that helps.;)
Tremonde.
|
|
|
|
|
I have been looking for a control like Flexgrid in dotNET but could not see any. I need a grid that is not attached to any datatable. I want to programatically control the grid. Any help will be appreciated.
I am using .Net 2003
Tunde Aransiola
|
|
|
|
|
aransiola wrote: I have been looking for a control like Flexgrid in dotNET but could not see any. I need a grid that is not attached to any datatable. I want to programatically control the grid. Any help will be appreciated.
I like this one[^]
Michael
CP Blog [^] Development Blog [^]
|
|
|
|
|
i saw the C# Grid by Davide Icardi. i am using vb.Net how can i use this with VB.Net codes
thanks
tunde aransiola
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
