intokii

 

Why wedding ring should put on the fourth finger??
Pls follow the below step, really god made this a miracle (this is from a Chinese excerpt)

 

Firstly, show your palm, center finger bend and put together back to back Secondly, the rest 4 fingers tips to tips

Game begins....follow the below arrangement,
5 finger but only 1 pair can split.

 

Try to open your thumb, the thumb represents parents, it can be open because all human does go thru sick and dead. Which are our parents will leave us one day.

 

Please close up your thumb, then open your second finger, the finger represent brothers and sisters, they do have their own family which is too they will leave us too.

 

Now close up your second finger, open up your little finger, this represent your children. Sooner or later they too will leave us for they got they own living to live.

 

Nevertheless, close up your little finger, try to open your fourth finger which we put our wedding ring; you will be surprise to find that it cannot be open at all. Because it represent husband and wife, this whole life you will be attach to each other.

 

You can Embed prayer times for islands of maldives using feeds and links provided by Ekuverin prayer Times service..

If you are a new to web-Development you can use image or javascript links

Also and xml feed is provided for experienced developers

 

to watch new videos visit http://www.youtube.com/imintox

yenii  videoları izlemek için http://www.youtube.com 'i ziyaret ediniz..

 

Join function joins the two arrays send as parameters and returns back the result sorted array.

private int[] join(int[] array1, int[] array2)

        {

            int array1Index = 0, array2Index = 0, finalArrayIndex = 0;

            int[] finalArray = new int[array1.Length + array2.Length];

 

            while ((array1Index < array1.Length) && (array2Index < array2.Length))

            {

                if (array1[array1Index] < array2[array2Index])

                    finalArray[finalArrayIndex++] = array1[array1Index++];

                else

                    finalArray[finalArrayIndex++] = array2[array2Index++];

            }

            if (array1Index < array1.Length)

                while (array1Index < array1.Length)

                    finalArray[finalArrayIndex++] = array1[array1Index++];

            else

                while (array2Index < array2.Length)

                    finalArray[finalArrayIndex++] = array2[array2Index++];

            return finalArray;

        }

