تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مجموعة من الاكواد الرائعة
#1
كاتب الموضوع : tibo


السلام عليكم ورحمة الله وبركاته

أخواني / أخواتي
اليكم مجموعة من الأكواد الرائعة للغة الأروع الـ Visual Basic .Net



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


كود :
[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]

.:::لا تنسوا الرد او التقييم:::.
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 380 04-04-15, 05:57 PM
آخر رد: abulayth
  هام جداً للمبتدئين - مجموعة من الأكواد الأساسية في فيجوال بيسك RaggiTech 0 1,275 17-10-12, 01:16 AM
آخر رد: RaggiTech
  هام 3 للمبتدئين - مجموعة 3 من الأكواد الاساسية للمبتدئين والمتوسطين RaggiTech 0 652 17-10-12, 01:14 AM
آخر رد: RaggiTech
  مجموعة من الاكواد الخاصة بالتعامل مع ال CD-Rom RaggiTech 0 474 17-10-12, 01:03 AM
آخر رد: RaggiTech
  رش مجموعة عشوائية من الألوان على الفورم RaggiTech 0 412 17-10-12, 12:44 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم