Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: управление железякой из VB6
     
    
Добавлено: 23.11.10 19:41
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
    
 Tishin
      
       
  
Доброе время суток!
 
    
Есть такая железяка http://www.les.ru/devices/km440vs.php и библиотека для управления http://www.les.ru/programs/progs.php?URL=protocols.zip, но, к сожалению примера на VB нету.
Помогите, пожалуйста, прикрутить DLL к visual basic 6.
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 12
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа:
 LamerOnLine
![]()
![]()
![]()
ICQ: 334781088 
Вопросов: 108
Ответов: 2822
      
 Профиль |  | #1
       
Добавлено:  24.11.10 10:46
       
    
       
  
Ты, конечно, извини, но тут мало у кого есть желание лазить по интернету в поисках документации по твоей "железяке" и качать какие-то левые архивы. Задавать вопрос лучше по существу, сперва постаравшись хотя бы систематизировать имеющуюся инфу и привести её к наглядному виду. Разумеется, это справедливо только в случае если ты надеешься что тебе помогут.
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа:
 Tishin
![]()
![]()
![]()
![]()
![]()
![]()
Вопросов: 5
Ответов: 5
      
 Профиль |  | #2
       
Добавлено:  24.11.10 19:04
       
    
       
  
Осознаю, написал бред.
 
    
В библиотеке lesmatrix.dll есть функции:
function OpenPort(PortNum: byte): BOOL; stdcall;
procedure ClosePort; stdcall;
function M8_Undo: BOOL; stdcall;
function M8_ReadMem(MemNum: byte): BOOL; stdcall;
function M8_SetState(var State: TM8State): BOOL; stdcall;
function M32_Set(Layer, Output, Input: integer): BOOL; stdcall;
как вызвать эти функции из DLL в VB6.
Спасибо. 
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа:
 AgentFire
![]()
![]()
![]()
ICQ: 192496851 
Вопросов: 75
Ответов: 3178
      
 Профиль |  | #3
       
Добавлено:  24.11.10 19:17
       
    
       
  
попробуй так же, как и API
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа:
 Tishin
![]()
![]()
![]()
![]()
![]()
![]()
Вопросов: 5
Ответов: 5
      
 Профиль |  | #4
       
Добавлено:  24.11.10 19:28
       
    
       
  
Private Declare Sub OpenPort Lib "lesmatrix.dll" (ByVal PortNum As Byte)
 
    
Так?
		
	  
			 
	
		 
    
       
    
Номер ответа: 5 
      
Автор ответа:
 AgentFire
![]()
![]()
![]()
ICQ: 192496851 
Вопросов: 75
Ответов: 3178
      
 Профиль |  | #5
       
Добавлено:  24.11.10 19:30
       
    
       
  
не знаю, у меня нету этой библы и шестерки  
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 6 
      
Автор ответа:
 Just
![]()
![]()
![]()
Вопросов: 4
Ответов: 330
      
 Профиль |  | #6
       
Добавлено:  24.11.10 21:00
       
    
       
  
а так...
 
    
или
можно попробовать поставить As Variant
		
	  
			 
	
		 
    
       
    
Номер ответа: 7 
      
Автор ответа:
 Winand
![]()
![]()
![]()
Вопросов: 87
Ответов: 2795
      
 Web-сайт:  
 Профиль |  | #7
      
Добавлено:  27.11.10 02:49
       
    
       
  
BOOL - это не Boolean в бейсик6!
 
    
В windef.h он объявлен так typedef int BOOL; (или это некий другой BOOL?)
Boolean занимает 2 байта, а BOOL - 4, поэтому функции должны объявляться As Long
		
	  
			 
	
		 
    
       
    
Номер ответа: 8 
      
Автор ответа:
 VbStarter
![]()
ICQ: 357911808 
Вопросов: 118
Ответов: 1340
      
 Web-сайт:  
 Профиль |  | #8
      
Добавлено:  27.11.10 17:53
       
    
       
  
соответственно ка обычно -  
    
а насчёт прикрутки всё просто.
		
	  
			 
	
		 
    
       
    
Номер ответа: 9 
      
Автор ответа:
 VbStarter
![]()
ICQ: 357911808 
Вопросов: 118
Ответов: 1340
      
 Web-сайт:  
 Профиль |  | #9
      
Добавлено:  27.11.10 17:54
       
    
       
  
кстати, а если референсы поставить эту библу - то эти функции будут доступны через просто " 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 10 
      
Автор ответа:
 VbStarter
![]()
ICQ: 357911808 
Вопросов: 118
Ответов: 1340
      
 Web-сайт:  
 Профиль |  | #10
      
Добавлено:  27.11.10 17:55
       
    
       
  
*?
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 11 
      
Автор ответа:
 AgentFire
![]()
![]()
![]()
ICQ: 192496851 
Вопросов: 75
Ответов: 3178
      
 Профиль |  | #11
       
Добавлено:  27.11.10 18:15
       
    
       
  
если это вопрос, то почему бы ТЕБЕ САМОМУ не попробовать?
 
    
p.s.
[offtopic]подскажите пожалуйста, если я закрою глаза, то не буду видеть, да?[/offtoppic]
		
	  
			 
	
		 
    
       
    
Номер ответа: 12 
      
Автор ответа:
 VbStarter
![]()
ICQ: 357911808 
Вопросов: 118
Ответов: 1340
      
 Web-сайт:  
 Профиль |  | #12
      
Добавлено:  27.11.10 19:14
       
    
       
  
 
    
потому что нету на этом кампе васика...