Вверх ↑
Этот топик читают: Гость
Ответов: 769
Рейтинг: 167
#61: 2023-04-30 05:42:35 ЛС | профиль | цитата
Леонид, Ключевая фраза – "и без каких-либо изменений"
Код поправил. Округление до сотых. Род - женский.
https://forum.hiasm.com/getfile/39603
P.S. А какое ограничение на количество знаков при вставке в теги CODE? Почему-то некоторые схемы обрезаются.

Редактировалось 2 раз(а), последний 2023-04-30 05:45:36
карма: 15

0
файлы: 1amount-in-words 2.zip [4.5KB] [225]
Ответов: 8910
Рейтинг: 823
#62: 2023-04-30 10:11:30 ЛС | профиль | цитата
Gunta, спасибо! С ограничением не сталкивался, максимальный размер схемы выкладывал ~60 кБ, а может и больше
Ваш пример выложил на радиолюбительском форуме, там как раз был разговор о сумме прописью. Оказывается не у всех в Win есть powershell
карма: 19

0
Ответов: 769
Рейтинг: 167
#63: 2023-04-30 15:32:28 ЛС | профиль | цитата
Леонид писал(а):
Оказывается не у всех в Win есть powershell

А если так? https://forum.hiasm.com/getfile/39604

--- Добавлено в 2023-04-30 15:32:38



Редактировалось 1 раз(а), последний 2023-04-30 15:32:38
карма: 15

0
файлы: 1Сумма Прописью.zip [1KB] [223]
Ответов: 8910
Рейтинг: 823
#64: 2023-04-30 19:17:36 ЛС | профиль | цитата
Gunta, интернет-то есть, не у всех быстрый
Через интернет и Буфер обмена


Add(FormatStr,3785653,350,147)
{
Mask="https://summa-propisyu.ru/?summ=%1&vat=20&val=0&sep=0"
link(onFString,9550395:doDownload,[])
}
Add(HTTP_Get,9550395,406,147)
{
link(onDownload,1835547:doConvert,[])
}
Add(StreamConvertor,1835547,455,154)
{
Mode=4
link(onResult,12127749:doCharset,[])
}
Add(Charset,12127749,504,154)
{
Type=7
link(onCharset,12467002:doSearch,[])
}
Add(BlockFind,12467002,546,154)
{
IncludeBlock=1
StartBlock="<textarea rows=1 onkeyup="fix(this);" class="form-control txt" style="overflow: hidden" id=result"
EndBlock="</textarea>"
link(onSearch,734951:doSplit,[])
link(onEndSearch,8074815:doGetString,[(585,167)(585,188)])
}
Add(MainForm,15784998,511,77)
{
Width=213
Height=23
Caption=""
BorderStyle=0
TaskBar=1
Point(onClose)
link(onCreate,635155:doEvent1,[])
}
Add(Math,8542805,294,147)
{
OpType=35
Op2=0.01
link(onResult,3785653:doString,[])
}
Add(StrPart,734951,595,154)
{
Char=">"
link(onSplit,8074815:doAdd,[])
}
Add(ClipboardHook,7345800,175,133)
{
link(onChange,11435432:doEvent1,[])
}
Add(InlineCode,16063517,252,147)
{
WorkPoints=#6:doTest|
EventPoints=#5:onRes|
Code=#15:unit HiAsmUnit;|13:// Author Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|4: |24: onRes : THI_Event;|51: PROCEDURE doTest(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|0:|29:PROCEDURE THiAsmClass.doTest;|16:var s,ss:string;|16: i,j:integer;|5:BEGIN|9: ss:='';|21: s:=toString(_Data);|7: j:=0;|26: for i:=1 to Length(s) do|8: begin|34: if s[i] in ['0'..'9','.'] then|10: begin|14: ss:=ss+s[i];|6: end |5: else|7: begin|19: if s[i]=',' then|14: ss:=ss+'.'|7: else|9: begin|10: j:=1;|11: break;|9: end; |9: end;|9: end; |36: if j=0 then _hi_onEvent(onRes,ss);|4:END;|0:|0:|4:end.|
link(onRes,8542805:doOperation,[])
}
Add(StrList,8074815,658,154)
{
Point(doGetString)
Point(IdxToSelect)
Point(onGetString)
link(IdxToSelect,3171560:Index,[])
link(onGetString,12348247:doModify,[])
}
Add(Hub,11435432,217,133)
{
link(onEvent1,8074815:doClear,[(641,139)(641,167)])
link(onEvent2,16063517:doTest,[(242,146)(242,153)])
}
Add(ComboBox,3171560,658,70)
{
Left=1
Top=1
Width=190
Height=21
Strings=#13:Пр руб Пр коп|13:Пр руб Пр коп|13:Пр руб Цф коп|20:Пр руб Пр коп+НДС Цф|24:Пр руб Пр коп+НДС Цф(Пр)|28:Цф(Пр руб Пр коп)+НДС Цф(Пр)|28:Цф(Пр руб Пр коп)+НДС Цф(Пр)|35:Цф(Пр руб Цф коп)+НДС Цф(Пр Цф коп)|34:Цф(Пр руб Цф коп)+НДС Цф(Пр)Цф коп|17:Цф(Пр руб) Цф коп|35:Цф(Пр руб) Цф коп+НДС Цф(Пр)Цф коп)|
Point(doSelect)
Point(Index)
}
Add(DoData,279599,609,98)
{
Data=Integer(0)
link(onEventData,3171560:doSelect,[])
}
Add(StrCase,12348247,707,161)
{
Type=3
link(onModify,7345800:doSetText,[(746,167)(746,202)(165,202)(165,139)])
}
Add(If_else,14005120,455,98)
{
Op2=Integer(2)
link(onTrue,15784998:doClose,[])
}
Add(Image,3919875,609,56)
{
Width=213
Height=23
Picture=[ZIPB639000078DAEDDAC10D82301480619C4237D0094CBC7A77269DCA059CC179B021C698405B830F7AF9FED88B70FC52CA0BE7CBFDD40D1DD33AA4F54C6B9BD6A6DB0DFFDFDED7BF7B48B3DA5FFBFF7FFC893FF127CDF3F7A9AA6D7C277F0AF35725C89F96F5572038790F7F8A39FF9509E6AEF2A7B0F78F1CB2024DFE14F9FE3BA656DE17F953F0FC2597F98BD6F03749D0FC4FEBF9FB7D28C39F16F767FF53E3E7AFF39F1ABC7F543742FEB4ECFCA54C903F85F92BEC733982FC29C65FF5A8C79FD6F0E7FB17B57CFEFAFE548DE72FFC893FF157F5F7021C5D0E1F]
Point(doSendToBack)
Point(onMouseDown)
link(onMouseDown,14005120:doCompare,[(648,69)(648,48)(445,48)(445,104)])
}
Add(Hub,635155,553,91)
{
link(onEvent1,3919875:doSendToBack,[(578,97)(578,76)])
link(onEvent2,279599:doData,[])
}

В любой программе набираем цифры -->Copy, курсор на нужное место --> Paste.
Закрыть -- средняя кнопка мыши на крестик
карма: 19

0
Ответов: 769
Рейтинг: 167
#65: 2023-04-30 21:36:14 ЛС | профиль | цитата
Леонид писал(а):
интернет-то есть, не у всех быстрый

Без интернета - https://forum.hiasm.com/getfile/39605
Перед использованием необходимо зарегистрировать InWordsIntl.wsc. Подробнее в файле - Conv.read.me.ru
карма: 15

0
файлы: 1Сумма Прописью 2.zip [8.7KB] [219]
Ответов: 769
Рейтинг: 167
#66: 2023-05-01 08:08:51 ЛС | профиль | цитата
Для перевода числа в число прописью можно использовать SqLite и функцию от Tadа (https://forum.hiasm.com/topic/66157).
sqlite3.dll должна быть рядом с программой.
https://forum.hiasm.com/getfile/39607

Редактировалось 1 раз(а), последний 2023-05-01 13:30:24
карма: 15

0
Ответов: 769
Рейтинг: 167
#67: 2023-05-01 13:30:30 ЛС | профиль | цитата

карма: 15

0
файлы: 1Сумма Прописью SQLITE.zip [2.7KB] [223]
Ответов: 769
Рейтинг: 167
#68: 2023-05-01 20:27:30 ЛС | профиль | цитата
Gunta писал(а):
Без интернета - ........
Перед использованием необходимо зарегистрировать InWordsIntl.wsc.


Всё 'засунул' в VBScript. Теперь ничего не надо регистрировать.
https://forum.hiasm.com/getfile/39610
карма: 15

2
файлы: 1Сумма Прописью VBScript.zip [6KB] [246]
Голосовали:tig-rrr, envoy_sky
Ответов: 300
Рейтинг: 26
#69: 2023-05-03 17:22:15 ЛС | профиль | цитата
Очень нужная вещь
карма: 2
0
Ответов: 769
Рейтинг: 167
#70: 2023-05-31 12:34:49 ЛС | профиль | цитата
Сделал пример сканера QR-кодов и barcode с помощью веб-камеры - https://forum.hiasm.com/getfile/39611
В схеме использована библиотека - zxing.dll (https://github.com/micjahn/ZXing.Net)
Некоторые пояснения:
QRcode – хорошо распознаётся при любом повороте, разного цвета. Можно считывать с экрана телевизора, телефона, газет, упаковки и т.д.
Barcode – не распознаёт мелкий штрихкод и код на цветном фоне. (Возможно, это только у меня)

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi)
- камера встроенная.
карма: 15

1
файлы: 1QRcode scanner.zip [269.6KB] [238]
Голосовали:envoy_sky
Ответов: 35
Рейтинг: 0
#71: 2024-01-12 13:30:26 ЛС | профиль | цитата
Gunta писал(а):
Сделал пример сканера QR-кодов и barcode с помощью веб-камеры - https://forum.hiasm.com/getfile/39611
В схеме использована библиотека - zxing.dll (https://github.com/micjahn/ZXing.Net)
Некоторые пояснения:
QRcode – хорошо распознаётся при любом повороте, разного цвета. Можно считывать с экрана телевизора, телефона, газет, упаковки и т.д.
Barcode – не распознаёт мелкий штрихкод и код на цветном фоне. (Возможно, это только у меня)

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi)
- камера встроенная.


Проверил на
- Windows 7 (x64)
- Hiasm v4.05 build 186 (delphi)
- камера внешняя по usb.
итог не работает изображение есть но в текстовом поле нечего
на Windows 10 (x64) проверил работает

Редактировалось 1 раз(а), последний 2024-01-12 13:57:39
карма: 0

0
Ответов: 8910
Рейтинг: 823
#72: 2024-01-12 14:21:18 ЛС | профиль | цитата
А мелкий читает (вот такой):
QRdemo.jpg

Редактировалось 1 раз(а), последний 2024-01-12 14:23:05
карма: 19

0
Ответов: 769
Рейтинг: 167
#73: 2024-01-12 21:33:32 ЛС | профиль | цитата
Леонид писал(а):
А мелкий читает (вот такой)

Моя веб-камера его даже не видит, телефон показывает какую-то чушь. Поэтому только так.
Чтение QR для Леонида.png

Add(MainForm,11779120,98,140)
{
Width=457
Height=236
Caption="QR reader"
Position=1
}
Add(Memo,2568247,756,147)
{
Top=20
Width=441
Height=177
Align=5
Font=[MS Sans Serif,12,0,0,1]
ScrollBars=2
}
Add(HTTPClient,6023390,483,140)
{
URL="ttp://api.qrserver.com/v1/read-qr-code/"
Method=1
URLCodePage=1
FileField="file"
FieldCharset=1
Point(UploadFile)
link(onFinish,7965911:doSearch,[])
link(UploadFile,12595752:Text,[(503,124)(300,124)(300,180)(258,180)])
}
Add(Edit,12595752,252,140)
{
Width=441
Align=2
Text="Укажите путь к файлу..."
ReadOnly=0
ClearAfterEnter=1
link(onChange,6203740:doRead,[])
}
Add(FileAttributes,6203740,308,140)
{
Point(FileSize)
link(onRead,10679641:doCompare,[])
}
Add(If_else,10679641,364,140)
{
Type=1
Op2=Integer(1048576)
link(onTrue,10250940:doData,[])
link(onFalse,2760712:doMessage,[(403,153)(403,195)])
link(Op1,6203740:FileSize,[(370,131)(356,131)(356,180)(335,180)])
}
Add(DoData,10250940,427,140)
{
link(onEventData,6023390:doLoadString,[])
}
Add(Message,2760712,427,189)
{
Message="Размер файла больше 1 Мб"
}
Add(LinkTip,13820451,266,42)
{
Link="https://goqr.me/api/doc/read-qr-code/"
Font=[MS Sans Serif,8,0,16711680,1]
}
Add(BlockFind,7965911,539,147)
{
IncludeBlock=1
StartBlock="data":""
EndBlock="","
link(onSearch,9318198:doReplace,[])
}
Add(Menu,8308424,154,140)
{
Menu=#13: Read QR-code|
link(onSelectStr,2057774:doExecute,[])
}
Add(ODialog,2057774,203,140)
{
Filter="Фаилы изображений|*.png;*.gif;*.jp*g"
Title="Выберите файл QR-кода "
FileName=""
link(onExecute,12595752:doText,[])
}
Add(Replace,13925381,700,147)
{
SubStr="\"
link(onReplace,2568247:doAdd,[])
}
Add(VBJScript,9290393,644,147)
{
@Hint=#16:unescape( Data )|
WorkPoints=#6:doWork|
EventPoints=#7:onEvent|
Language=1
Script=#31:function doWork( Data, Index ){|33: sys.onEvent( unescape( Data ) );|1:}|
UseName=0
link(onEvent,13925381:doReplace,[])
}
Add(Replace,9318198,595,147)
{
SubStr="\u"
DestStr="%u"
link(onReplace,9290393:doWork,[])
}


В схеме использован нестандартный компонент HTTPClient от Netspirit
https://forum.hiasm.com/post/254317


--- Добавлено в 2024-01-12 21:38:07

prostov писал(а):
Проверил на
- Windows 7 (x64)
- Hiasm v4.05 build 186 (delphi)
- камера внешняя по usb.
итог не работает изображение есть но в текстовом поле нечего
на Windows 10 (x64) проверил работает

Я свою схему делал для Powershell версии 5.1.
С Windows 7 шла версия 2.0, поэтому там большинство команд просто отсутствует.

Редактировалось 4 раз(а), последний 2024-01-12 23:51:39
карма: 15

0
Ответов: 8910
Рейтинг: 823
#74: 2024-01-12 22:54:27 ЛС | профиль | цитата
Gunta, понятно, надо размер побольше сделать.
(Эту шутку для подруг дочери и внучки давно нарисовал, уже и забыл что там )
карма: 19

0
Ответов: 35
Рейтинг: 0
#75: 2024-01-13 13:10:41 ЛС | профиль | цитата
Gunta писал(а):

Я свою схему делал для Powershell версии 5.1.
С Windows 7 шла версия 2.0, поэтому там большинство команд просто отсутствует.

я видел что там использование Powershell
интересно можно ли что то стороннее использовать, чтоб не быть привязанным Powershell.
карма: 0

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