کمک کمک کمک

[1nafar]

سلام دوستان
من چندتا سوال داشتم:
1چه جوری میشه روی یه دونه text این عبارت رو نشون داد
x y
q w
e r
که q,e,xهمگی حروف هستند وy,w,rمتغییر میباشند که مدام تغییر میکنند

2 روی یه دونه text این عدد 00002544 که بدون ممیز هست رو چه جوری میشه نشون داد ،این عدد تغییر میکنند مثلا ممکن است به عدد56145656 تغییر یابد
لطفا کلیه روشهای موجود را بیان کنید
[/i] از پاسخ های بیکران شما سپاسگذارم

[Di Di]

براي مورد اول بهتره از جدول استفاده كني ( يه جورايي بايد از جدول استفاده كني! )
مورد دوم هم اگه درست متوجه شده باشم مي خواي يه مقدار عددي رو با تكست باكس نمايش بدي خوب نمايش بده كاري نداره كه؟؟!! كافيه بنويسي :
Text1= 0104524

[1nafar]

سلام
ممنون از جوابتون
اما فایل پیوست رو باز کنید
من میخوام ،مثلا وقتی همه کلید های a1تا a8 زده شد روی تكست باكس بنویسه a11111111
حالا اگه همه کلید ها به جز a2,a6,a1 زده شد روی تكست باكس بنویسه a00111011
در مورد کلید های ردیف b هم به همین شکل اما میخوام نتیجه رو روبرو نتیجه قسمت a نشون بده و بین a,b یه دونه کما (,)وجو داشته باشه
اگه زیر هم نشون بده اشکال نداره
(در فایل پیوست فرض بر این است که همه کلید ها به جز a1,a2 ,a7,b8,b1,b3 زده شده اند ونتیجه در تكست باكس نوشته شده است(یکی از کلید ها را فشار دهید))
با تشکر

[xsalamx]

سلام
4 تا کامند با یه تکست باکس بزار بعد کدهای زیر رو وارد کن:
Dim a As String
Dim b As String
Private Sub Form_Load()
Command1.Caption = "a1"
Command2.Caption = "a2"
Command3.Caption = "b1"
Command4.Caption = "b2"
End Sub
Private Sub Command1_Click() 'a1
If b = "" Then
a = "a00111011"
Text1.Text = a
End If
If b <> "" Then
a = "a00111011"
Text1.Text = a + "," + b
a = ""
b = ""
End If
End Sub
Private Sub Command2_Click() 'a2
Text1.Text = "a11111111"
End Sub
Private Sub Command3_Click() 'b1
If a = "" Then
b = "b00111011"
Text1.Text = b
End If
If a <> "" Then
b = "b00111011"
Text1.Text = a + "," + b
a = ""
b = ""
End If
End Sub
Private Sub Command4_Click() 'b2
Text1.Text = "b11111111"
End Sub
a1 و b1 برای این است که دو تا عدد رو داخل یک تکست باکس بنویسید(a00111011,b00111011) و a2 و b2 هم برای این که اعداد رو بصورت جدا جدا بنوسید(یکی از اعداد a11111111 یا b11111111 ).این دستورات برای 4 تا کامند شما می تونی برای بقیه کوپی کنی
خداحافظ