تحلیل پروژه بستنی فروشی 2

[backstreet-boy]

من دفعه قبل یک پستی داشتم که هم در مورد برنامم توضیح داده بودم هم مشکلم ، خوشبختانه مشکل اول رو حل کردم یعنی باز نشدن inputbox ها

برنامه دوباره تحلیل می کنم برای کسایی که شاید تازه می خوان با پروژه آشنا بشن :

توضیح برنامه ( بستنی فروشی ) :
آقای محمدی چند مغازه فروش بستنی دارد ، او در این مغازه ها بستنی زعفرانی ، ستنی ، نانی و لیوانی می فروشد . آقای محمدی می خواهد آخر روز بتواند حساب کند هر یک از مغازه ها چه مقدار بستنی فروخته و چه تعداد از لیوان و نان ها کم شده و چقدر پول در یافت کرده . ما می خواهیم برنامه ای بنویسیم که این کارارو برای ما انجام بده .برای ساده تر شدن کار فرض می کنیم در هر مغازه شخصی مسول این است که به محض فروش یستنی به آقای محمدی تلفن بزند و گزارش فروش بدهد . این فرض کار را برای ما تا حد زیادی ساده می کند ، چون وظیفه جمع آوری اطلاعات از مغاز ه ها را از دوش برنامه ما بر می دارد . بنابراین هر وقت که تلفن آفای محمدی زنگ می زند ، او باید اطلاعات فروش را از
از فروشنده گرفته و در برنامه وارد کند و در پایان روز وضعیت فروش هر مغازه را بررسی کند .
برای این برنامه من ، خود بستنی فروشی رو شی در نظر گرقتم . و هر بستنی فروشی رو نیز یک نمونه از کلاس بستنی فروشی در نطر گرفتم .
پس ابتدا من باید کلاس بستنی فروشی رو ایجاد کردم و بعد باید ببینم این کلاس چه داده هایی و متدهایی و رویدادهایی دارد .
خب اگر کدها رو ببینید من کلاس بستنی فروشی رو با نام bastani ایجاد کردم .
دادهای ( data ) : مقدار بستنی موجود ، تعداد نان موجود ، تعداد لیوان موجود ، تعداد قاشق موجود ، مقدار پول موجود
متدها (methods ) :
فروختن یک لیوان ، فروختن 50 گرم بستنی ، فروختن یک قاشق ، فروختن یک نان ، گرقتن پول از مشتری
رویدادها ( events ) :
تمام شدن بستنی ، تمام شدن نان ، تمام شدن لیوان ، تمام شدن قاشق

نکته 1 :فکر کنم در قسمت کلاس bastani چیز مبهمی برای کسی وجود نداشته باشه . و من اسامی داده ها و متد هاو رویداد هارو برای راحتی کار fingilish نوشتم تا همه متوجه بشن .
نکته 2 : من تعداد شعب بستنی فروشی رو 3 تا با نام های ( ولیعصر ، فرمانیه ، تهرانپارس ) در نظر گرفتم . که هر کدام یک نمونه از کلاس بستنی فروشی هستن .

اما یه مشکل دیگه بجای مشکل اولی اومد . من اطلاعات هر فروشگاه رو از طریق inputbox ها وارد می کنم از طریق منوی امکانات ، گزینه ثبت . اما ، وقتی که اطلاعات هر فروشگاه ثبت شد ، وقتی از طریق combo box می خوام اطلاعات تازه وارد شده برای هر فروشگاه رو که وارد کردم چک کنم ، نمی تونم و هیچ چی نشون داده نمی شه .و فقط اطلاعات آخری که وارد کردم داخل label هاست .
مل
من کل پروژه رو در یک فایل زیپ گداشتم اگه هر کس توانایی حل این مشکل رو داره لطف کنه جوابش رو به من همین جا بگه ، تا خانواده ای رو از نگرانی در بیاره ، دمتون گرم . فدای همه ، منتظر م ، یا علی ...


گرچه تفسیر زبان روشنگر است لیک عشق بی‌زبان و روشن‌تر است



چون قلم اندر نوشتن می‌شتافت چون به عشق آمد قلم بر خود شکافت



چون سخن در وصف این حالت رسید هم قلم بشکست، هم کاغذ درید



عقل در شرحش چو خر در گل بخفت شرح عشق و عاشقی هم عشق گفت

[morteza_261]

سلام
مشکل شما یه مشکل ساده بود،که با کمی دقت حل میشد:


cmbstores.Items.Add("valiasr")
---------------------------------------
Case "Valiasr"

مشکلتون بخاطر بزرگ و کوچک بودن حروفه،دقت داشته باشید که همانند هم نوشته شوند

[VisualStudio]

از خود نویسنده کتاب هم میتونی بپرسی

[backstreet-boy]

اون کارم کردم ، ولی هیچ تاثیری نداشت ، زمانی که از combobox فروشگاهمو انتخاب می کنم . label های اون فروشگاه تغییری نمی کنند .

[morteza_261]

سلام
ولی من اول امتحان کردم بعد جواب شما رو دادم اگه شد میزارمش همین جا،ولی بازم امتحان کن یا اصلا اونی رو که جلوی

cmbstores.Items.Add("valiasr")

نوشتی رو کپی کن و بزار جای پایینیا
اگه بازم نشد اونی که خودم دارم رو آپلود میکنم
فعلا
ایام به کام

[backstreet-boy]

سلام ، مرنضی -61 نمی تونم بگم حرفتون بدون تاثیر نبود درسته ، می گید اطلاعات وارد می شن موقعی که اطلاعاتو وارد می کنم اگه input box رو کنار ی ببرم حرف شما متینه ، وتغیر در label ها رو می بینم .
ولی همون طوری که بارها گفتم . بعد وارد کردن اطلاعات ، وقتی از combo فروشگاه همو انتخاب می کنم اون موقع ولی نه . label ها نه تغییری نمی کنند . من اصلا کدهای تغغیر کردمو همین جا می ذارم ، ببینین با کدهای شما تغغیری دارن ، اگرم می شه اونی که دارین upload کنید.


PublicClass Form1
PrivateWithEvents Valiasr AsNew bastani
PrivateWithEvents Farmanie AsNew bastani
PrivateWithEvents TehranPars AsNew bastani
Dim CanSellValiasr AsBoolean = True
Dim CanSellFarmanie AsBoolean = True
Dim CanSellTehranPars AsBoolean = True
PrivateSub ¦©ي¤ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ¦©ي¤ToolStripMenuItem.Click
End
EndSub


PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
ValiAsr.Title = "Valiasr"
Farmanie.Title = "Farmanie"
TehranPars.Title = "TehranPars"
cmbstores.Items.Add("valiasr")
cmbstores.Items.Add("farmanie")
cmbstores.Items.Add("tehranpars")

EndSub


PrivateSub cmbstores_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbstores.SelectedIndexChanged
SelectCase cmbstores.Text
Case"Valiasr"
lblprice.Text = Valiasr.meghdarpool
lblnoon.Text = Valiasr.TedadNan
lblghashogh.Text = Valiasr.tedadghashogh
lbllivan.Text = Valiasr.tedadlivan
lblicecream.Text = Valiasr.meghdarbastani
Case"Farmanie"
lblprice.Text = Farmanie.meghdarpool
lblnoon.Text = Farmanie.TedadNan
lblghashogh.Text = Farmanie.tedadghashogh
lbllivan.Text = Farmanie.tedadlivan
lblicecream.Text = Farmanie.meghdarbastani
Case"TehranPars"
lblprice.Text = TehranPars.meghdarpool
lblnoon.Text = TehranPars.TedadNan
lblghashogh.Text = TehranPars.tedadghashogh
lbllivan.Text = TehranPars.tedadlivan
lblicecream.Text = TehranPars.meghdarbastani
EndSelect
EndSub

PrivateSub £ ¢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles £ ¢ToolStripMenuItem.Click
SelectCase cmbstores.Text
Case"valiasr"
lblprice.Text = Valiasr.meghdarpool
Valiasr.TedadNan = InputBox("¢م§ں§ ëںë êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lblnoon.Text = Valiasr.TedadNan
Valiasr.tedadghashogh = InputBox("¢م§ں§ çں¬ç êي¤ي§ §© يéیم­© ں ëيی«ی§")
lblghashogh.Text = Valiasr.tedadghashogh
Valiasr.tedadlivan = InputBox("¢م§ں§ éیيںë êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lbllivan.Text = Valiasr.tedadlivan

Valiasr.meghdarbastani = InputBox("¢م§ں§ «¢ëی êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lblicecream.Text = Valiasr.meghdarbastani
Case"farmanie"
lblprice.Text = Farmanie.meghdarpool
Farmanie.TedadNan = InputBox("¢م§ں§ ëںë êي¤ي§ §© ه©êںëیى ©ں ëي«ی§ ")
lblnoon.Text = Farmanie.TedadNan
Farmanie.tedadghashogh = InputBox(" ¢م§ں§ çں¬ç êي¤ي§ §© ه©êںëیى ©ں ëي«ی§ ")
lblghashogh.Text = Farmanie.tedadghashogh
Farmanie.tedadlivan = InputBox(" ¢م§ں§ éیيںë êي¤ي§ §© ه©êںëیى ©ں ëيی«ی§ ")
lbllivan.Text = Farmanie.tedadlivan
Farmanie.meghdarbastani = InputBox(" ê秩 «¢ëی êي¤ي§ §© ه©êںëیى ©ں يں©§ کëی§ ")
lblicecream.Text = Farmanie.meghdarbastani
Case"tehranpars"
lblprice.Text = TehranPars.meghdarpool
TehranPars.TedadNan = InputBox(" ¢م§ں§ ëںë êي¤ي§ §© ¢ى©ںë پں©« ©ں ëي«ی§ ")
lblnoon.Text = TehranPars.TedadNan
TehranPars.tedadghashogh = InputBox(" ¢م§ں§ çں¬ç êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§")
lblghashogh.Text = TehranPars.tedadghashogh
TehranPars.tedadlivan = InputBox(" ¢م§ں§ éیيںë êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§ ")
lbllivan.Text = TehranPars.tedadlivan
TehranPars.meghdarbastani = InputBox(" êç§ں© «¢ëی êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§ ")
lblicecream.Text = TehranPars.meghdarbastani




EndSelect
EndSub
EndClass


کلامات فارسی بدجور افتادن اینجا ، ولی به مشکل ما ارتباطی ندارن . منتظرم :لبخندساده:

دلم می خواست
بند از پای جانم باز می کردند
که من تا روی بام ابرها ، پرواز می کردم
از آنجا با کمند کهکشان ،تاروی آستان عرش می رفتم
در آن درگاه ،درد خویش فریاد می کردم
دلم می خواست
دست عشق چون روز نخستین ،هستی ام را زیرو رو می کرد !!!

[morteza_261]

PublicClass Form1
PrivateWithEvents Valiasr AsNew bastani
PrivateWithEvents Farmanie AsNew bastani
PrivateWithEvents TehranPars AsNew bastani
Dim CanSellValiasr AsBoolean = True
Dim CanSellFarmanie AsBoolean = True
Dim CanSellTehranPars AsBoolean = True
PrivateSub ¦©ي¤ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ¦©ي¤ToolStripMenuItem.Click
End
EndSub


PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
ValiAsr.Title = "Valiasr"
Farmanie.Title = "Farmanie"
TehranPars.Title = "TehranPars"
cmbstores.Items.Add("valiasr")
cmbstores.Items.Add("farmanie")
cmbstores.Items.Add("tehranpars")

EndSub


PrivateSub cmbstores_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbstores.SelectedIndexChanged
SelectCase cmbstores.Text
Case"Valiasr"
lblprice.Text = Valiasr.meghdarpool
lblnoon.Text = Valiasr.TedadNan
lblghashogh.Text = Valiasr.tedadghashogh
lbllivan.Text = Valiasr.tedadlivan
lblicecream.Text = Valiasr.meghdarbastani
Case"Farmanie"
lblprice.Text = Farmanie.meghdarpool
lblnoon.Text = Farmanie.TedadNan
lblghashogh.Text = Farmanie.tedadghashogh
lbllivan.Text = Farmanie.tedadlivan
lblicecream.Text = Farmanie.meghdarbastani
Case"TehranPars"
lblprice.Text = TehranPars.meghdarpool
lblnoon.Text = TehranPars.TedadNan
lblghashogh.Text = TehranPars.tedadghashogh
lbllivan.Text = TehranPars.tedadlivan
lblicecream.Text = TehranPars.meghdarbastani
EndSelect
EndSub

PrivateSub £ ¢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles £ ¢ToolStripMenuItem.Click
SelectCase cmbstores.Text
Case"valiasr"
lblprice.Text = Valiasr.meghdarpool
Valiasr.TedadNan = InputBox("¢م§ں§ ëںë êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lblnoon.Text = Valiasr.TedadNan
Valiasr.tedadghashogh = InputBox("¢م§ں§ çں¬ç êي¤ي§ §© يéیم­© ں ëيی«ی§")
lblghashogh.Text = Valiasr.tedadghashogh
Valiasr.tedadlivan = InputBox("¢م§ں§ éیيںë êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lbllivan.Text = Valiasr.tedadlivan

Valiasr.meghdarbastani = InputBox("¢م§ں§ «¢ëی êي¤ي§ §© يéیم­© ©ں ëيی«ی§ ")
lblicecream.Text = Valiasr.meghdarbastani
Case"farmanie"
lblprice.Text = Farmanie.meghdarpool
Farmanie.TedadNan = InputBox("¢م§ں§ ëںë êي¤ي§ §© ه©êںëیى ©ں ëي«ی§ ")
lblnoon.Text = Farmanie.TedadNan
Farmanie.tedadghashogh = InputBox(" ¢م§ں§ çں¬ç êي¤ي§ §© ه©êںëیى ©ں ëي«ی§ ")
lblghashogh.Text = Farmanie.tedadghashogh
Farmanie.tedadlivan = InputBox(" ¢م§ں§ éیيںë êي¤ي§ §© ه©êںëیى ©ں ëيی«ی§ ")
lbllivan.Text = Farmanie.tedadlivan
Farmanie.meghdarbastani = InputBox(" ê秩 «¢ëی êي¤ي§ §© ه©êںëیى ©ں يں©§ کëی§ ")
lblicecream.Text = Farmanie.meghdarbastani
Case"tehranpars"
lblprice.Text = TehranPars.meghdarpool
TehranPars.TedadNan = InputBox(" ¢م§ں§ ëںë êي¤ي§ §© ¢ى©ںë پں©« ©ں ëي«ی§ ")
lblnoon.Text = TehranPars.TedadNan
TehranPars.tedadghashogh = InputBox(" ¢م§ں§ çں¬ç êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§")
lblghashogh.Text = TehranPars.tedadghashogh
TehranPars.tedadlivan = InputBox(" ¢م§ں§ éیيںë êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§ ")
lbllivan.Text = TehranPars.tedadlivan
TehranPars.meghdarbastani = InputBox(" êç§ں© «¢ëی êي¤ي§ §© ¢ى©ںë پں©« ©ں ëيی«ی§ ")
lblicecream.Text = TehranPars.meghdarbastani




EndSelect
EndSub
EndClass


سلام
اگه دقت کنی تیکه هایی که با زرد مشخص شده با قرمز رنگها متفاوته
وقتی که ما با input box مقادیر رو میگیریم ثبت میشه چون که نام ها دقیقا مثل هم هستند
ولی وقتی از طریق combo اقدام میکنیم هیچ تغیری نخواهیم دید زیرا اگر دقت داشته باشیم خواهیم دید که در کدهای مربوط به combo(قرمز رنگها) حروف اول را با حروف بزرگ و باقی را با حروف کوچک نوشته ای،که اگر آنها هم همانند زرد رنگ ها نوشته شوند دیگری مشکلی نخواهد بود.
یا علی

[morteza_261]

اینم فایل برنامه ای که من دارم
البته اینو با یه راه دیگه برات گذاشتم که اگه اونو نتونستی از این راه برو

ایام به کام

[backstreet-boy]

مرتضی جان دمت گرم ،مرسی از وقتی که گذاشتی ، علی یارت

[backstreet-boy]

راستی چکار کنم تا کاربر تنها فقط عدد بتو وارد input box ها بکنه ، و هیچ حرف یا سمبل دیگه ای رو نتونه ، وارد کنه ؟

[morteza_261]

دوباره سلام
این برنامه رو از همین سایت گرفتم یه نگاه بنداز میتونه کمکت کنه
ایام به کام