تقسيم عدد مكون من خمس ارقام إلى خمس خانات

اخي هناك طريقه لا اعرف هل ستكون جيده هي كا التالي

تصرح عن مصفوفه احادية البعد من textbox

مثل

TextBox[] t = new TextBox[24];

بعد ذالك

تخزن ال textbox في المصفوفه

t[0] = textBox1;

t[1] = textBox2;

:

:

t[23] = textBox24;

وفي حدت الكليك للزر <<

تقوم با التالي

string str = textBox7.Text;
			for (int i=0;i<t.Length;i++)
			{
				t.Text = str.ToString();
			}

الكود با السي شارب

اتمنى انني قد اوضحت الفكره

مرحبا اخي هذي الطريقة وجربتها وهي شغاله تمام التمام

ولو فيه استفسار انا موجود.....تحياتي

_____________.rar

شكراً جزيلاً لمساعداتكم لقد وصلت لتلك النتيجة و لكم كل الشكر

موديول ..

Public Function DecimalToBinary(DecimalNum As Long, bit As Byte) As Boolean
Dim tmp As String
Dim n As Long
	n = DecimalNum
	tmp = Trim(Str(n Mod 2))
	n = n \ 2
	Do While n <> 0
		tmp = Trim(Str(n Mod 2)) & tmp
		n = n \ 2
	Loop
	DecimalToBinary = tmp
	If bit < Len(tmp) Then
	If Mid(tmp, Len(tmp) - bit, 1) = 1 Then DecimalToBinary = True Else DecimalToBinary = False
	Else: DecimalToBinary = False
	End If

End Function

والنموذج

Private Sub Command1_Click()
Dim I As Byte
For I = 0 To 31
Text3(I) = DecimalToBinary(txtDecimal, I)

If DecimalToBinary(txtDecimal, I) = True Then Text3(I).BackColor = &HFF00& Else Text3(I).BackColor = &HE0E0E0
Next I
End Sub

لم ادقق جيدا في الامثلة التي طرحها الاخوان .. لكن الطريقة التي اعرفها هي أن تستخدم معامل باقي القسمة Mod و خارج القسمة Div

dim a as integer 
a = 1010101001101
do
  array= a% 10
  a=a/0 
while(a/10 <> 0 )

الكود مزيج من عدة لغات :) . .

لكن الفكرة كلها باستخدام معامل الباقي .. لكن لا اعرف هل هو متوفر في الvb ؟؟

شباب حصل تضارب بين الـ ++ vb , Cههههههههه :P

نعم اخي الشمري هي موجودة في الـ vb