ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / что-то с типами
25 сообщений из 57, страница 2 из 3
  2  все
что-то с типами
    #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
| Ответить | Цитировать | Написать  
25 сообщений из 57, страница 2 из 3
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / что-то с типами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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