17-10-12, 02:57 PM
كاتب الموضوع : tibo
السلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
أخواني / أخواتي
اليكم مجموعة من الأكواد الرائعة للغة الأروع الـ Visual Basic .Net
اليكم مجموعة من الأكواد الرائعة للغة الأروع الـ Visual Basic .Net
كود بسيط لالتقاط صورة للشاشة في الحافظة
ضع هدا الكود في الفورم
تشغيل ملف صوتي من نوع ram
ضع هدا الكود في الفورم ولاحظ أنه يحتاج إلى الأداة الموجودة مع الريل بلاير
تشغيل ملف صوتي من نوع midi
ضع هدا الكود في الفورم
التحكم في رفع وخفض الصوت
ضع هدا الكود في الفورم
معرفة اليوم الحالي
ضع هدا الكود في الفورم
معرفة الشهر الحالي
ضع هدا الكود في الفورم
الفرق بين تاريخين باليوم
ضع هدا الكود في الفورم
عرض الوقت والتاريخ
ضع هدا الكود في الفورم
نسخة مشتركة من البرنامج (تشتغل لعدد معين)
ضع هدا الكود في الفورم
.:::لا تنسوا الرد او التقييم:::.
ضع هدا الكود في الفورم
كود :
[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]
.:::لا تنسوا الرد او التقييم:::.