Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Переведите - кто умеет
 
 автор: час   (18.11.2011 в 13:13)   личное сообщение
 
 


char ModelName[50],Manufacturer[50], FirmvareVersion[50];
int Res=QueryEcrIdent(ModelName,Manufacturer,FirmvareVersion);
if(Res==0)
{
Log->Lines->Add(ModelName);
Log->Lines->Add(Manufacturer);
Log->Lines->Add(FirmvareVersion);
}else Log->Lines->Add("QueryEcrIdent:"+IntToStr(Res));
}


Можно это как то на vb, VBA перевести?

  Ответить  
 
 автор: silich   (18.11.2011 в 15:30)   личное сообщение
 
 

дык, смотря что это :)

как по мне, выполняется функция QueryEcrIdent
если вернула результат равный 0 (навернае ашипка)
то в логфайлиликудатам, записываются соотв. данные
ModelName, Manufacturer, FirmvareVersion
иначе , если все ок?
записывается в лог QueryEcrIdent :)
а може и наоборот
чего не понятнова?

на vb конешно можно написать и нетакое!

  Ответить  
 
 автор: kot_k_k   (18.11.2011 в 15:56)   личное сообщение
 
 

это переводится так
Час полез в Borland C++ Builder/Turbo C++ Explorer (похож синтаксис) а он этого не знает

поищи на Си хелп может быстрее раздуплиш

  Ответить  
 
 автор: час   (18.11.2011 в 19:12)   личное сообщение
 
 

  Ответить  
 
 автор: час   (18.11.2011 в 19:38)   личное сообщение
 
 

а вот тип Char - как по нашему будэ?

  Ответить  
 
 автор: Дядя Федор   (18.11.2011 в 23:18)   личное сообщение
 
 

си шарп?
{} - это Веgin - End как в делфи
Куда тебя понесло?
Зачем?
ЧЁ надо?

  Ответить  
 
 автор: час   (19.11.2011 в 16:26)   личное сообщение
 
 

Мне кинули код(кусочек) и сказали - как на бейсике - этого мы не знаем - а вот так пожалуйста...
Дык мну нужно перевести на бейсик.
Я вроде перевёл, но эффекта, который должен быть -нету........

  Ответить  
 
 автор: час   (19.11.2011 в 16:27)   личное сообщение
 
 


Dim res
Dim ModelName
Dim Manufacturer
Dim FirmvareVersion
ModelName = Space(50)
Manufacturer = Space(50)
FirmvareVersion = Space(50)

Set DX = CreateObject("DynamicWrapperX")
DX.Register App.Path & "\DrvMercFR.dll", "QueryEcrIdent", "i=sss", "f=s", "r=hhh"

res = DX.QueryEcrIdent(ModelName, Manufacturer, FirmvareVersion)

If res = 0 Then
MsgBox ModelName
тута фиг Нам

End If
End Function

  Ответить  
 
 автор: Explorer   (19.11.2011 в 16:59)   личное сообщение
 
 

ЯНХНП

про ДайнэмикРаппер, это другой форум: http://forum.script-coding.com/viewtopic.php?id=2216

  Ответить  
 
 автор: Explorer   (19.11.2011 в 17:00)   личное сообщение
 
 

фигасе ссылки стали сами форматироваться как ссылки

  Ответить  
 
 автор: Lukas   (19.11.2011 в 17:09)   личное сообщение
 
 

Это как это?

  Ответить  
 
 автор: Explorer   (19.11.2011 в 17:22)   личное сообщение
 
 

ну я раньше если чепятал ссылку, она отображалась в сообщении просто как текст
и приходилось заходить в "редактирование" и там форматировать стринг ссылки как хайперлинк (URL)...

а в этот раз само отформатировалось...

я что-то неправильно делаю? да?

  Ответить  
 
 автор: Lukas   (19.11.2011 в 17:31)   личное сообщение
 
 

У меня (ff5) просто как текст.

  Ответить  
 
 автор: Explorer   (19.11.2011 в 18:21)   личное сообщение
 
 

Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.24) Gecko/20111103 Firefox/3.6.24 sputnik 2.4.0.54

я и сам удивляюсь

нужно бы попробовать этот баг на повторяемость, но Осмор не лубит когда на странице ссылки оформлены как ссылки

  Ответить  
 
 автор: час   (20.11.2011 в 09:16)   личное сообщение
 
 

http://forum.script-coding.com/viewtopic.php?id=2216

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList