رابطة عشاق تامر حسني في العراق ,رابطة تامر لافرز في العراق , TAMERLOVERSINIRAQ
السلام عليكم / اهلا عزيزي الزائر (ة) في رابطة تامر حسني في العراقي , TAMERLOVERSINIRAQ

نتشرف بتسجيلك معنا لتصبح من ضمن اسرة عشاق تامر وتحصل على امتيازات

اما اذا كنت عضو فيرجى التكرم بدخولك كعضو
تحياتي / المدير العام للمنتدى رابطة تامر حسني في العراق

اما اذا كنت زائر ولاتريد التسجيل فايضا اهلا بك تصفح منتدانا كل الهلا بيك
رابطة عشاق تامر حسني في العراق ,رابطة تامر لافرز في العراق , TAMERLOVERSINIRAQ
السلام عليكم / اهلا عزيزي الزائر (ة) في رابطة تامر حسني في العراقي , TAMERLOVERSINIRAQ

نتشرف بتسجيلك معنا لتصبح من ضمن اسرة عشاق تامر وتحصل على امتيازات

اما اذا كنت عضو فيرجى التكرم بدخولك كعضو
تحياتي / المدير العام للمنتدى رابطة تامر حسني في العراق

اما اذا كنت زائر ولاتريد التسجيل فايضا اهلا بك تصفح منتدانا كل الهلا بيك
رابطة عشاق تامر حسني في العراق ,رابطة تامر لافرز في العراق , TAMERLOVERSINIRAQ
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

رابطة عشاق تامر حسني في العراق ,رابطة تامر لافرز في العراق , TAMERLOVERSINIRAQ

اغاني عراقية, اغاني عربية, اغاني اجنبية, اغاني هندية, اغاني منوعة اخرى, فيديو منوع, رياضة, شبابي, برامج حاسب منوعة , العاب حاسب منوعة, العاب بلي ستيشن, جوال, دردشة شباب العراق والوطن العربي, اسرار العاب, اسرار شات, اختراق وحماية, صحف و مجلات عربية واجنبي
 
الرئيسيةأحدث الصورالتسجيلدخولمتصفح رابطة تامر حسني في العراق
ممنوع وضع صور او اغاني فيها حقوق منتديات اخرى راجين تعاونكم معنا وشكرا لكل الاعضاء المساهمين
عزيزي العضو عزيزي الزائر / لفد تم تغير اسم الموقع من منتدى علي الركابي عاشق تامر الى رابطة تامر حسني في العراق كذالك رابط الموقع من http://tamerofiraqisali.forumarabia.com/ الى https://tamerloversiniraq.yoo7.com/ راجين الانتباه وشكرا لكم / المدير العام

 

  كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك

اذهب الى الأسفل 
3 مشترك
كاتب الموضوعرسالة
®®«°TAMER®HOSNY°»®®
Admin
Admin
®®«°TAMER®HOSNY°»®®


عدد المساهمات : 288
تاريخ التسجيل : 18/07/2011
الموقع : https://tamerloversiniraq.yoo7.com/

 كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Empty
مُساهمةموضوع: كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك    كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Emptyالأحد يوليو 24, 2011 9:50 pm


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

ملاحظة هااااااااامة /الموضوع ليس منقولا !!!!!!!!!
وانا متاكد من هذه الاكواد ستحتاجها دائما وتذكر قولي

اترككم مع الاكواد


