28-02-14, 11:36 PM
السلام عليكم
- عدل كودك ليصبح هكذا :
- تحياتي .
- عدل كودك ليصبح هكذا :
كود :
Dim A As Double
For N = 1 To (Val(mshflexgrid.Rows) - 1
A= A + Val(Trim$(mshflexgrid.TextMatrix(N, 1)))
Next N
Label1.Caption = A
'OR
Label1.Caption = Format$(A, "#.##")- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next