انتخاب رقم دوم از بین عدد سه رقمی

[tecnical]

سلام به اساتید
من یک خروجی دارم که یه عدد ۱۵ رقمی هست
و پانزده خانه دارم که میخوام عدد ها به ترتیب داخل هر خانه بشینه
مثلا اگه نوشتم ۱۲۳ داخل خانه دوم عدد ۲ و داخل خانه سوم عدد ۳ درج بشه
عدد ها متغیر هستند
لطفا راهنمایی کنید
ممنون

[isaac23]

یه چیز خیلی ساده برات پیدا کردم..... البته راههای بهتری هم هست اما اینم شدنی هست...

For i = 1 To Len(Text6)
y = Mid(Text6, i, 1)
If y <> "" Then z = Val(y) Else Exit For
z = Val(y)

Select Case i
Case Is = 1
Text1 = z

Case Is = 2
Text2 = z

Case Is = 3
Text3 = z

Case Is = 4
Text4 = z

Case Is = 5
Text5 = z

Case Is = 7
Text7 = z

Case Is = 7
Text7 = z

Case Is = 8
Text8 = z

Case Is = 9
Text9 = z

Case Is = 10
Text10 = z

Case Is = 11
Text11 = z

Case Is = 12
Text12 = z

Case Is = 13
Text13 = z

Case Is = 14
Text14 = z

Case Is = 15
Text15 = z
End Select

Next

[tecnical]

یه نفر این روشو گفت ولی من نفهمیدم یعنی چی
اگه می خواهید عدد رو تکه تکه تو ارایه بریزید. عدد رو با tostring تبدیل به رشته کنید بعد توو یک لوپ به طول رشته یکی یکی با substring از توش دربیارید و بریزید تو ارایه

اگه دستورش را بلدین بزارید
ممنون

[tecnical]

یه دوست دیگه هم اینو گفتن

یه فور بنویس تقسیم بر 10 کن عدد هر دفعه باقیمانده رو تو خانه ارایه بزار

ایا دستورش را بلدین

[isaac23]

مگه این چیزی که نوشتم کارت رو راه نمیندازه >؟

[isaac23]

این نمونه رو ببین

[tecnical]

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

[www.pc3enter.tk]

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

فقط یک نودپد جدید باز کن و این کدو داخلش کپی کن بعد با پسوند frm ذخیره کن و بعدش اجرا


VERSION 5.00Begin VB.Form Form1
Caption = "Form1"
LinkTopic = "Form1"
ScaleHeight = 1005
ScaleWidth = 3930
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox Text1
Height = 500
Index = 5
Left = 2505
TabIndex = 5
Top = 165
Width = 500
End
Begin VB.TextBox Text1
Height = 500
Index = 4
Left = 1935
TabIndex = 4
Top = 165
Width = 500
End
Begin VB.TextBox Text1
Height = 500
Index = 3
Left = 1350
TabIndex = 3
Top = 165
Width = 500
End
Begin VB.TextBox Text1


Height = 500
Index = 2
Left = 750
TabIndex = 2
Top = 165
Width = 500
End
Begin VB.TextBox Text1
Height = 500
Index = 1
Left = 165
TabIndex = 1
Top = 165h
Width = 500
End
Begin VB.TextBox Text1
Height = 500
Index = 6
Left = 3090
TabIndex = 0
Top = 165
Width = 500
End
End
Attribute VB_Name = "Form1"


Private Sub Form_Load()
k = InputBox("")
For a = 1 To Text1.Count
Text1(a) = Mid(k, a, 1)
Next
End Sub



خلاص