المجلس اليمني ... يمن واحد وآراء متعددة
::  قوانين المنتدى  |   طلب رقم التنشيط   |   تنشيط العضوية  |  استعادة كلمة المرور
العودة   المجلس اليمني :: العلمية والتقنية :: الكمبيـوتر والانتـرنت :: المواقع ولغات البرمجة والشبكات
|
 
أدوات الموضوع
قديم 28-02-2004, 02:08 PM   مشاركة رقم : 1
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 28-02-2004
المشاركات: 3

افتراضي ارجو خدمه من خبراء الفيجول بيسك

السلام عليك ورحمه الله وبركاته
كيفكم انشاء الله تكونو بخير
خدمتي با الفيجول بيسك الاصطار السادس كا التالي :-
اخووواني انا بعمل برنامج الاله الحاسبه على الفيجول بيسك واريد منكم خدمه لاني عجزت عنها وهي كا التالي:-
انا بسوي في form1 بسوي التنسيق زي الي في الاله الحاسبه العاديه وابي الكود كيف اعمله الذي يخليني مثلا انقر على اي رقم في الاله المجهزه يطلع الرقم في التكست بوكس وبعدين اسوي علامه الجمع او قسمه او ضرب او ناقص
ينكتب لي العلامه بجانب الرقم الي كتبته وبعدي اكتب الرقم التاني وينكتب بعد العلامه يكونان في تكست واحد طبعا وبعدين اسوي يساوي يطلع لي الناتج بنفس التكست بوكس وهذا مشكلتي او طلبي الى اخواني با المجلس اليمني وانشاء الله يردو عليا با قرب وقت وتمنياتي لكم با النجاع والتوفيق وكسب الخير. انا ما طلبت منكم لني عارفه انكم با باتساعدوني .
وشكررررررررررا
مع تحيات اختكم شواقه

  رد مع اقتباس
قديم 28-02-2004, 06:22 PM   مشاركة رقم : 2
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 02-02-2004
المشاركات: 85

افتراضي

الااخت شواقة اتمنى يكون هذا طلبك :)

  رد مع اقتباس
قديم 28-02-2004, 06:33 PM   مشاركة رقم : 3
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 21-12-2003
المشاركات: 185

افتراضي

[align=center]السلام عليكم ورحمة الله ...

يمكنك أختي الكريمة استخدام الخاصية Caption والتي سترجع النص المكتوب على الزر لتضيفي الى الـ TextBox النص المطلوب والكود التالي [/align]
كود:
Private Sub cmdPlus_Click()
.
.
txtDisplay.Text = txtDisplay.Text & cmdPlus.Caption
.
.
End Sub
[align=center]يتضمن الفكرة ويمكنك أضافته الى داخل الاجراء cmdPlus_Click والذي أخذت فيه زر علامة الجمع كمثال ويمكنك تكرارها بالنسبة لبقية الأزرار ، الى أن تصلي الى اليساوي فتغيري الكود بحسب ماقد أخذتيه في عين الأعتبار أثناء سير البرنامج ... أتمنى أن تفيد الفكرة ...
...[/align]

  رد مع اقتباس
قديم 28-02-2004, 06:38 PM   مشاركة رقم : 4
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 08-12-2003
المشاركات: 527

افتراضي

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

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

وهذا الكود اللي طلبتيه على أساس ان اسماء الأدوات زي ما هي :

نعمل في البداية مصفوفة أدوات لأزرار الأوامر الخاصة بالأرقام من 0 إلى 9 ونضيف أزرار العمليات + و - و * و / و =
نكتب في general :

كود:
dim cmd as string
dim Fval as integer
ونكتب في أحد أزرار الأرقام مايلي:

كود:
text1.text = text1.text + command1(index).caption
وفي أزرار العمليات نكتب التالي :

كود:
cmd = command2(index).caption 
Fval=text1.text
text1.text= ""
وفي زر = نضع الكود التالي :

كود:
select case (cmd)
case "+": text1.text = val(Fval)+val(text1.text)
case "-": text1.text = val(Fval)-val(text1.text)
case "*": text1.text = val(Fval)*val(text1.text)
case "/": text1.text = val(Fval)/val(text1.text)
end select
في الحقيقة هذا ما كتبته بمجرد رؤيتي للموضوع يعني لسه ما جربته
لكن جربيه وردي فيما إذا اشتغل أو لا

تحياتي ...

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

  رد مع اقتباس
قديم 29-02-2004, 07:57 PM   مشاركة رقم : 5
عضو
 
لا توجد صورة

 
تاريخ التسجيل: 28-02-2004
المشاركات: 3

افتراضي مشكوووووره الف الف الف شكرا لخواني واخواتي

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

  رد مع اقتباس
قديم 29-02-2004, 09:11 PM   مشاركة رقم : 6
عضو فعّال
 
لا توجد صورة

 
تاريخ التسجيل: 21-06-2003
المشاركات: 619

افتراضي إن شاء الله....

ماشاء الله أقول إيه بقى.....ربنا يوفقك دنتوا اهوا سيبتوا إختنا شواقه مبسوطه قوي، ربنا يوفقكم.

  رد مع اقتباس
إضافة رد

أدوات الموضوع

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

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.