برنامج cashier

بدأه John Cena في 14 فبراير 2010 · 1 رد · 919 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#114 فبراير 2010 في 00:25 صاحب الموضوع

بسم الله الرحمن الرحيم

انا اصمم برنامج سوبر ماركت

لدى افكار و لكن رأيت صور من برنامج مشابه مثل هذه الصوره

اريد فكره لهذا البرنامج و كيف اجمع مثلا كل ما فى القائمه list لتظهر فى التكست total

و شكرا لحضراتكم الساعه الان 11 مسائا ارجوا من حضراتكم شرحه قبل الساعه 12 لانى سوف انام و يجب ان اسلم البرنامج الساعه 10 صباحا غدا

للصداقه و تبادل العلوم المختلفه

D.AbdallaBasic2010@hotmail.com

#24 مارس 2010 في 23:48

كان الله في عونك لجمع قائمة عليك بالكود التالي

Dim s As String

'n = List1.ListCount

For i = 2 To List1.ListCount Step 2

s = Val(List1.List(i))

Label1.Caption = Val(Label1.Caption) + s

Next i

أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد

ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول

ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال

وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )