Передача структур из VB6 в C++

Узнай цену своей работы

Формулировка задачи:

Всем доброго дня. В общем создаю структуры на VB:
Листинг программы 
  1. Public Type STVAR
  2.     var1 As Double
  3.     var2 As Double
  4.     var3 As Double
  5.     var4 As Double
  6.     var5 As Long
  7.     var6 As Long
  8. End Type
  9.  
  10. Public Type STVAR2
  11.     var1 As Long
  12.     var2 As Double
  13.     var3 As Double
  14.     var4 As Double
  15.     var5 As Long
  16.     var6 As Long
  17. End Type
Объявляю импортируемую функцию:
Листинг программы 
  1. Public Declare Function ST_solver Lib "DLLC++.dll" (STV As STVAR, STV2 As STVAR2) As Long
Далее в кнопке пишу:
Листинг программы 
  1. Dim STV As STVAR
  2. Dim STV2 As STVAR2
  3.  
  4. Dim resul As Long
  5.     
  6. STV.var1 = 10
  7. STV.var3 = 4.6
  8. STV.var6 = 100
  9.  
  10. STV2.var1 = 20
  11. STV2.var3 = 3.8
  12. STV2.var6 = 200
  13.  
  14. resul = ST_solver(STV, STV2)
  15.     
  16. Text1.Text = STV.var4 & vbCrLf & STV2.var4
Код в С++:
Листинг программы 
  1. struct STVAR
  2. {
  3.     double var1;
  4.     double var2;
  5.     double var3;
  6.     double var4;
  7.     long var5;
  8.     long var6;
  9. };
  10.  
  11. struct STVAR2
  12. {
  13.     long var1;
  14.     double var2;
  15.     double var3;
  16.     double var4;
  17.     long var5;
  18.     long var6;
  19. };
  20.  
  21. extern "C" __declspec(dllexport) long ST_solver(STVAR &STV, STVAR2 &STV2);
  22.  
  23. extern "C" __declspec(dllexport) long ST_solver(STVAR &STV, STVAR2 &STV2) {
  24.     STV.var4 = (STV.var1 + STV.var6) * STV.var3;
  25.     STV2.var4 = (STV2.var1 + STV2.var6) * STV2.var3;
  26.     return 0;
  27. }
В результате вычисляется неправильно значение во второй структуре: 506 2,91643768245327E-303

Решение задачи: «Передача структур из VB6 в C++»

textual
Листинг программы 
  1. #pragma pack(push, 1)
  2. struct STVAR2
  3. {
  4.     long var1; 
  5.     double var2;
  6.     double var3;
  7.     double var4;
  8.     long var5;
  9.     long var6;
  10. };
  11. #pragma pack( pop )

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут