الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب تحويل الكود من لغة c++ الى فجول بيسك دوت نت

بدأه اسم مخالف 65 في 14 يناير 2012 · 4 رد · 626 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

هذا كود كتبته بلغة c++ محتاج تحويلة الى فجول بيسك دوت نت ارجوكم ساعدوني بتحويله

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

#include <iostream.h>

float *blood( float xb)

{

int i=1;
float c=0;

float *m=new float[10];
float v,v1;


if (xb >= 0 && xb<111)
{
m=1;i=i+1;
}

else if (xb>=111 && xb <134)
{
v=(134-xb);
v1=v/23;
m=v1;i=i+1;v=0;v1=0;
}

if(xb>=127 && xb < 139)
{
v=(xb-127);
v1=v/12;
m=v1;i=i+1;
}

else if(xb==139)
{
m=1;i=i+1;
}

else if (xb>139 && xb<153)
{
v=(153-xb);
v1=(v/14);
m=v1;i=i+1;v=0;v1=0;
}


if(xb>=142 && xb<157)
{
v=(xb-142);
v1= (v/15);
m=v1;i=i+1;
}

else if(xb==157)

{
m=1;i=i+1;
}
else if (xb>157 && xb< 172)
{
v=(172-xb);
v1=(v/15);
m=v1;i=i+1;v=0;v1=0;
}


if(xb>=154 && xb<171)
{
v=(xb-154);
v1=(v/17);
m=v1;i=i+1;
}

else if(xb>=171 && xb<500)
{
m=1;i=i+1;

}

c=i;
m[0]=c;


return m;
}

main () {
float *p=0;
float x,j;
cin>>x;
p = blood(x);j=*(p+0);
for(int i=1;i<j;++i)
cout<<*(p+i)<<"\t"<<endl ;

}

ستسمع من الناس افضل ماينطقون اذ اسمعتهم افضل ماتنطق به

قاعدتان تحكمان حياة العظماء وهما

قوله تعالى :((لا يَضُرُّكُمْ مَنْ ضَلَّ إِذَا اهْتَدَيْتُم...))

وقوله : ((قُلْ كُلّ يَعْمَل عَلَى شَاكِلَته..))

فلولا ان العظماء يفكرون بطريقة مختلفة عن غيرهم ولا يهمهم ان يضل الاخرين ان اهتدوا ...

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

ولما اصبحو عظماء....

#2

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Imports Microsoft.VisualBasic

Imports System

Private Function blood(ByVal xb As Single) As Single()

Dim i As Integer = 1

Dim c As Single = 0

Dim m(9) As Single

Dim v As Single

Dim v1 As Single

If xb >= 0 AndAlso xb<111 Then

m(i)=1

i = i+1

ElseIf xb>=111 AndAlso xb <134 Then

v = (134-xb)

v1 = v/23

m(i)=v1

i = i+1

v = 0

v1 = 0

End If

If xb>=127 AndAlso xb < 139 Then

v = (xb-127)

v1 = v/12

m(i)=v1

i = i+1

ElseIf xb = 139 Then

m(i)=1

i = i+1

ElseIf xb>139 AndAlso xb<153 Then

v = (153-xb)

v1 = (v/14)

m(i)=v1

i = i+1

v = 0

v1 = 0

End If

If xb>=142 AndAlso xb<157 Then

v = (xb-142)

v1 = (v/15)

m(i)=v1

i = i+1

ElseIf xb = 157 Then

m(i)=1

i = i+1

ElseIf xb>157 AndAlso xb< 172 Then

v = (172-xb)

v1 = (v/15)

m(i)=v1

i = i+1

v = 0

v1 = 0

End If

If xb>=154 AndAlso xb<171 Then

v = (xb-154)

v1 = (v/17)

m(i)=v1

i = i+1

ElseIf xb>=171 AndAlso xb<500 Then

m(i)=1

i = i+1

End If

c = i

m(0)=c

Return m

End Function

Shared Function Main() As Integer

Dim p As Single =0

Dim x As Single

Dim j As Single

cin>>x

p = blood(x)

j = *(p+0)

For i As Integer = 1 To j - 1

Console.Write((p+i))

Console.Write(vbTab)

Console.Write(ControlChars.Lf)

Next i

End Function

تم تعديل هذه المشاركة بواسطة VB Helper في 14 يناير 2012 في 16:38

.:: Wish to become better and better ::.

#3
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

وعليكم السلام ورحمة الله وبركاته

خويه الكود ميتنفذ بي اخطاء كلش هواي

جزيل الشكر خويه على سعيك معي ربي يجزيك الخير

ستسمع من الناس افضل ماينطقون اذ اسمعتهم افضل ماتنطق به

قاعدتان تحكمان حياة العظماء وهما

قوله تعالى :((لا يَضُرُّكُمْ مَنْ ضَلَّ إِذَا اهْتَدَيْتُم...))

وقوله : ((قُلْ كُلّ يَعْمَل عَلَى شَاكِلَته..))

فلولا ان العظماء يفكرون بطريقة مختلفة عن غيرهم ولا يهمهم ان يضل الاخرين ان اهتدوا ...

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

ولما اصبحو عظماء....

#4

السلام عليكم ورحمه الله وبركاته

معذره اخي, لقد تم تعديل الكود السابق ..

.:: Wish to become better and better ::.

#5
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

معذره اخي, لقد تم تعديل الكود السابق ..

وعليكم السلام ورحمة الله وبركاته

خويه هم بي اخطأء مجاي يتنفذ

ستسمع من الناس افضل ماينطقون اذ اسمعتهم افضل ماتنطق به

قاعدتان تحكمان حياة العظماء وهما

قوله تعالى :((لا يَضُرُّكُمْ مَنْ ضَلَّ إِذَا اهْتَدَيْتُم...))

وقوله : ((قُلْ كُلّ يَعْمَل عَلَى شَاكِلَته..))

فلولا ان العظماء يفكرون بطريقة مختلفة عن غيرهم ولا يهمهم ان يضل الاخرين ان اهتدوا ...

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

ولما اصبحو عظماء....

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…