17-06-20, 08:00 AM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , وهذا أيضا كود آخر :
- بالتوفيق .
أهلا بك أخي الكريم , وهذا أيضا كود آخر :
PHP كود :
Dim Total As Long
Dim I As Long
For I = 1 To Len(Text1.Text)
Select Case Mid$(Text1.Text, I, 1)
Case "ا": Total = Total + 1
Case "ح": Total = Total + 8
Case "م": Total = Total + 40
Case "د": Total = Total + 4
End Select
Next
Text2.Text = Total
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next