Программы от скуки

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by brasco2k, 30 Apr 2008.

  1. brasco2k

    brasco2k Elder - Старейшина

    Joined:
    23 Nov 2007
    Messages:
    258
    Likes Received:
    91
    Reputations:
    0
    Выкладываем сюда всякие веселые програмки, написаные вами от скуки

    *на язаках C/C++/C#, Delphi, Pascal

    Вот моя:

    http://webfile.ru/1914270

    Переводит текст в буквы разного регистра(заметил что есть люди Вконтакте кто так пишет))
    После конвертирование копирует в буфер)

    Требует наличия .NET > 2.0
    (C#)

    P.S содрал тему из соседнего раздела))

    De-visible:
    В этой теме выкладываем исходники ваших программ от "СКУКИ", но не засоряем топик разговорами!
     
    #1 brasco2k, 30 Apr 2008
    Last edited by a moderator: 3 May 2008
    2 people like this.
  2. De-visible

    De-visible [NDC] Network develope c0ders

    Joined:
    6 Jan 2008
    Messages:
    916
    Likes Received:
    550
    Reputations:
    66
    :D СуперПуперМегаСкрипт:
    Вот:
    Код на DELPHI(ну точно от скуки)

    Code:
    unit Unit2;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Borland.Vcl.StdCtrls, System.ComponentModel;
    
    type
      TForm2 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Memo1: TMemo;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form2: TForm2;
    
    implementation
    
    {$R *.nfm}
    
    procedure TForm2.Button1Click(Sender: TObject);
    Var
    i:integer;
    begin
      For i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) Do 
    Begin
    Memo1.Lines.Add(IntToStr(i));
    Application.ProcessMessages;
    End;
    end;
    
    end.
    
    На форму кидаем два Edit'а(Edit1,Edit2) и поле Memo1

    Прога тупо, в цикле записывает в мемо весь диапазон(Edit1-Edit2) заданный пользователем..

    Большие диапазоны не обрабатывает :D

    Запускай и пялься! :D


    Ну я начал:)
     
    #2 De-visible, 30 Apr 2008
    Last edited: 3 May 2008
    1 person likes this.
  3. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    софтина тупо будет выглядеть зависнувшей ;) нада в потоках делать))
     
    2 people like this.
  4. Jes

    Jes Elder - Старейшина

    Joined:
    16 Apr 2007
    Messages:
    370
    Likes Received:
    391
    Reputations:
    34
    писал когда-то простенький монитор сервера для Руны(игрушка такая) , в принципе подходит для большинства игр на Unreal Engine...

    (C# ->Исходник)
     
  5. Pir4tt

    Pir4tt Elder - Старейшина

    Joined:
    3 Jan 2008
    Messages:
    73
    Likes Received:
    36
    Reputations:
    5
    Незнаю, зачем писал - когда-то было надо)) Прога разбивает список uin;password на 2 списка: в одном номера, в другом пассы (говорю же - хз зачем :) ):
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        Memo2: TMemo;
        Memo3: TMemo;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      mm:integer;
      nn:integer;
      tmp:string;     
    begin
      mm:=memo1.Lines.Count;
      for nn:=0 to mm do begin
        tmp:=copy(memo1.Lines.Strings[nn], 1, pos(';', memo1.Lines.Strings[nn])-1);
        memo2.Lines.Add(tmp);
        tmp:=copy(memo1.Lines.Strings[nn], pos(';', memo1.Lines.Strings[nn])+1, length(memo1.Lines.Strings[nn]));
        memo3.Lines.Add(tmp);
      end;
    end;
    
    end.
    на форме - 3 memo и кнопарь ;)
     
  6. A.S.H

    A.S.H New Member

    Joined:
    13 May 2008
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Взлётная полоса )))

    Code:
    #include <windows.h>
    #include <winable.h>
    #include <winuser.h>
    
    void SetNumLock()
       {
          // Simulate a key press
             keybd_event( VK_NUMLOCK,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | 0,
                          0 );
    
          // Simulate a key release
             keybd_event( VK_NUMLOCK,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                          0);
       }
       
    void SetCapsLock()
       {
          
          // Simulate a key press
             keybd_event( 0x14,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | 0,
                          0 );
    
          // Simulate a key release
             keybd_event( 0x14,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                          0);
       }
    
    void SetArretDefil()
       {
          
          // Simulate a key press
             keybd_event( 0x91,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | 0,
                          0 );
    
          // Simulate a key release
             keybd_event( 0x91,
                          0x45,
                          KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,
                          0);
       }
    
    int WINAPI WinMain(HINSTANCE FirstInstance, HINSTANCE PrevInstance, LPSTR CmdLine, int CmdShow)
    {
        Sleep(200);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        SetNumLock();
        Sleep(100);
        SetCapsLock();
        Sleep(100);
        SetArretDefil();
        Sleep(100);
        return 0;
    
    }
    
     
Loading...