П о ч е м у...

[_Мика_]

Вот код на VB

Код: Выделить всё

Private Function MK7(sFilename As String) As String
Dim s As Currency
Dim sum As Currency
Dim btArray() As Byte
i = -1
s = 0
sum = 0
If Mid(sFilename, 2, 2) = ":\" Then
Open sFilename For Binary As #1
ReDim btArray(LOF(1) - 1)
Get #1, , btArray
Close #1
Do Until i = UBound(btArray)
DoEvents
i = i + 1
s = btArray(i) / (i + 1)
sum = sum + s
Loop
End If
MK7 = sum
End Function


А вот тот же самый код но на VC, написанный Ariman'ом

Код: Выделить всё

double __stdcall MK7(char *FileName)
{
double s=0,sum=0;
unsigned char *buffer;
unsigned long Len;
ifstream File(FileName);
File.seekg(0,ios::end);
Len=File.tellg();
File.seekg(0,ios::beg);
buffer=new unsigned char[Len];
File.read(buffer,Len);
File.close();
for(unsigned i=0;i<Len;i++)
{
   s=(double)(buffer[i])/(i+1);
   sum+=s;
}d

return sum;
}


Как не странно, они выдают разные значения!
П о ч е м у

[Джеффи]

Первое за что буду ругать это делай табы, разбираться в коде сложно!

[Ariman]

Здесь DLL, LIB, код ДЛЛки на С++, ВБшный проект для проверки и Сишный проект для проверки.....
Может, я к ночи не соображаю, но:
1)Код на ВБ выдает один результат
2)Код на С++ выдает другой результат(не ДЛЛка, а именно просто переписанная на С++ функция)
3)И наконец: ДЛЛка и в ВБ и в С++ выдает один и тот же резултат, НО совершенно отличный от п. 1 и п.2 !

[BV]

Error: mk7test.cpp(6,2):Unable to open include file 'STDAFX.H'

[Ariman]

BV
Да отруби ты Precompiled Headers, удали этот include и будет тебе счастье
А вообще - это же одни cpp! Можно созжать новый проект и подрубить их туда.....