تصميم برنامج لسنتر بلاي ستيشن

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام  اسعد الله صباحكم بكل خير  وجزاكم الله خير الجزاء علي جهودكم

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

وجزاكم الله خيرا

 

TEST_1.rar

تم تعديل يوليو 31 بواسطه حسين العربى
ادراج صورة

[ahmed draz]

السلام عليكم

مرجباً بك اخي حسين

هذه مساهمة صغيرة مني لا تفي بالغرض ولكن خبراء المنتدي قادرون على تطويرها أو صنع أفضل منها بالتأكيد

 وشكرا جزيلا لك

 

 

 

 

TEST_2.rar

تم تعديل أغسطس 1 بواسطه ahmed draz

[حسين العربى]

جزاك الله خيرا استاذي الفاضل  ahmed draz عمل ممتاذ وشكرا جزيلا علي اهتمامك 

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

[حسين العربى]

UP

[حسين العربى]

ولو امكن ممكن المستحق يزيد مع عداد الوقت اتوماتيك

[Foksh]

3 ساعات مضت, حسين العربى said:

ولو امكن ممكن المستحق يزيد مع عداد الوقت اتوماتيك

مشاركة مع الأخ @ahmed draz ، استبدل كود النموذج كاملاً بالتالي :-

Option Compare Database
Option Explicit

Dim counter As Double

Private Sub cmdReset_Click()
    Me.cmdstart.Caption = "Start"
    Me.lblcounter.Caption = "00:00:00"
    counter = 0
    Me.TimerInterval = 0
    Me.TOTEL_1.Value = 0
End Sub

Private Sub cmdstart_Click()
    If Me.cmdstart.Caption = "Start" Then
        Me.cmdstart.Caption = "Stop"
        Me.TimerInterval = 1000
        counter = 0
    Else
        Me.cmdstart.Caption = "Start"
        Me.TimerInterval = 0
    End If
End Sub

Private Sub Form_Load()
    counter = 0
End Sub

Private Sub Form_Timer()
    Dim totalSeconds As Long
    Dim hourlyRate As Double
    Dim totalCost As Double
    counter = counter + 1
    Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss")
    hourlyRate = Me.STSATR_DATE.Value
    totalSeconds = counter
    totalCost = (hourlyRate / 3600) * totalSeconds
    Me.TOTEL_1.Value = Format(totalCost, "0.00")
End Sub

 

[ahmed draz]

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

أخي الحبيب الفاضل المبجل بحر العلم المحترم

Foksh

وهذا أقل في الحقيقة من وصف قدرك جعلك الله خيرأ مما نظن

دار في بالي أنه ان لن يجيب أحد على هذا الموضوع غيرك 

وكما ظننت ... كنت خير من يجيب فجزاك الله خيراً

فالموضوع في اعتقدي مفيد جداً ولكنني توقفت حيث انتهى به علمي وعلمي قليل والحمد لله

 فشكراً جزيلاً لك

هذا ما تم  وفق توجيهاتك وباقي تكرار الاكواد لكل جهاز في القاعدة أو البحث عن طريقة للتكرار في نفس النموذج

(ولي ملحوظة صغيرة)

وهو عند عمل stop من نفس زار start لعمل وقت مستقطع ثم الغط مرة اخري على start فإن إجمالي المستحق يعود ليحسب من الصفر دون حساب الوقت الفائت 

TEST_2.rar

تم تعديل أغسطس 2 بواسطه ahmed draz

[Foksh]

شكراً لك أخي @ahmed draz على هذه الثقة ، وثق تماماً أنني ما زلت أتعلم من هذا المنتدى ومن الخبرات القوية التي تختفي تحت أسماء عظيمة في هذا القسم  .

 

هذا التعديل البسيط لما طلبت ، فتفضل :-

Option Compare Database
Option Explicit

Dim counter As Double
Dim isRunning As Boolean
Dim isPaused As Boolean
Dim pauseCounter As Double

