العودة   منتديات حاسبكو المتخصصة بمادة الحاسب الآلي > حاسبكو الأعضاء > الأرشـــــــــيــــــــــــف

الملاحظات

الأرشـــــــــيــــــــــــف هذا القسم مخصص لكل المواضيع المكررة والمغلقه والتي سوف تحذف لاحقاً أو القديمه الروابط

 
 
أدوات الموضوع انواع عرض الموضوع
قديم 01-18-2010, 08:31 PM   #4
متميزه
مراقبة عامة
 
الصورة الرمزية متميزه
افتراضي مشاركة: كيفيكة حل مشروع فيجول بيسك

نونو ماختبرت البرنامج>>لانه ماعندي فجول
فاعلميني بالنتيجه^^

Private Sub Command1_Click( )
Dim s As Single
S= Text1.Text
SELECT CASE S
CASE 2000 to 2900
Text2.Text =360+S
CASE 3000 to 3900
Text2.Text=450+S
CASE 4000 to 5000
Text2.Text=600+S
CASE 5100 to 6000
Text2.Text=500+S
CASE 6100 to 8000
Text2.Text=700+S
CASE ELSE
(" السعر غير متاح ") Msgbox
END SELECT
End Sub




Private Sub Command1_Click( )
("اسعار المحمول .. مقدار غلاء الأسعار") MsgBox
End Sub
التوقيع :
يارب لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضا
  رد مع اقتباس
 


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 12:24 PM.





Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ

a.d - i.s.s.w