مجموعة من الاكواد الرائعة - نسخة قابلة للطباعة

كود بسيط لالتقاط صورة للشاشة في الحافظة
ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private Declare [/color][color=#0000bb]Sub keybd_event Lib [/color][color=#dd0000]"user32.dll" [/color][color=#007700]([/color][color=#0000bb]ByVal bVk [/color][color=#007700]As [/color][color=#0000bb]Byte[/color][color=#007700], [/color][color=#0000bb]ByVal bScan [/color][color=#007700]As [/color][color=#0000bb]Byte[/color][color=#007700], [/color][color=#0000bb]ByVal dwFlags [/color][color=#007700]As [/color][color=#0000bb]Long[/color][color=#007700], [/color][color=#0000bb]ByVal dwExtraInfo [/color][color=#007700]As [/color][color=#0000bb]Long[/color][COLOR=#007700])  

Private [/COLOR][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]keybd_event vbKeySnapshot[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700], [/color][COLOR=#0000bb]0  

DoEvents  

End Sub  

[/COLOR][/COLOR]

تشغيل ملف صوتي من نوع ram

ضع هدا الكود في الفورم ولاحظ أنه يحتاج إلى الأداة الموجودة مع الريل بلاير

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]RealAudio1[/color][color=#007700].[/color][color=#0000bb]Source [/color][color=#007700]= [/color][COLOR=#dd0000]"c:\AFR.ram"  

[/COLOR][color=#0000bb]RealAudio1[/color][color=#007700].[/color][COLOR=#0000bb]DoPlay  

End Sub  

[/COLOR][/COLOR]

تشغيل ملف صوتي من نوع midi

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Form_Load[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]MMControl1[/color][color=#007700].[/color][color=#0000bb]Visible [/color][color=#007700]= [/color][COLOR=#0000bb]False  

MMControl1[/COLOR][color=#007700].[/color][color=#0000bb]DeviceType [/color][color=#007700]= [/color][COLOR=#dd0000]"sequencer"  

[/COLOR][color=#0000bb]MMControl1[/color][color=#007700].[/color][color=#0000bb]FileName [/color][color=#007700]= ([/color][color=#dd0000]"c:\FileName.mid"[/color][COLOR=#007700])  

[/COLOR][color=#0000bb]MMControl1[/color][color=#007700].[/color][color=#0000bb]Command [/color][color=#007700]= [/color][COLOR=#dd0000]"open"  

[/COLOR][color=#0000bb]MMControl1[/color][color=#007700].[/color][color=#0000bb]Command [/color][color=#007700]= [/color][COLOR=#dd0000]"play"  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

التحكم في رفع وخفض الصوت

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb]Sub SetVol[/color][color=#007700]([/color][color=#0000bb]Volume [/color][color=#007700]As [/color][color=#0000bb]Long[/color][COLOR=#007700])  

[/COLOR][color=#0000bb]Dim Vol[/color][COLOR=#007700]&  

[/COLOR][color=#0000bb]Vol [/color][color=#007700]= [/color][color=#0000bb]CLng[/color][color=#007700]([/color][color=#dd0000]"&H" [/color][color=#007700]& [/color][color=#0000bb]Hex[/color][color=#007700]([/color][color=#0000bb]Volume [/color][color=#007700]+ [/color][color=#0000bb]65536[/color][COLOR=#007700]))  

[/COLOR][color=#0000bb]waveOutSetVolume 0[/color][color=#007700], [/color][COLOR=#0000bb]Vol  

End Sub  

[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]SetVol Text1[/color][color=#007700].[/color][COLOR=#0000bb]Text  

End Sub  

[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Form_Load[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]Text1[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#dd0000]"ضع قيمة عددية تنحصر ما بين 0 و65536"  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

معرفة اليوم الحالي

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]Dim Dday [/color][color=#007700]As [/color][COLOR=#0000bb]Integer  

Dday [/COLOR][color=#007700]= [/color][color=#0000bb]Weekday[/color][color=#007700]([/color][color=#0000bb]Date[/color][COLOR=#007700])  

If [/COLOR][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]1 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الأحد"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]2 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الاثنين"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]3 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الثلاثاء"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]4 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الأربعاء"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]5 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الخميس"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]6 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"الجمعة"  

[/COLOR][color=#007700]If [/color][color=#0000bb]Dday [/color][color=#007700]= [/color][color=#0000bb]7 Then [/color][color=#007700]Print [/color][COLOR=#dd0000]"السبت"  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

معرفة الشهر الحالي

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]Mmonth [/color][color=#007700]= [/color][color=#0000bb]Mid[/color][color=#007700]([/color][color=#0000bb]Date[/color][color=#007700], [/color][color=#0000bb]4[/color][color=#007700], [/color][color=#0000bb]2[/color][COLOR=#007700])  

Print [/COLOR][color=#0000bb]MonthName[/color][color=#007700]([/color][color=#0000bb]Mmonth[/color][COLOR=#007700])  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

الفرق بين تاريخين باليوم

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Command1_Click[/color][COLOR=#007700]()  

[/COLOR][COLOR=#0000bb]On Error GoTo 1  

Dim Form1Date [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Date  

Dim Form2Date [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Date  

Form1Date [/COLOR][color=#007700]= [/color][color=#0000bb]Text1[/color][color=#007700].[/color][COLOR=#0000bb]Text  

Form2Date [/COLOR][color=#007700]= [/color][color=#0000bb]Text2[/color][color=#007700].[/color][COLOR=#0000bb]Text  

Text3[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#0000bb]DateDiff[/color][color=#007700]([/color][color=#dd0000]"d"[/color][color=#007700], [/color][color=#0000bb]Text1[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700], [/color][color=#0000bb]Text2[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700]) & [/color][COLOR=#dd0000]" اليوم"  

[/COLOR][color=#007700]Exit [/color][COLOR=#0000bb]Sub  

 MsgBox [/COLOR][color=#007700]([/color][color=#dd0000]"من فضلك أدخل التاريخ بشكل صحيح"[/color][COLOR=#007700])  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

عرض الوقت والتاريخ

ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Form_Load[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]Timer1[/color][color=#007700].[/color][color=#0000bb]Interval [/color][color=#007700]= [/color][COLOR=#0000bb]1000  

End Sub  

[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Timer1_Timer[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]Label1 [/color][color=#007700]= [/color][color=#0000bb]Time [/color][color=#007700]& [/color][COLOR=#0000bb]Date  

End Sub  

[/COLOR][/COLOR]

نسخة مشتركة من البرنامج (تشتغل لعدد معين)
ضع هدا الكود في الفورم

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Form_Load[/color][COLOR=#007700]()  

[/COLOR][color=#0000bb]retvalue [/color][color=#007700]= [/color][color=#0000bb]GetSetting[/color][color=#007700]([/color][color=#dd0000]"A"[/color][color=#007700], [/color][color=#dd0000]"0"[/color][color=#007700], [/color][color=#dd0000]"Runcount"[/color][COLOR=#007700])  

[/COLOR][color=#0000bb]GD[/color][color=#007700]$ = [/color][color=#0000bb]Val[/color][color=#007700]([/color][color=#0000bb]retvalue[/color][color=#007700]) + [/color][COLOR=#0000bb]1  

SaveSetting [/COLOR][color=#dd0000]"A"[/color][color=#007700], [/color][color=#dd0000]"0"[/color][color=#007700], [/color][color=#dd0000]"RunCount"[/color][color=#007700], [/color][color=#0000bb]GD[/color][COLOR=#007700]$  

If [/COLOR][color=#0000bb]GD[/color][color=#007700]$ > [/color][color=#0000bb]3 Then  الرقم [/color][color=#007700]([/color][color=#0000bb]3[/color][color=#007700]) [/color][COLOR=#0000bb]يحدد عدد مرات التشغيل  

MsgBox [/COLOR][color=#007700]([/color][color=#dd0000]"انتهت مدة تشغيل البرنامج,قم بشراء النسخة الكاملة من المنتج"[/color][COLOR=#007700])  

[/COLOR][COLOR=#0000bb]Unload Me  

End [/COLOR][COLOR=#007700]If  

[/COLOR][COLOR=#0000bb]End Sub  

[/COLOR][/COLOR]

.:::لا تنسوا الرد او التقييم:::.