نحوه نوشتن کد

[hr0694]

سلام
این کدها را چگونه بنویسم که برنامه ام حجمش پائین بیاید اگر میشود تابع این برنامه را برام بنویسید

Private Sub Text1_Change()
If Text1 = "11" Then Text1 = "1"
If Text1 = "12" Then Text1 = "2"
If Text1 = "13" Then Text1 = "3"
If Text1 = "21" Then Text1 = "2"
If Text1 = "22" Then Text1 = "2"
If Text1 = "23" Then Text1 = "6"
If Text1 = "31" Then Text1 = "3"
If Text1 = "32" Then Text1 = "6"
If Text1 = "33" Then Text1 = "3"
End Sub

Private Sub Text2_Change()
If Text2 = "11" Then Text2 = "1"
If Text2 = "12" Then Text2 = "2"
If Text2 = "13" Then Text2 = "3"
If Text2 = "21" Then Text2 = "2"
If Text2 = "22" Then Text2 = "2"
If Text2 = "23" Then Text2 = "6"
If Text2 = "31" Then Text2 = "3"
If Text2 = "32" Then Text2 = "6"
If Text2 = "33" Then Text2 = "3"
End Sub


Private Sub Text3_Change()
If Text3 = "11" Then Text3 = "1"
If Text3 = "12" Then Text3 = "2"
If Text3 = "13" Then Text3 = "3"
If Text3 = "21" Then Text3 = "2"
If Text3 = "22" Then Text3 = "2"
If Text3 = "23" Then Text3= "6"
If Text3 = "31" Then Text3 = "3"
If Text3 = "32" Then Text3 = "6"
If Text3 = "33" Then Text3 = "3"
End Sub

و همچنین این کدها برای تکستهای 4 و 5 و 6 و 7 و 8 و 9 و 10

[محسن واژدی]

سلام
تابع زیر را در ماژول فرم یا ماژول کد کپی کنید:

Public Sub ConvNum(tTextBox As TextBox)
Select Case tTextBox

Case 11: tTextBox = 1

Case 12: tTextBox = 2

Case 13: tTextBox = 3

Case 21: tTextBox = 2

Case 22: tTextBox = 2

Case 23: tTextBox = 6

Case 31: tTextBox = 3

Case 32: tTextBox = 6

Case 33: tTextBox = 3
End Sub


نمونه کد:

Private Sub Command1_Click()
Call ConvNum(Text1)
End Sub


برای سایر TextBoxها هم همینگونه عمل کنید

موفق باشید

[hr0694]

جناب mohsenvj اگه میشه کاری کنید دکمه کامندی نباشد و در خواستی دیگه هم دارم که اگه میشه سورس شو بزارید بهتر متوجه میشوم

[محسن واژدی]

نمونه زیر را بررسی کنید

موفق باشید

[محسن واژدی]

موفق باشید

[M.T.P]

من وقتی کد اینطوری مینویسم اشتباه میشود مثلاً وقتی مینویسم 38 میشود 2 در صورتی که طبق این این چیزی که نوشتم باید بشود 24

احتمالا شما این رو سابروتین رو در Text1_Chane صدا میزنید و این مشکل پیش میاد.
با این روش برنامه اینطور عمل میکنه:
شما 38 رو وارد میکنید جواب 24 در Text1 درج میشه و همین درج شدن عدد 24 در Text1 دوباره سابروتین رو صدا میزنه و جواب 24 میشه 2 و برای شما نشون میده.
یا از یک CommandButton استفاده کنید یا اینکه نتیجه رو در یک کنترل دیگه نمایش بدید.