Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

зациклился на циклах(начинающий) [D7, XP]

Страницы: < 1 2 3 4
LAZudhic © (2011-09-08 17:56:00)
В цикле надо вставить цикл. теперь по порядку первый цикл чтоб избежать команды goto label(вроде такая команда) дельфи не любит такую команду и не рекамендуется ее применять .второй цикл для паузы от 0,1 до 0,5сек
как бы вы сделали на моем месте какие команды применили

DVM (2011-09-08 19:52:00) [61]

> Rouse_ © (08.09.11 19:34) [11]

на каждый шаг по юниту :)

Rouse_ (2011-09-08 19:51:00) [62]
Юнит, это PAS файл, в котором ты пишешь код. Дельфи их нумерует по порядку от Unit1 до ...

LAZudhic (2011-09-08 19:47:00) [63]
но вот и первое что =) я неделю в д7 и на первом форуме где задал вопрос и теперь у меня вопрос что такое юнит извиняюсь за малограмотность=(

Rouse_ (2011-09-08 19:34:00) [64]

> unit Unit155;

0_0 фига, у тебя сколько там юнитов?!!!

LAZudhic (2011-09-08 19:32:00) [65]
unit Unit155;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';
procedure TForm1.Button1Click(Sender: TObject);
var i,j,a,b: Integer;
begin
for i := 1 to 400 do
begin
out32(888,17);
out32(888,19);
sleep(1);
out32(888,18);
out32(888,22);
sleep(1);
out32(888,20);
out32(888,28);
sleep(1);
out32(888,24);
out32(888,25);
sleep(1);
end;
end;

end.

LAZudhic (2011-09-08 19:29:00) [66]
все шагает могу даже программу кинуть но только медлено шагает

Игорь Шевченко (2011-09-08 19:25:00) [67]
и не шагает

LAZudhic (2011-09-08 19:20:00) [68]
я тут по такой причине бейсик-любимый мой язык прекрасно работает с сом портом а вот с LPT проблемы и пришлось д7 изучать а то я схему собрал шаговый двигатель от принтера подключил к LPT

DVM (2011-09-08 19:11:00) [69]

> LAZudhic (08.09.11 19:10) [5]

мы все тут самоучки

LAZudhic (2011-09-08 19:10:00) [70]
спс-я НаЧиНаЮщИй САМОУЧКА =)

QAZ (2011-09-08 19:00:00) [71]

> дельфи не любит такую команду и не рекамендуется ее применять

даладна,сам придумал?

DVM (2011-09-08 18:57:00) [72]

> LAZudhic (08.09.11 18:54) [2]

> sleep-как меньше одной секунды сделать?

Параметр функции sleep в каких единицах измерения задается ты уже выяснил?

LAZudhic (2011-09-08 18:54:00) [73]
sleep-как меньше одной секунды сделать?

Jeer (2011-09-08 18:16:00) [74]
break
sleep(x)

Страницы: < 1 2 3 4

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »