خلاصه نویسی کدها

[Hassan2500]

سلام

من اومدم کدهای زیر رو خلاصه نوشتم


Dim i
For i = 1 To 10
If Val(VSFlexGrid1.TextMatrix(1, i)) = 1 Then VSFlexGrid1.TextMatrix(2, i) = "ا"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 2 Then VSFlexGrid1.TextMatrix(2, i) = "ب"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 3 Then VSFlexGrid1.TextMatrix(2, i) = "ج"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 4 Then VSFlexGrid1.TextMatrix(2, i) = "د"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 5 Then VSFlexGrid1.TextMatrix(2, i) = "ه"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 6 Then VSFlexGrid1.TextMatrix(2, i) = "و"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 7 Then VSFlexGrid1.TextMatrix(2, i) = "ز"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 8 Then VSFlexGrid1.TextMatrix(2, i) = "ح"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 9 Then VSFlexGrid1.TextMatrix(2, i) = "ط"
If Val(VSFlexGrid1.TextMatrix(1, i)) = 10 Then VSFlexGrid1.TextMatrix(2, i) = "ي"
Next i


و به اینصورت نوشتم


Dim i
For i = 1 To 10
A1 = "ابجدهوزحطي"
If Val(VSFlexGrid1.TextMatrix(1, i)) > 0 Then VSFlexGrid1.TextMatrix(2, i) = Mid$(A1, Val(VSFlexGrid1.TextMatrix(1, i)), 1)
Next i


حالا از دوستان کسی میدونه چطوری باید کدهای زیر رو همانند بالا خلاصه نوشت


Dim i
For i = 1 To 10
If VSFlexGrid1.TextMatrix(1, i) = "ا" Then VSFlexGrid1.TextMatrix(2, i) = "س"
If VSFlexGrid1.TextMatrix(1, i) = "ب" Then VSFlexGrid1.TextMatrix(2, i) = "ع"
If VSFlexGrid1.TextMatrix(1, i) = "ج" Then VSFlexGrid1.TextMatrix(2, i) = "ف"
If VSFlexGrid1.TextMatrix(1, i) = "د" Then VSFlexGrid1.TextMatrix(2, i) = "ص"
If VSFlexGrid1.TextMatrix(1, i) = "ه" Then VSFlexGrid1.TextMatrix(2, i) = "ق"
If VSFlexGrid1.TextMatrix(1, i) = "و" Then VSFlexGrid1.TextMatrix(2, i) = "ر"
If VSFlexGrid1.TextMatrix(1, i) = "ز" Then VSFlexGrid1.TextMatrix(2, i) = "ش"
If VSFlexGrid1.TextMatrix(1, i) = "ح" Then VSFlexGrid1.TextMatrix(2, i) = "ت"
If VSFlexGrid1.TextMatrix(1, i) = "ط" Then VSFlexGrid1.TextMatrix(2, i) = "ث"
If VSFlexGrid1.TextMatrix(1, i) = "ي" Then VSFlexGrid1.TextMatrix(2, i) = "خ"
Next i


و همچنین


Dim i
For i = 1 To 10
If VSFlexGrid1.TextMatrix(1, i) = "ا" Then VSFlexGrid1.TextMatrix(2, i) = 1
If VSFlexGrid1.TextMatrix(1, i) = "ب" Then VSFlexGrid1.TextMatrix(2, i) = 2
If VSFlexGrid1.TextMatrix(1, i) = "ج" Then VSFlexGrid1.TextMatrix(2, i) = 3
If VSFlexGrid1.TextMatrix(1, i) = "د" Then VSFlexGrid1.TextMatrix(2, i) = 4
If VSFlexGrid1.TextMatrix(1, i) = "ه" Then VSFlexGrid1.TextMatrix(2, i) = 5
If VSFlexGrid1.TextMatrix(1, i) = "و" Then VSFlexGrid1.TextMatrix(2, i) = 6
If VSFlexGrid1.TextMatrix(1, i) = "ز" Then VSFlexGrid1.TextMatrix(2, i) = 7
If VSFlexGrid1.TextMatrix(1, i) = "ح" Then VSFlexGrid1.TextMatrix(2, i) = 8
If VSFlexGrid1.TextMatrix(1, i) = "ط" Then VSFlexGrid1.TextMatrix(2, i) = 9
If VSFlexGrid1.TextMatrix(1, i) = "ي" Then VSFlexGrid1.TextMatrix(2, i) = 10
Next i

[Alireza Pro]

اگر من بودم یه case می زاشتم نصف این خط می خواست

[محسن واژدی]

سلام علیکم




Dim i
For i = 1 To 10
If VSFlexGrid1.TextMatrix(1, i) = "ا" Then VSFlexGrid1.TextMatrix(2, i) = "س"
If VSFlexGrid1.TextMatrix(1, i) = "ب" Then VSFlexGrid1.TextMatrix(2, i) = "ع"
If VSFlexGrid1.TextMatrix(1, i) = "ج" Then VSFlexGrid1.TextMatrix(2, i) = "ف"
If VSFlexGrid1.TextMatrix(1, i) = "د" Then VSFlexGrid1.TextMatrix(2, i) = "ص"
If VSFlexGrid1.TextMatrix(1, i) = "ه" Then VSFlexGrid1.TextMatrix(2, i) = "ق"
If VSFlexGrid1.TextMatrix(1, i) = "و" Then VSFlexGrid1.TextMatrix(2, i) = "ر"
If VSFlexGrid1.TextMatrix(1, i) = "ز" Then VSFlexGrid1.TextMatrix(2, i) = "ش"
If VSFlexGrid1.TextMatrix(1, i) = "ح" Then VSFlexGrid1.TextMatrix(2, i) = "ت"
If VSFlexGrid1.TextMatrix(1, i) = "ط" Then VSFlexGrid1.TextMatrix(2, i) = "ث"
If VSFlexGrid1.TextMatrix(1, i) = "ي" Then VSFlexGrid1.TextMatrix(2, i) = "خ"
Next i

[/VB]
Dim i
For i = 1 To 10
Select Case VSFlexGrid1.TextMatrix(1, i)
Case "ا": VSFlexGrid1.TextMatrix(2, i) = "س"
Case "ب": VSFlexGrid1.TextMatrix(2, i) = "ع"
Case "ج": VSFlexGrid1.TextMatrix(2, i) = "ف"
Case "د": VSFlexGrid1.TextMatrix(2, i) = "ص"
Case "ه": VSFlexGrid1.TextMatrix(2, i) = "ق"
Case "و": VSFlexGrid1.TextMatrix(2, i) = "ر"
Case "ز": VSFlexGrid1.TextMatrix(2, i) = "ش"
Case "ح": VSFlexGrid1.TextMatrix(2, i) = "ت"
Case "ط": VSFlexGrid1.TextMatrix(2, i) = "ث"
Case "ي": VSFlexGrid1.TextMatrix(2, i) = "خ"
End Select
Next i






Dim i
For i = 1 To 10
If VSFlexGrid1.TextMatrix(1, i) = "ا" Then VSFlexGrid1.TextMatrix(2, i) = 1
If VSFlexGrid1.TextMatrix(1, i) = "ب" Then VSFlexGrid1.TextMatrix(2, i) = 2
If VSFlexGrid1.TextMatrix(1, i) = "ج" Then VSFlexGrid1.TextMatrix(2, i) = 3
If VSFlexGrid1.TextMatrix(1, i) = "د" Then VSFlexGrid1.TextMatrix(2, i) = 4
If VSFlexGrid1.TextMatrix(1, i) = "ه" Then VSFlexGrid1.TextMatrix(2, i) = 5
If VSFlexGrid1.TextMatrix(1, i) = "و" Then VSFlexGrid1.TextMatrix(2, i) = 6
If VSFlexGrid1.TextMatrix(1, i) = "ز" Then VSFlexGrid1.TextMatrix(2, i) = 7
If VSFlexGrid1.TextMatrix(1, i) = "ح" Then VSFlexGrid1.TextMatrix(2, i) = 8
If VSFlexGrid1.TextMatrix(1, i) = "ط" Then VSFlexGrid1.TextMatrix(2, i) = 9
If VSFlexGrid1.TextMatrix(1, i) = "ي" Then VSFlexGrid1.TextMatrix(2, i) = 10
Next i

Dim i
For i = 1 To 10
Select Case VSFlexGrid1.TextMatrix(1, i)
Case "ا": VSFlexGrid1.TextMatrix(2, i) = "1"
Case "ب": VSFlexGrid1.TextMatrix(2, i) = "2"
Case "ج": VSFlexGrid1.TextMatrix(2, i) = "3"
Case "د": VSFlexGrid1.TextMatrix(2, i) = "4"
Case "ه": VSFlexGrid1.TextMatrix(2, i) = "5"
Case "و": VSFlexGrid1.TextMatrix(2, i) = "6"
Case "ز": VSFlexGrid1.TextMatrix(2, i) = "7"
Case "ح": VSFlexGrid1.TextMatrix(2, i) = "8"
Case "ط": VSFlexGrid1.TextMatrix(2, i) = "9"
Case "ي": VSFlexGrid1.TextMatrix(2, i) = "10"
End Select
Next i



موفق باشید