الإعــلام الآلي والرياضيــات يشتمل على جميع مبادئ الإعلام الآلي والرياضيــات

قديم 28-12-2008, 09:48 PM
  #1
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
MaBrOk اصنع اسطوانة تجميعية بدون برامج




تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك " AIO
مع هذا السورس كود تستطيع عمل اسطوانة تجميعية "كود فيجوال بيسك "

كود:
'ahmed ksnv'


Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ALIAS = &H10000
Const SND_ASYNC = &H1
Const SND_SYNC = &H0
Const SND_NOWAIT = &H2000
Const SND_LOOP = &H8

Sub SoundCheck()
Dim lRetVal As Long
lRetVal = sndPlaySound("MOVE.WAV", SND_SYNC)
End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label1_Click()
SoundCheck
Shell "i386\winnt32.exe", vbNormalFocus




End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = (&HFF&)
Label1.ForeColor = (&HFFFFFF)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label2_Click()
SoundCheck
Shell "prog\nav2003\setup.exe", vbNormalFocus

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BackColor = (&HFF&)
Label2.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label3_Click()
SoundCheck
Shell "prog\WRAR351.exe", vbNormalFocus

End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = (&HFF&)
Label3.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label4_Click()
SoundCheck
Shell "prog\tu2006\tu2006.exe", vbNormalFocus

End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = (&HFF&)
Label4.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label5_Click()
SoundCheck
Shell "prog\royale.exe", vbNormalFocus

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = (&HFF&)
Label5.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label6_Click()
SoundCheck
Shell "help.exe", vbMaximizedFocus

End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = (&HFF&)
Label6.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label7.BackColor = (&HFF00&)
Label7.ForeColor = (&H0&)

End Sub

Private Sub Label7_Click()
SoundCheck
End
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.BackColor = (&HFF&)
Label7.ForeColor = (&HFFFFFF)
Label1.BackColor = (&HFF00&)
Label1.ForeColor = (&H0&)
Label2.BackColor = (&HFF00&)
Label2.ForeColor = (&H0&)
Label3.BackColor = (&HFF00&)
Label3.ForeColor = (&H0&)
Label4.BackColor = (&HFF00&)
Label4.ForeColor = (&H0&)
Label5.BackColor = (&HFF00&)
Label5.ForeColor = (&H0&)
Label6.BackColor = (&HFF00&)
Label6.ForeColor = (&H0&)

End Sub

Private Sub Timer1_Timer()
Label8.Caption = Format(Date, "long date")
Label9.Caption = Format(Time, "long time")

End Sub





badongo









achraf.mouni غير متواجد حالياً  
قديم 29-12-2008, 12:25 AM
  #2
DALOU79
 الصورة الرمزية DALOU79
 
La spécialité: Informatique
جامعة باجي مختار عنابة
تاريخ التسجيل: 04-12-2008
الدولة: الجزائر , عنابة
المشاركات: 94
DALOU79 عضو يستحق التميز
افتراضي

مشكور أخي بوركت
DALOU79 غير متواجد حالياً  
قديم 29-12-2008, 06:04 AM
  #3
khelef
VIP_MEMBRE
 الصورة الرمزية khelef
 
تاريخ التسجيل: 29-05-2008
المشاركات: 1,024
khelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداعkhelef عضو محترف الابداع
افتراضي

meeeeeeeeeeeeeeeeeeeeeeeeeeeee eeeeeeerci
__________________
كن حذرا اليوم مما تزرع لتحصد غدا

وعلى قدر عطائك في الحياة تأتيك ثمارها


رب ضاحك والألم يعتصر كبده، وآخر هادئ الجنان والسعادة والحبور تحمله على جناحيها وتطير به في عوالمها.
khelef غير متواجد حالياً  
قديم 29-12-2008, 09:17 AM
  #4
Ssoft
مشرف قسم
الشهادات العلمية
مشرف منتدى
الدورات التعليمية المتخصصة
 الصورة الرمزية Ssoft
 
La spécialité: Informatique
اخرى ( جامعة عربية او اجنبية )
تاريخ التسجيل: 24-11-2008
الدولة: السوقر
المشاركات: 1,418
Ssoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداعSsoft عضو محترف الابداع
افتراضي

مشكـــــــــــــــــــــــوووو وووور
__________________


▌║││║█║▌│║│█║▌█│║▌▌║│││  
11 0011 10101 10101 1100 11

Ssoft غير متواجد حالياً  
قديم 29-12-2008, 09:58 AM
  #5
achraf.mouni
مشرف قسم
الكمبيوتر وتطوير المواقع والانترنت
مشرف قسم
الرياضيات والإعلام الآلي
 الصورة الرمزية achraf.mouni
 
تاريخ التسجيل: 08-09-2008
الدولة: الجزائر
المشاركات: 2,439
achraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداعachraf.mouni عضو محترف الابداع
افتراضي

لا شكرا على واجب ..شكرا لمرورك
achraf.mouni غير متواجد حالياً  

الكلمات الدلالية (Tags)
اصنع, اسطوانة, تجميعية, بدون, برامج

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
اصنع ثيمك بنفسك وبدون برامج { مع الشرح } قآهر الصحراء عـــــالم الاتصالات والجوالات 6 27-08-2009 02:31 PM
{برنامج} تجميعية من برامج مهمة ينصح بها calcibronat منتدى البرامج العام 0 08-08-2009 04:35 PM
اقوى اسطوانة برامج تصميم انشائى kokowawa60 الهندسة المدنية 11 04-12-2008 12:37 PM
اسطوانة تجميعية مدهشة كاملة مكمولة DVD3 king of programs****سارعوا قبل الحذف samiita منتدى البرامج العام 0 22-07-2008 09:58 PM
الان:اصنع بنر لموقعك بثواني ويدعم العربية بدون تحميل برنامج الصحراء منتدى البرامج العام 1 19-06-2008 09:20 PM


الساعة الآن 08:01 PM.
Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. , TranZ By Almuhajir