Download Demo (Source C#)

The functions below are used to sort array org over temp array.

private int[] org;

private int[] temp;

private void doMergeSort(int left, int right)

        {

            int middle;

            if (right > left)

            {

                middle = (right + left) / 2;

                doMergeSort(left, middle);

                doMergeSort(middle + 1, right);

                doMerge(left, middle + 1, right);

            }

        }

 

        private void doMerge(int left, int middle, int right)

        {

            int leftEnd = middle - 1;

            int tempIndex = left;

            int length = right - left + 1;

 

            while ((left <= leftEnd) && (middle <= right))

            {

                if (org[left] <= org[middle])

                    temp[tempIndex++] = org[left++];

                else

                    temp[tempIndex++] = org[middle++];

            }

            while (left <= leftEnd)

                temp[tempIndex++] = org[left++];

 

            while (middle <= right)

                temp[tempIndex++] = org[middle++];

 

            for (int i = 0; i < length; i++)

            {

                org[right] = temp[right];

                right--;

            }

        }

Download Demo Project (C# Source)

Well creating dynamic TBitbtn… In this program each TBitBtn represents a room in a hotel..

Download Demo Project (full source Delphi)

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DateUtils, Buttons, unit2;

 

type

  TRoom = class(TBitBtn)

  private

    oda_no,oda_kat:integer;

  protected

    procedure setOdano(val:integer);

    procedure setOdakat(val:integer);

    function gunOku:integer;

  public

    adSoyad:string;

    girTarih:Tdatetime;

  published

    property odaNo:integer read oda_no write setOdano;

    property odakat:integer read oda_kat write setOdakat;

    property gun:integer read gunOku;

  end;

 

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    txtkatsayi: TEdit;

    txtodasayi: TEdit;

    Button1: TButton;

    Label3: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure edit(Sender:TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    topstart:integer;

    Procedure createOda(kat:integer;odasayi:integer);

 

  end;

 

var

  Form1: TForm1;

  rooms:array of array of TRoom ;

implementation

 

{$R *.dfm}

 

{ TRoom }

 

function TRoom.gunOku: integer;

begin

      result:=DaysBetween(now,girTarih);

end;

 

procedure TRoom.setOdakat(val: integer);

var

  p:string;

begin

  oda_kat:=val;

  p:= format('%1d%02d',[oda_kat,oda_no]);

  if (p[2]=' ') then

    p[2]:='0';

  caption:=p;

end;

 

procedure TRoom.setOdano(val: integer);

var

  p:string;

begin

  oda_no:=val;

  p:= format('%1d%02d',[oda_kat,oda_no]);

  if (p[2]=' ') then

    p[2]:='0';

  caption:=p;

end;

 

procedure TForm1.createOda(kat, odasayi: integer);

var

i,j,jk:integer;

begin

  if (kat>9) or (odasayi>99) then

    showmessage('kat sayýsý <= 9 ve oda sayýsý <= 99 olmalý!')

  else

  begin

    for i:=1 to kat do

    begin

          jk:=1;

          for j:=1 to odasayi do

          begin

              rooms[i,j]:=TRoom.Create(form1);

              rooms[i,j].Parent:=form1;

              rooms[i,j].oda_no:=j;

              rooms[i,j].odakat:=i;

              rooms[i,j].Top:=((i-1)*40)+topstart;

              rooms[i,j].Left:=((jk-1)*40)+50;

              rooms[i,j].width:=35;

              rooms[i,j].Height:=30;

              rooms[i,j].Font.Color:=clGreen;

              rooms[i,j].Color:=clBlue;

              rooms[i,j].OnClick:=edit;

              if (jk=15) then

              begin

                   topstart := topstart + 40;

                   jk:=0;

              end;

              jk:=jk+1;

          end;

           topstart := topstart + 40;

 

    end;

    button1.Enabled:=false;

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

topstart:=80;

setlength(rooms,10,100);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if (txtkatsayi.Text='') or (txtodasayi.Text='') then

  showmessage('oda sayýsý ve kat sayýsý boþ olmaz!')

else

  createOda(strtoint(txtkatsayi.Text),strtoint(txtodasayi.Text));

end;

 

procedure TForm1.edit(Sender: TObject);

var

loda,lkat:integer;

begin

    loda:=TRoom(Sender).odaNo;

    lkat:=TRoom(Sender).odakat;

    form2.txtKat.Text:=inttostr(lkat);

    form2.txtOda.Text:=inttostr(loda);

    if (TRoom(Sender).Font.Color=clred) then

    begin

         form2.txtAd.Text := TRoom(Sender).adSoyad;

         form2.txtTarih.DateTime := TRoom(Sender).girTarih;

         form2.txtAd.Enabled:=false;

         form2.txtTarih.enabled:=false;

         form2.btngunoku.Visible:=true;

         form2.btnCheckout.Visible:=true;

    end

    else

    begin

         form2.txtAd.Text := '';

         form2.txtTarih.DateTime := now;

         form2.txtAd.Enabled:=true;

         form2.txtTarih.enabled:=true;

         form2.btngunoku.Visible:=false;

         form2.btnCheckout.Visible:=false;

    end;

    if(form2.ShowModal=mrOK) then

          begin

            if (form2.txtAd.Text='') then

                showmessage('ad, soyadý giriniz!!')

            else

            begin

              TRoom(Sender).adSoyad:=form2.txtAd.Text;

              TRoom(Sender).girTarih:=form2.txtTarih.DateTime;

              TRoom(Sender).Font.Color:=clRed;

            end;

          end;

end;

 

end.

Download Full Source (Delphi) 

 

unit Codes;

 

interface

 

uses

  SysUtils, Classes;

 

type

  TCode = class(TComponent)

  private

    Fstr:String;

    chan:TNotifyEvent;

    function crc16ccitt(poly:word;veriString:string;initial:word): word;

  protected

    procedure setStr(v:string);

    function getStr:string;

    function getChecksum:string;

    procedure doChan;virtual;

  public

    constructor create(AO:Tcomponent);override;

  published

    property veriStr:string read getstr write setstr;

    property onChan:TNotifyEvent read chan write chan;

    property checksum:string read getChecksum;

  end;

 

procedure Register;

 

implementation

 

procedure Register;

begin

  RegisterComponents('Samples', [TCode]);

end;

 

{ TCode }

 

function TCode.crc16ccitt(poly: word; veriString: string;

  initial: word): word;

var

  i,j: Integer;

begin

Result:=initial;

for i:=1 to Length(veriString) do begin

  Result:=Result xor (ord(veriString[i]) shl 8);

 

  for j:=0 to 7 do begin

    if (Result and $8000)<>0 then Result:=(Result shl 1) xor poly

    else Result:=Result shl 1;

    end;

  end;

 

Result:=Result and $ffff;

end;

 

constructor TCode.create(AO: Tcomponent);

begin

  inherited;

  Fstr:='TEST';

end;

 

procedure TCode.doChan;

begin

    if Assigned(chan) then

      chan(self);

end;

 

function TCode.getChecksum: string;

begin

      result:=inttostr(crc16ccitt($1021,Fstr,$ffff));

end;

 

function TCode.getStr: string;

begin

      result:=Fstr;

end;

 

procedure TCode.setStr(v: string);

begin

     Fstr:=v;

end;

 

end.