+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : الرجاء تعديل الدالة التالية (/showthread.php?tid=22406)
الرجاء تعديل الدالة التالية - wolf1120 - 04-11-17
السلام عليكم ورحمة الله وبركته
الرجاء تعديل الدالة التالية
Dim r ,x ,t As String
Dim s ,m ,h As String
s = Text1.Text
m = Text2.Text
h = Text3.Text
r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
x = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
t = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
Text1.Text = r
Text2.Text =x
Dim s ,m ,h As String
s = Text1.Text
m = Text2.Text
h = Text3.Text
r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
x = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
t = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
Text1.Text = r
Text2.Text =x
Text3.Text =t
عندى قيمة في تكست 1 : 0FD1B2
عند وضع الدالة التالية
Dim r As String
Dim s As String
s = Text1.Text
r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
Text1.Text = r
تنقلب الى B2D10F
لان عندي 3 تاكست بوكس اريد قلبهم في 3
text1.text=B2D10F
Text2.text=B3D10F
text3.text=B4D10F
وضعت الدالة التالية ولم تفلح
Dim r ,x ,t As String
Dim s ,m ,h As String
s = Text1.Text
m = Text2.Text
h = Text3.Text
r = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
x = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
t = Mid$(s, 5, 2) & Mid$(s, 3, 2) & Mid$(s, 1, 2)
Text1.Text = r
Text2.Text =x
TEXT3.TEXT=t
اريد النتيجة عند التعديل تصبح كالتالي
text1.text=0FD1B2
Text2.text=0FD1B3
text3.text=0FD1B4
وشكرا لكم
RE: الرجاء تعديل الدالة التالية - eiocm - 04-11-17
لديا قيمة في تاكست بوكس اريد تحويلها
RE: الرجاء تعديل الدالة التالية - wolf1120 - 04-11-17
اريد تعديل الدالة
RE: الرجاء تعديل الدالة التالية - eiocm - 04-11-17
Private Sub Command1_Click()
Text1 = f(Text1)
Text2 = f(Text2)
Text3 = f(Text3)
End Sub
Function f(p As String)
f = Mid$(p, 5, 2) & Mid$(p, 3, 2) & Mid$(p, 1, 2)
End Function
RE: الرجاء تعديل الدالة التالية - wolf1120 - 04-11-17
برك الله فيك اخي الكريم