رقص نور

[MOhammadPCLover]

سلام بچه ها
خوبين؟ مرسي منم خوبم

بچه ها كي مي تونه برنامه ي رقص نور زيرو با صداي ويندوز هماهنگ كنه؟
ممنون مي شم بنويسيد!

[/align]
Option Explicit

Private Sub Timer1_Timer()
Call Drawing
End Sub

Private Sub Drawing()
Dim e As Variant
Dim strX As Single, strY As Single, strt As Single, strr As Single, strA As Single, strTh As Single
Call Randomize
Scale (3, -3)-(-3, 3)
strt = 8 * Atn(1)
ForeColor = QBColor(Rnd() * 15)
strA = 3 * Rnd()
For strTh = 0 To strt Step 0.01
strr = strA * Sin(10 * strTh)
strX = strr * Cos(strTh)
strY = strr * Sin(strTh)
PSet (strX, strY)
Next strTh
End Sub

[arnh]

سلام
واسه نوشتن کد . از درج کد قالب بندی شده استفاده کن ..
دویم : هیشکه نمی تونه و نمی شه ( این چه جور نظر سنجی هست )
سیم : کدوم صدای ویندوز ؟!
بیشتر توضیح بده .

[MOhammadPCLover]

سلــــــــــــــــامٌ علــــــــــــــيكـــــــم
اول اولت كو؟
دوم نظر سنجي رو يكي از دوستانم نوشت
سيم : هر صدايي كه پخش بشه

[ajlajlajl]

از سایت زیر استفاده کن. البته مطمئن نیستم که اونی رو که می خوای داشته باشه. ولی کللهم در مورد صدا است.
http://www.vb-audio.com

[MOhammadPCLover]

مرسي گلم
اونو نداشت ولي خيلي سايت خوبي بود