nikolz (Все сообщения пользователя)

local bid=150.123456;
local step=0.1; price=bid- bid % step;  print("price="..price)  -- десятые доли
local step=0.01; price=bid- bid % step;  print("price="..price)  --сотые доли

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "example.lua" 
price=150.1
price=150.12
>Exit code: 0

local bid=150.123456; local price=bid//1>>0; print("price="..price)

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "example.lua" 
price=150
>Exit code: 0

static int mciSS(lua_State*L){  mciSendString((char*)lua_tostring(L,1),0,0,0); }

local file="C:/Windows/Media/Alarm10.wav" -- звуковой файл
nks.mciss("open "..file.."  alias MediaFile wait"); -- открыть устройство

nks.mciss("play MediaFile FROM 0 wait");

local file="D:/nks/test.mp3" -- звуковой файл
nks.mciss("open "..file.."  alias MediaFile wait"); -- открыть устройство

nks.mciss("play MediaFile FROM 0 wait");

static int mciSS(lua_State*L){
    mciSendString((char*)lua_tostring(L,1),0,0,0); 
   if (lua_gettop(L)>1)SleepEx(lua_tointeger(L,2),1); 
    return 0; }

local x="D:/nks/test.mp3" -- звуковой файл
os.execute("D:/mpg123/mpg123.exe "..x)

--функция для Lua 5.3 выводит на динамики звуковой файл
--при первом вызове записывает файл в буфер
--при последующих  вызовах воспроизводит содержимое буфера
--автор nikolz 2024
--распакуйте файл на диск  желательно D
--пример вызова функции для вывода на динамики системного звука

path = "D:/nks/"  --путь где находится файл nks.dll
package.cpath =path.."?.dll;"..package.cpath
require"nks"

local x="C:/Windows/Media/Alarm10.wav" -- звуковой файл
nks.run(x);        -- первый вызов с указанием файла
for x=1,5 do
   nks.run();     -- вызов воспроизведение из буфера памяти
end
nks.stop();        -- завершение работы и удаление буфера памяти

function PlaySoundFile(file_name)
  w32.mciSendString("CLOSE QUIK_MP3") 
  w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
  w32.mciSendString("PLAY QUIK_MP3")
end

local x="C:/Windows/Media/Alarm10.wav"
local s="powershell -c (New-Object Media.SoundPlayer "..x..").PlaySync();"
for j=1,10 do  os.execute(s); end

local x="C:/Windows/Media/Alarm10.wav"
local s="powershell -c (New-Object Media.SoundPlayer "..x..").PlaySync();"
for j=1,10 do  os.execute(s); end

local x="C:/Windows/Media/Alarm10.wav"
for j=1,10 do
local s="powershell -c (New-Object Media.SoundPlayer "..x..").PlaySync();"
os.execute(s);
end

os.execute("powershell -c (New-Object Media.SoundPlayer 'C:/Windows/Media/Alarm10.wav').PlaySync();");

os.execute("powershell -c (New-Object Media.SoundPlayer 'C:/Windows/Media/Ring10.wav').PlaySync();");

local str="iqreporoerp[tp[]yprtlh;lh[yyjpy[[y]j;g][j;][[p[lf;d,;,n;hm';hm";
local N=10000
local t1;
local s;


 local k=os.clock();   for k=1,N do  s=string.sub(str,5,20)  end   t1=os.clock()-k
 k=os.clock(); for k=1,N do  s=str:sub(5,20)   end  t2=os.clock()-k
print(t1/N,t2/N,t1/t2)

>D:/lua53/lua53.exe -e "io.stdout:setvbuf 'no'" "test_edflib.lua" 
8.2e-08   8e-08   1.025
>Exit code: 0