ماهي الطريقة لجمع احتمال واحد في إثنين تكست بوكس ؟ هناك كود يحتاج إلى تصحيح أرجو المساعدة وإلا سأأأأأجن

:( لا أصدق انه لم يرد علي أحد ..

ارجوكم لاتبخلوا علي من نصحكم وتصحيحكم يا خبراااء :(

مس جافا

:) الاخت العزيزة انتي بدك فتح ملف pdf في الفيجوال بيزك يعني بداخله والا فتحه خارجه

علي ما اعتقد انك محتجاه داخله علي العموم في اداة اسمها pdf وهي اداة خاصة بفتح ملفات البي دي اف داخ الفيجوال بيزك دوري عليها في المنتدي في البحث لو ما لقتيش الاداة او شرح عنها اخبريني وانا ارفقهالك لاني في الوقت هيدي في سير مو في البيت

اما لو انتي قصدك تفتحيها بره يعني بعيد عن الفيجوال بيزك بمعين انه بمجرد ضغط الزر يفتح ملف pdf الموجود في مسار البرنامج فا كل الا عليكي استخدام امر فتح

shell("app.path" & "\" & "mypdffile.pdf")

وطبعا حطي الكود السابق في مفتاح الكوماند واي خدمة

اما بالنسبة للكود المرفق فهيدي تصليحه علي قدر فهمني من كلامك .........

Private Sub Command3_Click()

Dim status As String
Dim disb As Double
Dim totl As Double

status = Text1.Text
totl = total.Text


If status = "Regular" Then
disb = total * 15 / 100

ElseIf status = "Drop in" And total.Text >= 60 Then





disb = total * 5 / 100

ElseIf status = "Telesales" Then
disb = total

End If

Text6.Text = disb

End Sub

واي خدمة يا مس جافا

اما بالنسبة لمستشفي المجانين فا يا ريت تخبري والدتك اني اعرف مستشفي كويسة واسعارها رخيصة لو حبت يعني ...

الكود إشتغل

جزاك الله خير ..

ولكن اخي كيف لي ان احسب ال VAT

حيث ان الVAT

يساوي

VAT = disb * 17.5 %

disb هو التنزيلات مع الفاتورة (الحساب الكلي)

وهذاا لكود الذي استخدمته ولكن لم يعمل معي وكل مرة يقول انه في خطأ

أرجو تصحيحه لي

Private Sub Command8_Click()
Dim vat As Integer
Dim disb As Integer

vat = Text5.Text
disb = Text6.Text

vat = disb * 17.5 / 100

End Sub

وضعت صورة للشكل الخارجي له ( الفات يساوي الحساب الكلي مضروب مع الضريبة 17.5%

انتظر مساعدتكم وجزاكم الله خير

اختكم

مس جافا :unsure:

'عشان لو المدخلات في التكست حروف ميديش error
If Not IsNumeric(Text5.Text) Or Not IsNumeric(Text6.Text) Then Exit Sub

' doubleعشان يقبل الأرقام العشريه وميقربش الأرقام   
Dim vat As Double
Dim disb As Double

vat = Text5.Text
disb = Text6.Text

vat = disb * 17.5 / 100

وضعت الكود ..

هذه المرة لم تظهر لي رسالة الخطأ لتصحيح الكود

بل لم يعمل الزر أضغطه ولا يفعل شيء ..!

ما المشكلة ؟

الاخت العزيزة اكيد طبعا مش هيعمل حاجة لانك هنا بتساوي المتغيرات بقيمة الموجودة في لاتكستات والمفروض العكس لانه بكده مش هيعرض حاجة في التكست هو هيكون حسب العملية صح بس الناتج لم يظهر انتي شكلك مبتدأ بس لا اعتقد لهذا الحد قولي لي ازا طيب هيعرض لك الناتج انتي هنا بتساوي المتغير بالقيمة الموجودة في التكست يبقي هيعرض ازاي وعلي فكرة المشكلة دي كانت في الكود السابق برده بس علي ما اعتقد انك ما حولتيش تفهمي الكود الا اتصلح انتي نقلتيه وبس علي العموم خير ان شاء الله بس لو مش فاهمه اجة في الكود قولي واحنا ان شاء الله نشرحه .............

اولا :

Dim vat As Integer
Dim disb As Integer

هيدي خطا يا اختي لان الناتج لن ينتج اعداد صحيحة غير ان هيدي المتغير مساحته لا تكفي لاخز متغيرات متعددة او مزدوجة ....... ويجب عليك تغييره بمتغير من نع DOUBLE اوكيه ده بالنسبة للخط الاول ويا ريت تبحثي في المنتدي عن شرح للمتغيرات ورجعيها لانك محتجاها فعلا ..........

ثانيا :

vat = Text5.Text
disb = Text6.Text

انتي هنا ساويتي متغير بقيمة الموجود في التكست علي الرغم ان التكست ده سوف تستخدميه للعرض وليس للادخال للقيم ده خطا انتي ساويتي المتغير DISB لانك هتخدي منه ارقام وقيم ده كود كويس اما وضعك قيمة للمتغير VAT طبعا لا تجوز لان التكست ده الا خهتعرضي فيه الناتج مش عشان تخدي قيم منه .....

ثالثا :

تصحيح الكود النهائي ......

Dim vat As Double
Dim disb As Double


disb = VAL(Text6.Text)

vat = disb * (17.5 / 100)

واي خدمة بس يا ريت تسمعي نصحتي وتبحثي عن موضوع لشرح المتغيرات هنا في المنتدي وتبدائي تزكريه لانه هيفيدك جدا ومشكووووووور اخي العزيز A.B.D علي مجهوده .....................

لي عودة ..

وشكرا لك يا استاذي على نصيحتك القيمة

سأررجع حتى اخبركم النتيجة غدا ان شاءالله

والله يجزاكم خير ويبارك فيكم

(: