سؤال در مورد کامند

[Hassan2500]

سلام

وقتی این کدها رو در Command1_Click مینویسم برنامه از قسمت NextCh: ایراد میگیره مشکلش چیه

Private Sub Text10_Change()
Dim a() As String
Dim X As Long
Dim Y As Long
Dim num As Long
Dim s As Long
Dim yy As Long
If Text11 = Empty Then Exit Sub
Text12 = Empty
ReDim a(1 To Len(Text11))
For X = 1 To Len(Text11)
a(X) = Mid(Text11, X, 1)
Next X
For X = 1 To Len(Text10)
num = CLng(Mid(Text10, X, 1))
Y = Y + num
Do While Y > Len(Text11)
Y = Y - Len(Text11)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
'--------------------------------------------------------------------------------------'
If Text14 = Empty Then Exit Sub
Text15 = Empty
ReDim a(1 To Len(Text14))
For X = 1 To Len(Text14)
a(X) = Mid(Text14, X, 1)
Next X
For X = 1 To Len(Text13)
num = CLng(Mid(Text13, X, 1))
Y = Y + num
Do While Y > Len(Text14)
Y = Y - Len(Text14)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
End Sub

[سید حمید حق پرست]

سلام علیکم

اولا دو تا تاپیک چرا زدید . یک تاپیک کافیه!!!!!!!!!
دوما اینجوری که نمیشه شما سورسو بزار . الان من و دوستان برای امتحان کد باید بیایم تکستهارو رو فرم بزاریم .
سورس رو بزار!!!!

موفق باشید


یا علی (ع)

[daniyal_1363]

سلام

اولاً این جوری که شما کد گذاشتی ....

ای بابا

جواب :

از NextCh دو بار استفاده کردی و بهتره برای فرستادن به خط خاصی NextCh03 ، NextCh02 ، NextCh01 و ... استفاده کنی

[setroyd]

چون 2 بار تکرار شده شما اگر اولین دستور رو تغییر بدی درست میشه
Private Sub Command1_Click()

Dim a() As String

Dim X As Long

Dim Y As Long

Dim num As Long

Dim s As Long

Dim yy As Long

If Text11 = Empty Then Exit Sub

Text12 = Empty

ReDim a(1 To Len(Text11))

For X = 1 To Len(Text11)

a(X) = Mid(Text11, X, 1)

Next X

For X = 1 To Len(Text10)

num = CLng(Mid(Text10, X, 1))

Y = Y + num

Do While Y > Len(Text11)

Y = Y - Len(Text11)

Loop

yy = Y

Y = Y - 1

For s = yy To UBound(a)

Y = Y + 1

If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo 1

Next s

For s = 1 To yy - 1

Y = Y + 1

If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo 1

Next s

1:

Next X

'---------------------------------------------------------------------------------------------------------------------'

If Text14 = Empty Then Exit Sub

Text15 = Empty

ReDim a(1 To Len(Text14))

For X = 1 To Len(Text14)

a(X) = Mid(Text14, X, 1)

Next X

For X = 1 To Len(Text13)

num = CLng(Mid(Text13, X, 1))

Y = Y + num

Do While Y > Len(Text14)

Y = Y - Len(Text14)

Loop

yy = Y

Y = Y - 1

For s = yy To UBound(a)

Y = Y + 1

If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh

Next s

For s = 1 To yy - 1

Y = Y + 1

If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh

Next s

NextCh:

Next X

End Sub


من اسمش رو 1 گذاشتم برای این بود که در 2 بار دستور برنامه خطا میدید شما اسم هارو یک شکل نوشته بودی !!