تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مقارنة
#1
السلام عليكم.....................
أنا محتاج مساعدتكم
عندي في البرنامج
TEXTBOX1 AND TEXTBOX2 AND BUTTON
عند الضغط على زر1 و تنفيذ هذه الكود
كود :
Dim s As String = TextBox1.Text
If InStr(1, TextBox1.Text, "hi") Then
            TextBox2.Text = (Replace(s, "hi", "welcome"))
        ElseIf InStr(1, TextBox1.Text, "hello") Then
            TextBox2.Text = (Replace(s, "hello", "welcome2"))
End If

عند أدخال hi hello man في textbox1 يكون الناتج welcome hello man
مع انه المفروض يكون welcome welcome2 man
أتمنى مساعدتي في فهم الكود الاعلى أكثر .
و طبعا أريد أضافه كلمات أخرى
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
'Dim s As String = TextBox1.Text
'      
If InStr(1s"hi"Then
'        TextBox2.Text = (Replace(s, "hi", "welcome"))
'     
End If
'     If InStr(1, TextBox1.Text, "hello") Then
'      
TextBox2.Text = (Replace(s"hello""welcome2"))
'
'    
End If 





[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#3
(20-06-14, 03:43 PM)a_almisery كتب :
PHP كود :
'Dim s As String = TextBox1.Text
'      
If InStr(1s"hi"Then
'        TextBox2.Text = (Replace(s, "hi", "welcome"))
'     
End If
'     If InStr(1, TextBox1.Text, "hello") Then
'      
TextBox2.Text = (Replace(s"hello""welcome2"))
'
'    
End If 



شاكر لك مساعدتك و لكن نفس المشكلة
hi welcome2
هو ناتج الكود
الرد }}}}
تم الشكر بواسطة:
#4
أحتاج الى كود يعمل الاتي
الكود يحلل الجمل الي في textbox1 و يحول أي كلمات مثل ( hi الى welcome) و (hello الى welcome2) و (people الى man) و .......
مثال
أكتب في textbox1 الاتي:-
hi people, how are you all ? hello to my world
الناتج المفروض في textbox2 هو :-
welcome man, how are you all? welcome2 to my world
الرد }}}}
تم الشكر بواسطة:
#5
Wink 
السلام عليكم
لاحظ انك اخ a.alhudar
أولا: لا داعي للجمل الشرطية
ثانيا: التغيير يجب ان يكون بالترتيب وليس يحذف ما قبله
ثالثا تفضل الكود
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim s 
As String TextBox1.Text
        s 
Replace(s"hi""welcome"1)
        
Replace(s"hello""welcome2"1)
        
TextBox2.Text s
    End Sub 
أي استفسار جاهز
الرد }}}}
تم الشكر بواسطة: a.alhudar


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم