ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / что-то с типами
57 сообщений из 57, показаны все 3 страниц
  все  
что-то с типами
    #36884470
dontlove
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dontlove
Гость
Код: plaintext
1.
2.
3.
4.
5.
Public Function AHV_Ibit(obVar As Variable, vValue As Variant) As Double
Dim a As String


a = obVar.Name + "_bla") //например obVar.Name  равен 'name'


в итоге должна быть стринговая переменная 'a' равная 'namebla'

а у меня пустая...с vb не очень знаком еще...
...
Рейтинг: 0 / 0
06.10.2010, 14:02
| Ответить | Цитировать | Написать  
что-то с типами
    #36884477
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
почему obVar имеет тип Variable? Что там вообще за объект передается и почему вы решили, что он должен быть именно String?
...
Рейтинг: 0 / 0
06.10.2010, 14:04
| Ответить | Цитировать | Написать  
что-то с типами
    #36884512
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Похоже, речь идет о VBA

приведите нормальный фрагмент кода, включая вызов функции и без забытых скобочек
...
Рейтинг: 0 / 0
06.10.2010, 14:12
| Ответить | Цитировать | Написать  
что-то с типами
    #36885043
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProПохоже, речь идет о VBA

приведите нормальный фрагмент кода, включая вызов функции и без забытых скобочек
да вба

If vValue <= 2 Then
a = CStr(obVar.Name) + "_math"
thisProject.Variables.Item(CVar(a)).Value = 1

мне просто нужно чтобы "а" не было пустым...дальше ерунда...просто не пойму почему...как в стринг преобразовать если так не катит
...
Рейтинг: 0 / 0
06.10.2010, 16:54
| Ответить | Цитировать | Написать  
что-то с типами
    #36885052
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Еще раз прошу - вызов функции можно увидеть?
...
Рейтинг: 0 / 0
06.10.2010, 16:57
| Ответить | Цитировать | Написать  
что-то с типами
    #36885059
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Option Explicit включен?
...
Рейтинг: 0 / 0
06.10.2010, 16:58
| Ответить | Цитировать | Написать  
что-то с типами
    #36885083
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProЕще раз прошу - вызов функции можно увидеть?
ды какой вызов? вызов по открытию...
блин проблема в типе...
...
Рейтинг: 0 / 0
06.10.2010, 17:03
| Ответить | Цитировать | Написать  
что-то с типами
    #36885104
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавды какой вызов? вызов по открытию...
блин проблема в типе...
Если человек сам себе не хочет помочь, ему никто не поможет.

У меня ваш код работает, никакой проблемы в типах нет.

Думаю, что вы неверно вызываете свою функцию. Не хотите приводить - думайте сами.
...
Рейтинг: 0 / 0
06.10.2010, 17:09
| Ответить | Цитировать | Написать  
что-то с типами
    #36885134
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
В VBA нет типа Variable, если Вы сами его не создадите (либо через задание пользовательского типа, которого я не вижу, либо через новый класс) .
Таким образом obVar.Name тоже непонятное обращение: а есть ли у переменной obVar свойство Name? Что Вы передаете функции в качестве obVar?
И еще: лучше соединять текст при помощи амперсанда, а не плюса:
Код: plaintext
a = obVar.Name & "_bla"
...
Рейтинг: 0 / 0
06.10.2010, 17:18
| Ответить | Цитировать | Написать  
что-то с типами
    #36885143
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
The_Prist,
!!!!!
Не вводи человека в заблуждение. Есть коллекция Variables, есть объект Variable - почитай хелп по ворду.
...
Рейтинг: 0 / 0
06.10.2010, 17:19
| Ответить | Цитировать | Написать  
что-то с типами
    #36885146
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
The_PristИ еще: лучше соединять текст при помощи амперсанда, а не плюса:
Не имеет никакого значения, если только не работаешь с NULL
...
Рейтинг: 0 / 0
06.10.2010, 17:20
| Ответить | Цитировать | Написать  
что-то с типами
    #36885215
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.ProThe_Prist,
!!!!!
Не вводи человека в заблуждение. Есть коллекция Variables, есть объект Variable - почитай хелп по ворду.Ну в общем да. В Word-e. Только человек не хочет говорить, ГДЕ он работает. VBA есть и в Excel, а там такого типа нет. А вот с амперсандом не соглашусь. Выполните такой код:

Код: plaintext
1.
2.
Dim vVar, iCount, h
vVar = "hay!": iCount =  3 
h = vVar + iCount

Ошибку не получите?
А так все сработает как надо:
Код: plaintext
h = vVar & iCount
...
Рейтинг: 0 / 0
06.10.2010, 17:35
| Ответить | Цитировать | Написать  
что-то с типами
    #36885227
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
The_Prist,

А нефиг потому что неявным преобразованием типов заниматься, для чего функции преобразования типов придуманы? (развелось php-шников)

А при склеивании СТРОК, как у автора, значения не имеет.
...
Рейтинг: 0 / 0
06.10.2010, 17:40
| Ответить | Цитировать | Написать  
что-то с типами
    #36885300
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Shocker.ProThe_Prist,
А нефиг потому что неявным преобразованием типов заниматься, для чего функции преобразования типов придуманы? (развелось php-шников)
Я высказал свое мнение: и оно таково, что если работаешь со строкой, то и методы надо соответствующие применять. Если хочется сложить данные - то плюс. А если объединить строки - амперсанд.
Такой подход в будущем может облегчить жизнь. Это равнозначно обязательному объявлению переменных с, конечно же, Option Explicit .
Но это лично мое мнение...
...
Рейтинг: 0 / 0
06.10.2010, 17:57
| Ответить | Цитировать | Написать  
что-то с типами
    #36887312
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавды какой вызов? вызов по открытию...
блин проблема в типе...
Если человек сам себе не хочет помочь, ему никто не поможет.

У меня ваш код работает, никакой проблемы в типах нет.

Думаю, что вы неверно вызываете свою функцию. Не хотите приводить - думайте сами.

как я ее не верно вызываю, скажите, я не понимаю? Все верно...обновилось окно произошел вызов функции что тут не верного? другой вопрос какого типа obVar.Name... ну по сути стрингом всеравно стала CStr(obVar.Name)....а переменная "а" все равно равна "" почему?
Код: plaintext
1.
Public Function AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant) As Double
...
Рейтинг: 0 / 0
07.10.2010, 15:01
| Ответить | Цитировать | Написать  
что-то с типами
    #36887335
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Приведите строку, в которой вызывается эта функция AdjustHardwareValue_Ibit (или AHV_Ibit - что-то она у вас мутируют), а также строки, необходимые для понимания этого вызова.

И ответьте на вопрос про Option Explicit
...
Рейтинг: 0 / 0
07.10.2010, 15:05
| Ответить | Цитировать | Написать  
что-то с типами
    #36887373
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProПриведите строку, в которой вызывается эта функция AdjustHardwareValue_Ibit (или AHV_Ibit - что-то она у вас мутируют), а также строки, необходимые для понимания этого вызова.

И ответьте на вопрос про Option Explicit

пусть мутирует мне так нравится.

блин объясняю...нет запуска..НЕТ...
если на форме есть значение нужной переменной, у которой в значении прописан этот макрос то макрос, блин, запускается....код его я уже привела...
поймите проблема не в запуске...

проблема в том что "а" пустая
...
Рейтинг: 0 / 0
07.10.2010, 15:15
| Ответить | Цитировать | Написать  
что-то с типами
    #36887377
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
донтлавShocker.ProПриведите строку, в которой вызывается эта функция AdjustHardwareValue_Ibit (или AHV_Ibit - что-то она у вас мутируют), а также строки, необходимые для понимания этого вызова.

И ответьте на вопрос про Option Explicit



Option Explicit ды уже сделано как вы писали...вчера еще...нет результата
...
Рейтинг: 0 / 0
07.10.2010, 15:16
| Ответить | Цитировать | Написать  
что-то с типами
    #36887424
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавблин объясняю...нет запуска..НЕТ...
Тогда почему вас беспокоит то, что происходит внутри функции, если она НЕ ЗАПУСКАЕТСЯ?
Вы как-то меня в ступор вводите
...
Рейтинг: 0 / 0
07.10.2010, 15:27
| Ответить | Цитировать | Написать  
что-то с типами
    #36887455
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавблин объясняю...нет запуска..НЕТ...
Тогда почему вас беспокоит то, что происходит внутри функции, если она НЕ ЗАПУСКАЕТСЯ?
Вы как-то меня в ступор вводите

функция запускается при открытии окна..я дебажу..вижу все что там происходит после всех манипуляций "а" - пустое....

ради хочмы сделало щас

а = "смфыпмывпф"

результат

а = ""

*?????? почему????????
...
Рейтинг: 0 / 0
07.10.2010, 15:35
| Ответить | Цитировать | Написать  
что-то с типами
    #36887471
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавфункция запускается при открытии окна.
Сама? Без какого либо кода или других указаний на нее? Мистика, инопланетяне, я пас.

донтлав
ради хочмы сделало щас
а = "смфыпмывпф"
результат
а = ""
*?????? почему????????

А поподробнее? Где и что вы делаете? а то контекст как-то утерян. Может скриншоты покажете?
...
Рейтинг: 0 / 0
07.10.2010, 15:40
| Ответить | Цитировать | Написать  
что-то с типами
    #36887473
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавфункция запускается при открытии окна.
Сама? Без какого либо кода или других указаний на нее? Мистика, инопланетяне, я пас.

донтлав
ради хочмы сделало щас
а = "смфыпмывпф"
результат
а = ""
*?????? почему????????

А поподробнее? Где и что вы делаете? а то контекст как-то утерян. Может скриншоты покажете?
макрос запускает...

скрины нафига?...поверьте на слово...

почему такое бывает скажите?
...
Рейтинг: 0 / 0
07.10.2010, 15:42
| Ответить | Цитировать | Написать  
что-то с типами
    #36887479
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавмакрос запускает...
почему такое бывает скажите?

Можно скрин того, где это - "макрос запускает". Под макросом можно многое понимать.

донтлавскрины нафига?...поверьте на слово...
Код: plaintext
1.
2.
3.
Dim a As String
a = "смфыпмывпф"
Debug.Print a

Вот и покажите, где у вас a=""
Видимо в виде скринов....
...
Рейтинг: 0 / 0
07.10.2010, 15:47
| Ответить | Цитировать | Написать  
что-то с типами
    #36887497
Фотография Kallandor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kallandor
Участник
dontlove
Код: plaintext
1.
2.
3.
4.
5.
Public Function AHV_Ibit(obVar As Variable, vValue As Variant) As Double
Dim a As String


a = obVar.Name + "_bla") //например obVar.Name  равен 'name'


в итоге должна быть стринговая переменная 'a' равная 'namebla'

а у меня пустая...с vb не очень знаком еще...
1. Вы в отладчике макрос запускаете, или смотрите только результаты?
2. есть ли отлов ошибок в функции?
Код: plaintext
1.
2.
3.
On Error GoTo ErroHanhder
....
ErroHanhder:
 MsgBox Err.Number & Err.Source & Err.Description

3. объект obVar точно не пустой?
...
Рейтинг: 0 / 0
07.10.2010, 15:55
| Ответить | Цитировать | Написать  
что-то с типами
    #36887550
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавскрины нафига?
Просто вы ГДЕ-ТО делаете ЧТО-ТО.
Где и что вы делаете донести до нас не получается, потому что приводимый вами код - рабочий. Скрины же помогут в этом разобраться.
...
Рейтинг: 0 / 0
07.10.2010, 16:20
| Ответить | Цитировать | Написать  
что-то с типами
    #36887555
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавскрины нафига?
Просто вы ГДЕ-ТО делаете ЧТО-ТО.
Где и что вы делаете донести до нас не получается, потому что приводимый вами код - рабочий. Скрины же помогут в этом разобраться.
врядли вам это чтото даст...работаю я на австрийском багософте!!!!!!!))))

Ладно! Всем спасибо)
...
Рейтинг: 0 / 0
07.10.2010, 16:21
| Ответить | Цитировать | Написать  
что-то с типами
    #36887564
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну тогда надо спрашивать..... австрийцев

Удачи!
...
Рейтинг: 0 / 0
07.10.2010, 16:24
| Ответить | Цитировать | Написать  
что-то с типами
    #36888564
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProНу тогда надо спрашивать..... австрийцев

Удачи!

австрийцы-гады...им письмо пишешь они через неделю отвечают))) хрень причем какую нить...))

Вопрос еще:
Функция такая:

Public Function AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant) As Double


Можно в ней так сделать?
AdjustHardwareValue_Ibit((CVar(obVar.Name + "_math")), vValue) = 1
...
Рейтинг: 0 / 0
08.10.2010, 10:08
| Ответить | Цитировать | Написать  
что-то с типами
    #36888573
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлав
Можно в ней так сделать?
AdjustHardwareValue_Ibit((CVar(obVar.Name + "_math")), vValue) = 1
Нет.
Вы должны передавать переменную в качестве первого параметра функции, а вы передаете черти-что.
...
Рейтинг: 0 / 0
08.10.2010, 10:12
| Ответить | Цитировать | Написать  
что-то с типами
    #36888586
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Pro,

типа так

Код: plaintext
1.
2.
a = CStr(obVar.Name + "_math")
AdjustHardwareValue_Ibit((CVar(a)), vValue) =  1
...
Рейтинг: 0 / 0
08.10.2010, 10:18
| Ответить | Цитировать | Написать  
что-то с типами
    #36888588
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Shocker.Proдонтлав
Можно в ней так сделать?
AdjustHardwareValue_Ibit((CVar(obVar.Name + "_math")), vValue) = 1
Нет.
Вы должны передавать переменную в качестве первого параметра функции, а вы передаете черти-что.
А почему нет? ByRef, конечно, по умолчанию, но если определить так:
Код: plaintext
Public Function AdjustHardwareValue_Ibit(ByVal obVar As Variable, Optional vValue As Variant) As Double
...
Рейтинг: 0 / 0
08.10.2010, 10:19
| Ответить | Цитировать | Написать  
что-то с типами
    #36888604
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлав,


это:
Код: plaintext
CVar(obVar.Name + "_math")
строковая переменная типа Variant
Вы бы почитали, что такое CVar прежде, чем применять бездумно

это:
Код: plaintext
thisProject.Variables.Item(obVar.Name + "_math").Value
объект класса Variable

Я вам еще когда сказал, что у вас проблема с вызовом функции. Родили наконец, блин!
...
Рейтинг: 0 / 0
08.10.2010, 10:25
| Ответить | Цитировать | Написать  
что-то с типами
    #36888608
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Pro
это:
Код: plaintext
thisProject.Variables.Item(obVar.Name + "_math").Value
объект класса Variable

точнее:
это объект класса Variable (который и надо передавать в качестве параметра функции):
Код: plaintext
thisProject.Variables.Item(obVar.Name + "_math")

а это его значение:
Код: plaintext
thisProject.Variables.Item(obVar.Name + "_math").Value
...
Рейтинг: 0 / 0
08.10.2010, 10:26
| Ответить | Цитировать | Написать  
что-то с типами
    #36888619
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AndreTMА почему нет?
Потому что параметр у нее Variable, а она передает Variant
...
Рейтинг: 0 / 0
08.10.2010, 10:31
| Ответить | Цитировать | Написать  
что-то с типами
    #36888639
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProAndreTMА почему нет?
Потому что параметр у нее Variable, а она передает Variant

ок...как мне подать вариабле?
...
Рейтинг: 0 / 0
08.10.2010, 10:38
| Ответить | Цитировать | Написать  
что-то с типами
    #36888642
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлав,

я дал ответ выше
...
Рейтинг: 0 / 0
08.10.2010, 10:38
| Ответить | Цитировать | Написать  
что-то с типами
    #36889036
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Pro,

то есть я могу сделать так
Код: plaintext
1.
'AdjustHardwareValue_Ibit = 20
, в случае если хочу функции с первоночальными параметрами приравнять это...
Либо вот так:

Код: plaintext
1.
AdjustHardwareValue_Ibit(thisProject.Variables.Item(obVar.Name + "_math"), vValue) =  20
, если параметры изменились (в моем случае переменная другая)

Так?
...
Рейтинг: 0 / 0
08.10.2010, 12:37
| Ответить | Цитировать | Написать  
что-то с типами
    #36889053
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавто есть я могу сделать так
Либо вот так:
нет
если вы хотите присвоить чему-то какое-то значение, это будет не Function, а Property Let

по-моему, вы плаваете в основах очень сильно, вам прежде всего надо получить базовые знания, а потом уже работать со сложными объектами. Почитайте какой-нибудь учебник, посмотрите, что такое функция, переменная, типы данных и т.п.

Так как на протяжении двух страниц, вы так и не сказали ЧТО вам нужно (и даже строку вызова функции пришлось из вас три дня выбивать), то я не могу подсказать, КАК это сделать.
...
Рейтинг: 0 / 0
08.10.2010, 12:41
| Ответить | Цитировать | Написать  
что-то с типами
    #36889065
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Потренируйтесь на тестовых функциях типа a=b прежде, чем париться с объектами, коллекциями и т.п.
...
Рейтинг: 0 / 0
08.10.2010, 12:43
| Ответить | Цитировать | Написать  
что-то с типами
    #36889142
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавто есть я могу сделать так
Либо вот так:
нет
если вы хотите присвоить чему-то какое-то значение, это будет не Function, а Property Let

по-моему, вы плаваете в основах очень сильно, вам прежде всего надо получить базовые знания, а потом уже работать со сложными объектами. Почитайте какой-нибудь учебник, посмотрите, что такое функция, переменная, типы данных и т.п.

Так как на протяжении двух страниц, вы так и не сказали ЧТО вам нужно (и даже строку вызова функции пришлось из вас три дня выбивать), то я не могу подсказать, КАК это сделать.

ды потомучто я на шарпе пишу...а на этой хрени просто попросили блин переписать код...
...
Рейтинг: 0 / 0
08.10.2010, 13:05
| Ответить | Цитировать | Написать  
что-то с типами
    #36889171
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавды потомучто я на шарпе пишу...а на этой хрени просто попросили блин переписать код...
шарп не отменяет объектов, понятия функций и параметров функции.
...
Рейтинг: 0 / 0
08.10.2010, 13:15
| Ответить | Цитировать | Написать  
что-то с типами
    #36889188
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавды потомучто я на шарпе пишу...а на этой хрени просто попросили блин переписать код...
шарп не отменяет объектов, понятия функций и параметров функции.

проблема в синтаксисе...

в обычном программирования нет спец. процедур - Property Let, Property Get, Property Set.

я сижу подаю в функцию как обычно парамметры а он ошибки выкидывает
...
Рейтинг: 0 / 0
08.10.2010, 13:19
| Ответить | Цитировать | Написать  
что-то с типами
    #36889205
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавя сижу подаю в функцию как обычно парамметры а он ошибки выкидывает

Код: plaintext
AdjustHardwareValue_Ibit(thisProject.Variables.Item(obVar.Name + "_math"), vValue) =  20

это - как обычно? вы всегда при вызове функции пытаетесь присвоить ей какое-то значение?
...
Рейтинг: 0 / 0
08.10.2010, 13:22
| Ответить | Цитировать | Написать  
что-то с типами
    #36889211
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вы б описали, что требуется, давно бы уж может ответ получили.

А методом тыка и самостоятельных неверных предположений вы так будете до конца сезона втыкать.
...
Рейтинг: 0 / 0
08.10.2010, 13:24
| Ответить | Цитировать | Написать  
что-то с типами
    #36889214
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлавя сижу подаю в функцию как обычно парамметры а он ошибки выкидывает

Код: plaintext
AdjustHardwareValue_Ibit(thisProject.Variables.Item(obVar.Name + "_math"), vValue) =  20

это - как обычно? вы всегда при вызове функции пытаетесь присвоить ей какое-то значение?
нет конечно...просто он иначе не пропускал...это уже мудреж...ненадо меня цеплять только)...с шарпом нет проблем у меня вообще никаких))))
...
Рейтинг: 0 / 0
08.10.2010, 13:24
| Ответить | Цитировать | Написать  
что-то с типами
    #36889242
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.ProВы б описали, что требуется, давно бы уж может ответ получили.

А методом тыка и самостоятельных неверных предположений вы так будете до конца сезона втыкать.

есть переменная которая берется из австрийского софта...Например имя ее "Мама"

если значение перменной меньше 2 например, то

мы должны у переменнной "Мама_папа" поменять значение на 2

Изначальный код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Public Function AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant) As Double //переменная, значение

If vValue <=  2  Then
AdjustHardwareValue_Ibit =  1  //(значение)
Else
AdjustHardwareValue_Ibit = vValue//тут понятно
End If
End Function

нужно

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Property Let AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant)

If vValue <=  2  Then

vValue =  20 
thisProject.Variables.Item(CVar(CStr(obVar.Name + "_math"))).Value = vValue
AdjustHardwareValue_Ibit(CVar(thisProject.Variables.Item(obVar.Name + "_math")), CVar(vValue)) =  20 //!!!!!!!!!!!!!вот этот момент важен...переменной с именем мама_папа подаем значение
.....


End If
End If
End Property
...
Рейтинг: 0 / 0
08.10.2010, 13:31
| Ответить | Цитировать | Написать  
что-то с типами
    #36889255
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
донтлавShocker.ProВы б описали, что требуется, давно бы уж может ответ получили.

А методом тыка и самостоятельных неверных предположений вы так будете до конца сезона втыкать.

есть переменная которая берется из австрийского софта...Например имя ее "Мама"

если значение перменной меньше 2 например, то

мы должны у переменнной "Мама_папа" поменять значение на 2

Изначальный код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Public Function AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant) As Double //переменная, значение

If vValue <=  2  Then
AdjustHardwareValue_Ibit =  1  //(значение)
Else
AdjustHardwareValue_Ibit = vValue//тут понятно
End If
End Function

нужно

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Property Let AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant)

If vValue <=  2  Then

vValue =  20 
thisProject.Variables.Item(CVar(CStr(obVar.Name + "_math"))).Value = vValue
AdjustHardwareValue_Ibit(CVar(thisProject.Variables.Item(obVar.Name + "_math")), CVar(vValue)) =  20 //!!!!!!!!!!!!!вот этот момент важен...переменной с именем мама_папа подаем значение
.....


End If
End If
End Property


насчет изначального кода...было иначе, забыла дописать...там было что у этой же переменной мамы менялось значение а теперь у мамы_папы надо
...
Рейтинг: 0 / 0
08.10.2010, 13:36
| Ответить | Цитировать | Написать  
что-то с типами
    #36889281
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
так.
давайте я не буду смотреть тот бред, который вы написали в виде кода, а просто напишу свой в соответствии с ТЗ, итак:

авторесть переменная которая берется из австрийского софта...Например имя ее "Мама"
если значение перменной меньше 2 например, то
мы должны у переменнной "Мама_папа" поменять значение на 2

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
'процедура
Public Sub AdjustHardwareValue_Ibit(VarName As String)

If thisProject.Variables.Item(VarName).Value <  2  Then
  thisProject.Variables.Item(VarName + "_папа").Value =  2 
End If

End Function

'вызов процедуры
AdjustHardwareValue_Ibit "Мама"

это всё!
...
Рейтинг: 0 / 0
08.10.2010, 13:45
| Ответить | Цитировать | Написать  
что-то с типами
    #36889292
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А если вы все же настаиваете на передаче именно объекта Variable, тогда так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
'процедура
Public Sub AdjustHardwareValue_Ibit(obVar As Variable)

If obVar.Value <  2  Then
  thisProject.Variables.Item(obVar.Name + "_папа").Value =  2 
End If

End Function

'вызов процедуры
AdjustHardwareValue_Ibit thisProject.Variables.Item("Мама")
...
Рейтинг: 0 / 0
08.10.2010, 13:48
| Ответить | Цитировать | Написать  
что-то с типами
    #36889326
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proтак.
давайте я не буду смотреть тот бред, который вы написали в виде кода, а просто напишу свой в соответствии с ТЗ, итак:

авторесть переменная которая берется из австрийского софта...Например имя ее "Мама"
если значение перменной меньше 2 например, то
мы должны у переменнной "Мама_папа" поменять значение на 2

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
'процедура
Public Sub AdjustHardwareValue_Ibit(VarName As String)

If thisProject.Variables.Item(VarName).Value <  2  Then
  thisProject.Variables.Item(VarName + "_папа").Value =  2 
End If

End Function

'вызов процедуры
AdjustHardwareValue_Ibit "Мама"

это всё!

вы бы лучше посмотрели...потомучто вы написали тоже самое что и я в начале....

надо не валуе менять...верней валуе но надо это еще и сюда подавать

AdjustHardwareValue_Ibit

раньше было AdjustHardwareValue_Ibit=1 (типа, мама = 1)

а щас надо сюда новые параметры давать
AdjustHardwareValue_Ibit ....чтобы мама_папа равна единицы была
...
Рейтинг: 0 / 0
08.10.2010, 13:57
| Ответить | Цитировать | Написать  
что-то с типами
    #36889350
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлаввы бы лучше посмотрели...потомучто вы написали тоже самое что и я в начале....
я посмотрел - то, что вы написали - это бред, пришлось переписать правильно

донтлавнадо не валуе менять...верней валуе но надо это еще и сюда подавать
Вы хотите, чтобы вам помогли или просто стебаетесь?
Напишите нормальное ТЗ, а не "надо", не надо", "это", "туда", "сюда".

И не надо писать ТЗ в виде кода, в котором ничего не понимаете, ибо пишете вы бред, из которого выводов сделать нельзя. Пишите формально словами.
...
Рейтинг: 0 / 0
08.10.2010, 14:04
| Ответить | Цитировать | Написать  
что-то с типами
    #36889367
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Proдонтлаввы бы лучше посмотрели...потомучто вы написали тоже самое что и я в начале....
я посмотрел - то, что вы написали - это бред, пришлось переписать правильно

донтлавнадо не валуе менять...верней валуе но надо это еще и сюда подавать
Вы хотите, чтобы вам помогли или просто стебаетесь?
Напишите нормальное ТЗ, а не "надо", не надо", "это", "туда", "сюда".

И не надо писать ТЗ в виде кода, в котором ничего не понимаете, ибо пишете вы бред, из которого выводов сделать нельзя. Пишите формально словами.

я все понятней некуда написала...
...
Рейтинг: 0 / 0
08.10.2010, 14:08
| Ответить | Цитировать | Написать  
что-то с типами
    #36889388
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Изначальный код...(не мой)
Работа тут идет с одной переменной мама
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Public Function AdjustHardwareValue_Ibit(obVar As Variable, vValue As Variant) As Double

If vValue <=  2  Then
AdjustHardwareValue_Ibit =  1  // так называется макрос....туда подоют единицу
Else
AdjustHardwareValue_Ibit = vValue
End If
End Function

Мне же надо еденицу подавать не в переменную мама....а в мама_папа
...
Рейтинг: 0 / 0
08.10.2010, 14:12
| Ответить | Цитировать | Написать  
что-то с типами
    #36889399
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавя все понятней некуда написала...


донтлавмы должны у переменнной "Мама_папа" поменять значение на 2донтлавнадо не валуе менятьдонтлавверней валуе

Ну щас дождемся более понятливого человека, он переведет ТЗ на человеческий язык, тогда и продолжим.

В общем, не хотите помощи, как хотите. Остальные уже забили на этот топик.
...
Рейтинг: 0 / 0
08.10.2010, 14:16
| Ответить | Цитировать | Написать  
что-то с типами
    #36889411
донтлав
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
донтлав
Гость
Shocker.Pro

В общем, не хотите помощи, как хотите. Остальные уже забили на этот топик.
ну чтож теперь)

а так там сверху на два поста повыше я еще раз описала)))...
...
Рейтинг: 0 / 0
08.10.2010, 14:18
| Ответить | Цитировать | Написать  
что-то с типами
    #36889442
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
донтлавМне же надо еденицу подавать не в переменную мама....а в мама_папа
В приведенном коде единица не подается ни в какую переменную "мама" - она выдается как результат функции. В переменную (возможно) ее "подает", как вы выражаетесь, тот, кто вызывает эту функцию (вызов вы не приводите). Так что эта фраза "не в..., а в...." тоже бессмысленна, так как содержит некорректное утверждение.
...
Рейтинг: 0 / 0
08.10.2010, 14:27
| Ответить | Цитировать | Написать  
что-то с типами
    #36889538
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Shocker.ProдонтлавМне же надо еденицу подавать не в переменную мама....а в мама_папа
В приведенном коде единица не подается ни в какую переменную "мама" - она выдается как результат функции. В переменную (возможно) ее "подает", как вы выражаетесь, тот, кто вызывает эту функцию (вызов вы не приводите). Так что эта фраза "не в..., а в...." тоже бессмысленна, так как содержит некорректное утверждение.
Во-во. Так что передача процедуре Ajust... объекта obVar вообще бессмысленна (если там еще и с ним что-то не проделывается, кроме вышеуказанного кода).
...
Рейтинг: 0 / 0
08.10.2010, 14:50
| Ответить | Цитировать | Написать  
57 сообщений из 57, показаны все 3 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / что-то с типами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]