Private Sub Form_Load()
    counter = 0
    isRunning = False
    isPaused = False
    pauseCounter = 0
    Me.lblcounter.Caption = "00:00:00"
    Me.TOTEL_1.Value = 0
    Me.TimerInterval = 1000
End Sub

Private Sub cmdstart_Click()
    If Me.cmdstart.Caption = "Start" Then
        ' ÈÏÁ ÇáÚÏ
        Me.cmdstart.Caption = "Pause"
        Me.TimerInterval = 1000
        counter = 0
        isRunning = True
        isPaused = False
        pauseCounter = 0
    ElseIf Me.cmdstart.Caption = "Pause" Then
        Me.cmdstart.Caption = "Resume"
        Me.TimerInterval = 0
        isRunning = False
        isPaused = True
        pauseCounter = counter
    ElseIf Me.cmdstart.Caption = "Resume" Then
        Me.cmdstart.Caption = "Pause"
        Me.TimerInterval = 1000
        counter = pauseCounter
        isRunning = True
        isPaused = False
    End If
End Sub

Private Sub cmdReset_Click()
    Me.cmdstart.Caption = "Start"
    Me.lblcounter.Caption = "00:00:00"
    counter = 0
    Me.TimerInterval = 0
    Me.TOTEL_1.Value = 0
    isRunning = False
    isPaused = False
    pauseCounter = 0
End Sub

Private Sub Form_Timer()
    Dim totalSeconds As Long
    Dim hourlyRate As Double
    Dim totalCost As Double
    If isRunning And Not isPaused Then
        counter = counter + 1
        Me.lblcounter.Caption = Format(DateAdd("s", counter, "00:00:00"), "hh:mm:ss")
        hourlyRate = Me.STSATR_DATE.Value
        totalSeconds = counter
        totalCost = (hourlyRate / 3600) * totalSeconds
        Me.TOTEL_1.Value = Format(totalCost, "0.00")
    End If
End Sub

 

[ابو جودي]

 الاستاذ @Foksh تحياتى وتسلم ايدك  

تمام حلوه الحسابات وحلوة الدنيا مافيش كلام 

لكن اين الاساس ؟؟؟

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

وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين  واين واين ....

واين واين واين واترككم لبنات افكاركم  

وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد 

 

تحياتى

[حسين العربى]

جزاك الله خير الجزاء استاذي ومعلمي الفاضل Foksh وزادك الله من علملة علي هذا المجهود العظيم 

ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر

[Foksh]

23 دقائق مضت, ابو جودي said:

 الاستاذ @Foksh تحياتى وتسلم ايدك  

تمام حلوه الحسابات وحلوة الدنيا مافيش كلام 

لكن اين الاساس ؟؟؟

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

وان كان هناك اكثر من جهاز ولكل جهاز قيمة سعرية مختلفة عن الاخر اين  واين واين ....

واين واين واين واترككم لبنات افكاركم  

وعندما يتثنى لى الوقت المناسب لن ابخل لا بالوقت ولا بالجهد 

 

تحياتى

إنت جيييييت ، تعال على جنب عاوزك في كلمتين ونص 🤣😂

 

الجداول دي مسؤولية صاحب الموضوع على حد علمي لما هو يريد ، ويمكن ما عندوش جرد ولا حسابات اذا كان السنتر 6 أجهزة مثلاً..

 

بالنسبة لموضوع فصل كل جهاز بعداد منفصل فدي حاجة بسيطة عليك طبعاً ، بس حظك الحلو إني خرجت لبيت أهلي ، وأول ما أرجع هنتقابل بالساحة ونفرد عضلاتنا وسط الناس 😁

 

وما تخافش ، أصلي حنين 🤣😂🤣😂

[ابو جودي]

2 ساعات مضت, حسين العربى said:

ولاكن لي طلب انشاء اله يكون الاخير كيف نطبق الكود علي باقي الاجهزة ولكم جزيل الشكر

بدون زعل لو الموضوع بالشكل ده بس 

