1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Калькулятор крафта сосок

Тема в разделе "Общий раздел", создана пользователем progerPro, 12 янв 2011.

Статус темы:
Закрыта.
  1. progerPro

    progerPro User

    Регистрация:
    12.01.11
    Сообщения:
    12
    Симпатии:
    0
    добрый день крафтер. если ты крафтишь и торгуешь сосками то эта программа для тебя. она позволяет легко посчитать прибыль и затраты при крафте. пока в базе проги есть только(ssd,ssc,ssb,ssa,sss,bssd,bssc,bssb,bssa,bsss).
    вот ссылка:
    http://*********/3924318 распаковываем в отдельную папку, запускаем sos.exe и пользуемся.
    если у вас возникли замечания, предложения, вопросы смело, быстро и решительно отписывайте в теме
     
    Последнее редактирование модератором: 13 янв 2011
  2. Sality

    Sality User

    Регистрация:
    13.10.10
    Сообщения:
    115
    Симпатии:
    0
    делфи рулит)
     
  3. joocc

    joocc User

    Регистрация:
    10.02.10
    Сообщения:
    27
    Симпатии:
    1
    так таких прог давно уже как грязи
     
  4. НифигаНеЗадрот

    НифигаНеЗадрот User

    Регистрация:
    04.02.10
    Сообщения:
    2.008
    Симпатии:
    0
    для этих целей гораздо лучше рулит excel
    зы кто сколько вирусов нашел? ;)
     
  5. progerPro

    progerPro User

    Регистрация:
    12.01.11
    Сообщения:
    12
    Симпатии:
    0
    могу предоставить исходные коды
     
  6. joocc

    joocc User

    Регистрация:
    10.02.10
    Сообщения:
    27
    Симпатии:
    1
    так по любому не один крафтер по этой ссылке не пойдет))))
     
  7. DIL

    DIL Innova QA Innova Group

    Регистрация:
    02.03.10
    Сообщения:
    12.524
    Симпатии:
    2.000
    хороший кей-логер наверное. :)
     
  8. progerPro

    progerPro User

    Регистрация:
    12.01.11
    Сообщения:
    12
    Симпатии:
    0
    http://*********/3911938 архивчик с исходниками но без иконок
    unit unit1;

    interface

    uses
    windows, messages, sysutils, variants, classes, graphics, controls, forms,
    dialogs, menus, extctrls, stdctrls, buttons;

    type
    tform1 = class(tform)
    combobox1: tcombobox;
    label1: tlabel;
    image1: timage;
    edit1: tedit;
    edit2: tedit;
    edit3: tedit;
    button1: tbutton;
    label2: tlabel;
    label3: tlabel;
    label6: tlabel;
    edit4: tedit;
    label4: tlabel;
    label7: tlabel;
    edit5: tedit;
    edit6: tedit;
    label8: tlabel;
    edit7: tedit;
    label5: tlabel;
    label9: tlabel;
    edit8: tedit;
    label10: tlabel;
    edit9: tedit;
    bitbtn1: tbitbtn;
    bitbtn3: tbitbtn;
    procedure combobox1change(sender: tobject);
    procedure button1click(sender: tobject);
    procedure edit2change(sender: tobject);
    procedure edit1keypress(sender: tobject; var key: char);
    procedure combobox1keypress(sender: tobject; var key: char);
    procedure bitbtn1click(sender: tobject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    form1: tform1;
    s:string;

    implementation

    {$r *.dfm}

    procedure tform1.combobox1change(sender: tobject);
    var s,s1:string;
    begin
    case form1.combobox1.itemindex of
    0: begin form1.image1.picture.loadfromfile('bitmap/ssd.bmp'); s:='d'; end;
    1: begin form1.image1.picture.loadfromfile('bitmap/ssc.bmp'); s:='c'; end;
    2: begin form1.image1.picture.loadfromfile('bitmap/ssb.bmp'); s:='b'; end;
    3: begin form1.image1.picture.loadfromfile('bitmap/ssa.bmp'); s:='a'; end;
    4: begin form1.image1.picture.loadfromfile('bitmap/sss.bmp'); s:='s'; end;
    5: begin form1.image1.picture.loadfromfile('bitmap/bssd.bmp'); s:='d'; end;
    6: begin form1.image1.picture.loadfromfile('bitmap/bssc.bmp'); s:='c'; end;
    7: begin form1.image1.picture.loadfromfile('bitmap/bssb.bmp'); s:='b'; end;
    8: begin form1.image1.picture.loadfromfile('bitmap/bssa.bmp'); s:='a'; end;
    9: begin form1.image1.picture.loadfromfile('bitmap/bsss.bmp'); s:='s'; end;
    end;
    form1.label2.caption:='ââåäèòå öåíó çà 1 '+s+' êðèñ';
    end;
    procedure tform1.button1click(sender: tobject);
    var chezakri,chezarud,chezacoc,cto,code:integer; za1coc,plu1coc,p:real;
    s,s1:string; f:textfile;
    begin
    val(edit1.text,chezakri,code);
    val(edit2.text,chezarud,code);
    val(edit3.text,chezacoc,code);
    case form1.combobox1.itemindex of
    0: begin cto:=9*chezarud+3*chezakri; za1coc:=cto/468; p:=468; end;
    1: begin cto:=30*chezarud+2*chezakri; za1coc:=cto/952; p:=952; end;
    2: begin cto:=54*chezarud+chezakri; za1coc:=cto/450; p:=450; end;
    3: begin cto:=36*chezarud+chezakri; za1coc:=cto/300; p:=300; end;
    4: begin cto:=40*chezarud+chezakri; za1coc:=cto/350; p:=350; end;
    5: begin cto:=8*chezarud+2*chezakri; za1coc:=cto/100; p:=100; end;
    6: begin cto:=30*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    7: begin cto:=16*chezarud+2*chezakri; za1coc:=cto/100; p:=100; end;
    8: begin cto:=70*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    9: begin cto:=50*chezarud+2*chezakri; za1coc:=cto/200; p:=200; end;
    end;
    form1.edit5.text:=inttostr(cto);
    str(za1coc:0:2,s1);
    form1.edit3.text:=s1+' àäåí';
    plu1coc:=strtoint(form1.edit4.text)-za1coc;
    str(plu1coc:0:2,s1);
    form1.edit7.text:=s1+' àäåí';
    p:=p*strtoint(edit4.text)-cto;
    str(p:0:0,s1);
    form1.edit8.text:=s1+' àäåí';
    plu1coc:=plu1coc*strtoint(edit6.text);
    str(plu1coc:0:0,s1);
    form1.edit9.text:=s1+' àäåí';
    end;
    procedure tform1.edit2change(sender: tobject);
    begin
    if (edit1.text<>'') and (edit2.text<>'') and (combobox1.itemindex<>-1)
    and (edit4.text<>'') and (edit6.text<>'')
    then button1.enabled:=true else button1.enabled:=false;
    end;
    procedure tform1.edit1keypress(sender: tobject; var key: char);
    begin
    if not (key in ['0'..'9', #8]) then
    key:=#0;
    end;


    procedure tform1.combobox1keypress(sender: tobject; var key: char);
    begin
    key:=#0;
    end;

    procedure tform1.bitbtn1click(sender: tobject);
    begin
    showmessage('ïðîãà ðàçðàáîòàíà progerpro '+'delphi 7 interprise çàìå÷àíèÿ è ïðåäëîæåíèÿ â àñüêó 388332525');
    end;

    end.
     
  9. Стрельников

    Стрельников Главный модератор Head moderator

    Регистрация:
    25.05.10
    Сообщения:
    11.676
    Симпатии:
    1.517
    господа, вы пользуетесь этим на свой собственный страх и риск!
     
  10. Хирако

    Хирако User

    Регистрация:
    11.07.10
    Сообщения:
    111
    Симпатии:
    0
    а че. код же вложил:d есть делфи - ктрл+ц, ктрл+в и никакого риска. хотя.. у кого есть делфа, думаю сами в состоянии такое написать:)
     
  11. Стрельников

    Стрельников Главный модератор Head moderator

    Регистрация:
    25.05.10
    Сообщения:
    11.676
    Симпатии:
    1.517
    дело просто в том, что данная программа никакого отношения к компании не имеет и соответственно никаких гарантий её безопасного использования не будет. вот и все
     
  12. kota192

    kota192 User

    Регистрация:
    09.02.10
    Сообщения:
    3
    Симпатии:
    0
    вроде прога годная
     
  13. progerPro

    progerPro User

    Регистрация:
    12.01.11
    Сообщения:
    12
    Симпатии:
    0
    просканил и о чудо ничего)
     
  14. LoneWolf2

    LoneWolf2 User

    Регистрация:
    24.12.09
    Сообщения:
    12.919
    Симпатии:
    886
    ну это для тех, кто зарабатывать крафтом сосок хочет, но калькулятором пользоваться не умеет (не говоря уж об экселе).

    лично у меня уже давно крафт сосок в экселе и весь прочий крафт там же, но заглядываю я в эти расчеты не часто.

    p.s. скан фигня, годный самописный троян ничто не находит. кто хочет 100% гарантии компильте исходники сами. :)
     
  15. progerPro

    progerPro User

    Регистрация:
    12.01.11
    Сообщения:
    12
    Симпатии:
    0
    только перед компилом на форму накидайте все что надо, а то потом орать будете что исходники левые)
     
  16. Males

    Males User

    Регистрация:
    30.05.10
    Сообщения:
    28
    Симпатии:
    0
    прога оперативненькая) всмысле ресурсов почти не жрет и считает быстро! если в ценах паритесь или решили крафтом под зрарботать имхо пользуйтесь!
     
  17. vasik

    vasik User

    Регистрация:
    15.10.10
    Сообщения:
    380
    Симпатии:
    0
    был раньше л2информер так вот в нем был приличный калькулятор сосак
    а ето качать апасна, там может быть все что угодно, начиная от кейлогера и заканчивая вашим взломанным акком)
    пкодер про свою аси тож говорит шо у ево все чиста... однако регулярно ломают акки тех кто прогу ту юзает:d

    "пока живут на свете дураки, обманом стало быть нам жить с руки" (с)
     
  18. НифигаНеЗадрот

    НифигаНеЗадрот User

    Регистрация:
    04.02.10
    Сообщения:
    2.008
    Симпатии:
    0
    у тебя исходники даже без файла формы?????? абалдеть!
    зы кто знает дельфи - такая прога на 10 мин (делал сам года 3 назад) с перерывом на кофе :)
    кто не знает - ему исходники не помогут, даже если он сумеет скомпилить.
     
  19. Сангиро

    Сангиро User

    Регистрация:
    28.12.10
    Сообщения:
    281
    Симпатии:
    0
    народ а не судьба записать цену тех сосок которых надо и взять в руки калькулятор и посчитать,неужели интернет полностью поработил вас)?
     
  20. Кряфа

    Кряфа User

    Регистрация:
    24.12.09
    Сообщения:
    191
    Симпатии:
    5
    ой, похоже каждый крафтер, владеющий языком, хоть раз в жизни писал программку для подсчета шотокрафта. вот моя версия: http://*********/3918437. не судите строго, писала во время збт руофа :)
     
Статус темы:
Закрыта.