VB 6.0 Geluiden

[eeyk]

ik heb 2 vraagjes

1. Bij Vbs kan je met een bepaalde code Je pc laten piepen Vaag piepje Weet iemand hoe je dit doet bij VB 6.0

2. Hoe kan je je script paar seconden laten wachten ik heb dit al geprobeert

Sleep (5000)

maar dan krijg ik error

 

[vanschagen]

sleep commando

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub SleepWait(ByVal inMillisec As Long)
Dim TimerLoop As Long

' Sleep for 100ms at a time
Const WaitInc = 100

Do
DoEvents
Sleep WaitInc
TimerLoop = TimerLoop + WaitInc
Loop While TimerLoop < inMillisec
End Sub




beep commando


Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

To sound the beeper, simply use

Beep 500, 1000

 

[eeyk]

Ze werken allebij niet hij leest er overheen hij werkt niet in

Een Module of in een Excel Forum

 

[vanschagen]

het is ook visual basic code en geen exel

 

[CoD_NL]

Je kunt ook nog altijd een grote for-loop plaatsen die helemaal niks doet.

 

[eeyk]

VB 6.0 Is die code toch??
als ik dat invul bij Code dan werkt die niet want ik ben programa aan het maken met nog paar anderen die dit ook niet weten die weten het wel van VB 2005 / 2008

maar niet van 6.0 Het programma van mij sluit te snel af daar door sluit hij veel Opties niet Volledig af en maak het fouten dus ik moet er sleep voor zetten zo dat het tijd krijg om aff te sluiten die bleep is gewoon ik wou die code weten

 

[vanschagen]

als het te snel gaat kan je met debug toch het verloop bekijken?

 

[eeyk]

ik heb iets anders Verzonnen

ik heb nu Afsluiten met timer

Dus je click to de button

timer1.interval = 3000
Unload me

een timer sluit het af na die 3 Seconden Gewacht heb

 

[CoD_NL]

VB 6.0 Is die code toch??
als ik dat invul bij Code dan werkt die niet want ik ben programa aan het maken met nog paar anderen die dit ook niet weten die weten het wel van VB 2005 / 2008

maar niet van 6.0 Het programma van mij sluit te snel af daar door sluit hij veel Opties niet Volledig af en maak het fouten dus ik moet er sleep voor zetten zo dat het tijd krijg om aff te sluiten die bleep is gewoon ik wou die code weten

Kun je niet gewoon een afsluit functie schrijven ?

private sub form_load()
  if(afsluiten) then unload me 'als de functie afsluiten true is het programma afsluiten
end sub

private function afsluiten() as boolean
  'code die alles afsluiten
  afsluiten = true 'return true als alles afgesloten is
end function

(niet getest uiteraard )

 

[eeyk]

Ja das wel slim ik ga die code maken hier hat ik niet aan Gedacht

 

[snipeytje]

de code in excel is volgens mij vbs of vba maar niet vb6