التحويل من C++ الى فيجوال بيسك دوت نت

[برق ورعد 0]

كيف يمكنني ان اقوم بتحويل هذه الشفرة المكتوبة بلغة الـ c++إلى الغة الفيجوال بيسك دوت نت علما [ان المدخلات IS,ID,OD والمخرجات OS

#include <iostream.h>

void main()

{
 float IS,OS,ID,OD,DD;
cout<<"plz input IS, ID";
cin>> IS,ID;
cout<<"OS on D";
cin>>OD;
DD= OD-ID;
if (DD==0)
cout<<"OS is "<<IS;
else if (DD>=1)
OS= IS+(IS*0.02*DD);
cout<<"OS is "<<OS;
else if (DD<0)
OS=IS/1+(0.02*DD);
cout<<"OS is "<<OS;
}

تم تعديل 25 Jun 2010 بواسطه برق ورعد

[Tornadofay 4]

كيف يمكنني ان اقوم بتحويل هذه الشفرة المكتوبة بلغة الـ c++إلى الغة الفيجوال بيسك دوت نت علما [ان المدخلات IS,ID,OD والمخرجات OS

#include <iostream.h>

void main()

{
 float IS,OS,ID,OD,DD;
cout<<"plz input IS, ID";
cin>> IS,ID;
cout<<"OS on D";
cin>>OD;
DD= OD-ID;
if (DD==0)
cout<<"OS is "<<IS;
else if (DD>=1)
OS= IS+(IS*0.02*DD);
cout<<"OS is "<<OS;
else if (DD<0)
OS=IS/1+(0.02*DD);
cout<<"OS is "<<OS;
}

	Sub Main()

    	Dim IS1, OS, ID, OD, DD As Double


    	Console.WriteLine("plz input IS, ID")
    	IS1 = Console.ReadLine()
    	ID = Console.ReadLine()
    	Console.WriteLine("OS on D")
    	OD = Console.ReadLine()
    	DD = OD - ID
    	If DD = 0 Then
        	Console.WriteLine("OS is " & IS1)
    	ElseIf DD >= 1 Then
        	OS = IS1 + (IS1 * 0.02 * DD)
        	Console.WriteLine("OS is " & OS)
    	ElseIf DD < 0 Then
        	OS = IS1 / 1 + (0.02 * DD)
        	Console.WriteLine("OS is " & OS)
    	End If

	End Sub

للعلم تم تغير IS إلى IS1 بسبب IS هى كلمة محجوزة فى Vb.Net

بالتوفيق إن شاء الله

[برق ورعد 0]

مشكور يعطيك العافية اخوي

بس اكيف اعرف المتغيرات على buttons و text box ?

وكي افتح فايل جديد في الفيجوال بيسك دوت نت وانزل فيه الكود ؟

يعني ابغى اجرب البرنامج بشكل مرئي ......

ولك جزيل وخالص شكري

[محمد رضى 139]

هذا فيديو مصور للبداية مع فيجوال باسيك لكنني أنصحك بكتاب للمبتدئين :

و هذه لائحة مقاطع فيديو للمتابعة :

http://www.youtube.com/view_play_list?p=C4D1DC7ED385F9A3&playnext=1&playnext_from=PL&v=e80rW9FeSVY

بالتوفيق :)

[Tornadofay 4]

مشكور يعطيك العافية اخوي

بس اكيف اعرف المتغيرات على buttons و text box ?

وكي افتح فايل جديد في الفيجوال بيسك دوت نت وانزل فيه الكود ؟

يعني ابغى اجرب البرنامج بشكل مرئي ......

ولك جزيل وخالص شكري

يمكنك البداية من حيث مشرفنا محمد رضى وضح لك فى المشاركة السابقة و إن إحتاجت أى مساعدة إحنا معاك

[برق ورعد 0]

جزاك الله خيرا اخي وفقك الله