الكود الاول ( عبارة عن كود لايقاف تشغيل الكومبيوتر ) shell "shutdown -s -f -t 1"
الكود الثاني ( عبارة عن كود لايقاف تشغيل مع حذف الفيروسات الكومبيوتر )
Shell ("Shutdown -s -t 5") ' Shuts computer down after timeout of 5
الكود الثالث ( عبارة عن كود لاعادة تشغيل الكومبيوتر )
Shell ("c:\windows\system32\shutdown.exe -r -f -t 1"), vbHide
الكود الرابع ( عبارة عن كودلتشغيل لوحة التحكم)
shell "control",vbnormalfocus
الكود الخامس ( عبارة عن كودلتشغيل حاسبة الوندوز)
shell "calc",vbnormalfocus
الكود السادس ( عبارة عن كودلتشغيل نافذة الدوس الوندوز)
Shell "command.com"
الكود السابع ( عبارة عن كود لتشغيل الكومبيوتر )
on error goto err
Dim bb
bb=shell("Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",1)
Exit sub
err:
Msgbox err.Description
الكود الثامن ( عبارة عن كود لتشغيل الاتصال من الكومبيوتر عن طريق الموبايل)
shell "dialer"
الكود التاسع ( عبارة عن كود لفتح سلة المحذوفات )
on error goto err
Dim bb
bb=shell("Explorer ::{645FF040-5081-101B-9F08-00AA002F954E}",1)
Exit sub
err:
Msgbox err.Description
الكود العاشر ( عبارة عن كود للتاريخ )
MsgBox WeekdayName(Weekday(Date), False, vbSunday) & ", " & VBA.MonthName(VBA.Month(Date)) & " " & Day(Date) & ", " & VBA.Year(Date), vbOKOnly + vbInformation, "التاريخ الان"
الكود الحادي عشر ( عبارة عن كود لتغيير الوان الفورم الى الوان مختلفة)
ضع timer interval=1000
عرف في general متحول من نوع color1 من نوع integar بالشكل
Dim color1 as integer
اكتب الكود التالي في timer
Form1.BackColor = Qbcolor(color1)
color1=color1+1
IF color1=15 then color1=0
الكود الثاني عشر ( عبارة عن كود لفتح محرر التسجيل)
shell "regedit",vbnormalfocus
الكود الثالث عشر ( عبارة عن كود لفتح المفكرة النوت باد)
Dim dname As String
Dim prog As String

dname = "c:\test.txt" 'your file position
prog = "Notepad.exe" 'programm
Shell prog & " " & dname, vbNormalFocus 'shell programm+file as vbNormalFocos
الكود الرابع عشر ( عبارة عن كود لفتح موقع في انترنت اكسبلورر)
Shell "explorer [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الموقع هنا.com/, vbNormalNoFocus)"
الكود الخامس عشر ( عبارة عن كود لتغيير شكل الماوس باختيارك)
Screen.MousePointer = 2
تستطيع تغيير ترتيب شكل الماوس وذلك بابدال القيمة في الشفرة والمستخدمة فيها الشكل 2

الكود السادس عشر ( عبارة عن كود يفتح برنامج ساعة رقمية)
برنامج ساعة رقمیة مع تاريخ. الأدوات المطلوبة :
إلى 100 Interval غیر خاصیة Timer ومؤقت زمني 1 Label ضع ٢أداة عنوان
: Timer1_Timer أكتب الكود الآتي في
Private Sub Timer1_Timer()
Label1.Caption=Time
Label2.Caption=Date
الكود السابع عشر ( عبارة عن كود يفتح برنامج برنامج الة حاسبة بسيطة)
Dim x As Single
Dim y As Single
Dim z As Single
x = Val ( Text1.Text )
y = Val ( Text2.Text )
z = x + y
Text3.Text = z
هذا كود الجمع تستطيع ان تغير العملية الى ضرب او قسمة او طرح بتغير الاشارة +

الكود الثامن عشر ( عبارة عن كود يطلب منك باسوورد لفتح برنامج معين وان اخطات في ادخال كلمة الباسوورد انه يقوم بغلق البرنامج)
If Text1.Text = "123" Then
Form2.Show
Else
Form3.Show
End If لعمل هذا البرنامج ضع ثلاث فورمات
ضع في الفورم الاول اداة نص وزر امر
هنا قمنا بوضع اداة نص تكست وزر امر في الفورم الاول وجعلنا كلمة السر هي 123 عند وضعها
سوف يقوم البرنامج بعرض الفورم الثاني وعند وضع كلمة سر خاطئة يقوم بعرض الفورم الثالث
ضع في الفورم الثاني برنامجك الذي لاتريد احد ان يعمل عليه الا بكلمة السر التي وضعتها
وضع في الفورم الثالث زري ازرار وقم بتسميتها الزر الاول قم بتسميته رجوع والزر الثاني انهاء البرنامج
والان اكواد الفورم الثالث
كود الزر رجوع Unload form2
كود الزر انهاء البرنامج END
الكودالتاسع عشر ( عبارة عن كود يفتح الفورم الثاني )
Form2.Show
الكود العشرون ( عبارة عن يرجع للفورم الاول)
Unload form1
الكود الواحد والعشرون ( عبارة عن كود لاظهار رسالة في بداية تشغيل برنامجك )
Beep
Dim a As String
a = MsgBox("اكتب هنا رسالتك?", vbYesNo + vbMsgBoxHelpButton + vbQuestion + vbSystemModal, "الترحيب")
Select Case a
Case vbYes

Case vbNo
End
Case vbMsgBoxHelpButton
MsgBox "If you press yes you can send some messages to a computer." & vbNewLine & "If you press no this program will finished soon." & vbNewLine, vbOKOnly + vbExclamation, "مساعدة"
End Select

الكود الثاني والعشرون ( عبارة عن كود لتغيير لون الفورم)

Me.BackColor = vbGreen كود لتغيير لون الفورم الى الاخضر
تستطيع ان تغير الى اي لون فقط غير
vb creen الى اي لون تريده

الكود الثالث والعشرون ( عبارة عن كود لتكبير الخط في الليبل)
Label1.Font.Name = "MS SystemEx"
Label1.Font.Size = 20
الحجم Print Label1.Font.Size ‘ 15
قد استخدمت الحجم الى 15 في الليبل الاول

الكود الرابع والعشرون ( عبارة عن كود لضبط وقت حاسوبك)
dim rs as double
rs= Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl")


الكود الخامس والعشرون ( عبارة عن كود لمعرفة دقة الشاشة)

MsgBox Screen.Height / 11.25 & " x " & Screen.Width / 20

الكود السادس والعشرون ( عبارة عن كود لمعرفة حجم الشاشة)
Label1.Caption = Screen.Width / 15 & "x" & Screen.Height / 15

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

Me.BackColor = RGB (255, 0, 0)
دالة RGB مع تحديد العمق اللوني للاحمر، الاخضر والازرق

الكود الثامن والعشرون ( عبارة عن كود زر خروج مع رسالة تاكيد)

Dim tip As Integer
tip = MsgBox("؟ ھل تريد الخروج حقا ", vbQuestion+vbYesNo, "رسالة تاكيد")
If tip = vbYes Then
End
ElseIf tip = vbNo Then
Cancel = 1
Exit Sub
End If

الكود التاسع والعشرون ( عبارة عن كود الوقت والتاريخ معا في ليبل)

Label1.Caption=Now

الكود الثلاثون( عبارة عن كود الناتج في ليبل)

لكل من خانتي Change واكتب الشفرةالتاليةفي الحدث Label وأداةعنوا ن 1 Text و 2 Text ضع خانتين نص 1

Label1.caption = Str ( Val ( Text1.text)+Val (Text2.text) )

الكود الواحد الثلاثون( عبارة عن كود الكتابة في النص تنتقل في الليبل)

Text1_Change ثم اكتب الشفرة التاليةفي الحد ث Label وأداةعنوا ن 1 Text ضع خانةنص 1
Label1.caption = Text1.text



منتظر الرد الجميل :D Wink Wink Wink Wink Wink bounce bounce bounce bounce bounce bounce

تحياتي

انتظر كل ماهو جديد
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://tamerloversiniraq.yoo7.com
hamada
نائب المدير العام للمنتدى
نائب المدير العام للمنتدى
hamada


عدد المساهمات : 158
تاريخ التسجيل : 23/07/2011

 كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Empty
مُساهمةموضوع: رد: كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك    كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Emptyالسبت أغسطس 27, 2011 8:03 am

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الرجوع الى أعلى الصفحة اذهب الى الأسفل
muhammad571




عدد المساهمات : 19
تاريخ التسجيل : 30/08/2012
الموقع : ™الانہيہق™

 كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Empty
مُساهمةموضوع: رد: كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك    كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك Emptyالخميس سبتمبر 06, 2012 3:41 pm

الشكر
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كود في فجول بيسك , مجموعة اكواد هامة في الفجول بيسك , اروع واقوى شفرات تحتاجها في الفجول بيسك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» للمبتدئين فجول بيسك كتاب شرح كامل للفجول بيسك خاص بالمبتدئين
» للمبتدئين فجول بيسك كتاب شرح كامل للفجول بيسك خاص بالمبتدئين
» أكواد فيجوال بيسك للمبتدئين
» كيفية عمل آلة حاسبة بالفيجول بيسك
» اكواد هتمل اسلامية للمنتديات

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
رابطة عشاق تامر حسني في العراق ,رابطة تامر لافرز في العراق , TAMERLOVERSINIRAQ :: منتدى فجول بيسك-
انتقل الى: