31-12-13, 08:09 PM
السلام عليكم
- الجواب - 1) :-
- الجواب - 2) :-
- تحياتي .
- الجواب - 1) :-
كود :
If IsNumeric(Trim$(Text1.Text)) = True Then
MsgBox "خطأ"
End If- الجواب - 2) :-
كود :
Dim zStr As String
zStr = Trim$(Text1.Text)
zStr = Mid$(zStr, InStr(1, zStr, "e") + 1)
zStr = Left$(zStr, InStr(1, zStr, "w") - 1)
Text1.Text = zStr- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next