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

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

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

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

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

 

TEST_1.rarFetching info...

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

[ahmed draz]

السلام عليكم

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

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

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

 

 

 

 

TEST_2.rarFetching info...

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

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

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

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

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

UP

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

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

[Foksh]

  في 2‏/8‏/2024 at 10:38, حسين العربى said:

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

Expand  

مشاركة مع الأخ @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.rarFetching info...

تم تعديل أغسطس 2, 2024 بواسطه 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]

  في 2‏/8‏/2024 at 17:46, ابو جودي said:

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

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

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

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

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

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

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

 

تحياتى

Expand  

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

 

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

 

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

 

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

[ابو جودي]

  في 2‏/8‏/2024 at 17:50, حسين العربى said:

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

Expand  

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

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

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

 

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

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

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

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

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

[hanan_ms]

استاذ @Foksh ❤️🌹

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

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

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

اما IFF 

او IF تايمر 

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

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

ListBox

 As Boolean

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

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

 

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

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

 

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

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

خصومات وعروض 

 

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

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

 

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

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

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

 

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

  

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

واستاذ @Foksh❤️🌹

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

ptrsafe ☕

 

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

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

[Foksh]

  في 2‏/8‏/2024 at 19:52, hanan_ms said:

استاذ @Foksh ❤️🌹

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

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

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

اما IFF 

او IF تايمر 

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

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

ListBox

 As Boolean

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

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

 

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

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

 

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

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

خصومات وعروض 

 

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

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

 

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

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

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

 

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

  

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

واستاذ @Foksh❤️🌹

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

ptrsafe ☕

 

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

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

Expand  

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

 

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

 

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

  في 2‏/8‏/2024 at 18:28, حسين العربى said:

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

Expand  

 

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

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

[ابو جودي]

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

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

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

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

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

[Foksh]

  في 2‏/8‏/2024 at 20:01, حسين العربى said:

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

Expand  

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

[ahmed draz]

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

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

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

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

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

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

 

playstation 5.rarFetching info...

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

[Foksh]

  في 2‏/8‏/2024 at 20:12, ahmed draz said:

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

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

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

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

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

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

 

playstation 5.rar 105.59 kB · 0 downloads

Expand  

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

 

ولا رأيك إيه 😁

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

  في 2‏/8‏/2024 at 20:12, ahmed draz said:

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

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

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

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

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

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

 

playstation 5.rar 105.59 kB · 0 downloads

Expand  

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

[ahmed draz]

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

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

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

[Foksh]

  في 2‏/8‏/2024 at 20:22, ahmed draz said:

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

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

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

Expand  

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

 

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

[Foksh]

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

 

 

TEST_2.accdbFetching info...

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

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

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

 

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