Вверх ↑
Этот топик читают: Гость
Ответов: 574
Рейтинг: 1
#31: 2006-11-24 19:00:44 ЛС | профиль | цитата
Вот он:
карма: 0

0
файлы: 1Math1.rar [2.2KB] [303]
Ответов: 9906
Рейтинг: 351
#32: 2006-11-24 19:22:01 ЛС | профиль | цитата
Да, загадка, блин.....
И Астрамак молчит как партизан (или шпион)

Ну ладно, у одного чела могут ручки шаловливые оказаться... Но ведь не один он...
Астрамак, колись, чего у тебя в файлах стоит
И как оно туда попало, расскажи заодно.
карма: 9

0
Ответов: 8918
Рейтинг: 823
#33: 2006-11-24 20:13:40 ЛС | профиль | цитата
Астрамак то же, но с любимым ScrollBox:
code_634
карма: 19

0
файлы: 1code_634.txt [7.8KB] [561]
Ответов: 3514
Рейтинг: 184
#34: 2006-11-25 12:53:09 ЛС | профиль | цитата
И Астрамак молчит как партизан (или шпион)

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


В каких, поподробнее. Как.. установил делфи компиялтор с цсофта и... только сейчас проблема обнаружилась
карма: 0
0
Ответов: 9906
Рейтинг: 351
#35: 2006-11-25 13:17:17 ЛС | профиль | цитата
проблема обнаружилась
- проблемы просто так не обнаруживаются. Их кто-то создает.

Это не я придумал - это так устроена жизнь.
Кстати, чего у тебя в файлах стоит ты так и не рассказал
карма: 9

0
Ответов: 3514
Рейтинг: 184
#36: 2006-11-25 13:18:50 ЛС | профиль | цитата
В каких?
карма: 0
0
Ответов: 9906
Рейтинг: 351
#37: 2006-11-25 13:20:11 ЛС | профиль | цитата
tsdima писал(а):
Астрамак, если в Crogram FilesHiAsmElementsDelphicodehiMath.pas ты видишь такие строки:
    procedure _work_doOperation0 (var _Data:TData; Index:word);
    procedure _work_doOperation1 (var _Data:TData; Index:word);
procedure _work_doOperation2 (var _Data:TData; Index:word);
procedure _work_doOperation3 (var _Data:TData; Index:word);
то в Crogram FilesHiAsmElementsDelphiconfMath.ini должно быть:
[Methods]
doOperation%OpType%=Вычисляет сумму, или разность, или... (и т.д. по списку в OpType)|1|

Очевидно, ты удалил %OpType%

карма: 9

0
Ответов: 3514
Рейтинг: 184
#38: 2006-11-25 13:40:42 ЛС | профиль | цитата
hiMath.pas:

unit hiMath;

interface

uses Kol,Share,Debug;

type
THIMath = class(TDebug)
private
_Err:boolean;
Res:real;
Def:real;
AngleMode:real;

procedure SetDefault(Value:real);
procedure SetAngleMode(Value:byte);
public
_prop_OpType:byte;
_prop_Op1:real;
_prop_Op2:real;
_prop_ResultType:byte;
_event_onResult:THI_Event;
_event_onError:THI_Event;
_data_Op1:THI_Event;
_data_Op2:THI_Event;

procedure _work_doOperation0 (var _Data:TData; Index:word);
procedure _work_doOperation1 (var _Data:TData; Index:word);
procedure _work_doOperation2 (var _Data:TData; Index:word);
procedure _work_doOperation3 (var _Data:TData; Index:word);
procedure _work_doOperation4 (var _Data:TData; Index:word);
procedure _work_doOperation5 (var _Data:TData; Index:word);
procedure _work_doOperation6 (var _Data:TData; Index:word);
procedure _work_doOperation7 (var _Data:TData; Index:word);
procedure _work_doOperation8 (var _Data:TData; Index:word);
procedure _work_doOperation9 (var _Data:TData; Index:word);
procedure _work_doOperation10(var _Data:TData; Index:word);
procedure _work_doOperation11(var _Data:TData; Index:word);
procedure _work_doOperation12(var _Data:TData; Index:word);
procedure _work_doOperation13(var _Data:TData; Index:word);
procedure _work_doOperation14(var _Data:TData; Index:word);
procedure _work_doOperation15(var _Data:TData; Index:word);
procedure _work_doOperation16(var _Data:TData; Index:word);
procedure _work_doOperation17(var _Data:TData; Index:word);
procedure _work_doOperation18(var _Data:TData; Index:word);
procedure _work_doOperation19(var _Data:TData; Index:word);
procedure _work_doOperation20(var _Data:TData; Index:word);
procedure _work_doOperation21(var _Data:TData; Index:word);
procedure _work_doOperation22(var _Data:TData; Index:word);
procedure _work_doOperation23(var _Data:TData; Index:word);
procedure _work_doOperation24(var _Data:TData; Index:word);
procedure _work_doOperation25(var _Data:TData; Index:word);
procedure _work_doOperation26(var _Data:TData; Index:word);
procedure _work_doOperation27(var _Data:TData; Index:word);
procedure _work_doOperation28(var _Data:TData; Index:word);
procedure _work_doOperation29(var _Data:TData; Index:word);
procedure _work_doOperation30(var _Data:TData; Index:word);
procedure _work_doOperation31(var _Data:TData; Index:word);
procedure _work_doOperation32(var _Data:TData; Index:word);
procedure _work_doOperation33(var _Data:TData; Index:word);
procedure _work_doOperation34(var _Data:TData; Index:word);
procedure _work_doOperation35(var _Data:TData; Index:word);
procedure _work_doOperation36(var _Data:TData; Index:word);
procedure _work_doOperation37(var _Data:TData; Index:word);
procedure _work_doOperation38(var _Data:TData; Index:word);
procedure _work_doOperation39(var _Data:TData; Index:word);
procedure _work_doClear(var _Data:TData; Index:word);
procedure _var_Result(var _Data:TData; Index:word);
property _prop_Default:real write SetDefault;
property _prop_AngleMode:byte write SetAngleMode;
end;

implementation


Math.ini:

[About]
Version=1.0
Author=Dilma

[Type]
Class=Element
Info=Арифметические операции +,-,*,/,... (и т.п. по списку в OpType)
View=OpType,20
Tpl=True

[Property]
OpType=Определяет арифметическую операцию|4|0|+,-,*,/,and,or,xor,div,mod,shl,shr,x^y,cos,sin,tg,ctg,acos,asin,atan,ch,sh,th,cth,ach,ash,ath,acth,log,lg,ln,exp,sqr,sqrt,abs,sign,roun,frac,trun,min,max
Op1=Определяет операнд 1 по умолчанию|7|0
Op2=Определяет операнд 2 по умолчанию|7|0
ResultType=Определяет тип результата|4|1|Integer,Real
Default=Начальные значения результата|7|0
AngleMode=Единицы для тригонометрических функций|4|0|Радианы,Градусы

[Methods]
doOperation%OpType%=Вычисляет сумму, или разность, или... (и т.д. по списку в OpType)|1|
*doClear=Устанавливает начальные значения результата|1|
onResult=Выдаёт в поток результат матоперации|2|real
*onError=Событие происходит всякий раз при арифметической ошибке|2|
Op1=Операнд 1|4|real
Op2=Операнд 2|4|real
Result=Содержит результат операции после его вычисления методом doOperation|3|int

карма: 0
0
Ответов: 9906
Рейтинг: 351
#39: 2006-11-25 13:46:05 ЛС | профиль | цитата
И при этом, в b160 продолжаешь получать такой результат
Астрамак писал(а):
Hub_2CE1680.onEvent[1] := _DoEvent(Math_2CDC288._work_doOperation,0);
Hub_2CE1680.onEvent[2] := _DoEvent(Math_2CE1D38._work_doOperation,0);

карма: 9

0
Ответов: 2125
Рейтинг: 159
#40: 2006-11-25 13:50:32 ЛС | профиль | цитата
Видимо версия не b160 Или CodeGen левый.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#41: 2006-11-25 14:13:34 ЛС | профиль | цитата
или установка поверх старой
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3514
Рейтинг: 184
#42: 2006-11-25 14:13:50 ЛС | профиль | цитата
И при этом, в b160 продолжаешь получать такой результат

Да
Видимо версия не b160 Или CodeGen левый.

160ая, насчёт CodeGen незнаю..
карма: 0
0
Ответов: 9906
Рейтинг: 351
#43: 2006-11-25 14:45:17 ЛС | профиль | цитата
Простые советские люди повсюду творят чудеса...
карма: 9

0
Ответов: 3655
Рейтинг: 69
#44: 2006-11-25 14:57:45 ЛС | профиль | цитата
Разговор с юзером по телефону:
- Наведите указатель на объект и нажмите правую кнопку мыши.
- А у меня нет такой кнопки ! У меня обе левые.
- Поверните мышку по часовой стрелке на 90 градусов.
- Ой! а так даже удобнее!

карма: 0

0
Ответов: 3514
Рейтинг: 184
#45: 2006-11-25 15:00:44 ЛС | профиль | цитата
Так что делать то??))))
карма: 0
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)