PDA

View Full Version : سوال: تبدیل کد نوشته شده به زبان C به Vb6



.:KeihanCPU:.
سه شنبه 12 خرداد 1388, 23:13 عصر
سلام دوستان
یه کد مربوط به حل معادله چند معادله و چند مجهول دارم میخوام اونو به Vb6 داشته باشم چون سی بلد نیستم.
ممنون میشم اگر این کارو برام انجام بدین
با سپاس



printf, cprintf : Print

اگر MaxDim = 50 باشه
float m[MaxDim][MaxDim] : Dim m(50, 50) As Single

void PrintMatrix(void) : Sub PrintMatrix()
void main() : تابع شروع برنامه
int i = 0 : Dim i As Integer
scanf("%d", &n) : n = Val(InputBox("Enter n :"))
clrscr() : Cls
getch() : دستوري كه صبر مي كند تا كاربر كليدي بزند
max[i] = 0 : Max(i) = 0
cprintf("%g", x[i]) : Print x(i)

printf("\t") : Print vbTab;
printf("\n\n\n"):Print vbCrlf & vbCrlf & vbCrlf;



اينم خود برنامه




#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

const MaxDim = 50;

float m[MaxDim][MaxDim], m2[MaxDim][MaxDim], max[MaxDim], x[MaxDim];
int n, i, j;

void PrintMatrix(void)
{
printf("\n\n");
textcolor(7);
for(i = 0; i < n; i++)
{
for(j = 0; j <= n; j++)
{
cprintf("%g", m[i][j]);
printf("\t");
}
printf("\n");
}
}

void main()
{
int r = 0, c = 0, r0 = 0, c0 = 0;

for(;;)
{
clrscr();
textcolor(10);
printf("\n");
cprintf(" ************** Equation Solver **************");
printf("\n\n\n\nPlease enter dimansion of equation > 0 : ");

scanf("%d", &n);
if (n > 0)
break;
else
{
textcolor(12);
printf("\n");
cprintf("dimension must be > 0, please Try again... ");
textcolor(15);
getch();
}
}
clrscr();

for(i = 0; i < MaxDim; i++)
for(j = 0; j < MaxDim; j++)
{
max[i] = 0;
x [i] = 0;
m [i][j] = 0;
m2 [i][j] = 0;
}

clrscr();
textcolor(15);
cprintf("Please enter A11 to A%d%d :", n, n);
printf("\n\n");
for(i = 0; i < n; i++)
for(j = 0; j <= n; j++)
{
if (j != n)
{textcolor(10);cprintf("A%d%d = ", i + 1, j + 1);}
else
{textcolor(15);cprintf("Y%d = ", i + 1);}

scanf("%f", &m[i][j]);
if (j == n) printf("\n");
}

clrscr();
textcolor(14);
cprintf("Matrix :");
PrintMatrix();

for(i = 0; i < n; i++)
{
max[i] = m[i][0];

for(j = 0; j <= n; j++)
if (m[i][j] > max[i]) max[i] = m[i][j];

for(j = 0; j <= n; j++)
m2[i][j] = m[i][j] / max[i];
}

for(i = 0; i < n; i++)
for(j = i + 1; j < n; j++)
if (m2[j][0] > m2[i][0])
{
int k, s;
for(k = 0; k <= n; k++)
{
s = m[j][k];
m[j][k] = m[i][k];
m[i][k] = s;

s = m2[j][k];
m2[j][k] = m2[i][k];
m2[i][k] = s;
}
}

for (r0 = 1; r0 <= n - 1; r0++)
{
float zarb;
for(r = r0; r < n; r++)
{
zarb = -m[r][c0];
for(c = c0; c <= n; c++)
m[r][c] = zarb / m[r0-1][c0] * m[r0-1][c] + m[r][c];
}

c0++;
}

float y = 0;
for(i = n - 1; i >= 0; i--)
{
y = 0;
for(j = n - 1; j >= i ; j--)
y += m[i][j] * x[j];

y = m[i][n] - y;
x[i] = y / m[i][i];
}

printf("\n\n************* Answer(s) ************* \n");
for(i = 0; i < n; i++)
{
textcolor(10);
printf("\n");
cprintf("x%d = ", i + 1);
textcolor(15);
cprintf("%g", x[i]);
}

printf("\n\n\n");
textcolor(8);
cprintf("Press any key to exit...");
getch();

}

.:KeihanCPU:.
چهارشنبه 13 خرداد 1388, 14:10 عصر
از دوستان کسی نیست که بتونه کمک کنه
باور کنید خیلی ضروریه مگر نه پست نمیزدم