Вверх ↑
Этот топик читают: Гость
Ответов: 32
Рейтинг: 7
#1: 2020-09-12 11:54:46 ЛС | профиль | цитата
Это не дежавю, просто попытка сделать универсальный компонент OneWire а процессе отладки добавил функции для DS18B20
проверил и на переходнике USB-COM MOSCHIP, ну и на разных системах
вообщем все внутри архива
компилятор делфи

Редактировалось 1 раз(а), последний 2020-09-12 13:03:53
карма: 1

0
файлы: 1компонент_OneWire.zip [95.8KB] [442]
Ответов: 32
Рейтинг: 7
#2: 2020-09-14 12:44:08 ЛС | профиль | цитата
узнать длину переменной или структуры

Add(MainForm,2953706,294,91)
{
Width=328
Height=454
}
Add(InlineCode,14242392,357,168)
{
WorkPoints=#3:Mat|
EventPoints=#6:OutLen|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|2: |2: |9: public|20: OutLen:THI_Event;|2: |43: procedure Mat(var dt:TData; index:word);|1: |1: |1: |1: |5: end;|0:|14:implementation|0:|0:|26:procedure THiAsmClass.Mat;|4:var |10:i:integer;|9:s:string;|13:s2:string[2];|5:begin|5:i:=0;|24:i:=ReadInteger(dt,Null);|0:|9:Case i of|0:|58:0: s:='integer' + ';' + Int2Str(integer(SizeOf(integer)));|54:1: s:='int64' + ';' + Int2Str(integer(SizeOf(int64)));|50:2: s:='i64' + ';' + Int2Str(integer(SizeOf(i64)));|52:3: s:='real' + ';' + Int2Str(integer(SizeOf(real)));|52:4: s:='char' + ';' + Int2Str(integer(SizeOf(char)));|52:5: s:='BOOL' + ';' + Int2Str(integer(SizeOf(BOOL)));|60:6: s:='LongBool' + ';' + Int2Str(integer(SizeOf(LongBool)));|52:7: s:='word' + ';' + Int2Str(integer(SizeOf(word)));|54:8: s:='DWORD' + ';' + Int2Str(integer(SizeOf(DWORD)));|56:9: s:='string' + ';' + Int2Str(integer(SizeOf(string)));|56:10: s:='string[2]' + ';' + Int2Str(integer(SizeOf(s2)));|61:11: s:='cardinal' + ';' + Int2Str(integer(SizeOf(cardinal)));|57:12: s:='double' + ';' + Int2Str(integer(SizeOf(double)));|61:13: s:='Shortint' + ';' + Int2Str(integer(SizeOf(Shortint)));|61:14: s:='Smallint' + ';' + Int2Str(integer(SizeOf(Smallint)));|54:15: s:='Byte' + ';' + Int2Str(integer(SizeOf( Byte)));|57:16: s:='Real48' + ';' + Int2Str(integer(SizeOf(Real48)));|61:17: s:='WordBool' + ';' + Int2Str(integer(SizeOf(WordBool)));|61:18: s:='Extended' + ';' + Int2Str(integer(SizeOf(Extended)));|53:19: s:='Comp' + ';' + Int2Str(integer(SizeOf(Comp)));|61:20: s:='Currency' + ';' + Int2Str(integer(SizeOf(Currency)));|61:21: s:='LongWord' + ';' + Int2Str(integer(SizeOf(LongWord)));|59:22: s:='LongInt' + ';' + Int2Str(integer(SizeOf(LongInt)));|57:23: s:='Single' + ';' + Int2Str(integer(SizeOf(Single)));|53:24: s:='TDCB' + ';' + Int2Str(integer(SizeOf(TDCB)));|63:25: s:='TCommProp' + ';' + Int2Str(integer(SizeOf(TCommProp)));|67:26: s:='TSystemTime' + ';' + Int2Str(integer(SizeOf(TSystemTime)));|59:27: s:='THandle' + ';' + Int2Str(integer(SizeOf(THandle)));|71:28: s:='TCommTimeouts' + ';' + Int2Str(integer(SizeOf(TCommTimeouts)));|67:29: s:='TCommConfig' + ';' + Int2Str(integer(SizeOf(TCommConfig)));|67:30: s:='TSystemInfo' + ';' + Int2Str(integer(SizeOf(TSystemInfo)));|4:end;|22:_hi_OnEvent(OutLen,s);|4:end;|0:|4:end.|
link(OutLen,8528564:doAdd,[])
}
Add(StringTable,8528564,406,168)
{
Left=70
Width=210
Height=400
Columns=#14:переменная=100|5:длина|
}
Add(CounterEx,5783680,301,168)
{
link(onNext,14242392:Mat,[])
}
Add(Button,9146762,245,168)
{
Top=35
link(onClick,5783680:doNext,[])
}


Редактировалось 2 раз(а), последний 2020-09-14 12:53:39
карма: 1

0
2
Сообщение
...
Прикрепленные файлы
(файлы не залиты)