 |
|
Модераторы: Akina |
 
|
|
Вызов функции в QB 
| Digo |
|
|||
 Бывалый  Профиль Группа: Участник Сообщений: 194 Регистрация: 30.9.2004 Где: Ростов на Дону Репутация: нет Всего: нет |
Всем привет!
Решил тряхнуть стариной(вернее пришлось) нужно написать маленькую программку, с помощью функций. Так вот как вызвать функцию передав ей строковый параметр, а чтобы она возвращала обратно в программу числовое значение счетчика(он считает внутри функции). Вообщем как я не писал никак не получается пишет Duplicate definition вызываю ее так: Call () cnt(StAr$) на этой строке ошибка... описываю так function cnt (StAr$) Вообщем это все на QB еще под Dos Заранее благодарен! --------------------
640кб оперативной памяти хватит миру по самые уши (Билл Гейтс ) |
|||
|
||||
Дата 6.5.2005, 18:38 (
Загрузка ...
| cardinal |
|
|||
 Инженер Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Попробуй Call cnt(StAr$) -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
| butuz |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 15.4.2005 Репутация: нет Всего: нет |
Во первых функция с "Call"-ом не вызывается (не путай с процедурой Sub).
А во вторых на QB (1-й версии) это выглядет так: Declare Function B! (A$) Cls Print B! ("Petj") Print B! ("Vasj") ------------------------------------------ Function B! (A$) If A$ = "Petj" Then B! = 1 If A$ = "Vasj" Then B! = 2 End Function ------------------------------------------ |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0403 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |