الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن طرح قيمتين تم أ]خالهم فيloop بواسطة Inputbox

بدأه B_R في 6 يناير 2010 · 4 رد · 716 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم في البداية

كيف يمكنني ان اطرح قيمتين ورى بعض تم أدخال مجموعة من القيم من نفس النوع بواسطة inputbox بحيث انها داخل loop القيم

code

Dim timeOfjob As Integer = TextBox2.Text

Dim num As Integer

Dim i As Integer = 1

Dim n As Integer = timeOfjob

Dim finishtime As Double

Do Until n = 0

num = InputBox("Enter time of job" & i, "Job ")

n -= 1

i += 1

TextBox3.Text &= "Job time" & num & vbCrLf

Loop

توضيح أكثر

يكون عندي متغير نفرض finishtime = قيمه الثانية - القيمة الأولى

مرة ثانية finishtime = قيمة الثالثة - القيمة الثانيه

كيف أخذ القيم من loop ؟؟؟ علما بأني دخلتها في textbox تحت بعض

تم تعديل هذه المشاركة بواسطة B_R في 6 يناير 2010 في 21:03

#2

السؤال غير واضح، ايضا يرجى استخدام تاج الكود حتى تسهل عملية قرائة الكود

و الله ولى التوفيق

مدونتي: C++ Tips and Tricks

#3

الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim timeOfjob As Integer = TextBox2.Text

Dim time As Integer

Dim i As Integer = 1

Dim n As Integer = timeOfjob

Dim finishtime As Double

Do Until n = 0

time = InputBox("Enter time of job" & i, "Job ")

n -= 1

i += 1

TextBox1.Text &= "Job time" & time & vbCrLf

Loop

أريد بعد ما يدخل المستخدم وقت عمل كل job انا بدوري أسوي معادلة حسابيه أطرح قيمته وقت العمل الثاني - وقت العمل الأول حتى أحسب الوحدة الزمين كيف لي ذلك ؟؟؟

علما بأن المستخدم رح يدخل الأوقات ورى بعض ومتتالية ..!!

وهذه العملية الحسابية رح تستمر معي لأخر وقت أخر job ...

أرجوا أن أكون وضحت فكرتي على أكمل وجه ...

#4
اقتباس
أرجوا أن أكون وضحت فكرتي على أكمل وجه ...

لا للأسف :mellow:

مدونتي: C++ Tips and Tricks

#5 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim timeOfjob As Integer = TextBox2.Text

Dim time As Integer
Dim i As Integer = 1
Dim n As Integer = timeOfjob
Dim finishtime As Double

Do Until n = 0
time = InputBox("Enter time of job" & i, "Job ")



n -= 1 
i += 1
TextBox1.Text &= "Job time" & time & vbCrLf 
Loop

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

بس ممكن ترفع صورة للفورم؟؟

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

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

والله ولي التوفيق

U R The Air I Breathe...Mo0n ChilD

alfarisnet1230761151nl7.jpg

مواضيع مشابهة