فكره بسيطه لتحويل العمله و تحديث اسعار الصرف بشكل مباشر

الله عليك

فعلا برنامج رائع

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

ولو سمحت ولو فيها تقالة يعني بشوية تفصيل

وشكرا

انا مش فاهم المشكله فين بالضبط ممكن توضيح

بص يا جميل اول شىء قبل ما هقولك البرنامج ده بيشتغل ازاى ادخل على اللينك ده http://freeserv.dukascopy.com/currcalc

لاحظ ان البرنامج ده جاهز و مبرمج من قبل بعددة لغات برمجه ويب لكى يعمل على الويب .

كل اللى انا عملتو انى جعلتو يعمل من على برنامج مبرمج بالفجول .

سيبك من شكل البرنامج و خذ الفكره الرائيسيه الذى يعمل من خلالها البرنامج من على الويب , عند الضغط على زر convert يقوم البرنامج بارسال 3 متغيرات ( المبلغ , من عمله , الى عمله) الى ملف اسمو proc.php موجود على الموقع مكان الملف بالظبط هو :

http://freeserv.dukascopy.com/currcalc/proc.php

الملف ده مبرمج بلغه php و وظيفته استقبال ال 3 متغيرات دول ثم يقوم بتحويل العمله و ارجاع النتيجه مره اخره

الاسماء الحقيقيه للمتغيرات الثلاث هما (amount ,from,to)

طيب دى طريقه عمل البرنامج من على صفحه الويب طيب ازاى هيشتغل عن طريق برنامج من على كهاز الكمبيوتر

كل ما فى الموضوع انى هستدعى نفس الملف و همرر له ال3 متغيرات و هاخذ منه الناتج

و بالنسبه لتمرير المتغيرات لسكريبت على موقع لها عده اشكال و ده واحد منهم ركز فى اللينك التالى :

http://freeserv.dukascopy.com/currcalc/proc.php?amount=1.00&from=EUR&to=EGP

لو ركزت فى هذا اللينك هتفهم منو اننا عيزين تحويل 1 يورو بالجنيه المصرى

مرر هذا اللينك فى متصفح الانترنت ثم افتح source الصفحه هتلاقى كلام و رموز و وسطهم قيمه التحويل

ارجع تانى لكود البرنامج المرفق و تتبع الخطوات

اقتباس

'حدث الضغط على زر تحويل

Private Sub cmdconvert_Click()

Dim from_value As String, to_value As String, url As String, link As String

Dim amount As Integer

'تجهيز متغير العمله1 برمز العمله لكى يفهمو الموقع

from_value = get_value(selfrom.Text)

'تجهيز متغير العمله2 برمز العمله لكى يفهمو الموقع

to_value = get_value(selto.Text)

'متغير المبلغ

amount = Val(txtamount)

'موقع الملف على الموقع

url = "http://freeserv.dukascopy.com/currcalc/proc.php?"

'تجهيز اللينك كامل متضمن ال 3 متغيرات

link = url & "amount=" & amount & "&from=" & from_value & "&to=" & to_value

txtresult.Text = "Please Wait .."

'ارسال المتغيرات و استقبال الرد

data = Inet1.OpenURL(link)

'اظهار الناتج

txtresult.Text = getvalue_fromdata(data)

End Sub

mono4hack كتب:

انا مش فاهم المشكله فين بالضبط ممكن توضيح

اشكرك جدا على الشرح الوافي ده وبالفعل وصلت الفكرة

شكرا

برنامج رائع جدا جدا مشكور اخى الغالى كنت بدور على برنامج شبيه بالفكرة دى كدة