Редактировалось 1 раз(а), последний 2017-03-03 09:57:58

на основе элемента Random

Редактировалось 1 раз(а), последний 2017-03-03 09:57:59

На основе элемента If_else

Редактировалось 1 раз(а), последний 2017-03-03 09:57:59

Вот пример, если выподет 7 прозвучит сигнал в системном динамике.
[code:1]Add(MainForm,349562,21,105) {
Left=20
Top=105
Width=270
Height=234
}
Add(Random,5752785,231,224)
{
Max=10
link(onRandom,7375226:doEvent1,[])
}
Add(Button,11289523,168,224)
{
Left=60
Top=130
Caption="Нажать"
link(onClick,5752785:doRandom,[(212,230)(212,230)])
}
Add(Beep,3536638,469,301)
{
Duration=1000
}
Add(Label,14344141,385,224)
{
Left=25
Top=20
}
Add(If_else,12486518,385,301)
{
Op2=Integer(7)
link(onTrue,3536638:doBeep,[(443,307)(443,307)])
}
Add(Hub,7375226,301,224)
{
link(onEvent1,14344141:doText,[(359,230)(359,230)])
link(onEvent2,12486518:doCompare,[(352,237)(352,307)])
}
[/code:1]

Редактировалось 1 раз(а), последний 2017-03-03 09:57:59

[code:1]Add(SMTP,7534125,168,266) {
Point(Attach)
link(Attach,15007050:Array,[(209,247)(209,247)])
}
Add(StrList,15007050,189,182)
{
Strings=#11:C:file.txt|
}
[/code:1]

Гость, чем больше вопросов задашь сразу, тем за более короткий срок получишь ответы на все

Редактировалось 1 раз(а), последний 2017-03-03 09:58:00

Редактировалось 1 раз(а), последний 2017-03-03 09:58:00

Гость, нужен компилятор Delphi а не FPC
взять можно здесь http://hiasm.narod.ru/Compiler.exe

Редактировалось 1 раз(а), последний 2017-03-03 09:58:01

Почитай внимательней справку компиляторы:

Совет по установке Делфи 4 скачанный с сайта http://www.hiasm.narod.ru/Compiler.exe
Надо скачать этот файл, установить его. Дальше файл C:\Program Files\HiAsm\Int\compilers.txt должен выглядеть следующим образом



[delphi4]
path=C:\Program Files\HiAsm\Compiler\dcc32.exe
cmd="%fname%" "-U%opath%." -Q "-E%opath%
ext=dpr

[delphi5]
path=D:\Leng\Delphi5\Bin\dcc32.exe
cmd="%fname%" "-UD:\Leng\Delphi5\Lib" "-UD:\Leng\kol_hiasm" -Q "-E%opath%
ext=dpr

[delphi7]
path=D:\Leng\Delphi7\Bin\dcc32.exe
cmd="%fname%" "-UD:\Leng\Delphi7\Lib" "-UD:\Leng\kol_hiasm" -Q "-E%opath%
ext=dpr

[fpc]
path=%curdir%compiler\fpc\fpc.exe
cmd='"%fname%"' -Sd -Mdelphi '"-FE%opath%"' '"-FU%upath%\units"' -FDtools\ -CX -dF_P
ext=pas

[arm]
path=%curdir%compiler\arm\clarm.exe
cmd="%fname%" /I "%upath%" /I "%curdir%\compiler\arm\Inc" /D "DEBUG" /D "UNICODE" /D "_UNICODE" /D "ARM" /D "_ARM_" /D"ARMV4" /D "_M_ARM" /D UNDER_CE=300 /D_WIN32_WCE=300 /link "%upath%\allres.res" commctrl.lib coredll.lib winsock.lib ws2.lib wininet.lib icmplib.lib aygshell.lib CPQUtil.lib /subsystem:windowsce,3.00 /MACHINE:ARM /libpath:"%curdir%\compiler\arm\Lib" /out:"%oname%"
ext=cpp

[flatasm]
path=%curdir%Elements\FASM\compiler\fasmw.exe
cmd="%fname%" "%oname%"
ext=asm

[fpc2]
path=D:\Leng\FPC\2.0.0\bin\i386-win32\fpc.exe
cmd="%fname%"' -Sd -Mdelphi '"-FE%opath%"' '"-FU%upath%\units"' -FDtools\ -CX -dRELEASE -O3 -Op3
ext=pas





Далее файл C:\Program Files\HiAsm\Int\ru\projects.txt должен выглядеть так:


[Delphi]
Name=Delphi & FPC
Info=Проекты для Windows на базе компиляторов Delphi и FPC
Make=Delphi4,fpc
Units=pas

[Other]
Name=Файлы
Info=Простые форматы файлов
Units=


Теперь загружайте Hiasm ( после изменения в фалах нужна перезагрузка Hiasm - а).