Просмотр полной версии : Форма,я уже вас достал)
goodvin1709
21.02.2011, 23:33
Ну как я понел в лог записовать инфу стало неинтересно
и мне помог крутой человек как почать создавать Форму
И я начал Создал Форму розмер цвет все поставил..
Дальше я добавил..
10 лабелов
Labelka0:TLabel;
Labelka1:TLabel;
Labelka2:TLabel;
Labelka3:TLabel;
Labelka4:TLabel;
Labelka5:TLabel;
Labelka6:TLabel;
Labelka05:TLabel;
Labelka06:TLabel;
Labelka07:TLabel;
и 5 переменных: всех их здела : Word так как 66536 они некак немогут перейти ))
A:=0; // заточено на 6
B:=0; // заточено на 7
C:=0; // заточено на 8
D:=0; // зломана при заточке на 7
E:=0; // зломана при заточке на 8
Создал все процедуры на добавление
всего короче но возникла проблема
как вывесли Например А возле Вот етого лабела
Labelka5 := TLabel.Create(Main);
Labelka5.Parent:=main;
Labelka5.left:=10;
Labelka5.Top:=100;
Labelka5.caption:='Заточено на +6:';
в лог проверял все норм пашет )) а вот возле лабела немогу вывести
чтобы неспамило в логе а прсто заменялось в форме
Добавлено через 2 минуты
А вот и сам скрипт
СЫЛКА (http://depositfiles.com/files/o1bhc20k3)
Добавлено через 30 секунд
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
ЛабелкаВкоторуювыводитсяуровеньзаточки.caption = vartostr(a);
goodvin1709
22.02.2011, 01:12
сек тестону
))
Добавлено через 11 минут
Чтото неработает вечно пишет 0
ну я делаю так
const
nick = 'NameAlreadyExis';
Var
Labelka3:TLabel;
D : integer;
procedure Init;
begin
D:=0; // зломана при заточке на 7
Labelka3 := TLabel.Create(Main);
Labelka3.Parent:=main;
Labelka3.left:=10;
Labelka3.Top:=50;
Labelka3.caption:='Зломано з +6 на +7:';
Labelka3.left:=11;
Labelka3.Top:=50;
Labelka3.caption:= vartostr(D);
end;
procedure Free;
begin
Main.free;
end;
Procedure LomNa7 ;
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$64) and (pck = HStr('64 41 00 00 00 02 00 00 00 01 00 00 00 06 00 00 00 03 00 00 00 E9 18 00 00')) then
begin
inc(D,1);
SendMSG('Зломано на +7');
delay(500);
SendMSG(vartostr(D));
end;
end;
Добавлено через 20 минут
и как зделаь еще чтобы форму незя было изменять розмер ее )
Добавлено через 36 минут
Короче решыл зделать скоко скрипт работает но возникла проблема
Var
Sec : Integer;
Min : Integer;
Hour : Integer;
timer1 : TTimer ;
Procedure Init;
Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=1000;
end;
Procedure OnTimer1;
begin
Inc(sec);
if (Sec>59) then
begin
Inc(Min);
Sec:=0;
if (Min>59) then
begin
Inc(Hour);
Min:=0 ;
end;
end;
End;
И сразу крит ПХ
подумай сам что ты Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда
ет проста консты
goodvin1709
22.02.2011, 10:44
уже есть форма
для каждой заточки надо переменную и по лабелу
goodvin1709
22.02.2011, 20:12
шас попробую
Добавлено через 38 минут
ВСЕ работает Статистика
http://s003.radikal.ru/i203/1102/3d/02a26878024d.bmp
но проблы з таймером и
шансом жаль что я проёбал 8-9 клас там как раз учили такое))
дайте плиз формулу
Добавлено через 9 минут
supernewbie
22.02.2011, 20:22
проебал 8-9 клас
а также абсолютно все уроки русского языка)
goodvin1709
22.02.2011, 20:32
Я українець))
Добавлено через 48 секунд
Під аватаром моя адреса , недивно чого я так погано по російськи пишу?
supernewbie
22.02.2011, 20:43
а, просто я думал может ты яйцами пезнулся
---
возьми скрипт у дуни да и всё, или ну выкладывай сюда в архиве скрипт свой
goodvin1709
22.02.2011, 21:11
ГГ +100500
я уверен дуня недаст и ненада он мучелся искал инфу в нете а тут так просто дать ((
и Цени чужой труд
скажы лутше формулу на шанс
дуня жмотит) когда я был конченным ламером я обратился к supernewbie через долгие пытки я его смог заставить установить с4 и написать мне скрипт) а дальнейшем я доработал его скрипт до невообразимой красоты)
goodvin1709
22.02.2011, 21:47
дуня жмотит)
я ето неписал а ты мне обеснил что к чему
мне пф на скрипт на заточку
просто научится)
у мну точно так же было) я его пытал вопросами мучал, он матерился, в итоге сдался написал сам, я ему конечно очень благодарен за него) но сам тоже стал немного чтото понимать в этом, хоть и очень мало)
goodvin1709
22.02.2011, 21:57
ну ты нехерово понимаеш я тебе скажу
даже очень нехерово)
supernewbie
22.02.2011, 22:06
формулу на шанс? текущее / всё * 100 или я че-та нипанимаю, какую еще формулу тебе надо, чувак?
моя формула выщитывающая шанс была а/((а+б)/100)
goodvin1709
22.02.2011, 22:19
буду по ней работать или создам темку на ето
я быдлокодер) лучше использовать адекватные формулы и решения)
goodvin1709
22.02.2011, 22:36
и как правильно часики з таймером создать бо вечно выбивает ПХ критом
Добавлено через 12 минут
шас выложу скрипт
и дайте норм файлообменный сервис плиз
supernewbie
22.02.2011, 22:52
www.rghost.ru
часики? TimeToStr(Now)
goodvin1709
22.02.2011, 22:57
Помогите его упрстить очень прошу и буду сильно благодарен
там както его нада скоротить и часики ето одно что я немогу зделать
Тут (http://rghost.ru/4492919)
supernewbie
22.02.2011, 23:00
*ля, опиши че тебе надо от скрипта
goodvin1709
22.02.2011, 23:06
Ну скоко он проработал часики
И чтобы нельзя было розсовать форму а она была закреплена своим розмером
И шанс заточки знизу выводить
и ето будет готовый скрипт на статистику)
supernewbie
22.02.2011, 23:22
а грабить корованы можно будет?
---
короче, создаешь форму, делаешь BorderStyle:=bsDialog;
потом создаешь массив TLabel'ов, пишешь алгоритм, определяющий их расположение на форме как те надо и заполняешь другим алгроитмом их, всё просто, потом, по таймеру обновляешь также еще один TLabel с временем, всё. готова
goodvin1709
22.02.2011, 23:42
ОХ не ето тежело как я уже понел прийдетса гугл узать((
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot