Click here to Skip to main content
15,895,256 members
Home / Discussions / Visual Basic
   

Visual Basic

 
Questioncan vb.net use zedgraph??? Pin
ss65432126-Feb-06 16:40
ss65432126-Feb-06 16:40 
AnswerRe: can vb.net use zedgraph??? Pin
Joshua Quick26-Feb-06 19:05
Joshua Quick26-Feb-06 19:05 
QuestionHow to link vb to other software Pin
areon2526-Feb-06 16:28
areon2526-Feb-06 16:28 
AnswerRe: How to link vb to other software Pin
Rana Muhammad Javed Khan26-Feb-06 18:15
Rana Muhammad Javed Khan26-Feb-06 18:15 
QuestionSimple tone generator in VB Pin
jonls26-Feb-06 16:24
jonls26-Feb-06 16:24 
AnswerRe: Simple tone generator in VB Pin
progload26-Feb-06 18:30
progload26-Feb-06 18:30 
GeneralRe: Simple tone generator in VB Pin
jonls27-Feb-06 5:10
jonls27-Feb-06 5:10 
AnswerRe: Simple tone generator in VB Pin
Member 1128712314-Jul-18 7:50
Member 1128712314-Jul-18 7:50 
<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>
QuestionCapture search results into active child form Pin
jputhra26-Feb-06 15:41
jputhra26-Feb-06 15:41 
QuestionHow to create multiple reports in ReportViewer? Pin
Rashar26-Feb-06 14:47
Rashar26-Feb-06 14:47 
Questioncreating multiple dataset based upon a query Pin
uglyeyes26-Feb-06 12:49
uglyeyes26-Feb-06 12:49 
QuestionMicrosoft Word Grammar Check Pin
Purple Monk26-Feb-06 11:41
Purple Monk26-Feb-06 11:41 
QuestionBindingNavigator question Pin
Brian Holdridge26-Feb-06 11:24
Brian Holdridge26-Feb-06 11:24 
QuestionAxwebbrowser autommatic log and password ?? HOW Pin
szaki26-Feb-06 10:43
szaki26-Feb-06 10:43 
QuestionThe TypeInitializer threw an Exception Pin
Devraj Raut26-Feb-06 9:42
Devraj Raut26-Feb-06 9:42 
AnswerRe: The TypeInitializer threw an Exception Pin
Guffa26-Feb-06 10:22
Guffa26-Feb-06 10:22 
AnswerRe: The TypeInitializer threw an Exception Pin
Joshua Quick26-Feb-06 10:22
Joshua Quick26-Feb-06 10:22 
QuestionScrollbar Pin
ADY00726-Feb-06 9:08
ADY00726-Feb-06 9:08 
AnswerRe: Scrollbar Pin
progload26-Feb-06 10:07
progload26-Feb-06 10:07 
Questionupdating access db from dataform Pin
wiseyuss26-Feb-06 7:53
wiseyuss26-Feb-06 7:53 
AnswerRe: updating access db from dataform Pin
Joshua Quick26-Feb-06 9:46
Joshua Quick26-Feb-06 9:46 
QuestionListview Items Index Pin
aransiola26-Feb-06 7:49
aransiola26-Feb-06 7:49 
AnswerRe: Listview Items Index Pin
Joshua Quick26-Feb-06 9:35
Joshua Quick26-Feb-06 9:35 
NewsHelp !!! no ther forums help me on this Pin
zer0frost26-Feb-06 7:47
zer0frost26-Feb-06 7:47 
GeneralRe: Help !!! no ther forums help me on this Pin
RichardBerry26-Feb-06 18:53
RichardBerry26-Feb-06 18:53 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.