تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى عمل برنامج بسيط
#2
السلام عليكم

استخدم الكود التالي

يعطيك العافية

PHP كود :
Private Sub Command1_Click()
Text2 ""
If Len(Text1.Text) < 11 Then MsgBox ("ÇáÑÌÇÁ ÇÏÎÇá ÑÞã ÕÍíÍ"): Text1.SetFocus: Exit Sub
Select 
Case Val(Mid$(Text1.Text102))
Case 
404142
    Text2
.Text Trim(Str(Val(Text1.Text) + 17))
 
   Exit Sub
Case 4546474849
    Text2
.Text Trim(Str(Val(Text1.Text) + 7))
 
   Exit Sub
End Select
Select 
Case Val(Mid$(Text1.Text111))
Case 
01
    Text2
.Text Trim(Str(Val(Text1.Text) + 18))
 
   Exit Sub
Case 23456789
    Text2
.Text Trim(Str(Val(Text1.Text) + 8))
 
   Exit Sub
End Select
Text2
.Text Text1.Text
End Sub 


الملفات المرفقة
.rar   num.rar (الحجم : 1.4 ك ب / التحميلات : 37)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

[صورة مرفقة: vb4arb2.gif]
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , عبد العزيز البسكري


الردود في هذا الموضوع
RE: مساعدة فى عمل برنامج بسيط - بواسطة abulayth - 25-09-16, 01:01 PM


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


يقوم بقرائة الموضوع: