برمجة العملة بالحروف

[منال كمبيوتر]

نأمل ممن لديه فكرة عن كيفية برمجة العملة والتي يكون جمعها بالاقام مثلا 4535.350 دينار ، يكتب في نفس الوقت أربعة آلاف وخمسمائة وخمسة وثلاثون دينار و350 درهم ... وهكذا لبقية الارقام .... وذلك بالفيجوال بيسك 6.0 وأخص بالذكر argmount وله مني الف تحية ....

[AZPC]

هذا ما كنا نخشاه ... تحول المعرض الى منتدى برمجه

شوف يا اخي فيه هناك منتدى برمجه يكون احسن لأن هذا معرض فقط ليس للأسئله

[wellknownQ8]

--- السلام عليكم ---

اخي لماذا حددت الفيجوال بيسك بالذات ..!؟
و ماذا تقصد بالargument؟ وضح

[amawi]

اهلا اخي اظن انني فهمت عليك

اخي عليك بالامر for و next

او do while

مثل ذلك انا سانفذ لك العملية على الالاف ومن ثم انت حاول المتابعة

او انتظرني الى بعد يومين او ثلاثة لانني مشغول

اولا عليك وضع العدد في تيكست وكمان بدنا زر كوماند وبدنا كمان تيكست

الآن بزر الكوماند ضع التالي

Private Sub Command1_Click()
Dim i As Integer
Dim x As Integer
Dim q As Integer
'q = Val(Text2.Text)
'x = Val(Text1.Text)
'q = 0
If Text1.Text >= 1000 Then
For i = 1 To 1000
Text1.Text = Text1.Text - 1000
q = q + 1
Text2.Text = q
If Text1.Text < 1000 Then
Exit For
End If
Next i
Else
MsgBox "هذا الرقم اقل من الف", , "خطأ"
End If
If Text2.Text = 1 Then
MsgBox "ألف", , "hi"
ElseIf Text2.Text = 2 Then
MsgBox "ألفان", , "hi"
Else
MsgBox Str$(Text2.Text) + "ألف", , "hi"
End If

End Sub

==========

وعلى نفس الطريقة اكمل اخي

واذا ما عرفت ان شاء الله الاخوان بيساعدوك او انتظر ريتما اعود

طبعا انا ما جربت الكود

لكن اظن انه صحيح

بالتوفيق

اخوك عماوي

[amawi]

اخي هذا هو الكود بعد التعديل والحمد لله شغاله
التعديل بشيء بسيط الا انه مهم

ادخل الكود
elseif text2.text="" or "0" then
text2.text=0

عليك اضافة هذا المود قبل كلمة end if في الاخر

اتمنى لك التوفيق

[Argonaut]

بسم الله الرحمن الرحيم
السلام عليكم والرحمة
ابو منال كيف الحال
آسف سوف لن اساعدك لاني سوف انقطع ل 3 اشهر
وكلي ثقة بأن هناك رجال سوف يقدموا لك العون (:
====================================
عيسى ما شاء الله
^---: هذا اول الرجال
جزاك الله خيرا" (:
وشكرا"