يه سوال ساده

[homa m]

بنظرتون فرق اين دو تا برنامه چيه هر دو تاشم اجرا ميشن


:1)

Private Sub Form_Click()
Cls
Dim a As Integer, b As Integer
a = Text1.Text
b = Text2.Text
c = a + b
Print c
End Sub

Private Sub Form_DblClick()
Cls
Dim a As Integer, b As Integer
a = Text1.Text
b = Text2.Text
c = a * b
Print c
End Sub

--------------------------------------------------------------------
:2)

Private Sub Form_Click()
box3.Text = Val(box1.Text) + Val(box2.Text)
End Sub

Private Sub Form_DblClick()
box3.Text = box1.Text * box2.Text
End Sub
.................................................. ...............

بالايي روش خودمه پاييني روش كتابه, بنظرتون كدومش بهتره چون من با بالايي راحت ترم

[Ar@m]

تنها چيزي كه بنظرم مي رسه اينه كه تو متغيرهايي تعريف كردي كه نياز نبوده تعريف كني پس فضايي رو درگير كردي كه نياز نبوده درگير كني و اين يعني كاهش سرعت برنامه
البته توي برنامه كوچيكي مثل اين به چشم نمي ياد اما كلي كه نگاه كنيم روش دوم خيلي بهتره

[atifazi]

هر دو روش درست هستند. ولی روش دوم بهتره چون هم از فضای کمتری استفاده میکنه هم تعداد خط اون کمتره و خوندنشو واسه انشجو بهتر میکنه . اگه دقت کنی در روش کتاب از تابع val استفاده کرد که مقدار تکس باکس را به عددی از نوع enteger تبدیل میکنه . ما فرض این را میگیریم که در هر دو تکس باکس عددی را وارد کردی چون در غیر اینصورت در برنامه شما خطا در ضرب تولید میشه و در کتاب در هر ضرب و جمع خطا تولید میشه .

[Julian]

روش دوم بهتره.
اصلا لازم نیست متغیر تعریف کنی.
همیشه اسون ترین روش بهترین روشه.

[ULF_VB6]

همیشه اسون ترین روش بهترین روشه.

کاملا با این جمله مخالفم.

[homa m]

يه سوال ديگم دارم درباره ارايه دو بعدي كه نميدونم 5 و 8 تو دستور زير از كجا اومده لطف كنيد توضيح بدين
ضمنا همين فرمول رو هم كه مينويسم ارور ميده
ارايه اي دو بعدي به ابعاد 4 در 3 از نوع رشته اي :



Private Sub Command1_Click()
dim a(5 to 8, 2 to 4)as string
for i=5 to 8
for j= 2 to 4
a(i,j)=inputbox(prompt,"enter name
[next i
end sub

بازم ممنون از پاسخگوييتون:20:

[black_storm]

اوه .... !
چرا اينقدر مي پيچونيدش !

[Ramin_3711]

سلام دوست من
5 خانه اول آرایته و 8 خانه اخر ارایته البته بصورت سطری میگم
در ضمن مشکل برنامت اینه که دو تا for آوردی و یکیشون رو نبستی
یعنی باید بعد از next i یه next دیگه هم بنویسی و یه چیز دیگه که لازم نیست اسم متغیر رو بعد از next بنویسی چون ویژوال بصورت پیش فرض حلقه ها رو از بیرون به داخل میخووووونه

[devil_ff2008]

Private Sub Command1_Click()
dim a(5 to 8, 2 to 4)as string
for i=5 to 8
for j= 2 to 4
a(i,j)=inputbox(prompt,"enter name")
next i
next j
end sub