عمل برنامج صغير ل Cyber Cafe

ارجوا منكم التفهم و المساعدة

:)

لو تحب اصمم ليك البرنامج بس كله بحسابه

لا يا اخي حرام عليك

اريد ان اصنعه بنفسي

انا تلميذ في قسم البرمجة و الاعلامية

و اريد تعلم فيجوال بيسك 6 و من ثم فيجوال بيسك سي ++

ممكن مساعدة

لو بحثت قليلا مكنتش عملت الظيتة دى

القسم ده فيه برامج للاعضاء بالسورس ممكن تتعلم منها

وهذا برنامج لادارة مقاهى الانترنت فى نفس القسم وممكن تلاقى تانى

وهذا

سورس كود إدارة مقهى انترنت مجانا

تشكر اخي بس هل قرات ما انا اريده

:S

مشروع يحتاج لوقت لعمله فإلى أين وصلت بمشروعك لنساعدك أخ mustapha_ess

السلام عليكم

انا مازالت في بداية غمل المشرو ع اي في التخطيط

و قمت ايضا بهيكل المشروع

و لكني الان في انتظار الدالات اللازمة

كتغميق اشاشة الحاسوب عتد انتهاء وقت العميل

في انتظار مقترحاتكم

اقتباس

كتغميق اشاشة الحاسوب عتد انتهاء وقت العميل في انتظار مقترحاتكم

اقتباس

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

نعم يا اخي اريد تغميق الشاشة ( تخفيض اضاءتها) عندما ينتهي و قت الزبون ( العميل)

الم تجرب يا اخي بان تسطب برنامج غير مرخص او حتى عندما تريد ان تبدا الاتصال بالانترنت

و اذا بالشاشة تص بح اغمق و بعدها بت فتح نافذة تعلمك بماذا انك عامل

في انتظارك اخي

و رمضانك مبروك قبل ان انسى

اقتباس

الم تجرب يا اخي بان تسطب برنامج غير مرخص او حتى عندما تريد ان تبدا الاتصال بالانترنت

و اذا بالشاشة تص بح اغمق و بعدها بت فتح نافذة تعلمك بماذا انك عامل

جرب أستخدام الدالة Get\SetDeviceGammaRamp لتتحكم بألوان وتباين الشاشة

Option Explicit

Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer

Private Sub Form_Load()
	Dim iCtr As Integer, lVal As Long
	   GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
		  For iCtr = 0 To 255
			 lVal = Int2Lng(Ramp1(iCtr, 0))
			 Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 4)
			 'Die folgenden Zeilen für ROT auskommentieren:
			 Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
			 Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
		  Next iCtr
	   SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
   SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
End Sub

Private Function Int2Lng(IntVal As Integer) As Long
   CopyMemory Int2Lng, IntVal, 2
End Function

Private Function Lng2Int(Value As Long) As Integer
   CopyMemory Lng2Int, Value, 2
End Function

تشكر يا اخي جاري تجرببة الدالة