(26-01-14, 05:25 PM)الشاكي لله كتب : والله موفاهمك
تعرف كل شيئ عن الفيجوال بيسك ولكن ماتعرف تكتب كود
مادري ويش اقول لك .. لكن طلبك مستحيل احد يسويه
لأن تصميم IDE من جديد متعب جدااا ، ولأجل من ؟؟ لأجل شخص واحد !!!
اقولك من الحين .. مستحييييل احد يسوي لك هالمشروع
فلا تتعب نفسك
--
انا عارف ويش مشكلتك
انت موصبور وكلشيئ تبيه بسرعة .. ياخي نظم امورك وطول بالك وخذ الامور بروية وشوف لك كم فيديو
http://www.youtube.com/watch?v=JjdXgC1j8As
او حتى الفيديوهات الي اعطاك اياها الاخ علي الفولي
او حتى اذا ماعجبك شرحهم ابحث في قوقل فهنااك الكثييييييييييييير من الدروس العربية التي تتحدث عن الفيجوال بيسك
واعتقد ان الفيجوال بيسك حطمت الرقم القياسي وفافت الاجانب من ناحية وفرة الدروس العربية والشروحات عنها ...
اعذرني ان اخطأت ، موفق
اخوي اعتذر اذا ازعجتك لاكن بقولك حاجة
بس اخاف تزعجك الي هي انت المخطأ
عشان تقدر تسوي ذا البرنامج كيف؟؟
انا اقلك ذحين المشروع حق العضو
مبرمج مبتدئ
سوى مشروع الي هو يحول من ابتث الى ابجد
لاكن اذا عدلت على المشروع
وخليته اذا كتبت في الكود
مربع نص1
يحوله لــ
text1
وزي كذا
الحين ابغى واحد يعدل على المشروع طبعا الي يبغى المشروع رابط التحميل
هذا :
انقر هنا
طبعا عندك كود
Private Sub Command1_Click()
Dim CurChar As String
Dim zStr As String
Dim I As Integer, N As Integer
For I = 1 To Len(Trim$(Text1.Text))
CurChar = Mid$(Trim(Text1.Text), I, 1)
For N = LBound(A) To UBound(A)
If CurChar = Chr$(32) Then
zStr = zStr & " "
Exit For
Else
If CurChar = A(N) Then
zStr = zStr & B(N)
Exit For
End If
End If
Next
Next
Text2.Text = zStr
End Sub
طبعا في ذا الكود في جملة
CurChar = Mid$(Trim(Text1.Text), I, 1)
غير رقم واحد ( 1 )
وخليه : 1000000000
المهم بعدين ابدأ غير في الكود
Private Sub Form_Load()
A(0) = "ا": B(0) = "ا"
A(1) = "أ": B(1) = "ا"
A(2) = "آ": B(2) = "ا"
A(3) = "إ": B(3) = "ا"
A(4) = "ئ": B(4) = "ي"
A(5) = "ى": B(5) = "ي"
A(6) = "ؤ": B(6) = "و"
A(7) = "ب": B(7) = "ب"
A(8) = "ج": B(8) = "ت"
A(9) = "د": B(9) = "ث"
A(10) = "ه": B(10) = "ج"
A(11) = "و": B(11) = "ح"
A(12) = "ز": B(12) = "خ"
A(13) = "ح": B(13) = "د"
A(14) = "ط": B(14) = "ذ"
A(15) = "ي": B(15) = "ر"
A(16) = "ك": B(16) = "ز"
A(17) = "ل": B(17) = "س"
A(18) = "م": B(18) = "ش"
A(19) = "ن": B(19) = "ص"
A(20) = "س": B(20) = "ض"
A(21) = "ع": B(21) = "ط"
A(22) = "ف": B(22) = "ظ"
A(23) = "ص": B(23) = "ع"
A(24) = "ق": B(24) = "غ"
A(25) = "ر": B(25) = "ف"
A(26) = "ش": B(26) = "ق"
A(27) = "ت": B(27) = "ك"
A(28) = "ث": B(28) = "ل"
A(29) = "خ": B(29) = "م"
A(30) = "ذ": B(30) = "ن"
A(31) = "ض": B(31) = "ه"
A(32) = "ظ": B(32) = "و"
A(33) = "غ": B(33) = "ي"
A(34) = "": B(34) = "ء"
End Sub
طبعا غيره يعني بدال ا و ب وذي خليها مثلا اول واحد الي هو :
A(0) = "ا": B(0) = "ا"
يعني ابدا غير حرف ( ا ) وخليه اذا
وغير حرف ( ا ) الثاني وخليه if
وزي كذا بس انا في مشكلة ايش هي؟؟
لما اغير اجي اكتب
اذا مربع نص1
ما يجيني كذا
if text1
لا يجيني
text1
يعني اخر كلمة او كلمتين على حسب الي انت كتبته في الكود
المهم
انا ما قدرت اصنع البرنامج عشان ذي المشكلة حاول انت تحلها وعطني
طبعا الفروم كبره وحط صوره او لونه المهم وغير الباقي في الفروم
وعطني رابط التحميل
وكمان مو بس انت كمان الاعضاء يقدرون يسوونه المهم
الي يسويه عطوني رابط التحميل
وبس
