عندي برنامج صغير في الفيجوال بيسك و....

حطي الملف ونشوف اش السالفة

او هذا بريدي :

alnagem_m@hotmail.com

بليز واللي يخليكم اي احد يعرف حق الاري او الست بوكس انا انطره...

هيء هيء هيء.....محد يساعدني.....

شيطونه:'( :'( :'( :'( :'( :'(

ممكن تضعي كود البرنامج؟

مع إن إسمك مخيف ولايشجع على المساعدة فنحن يمكن ان نساعدك ولكن أنصحك أن تضعى المشروع على أى موقع على النت وتضعى رابط له ليتسنى للجميع الاطلاع والمساعدة بدلاً من أن تنتظرى مساعدة شخص واحد عن طريق البريد

أو تضعى الكود هنا ليتمكن الجميع من مشاهدته ومساعدتك

ولكن سؤال بريئ لماذا إخترت هذا الاسم :cool: :cool: ؟؟؟؟؟

سلام شباب...مشكورين ...وما قصرتو...

انا ما اعرف شلون ارفع البرنامج على النت...علموني شنو

اسوي...بلييييييييييييز...باقي بس كم ساعه واسلم الاسايمنت وهو للحين ما خلص...

اخوي اللي سال عن النك مالي...انا ربعي ينادوني الشيطونه لاني دائما نشيطه و مرحه مثل الشياطين...على قولتهم...على طول فول جارج...

بس جدي...

اي سؤال ثاني انا في الخدمه...

هيء هيء هيء هيء...بقعد اصيح لين يستوي الاسايمنت...هييييييء

شيطونه...

:'( :'( :'( :'( :'( :'( :'( :'( :'( :'(

Private Sub cmdAdd_Click()

Curency(i) = txtCurrency.Text 'curency(i) is the name of the array that contains the currency name and will go in the list box

Sell(i) = txtSell.Text 'Sell(i) is the array that will contain the value entered in txtSell

Buy(i) = txtBuy.Text 'Buy(i) is the array that will contain the value enterd in txtBuy

i = i + 1

txtCurrency = " " 'to clear the text box

txtBuy = " "

txtSell = " "

frmAdd.Show

frmMain.Hide

End Sub

Private Sub cmdAdd_Click()

Curency( i ) = txtCurrency.Text 'curency( i ) is the name of the array that contains the currency name and will go in the list box

Sell( i ) = txtSell.Text 'Sell( i ) is the array that will contain the value entered in txtSell

Buy( i ) = txtBuy.Text 'Buy( i) is the array that will contain the value enterd in txtBuy

i = i + 1

txtCurrency = " "

txtBuy = " "

txtSell = " "

frmAdd.Show

frmMain.Hide

End Sub

حقيقة حتى الآن الهدف غير واضح غير أن برنامجك لن يعمل بدون تعريف المصفوفات الثلاث ، وهي الخطوة الأولى لإزالة المشكلة ، ضعي الكود التالي في أعلى الـ cmdAdd_Click

    Static A As Integer

    A = 10

    ReDim curency(A) As String, Sell(A) As String, Buy(A) As String

أعتقد أنك بحاجة إلى دورة FOR لتعبئة المصفوفات

خوي hvb...مشكوووور على المساعده وما قصرت والله...بس اخوي لا تعتقد اني محتاجه شي...ولكن تاكد انكم محتاجين شويه تنظيم على شويه تفكير...الحين بالله عليك برنامج بحاله...فيه كذا فورم...شلون تبوني اكتب الكود ماله هني...البرنامج يبي له احد يشوفه ويعرف وين اخطائه..

هذا مو سي بلاس بلاس اللي فيه كود وخلاص...هذا فيه اهداف واشياء واجد ما تنقرا...لكن تنشاف...

انا سويت دكلريشن حق الاريز في الموديولز...والبرنامج قاعد يشتغل...بس فيه خلل بسيييييييييييييييييييييييييييييييييييييييط ...قلت خلل بسيط...مو قلت ما يشتغل بالمره....انا ترا اتكلم عربي...

عقدتوني الله يهداكم...وعلى شنو....برنامج بايخ...بلاه والله بلاه...

السلام عليكم

البرنامج ليس بتلك الصعوبة .

في مثال منشور في قسم الدلفي شبيه بالشئ الذي تريدينه يمكن الاطلاع عليه .

بالنسبة للكود يمكن ارساله الى الايميل بتاعي وانا ممكن اضعه للاخوة مبرمجي ال vb لتتم المساعدة في تعديله .

سأحاول تعديله رغم اني لا ابرمج على فيجوال بيسك .

my email

tmaa@263.net

ان تم ارسال البرنامج ارجو اعلامي .

أحتي : عفوا أقصد أن برنامجك يحتاج إلى دورة For مثال :

For i=1 to 10 

curency(i)=txtCurrency

next

ما اعرف دورة دراسية اسمها For ، ارجو أن تقبليها مزحة ، وآسف حيث لم أستطع المساعدة