حرام يتعمل لع قاعدة وتشغل له جهاز حاسب الى مخصوص كراسة وقلم وعيش حياتك اسهل اه والله زيمئولك كده 

بالنسبة لكل جهاز دى انسخ بس الاكواد ولصق لكل زر امر مع تغيير اسماء العناصر 

 

والحمد لله ان انا مش فاضى لان لو الموضوع كده بس انا كنت ممكن يجيلى شلل لان مبدئيا انا كنت اضع للقاعدة من 4 الى 6 جداول ووجع قلب وكتابة اكود

المطلوب ده لعب عيال وتم تحقيقه خلاص

[حسين العربى]

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

وهنعمل كل الي بتقول عليه بس همتك معانا نعمل البرنامج ده علي اكمل وجه  وجزاك الله خيرا 

[hanan_ms]

استاذ @Foksh ❤️🌹

كنت افكر بلبنات افكاري 😂

هو المفترض ان تكون الواجهة عامودين الى ثالث للاجهزة المحجوزة والمتوفرة والجنب شاشة الكوشير 

 من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط

اما IFF 

او IF تايمر 

عدى ساعات الحجز

ينتقل السجل الى العامود الثاني ايقاف

ListBox

 As Boolean

عند تحقق الشرط ساعة ونص 😏

انتهاء \ اجل واستمرار  عامود الثالث \ دفع استمرار

 

البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة 

 معاملات العمال اجارات وصولولات 

 

 تقارير الى طباعة وفاتورة للزباين 

ارقام الزباين محتاج واتس اب

خصومات وعروض 

 

مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام

ارشفة مواعيد وحجز 

 

ما له داعي حساب فلس بالوقت

 اقل شي دينار ونص على الساعة ادفع وتفضل 

او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز 

 

لبنات المشاريع والافكار انا اترك لكم مجال الساحة 

  

بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹

واستاذ @Foksh❤️🌹

واستاذ @ahmed draz❤️🌹

ptrsafe ☕

 

مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له 

خذها بموضوع بزنس ثاني😇

[Foksh]

3 دقائق مضت, hanan_ms said:

استاذ @Foksh ❤️🌹

كنت افكر بلبنات افكاري 😂

هو المفترض ان تكون الواجهة عامودين الى ثالث للاجهزة المحجوزة والمتوفرة والجنب شاشة الكوشير 

 من غير تايمر الوقت ولا متحرك بس وقت الدفع = دخول شرط

اما IFF 

او IF تايمر 

عدى ساعات الحجز

ينتقل السجل الى العامود الثاني ايقاف

ListBox

 As Boolean

عند تحقق الشرط ساعة ونص 😏

انتهاء \ اجل واستمرار  عامود الثالث \ دفع استمرار

 

البرنامج للموظفين والرواتب والايرادات واصول الاجهزة والمصرزفات تندرج تحت الصيانة 

 معاملات العمال اجارات وصولولات 

 

 تقارير الى طباعة وفاتورة للزباين 

ارقام الزباين محتاج واتس اب

خصومات وعروض 

 

مو لمؤسسة ينباعة لشركات وافرع (شكلا بلاستيشن)!!! بس للكمبيوتر او نظام ارشفة ابحاث للجامعة وطاولات طعام

ارشفة مواعيد وحجز 

 

ما له داعي حساب فلس بالوقت

 اقل شي دينار ونص على الساعة ادفع وتفضل 

او طاولة طعام 100 دينار الى 300 دينار للفنادق حجز 

 

لبنات المشاريع والافكار انا اترك لكم مجال الساحة 

  

بشوف الابداعات من استاذي @ابو جودي❤️🌹🌹

واستاذ @Foksh❤️🌹

واستاذ @ahmed draz❤️🌹

ptrsafe ☕

 

مش هي واقفة على 6 اجهزة باجر 60 ومتفرع الله يبارك له 

خذها بموضوع بزنس ثاني😇

أخت @hanan_ms ، كلامك صحيح 😁

 

ولكن هنا التنفيذ كان حسب الطلب ، ولو جينا نتفرع وناشعب في الموضوع فسنجد أنفسنا موظفين في مركز وسنتر بلايستيشن 😂

 

إحنا على رأي الأخ @حسين العربى 

منذ ساعه, حسين العربى said:

لسه الجاي اتقل

 

[حسين العربى]

استاذي الفاضل  Foksh  ازاي اطبق الكود علي باقي الاجهزه لو تكرمت

[ابو جودي]

طيب هو الموضوع  عنوانه : تصميم برنامج لسنتر بلاي ستيشن

يعنى لا يوجد اسئلة ينتظر وضع اجابات لها 

اذا لابد ومن الاولى ان نبدأ بالتحليل النظرى ثم التحليل المنطقى

ثم وضع الية العمل والسيناريو وفقا للتحليل ثم بدأ البناء ليكون على اساس سليم وصحيح 

وبدء البناؤ يبدأ ببناؤ الجداول الصحيح اولا وليس بالحسابات والنماذج ثم الجداول 

[Foksh]

الان, حسين العربى said:

استاذي الفاضل  Foksh  ازاي اطبق الكود علي باقي الاجهزه لو تكرمت

إن شاء الله الأمر بسيط ، ولكني فعلاً الآن خارج المنزل وبعيد عن الكمبيوتر 😇

[ahmed draz]

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

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته 

وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع والمطاعم والكافيهات وصالات البلياردو. 

ولكم جزيل الشكر

 

playstation 5.rar

تم تعديل أغسطس 2 بواسطه ahmed draz

[Foksh]

4 دقائق مضت, ahmed draz said:

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

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته 

وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع 

ولكم جزيل الشكر

 

playstation 5.rar 105.59 kB · 0 downloads

فكرتك جميلة إلى حد ما أخي أحمد ، ولكنها تفتقر إلى لمستك الإبداعية بحيث عند النقر على زر اي جهاز ويفتح النموذج كما فعلت ، فلا بد من تمييز هذا الزر بلون للدلالة على ان الجهاز مشغول 😉

 

ولا رأيك إيه 😁

[حسين العربى]

6 دقائق مضت, ahmed draz said:

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

السادة الخبراء والأعضاء الكرام

بكل فخر أعلن باكورة تعاوني مع الخبير ذائع الصيت اخي الحبيب Foksh

و أعتز بمساعدته الكبيرة في نجاح الفكرة حيث أنها اصبحت تعمل كبرنامج قائم بذاته 

وقد نالت هذه القاعدة اهتمامي لأنها قد تخدم في عدة مجالات بعد تطويرها مثل الشبكات و المصانع 

ولكم جزيل الشكر

 

playstation 5.rar 105.59 kB · 0 downloads

عمل جميل جدا وفوق الممتاز جزاك الله خير علي جهودك وزادك الله من علمه

[ahmed draz]

الخبير المبدع أخي الحبيب Foksh

سأتعلم منك طوال العمر بارك الله فيك

وجراك الله خيراً

[Foksh]

1 دقيقه مضت, ahmed draz said:

الخبير المبدع أخي الحبيب Foksh

سأتعلم منك طوال العمر بارك الله فيك

وجراك الله خيراً

استغفر الله العظيم اخي العزيز أحمد ،،

 

كلنا نتعلم من بعضنا اخي الكريم ، وقد ترى انت شيء لم انتبه له ، وهذا يسعدني جداً 🥰

[Foksh]

وهذه فكرتي المتواضعة والقابلة للتطوير بشكل بسيط جداً ,, 

 

 

TEST_2.accdb

[حسين العربى]

استاذي ومعلمي الفاضل Foksh بس حبيت اتأكد من شي في الكود  للتأكيد فقط

طبعا مش كل الاجهزه سعر واحد  فانا لاحظت في الكود انه واخد السعر من حقل جهاز 1 فقط لكل الاجهزة 

 

 hourlyRate = Me.Controls("STSATR_DATE1" & i).Value