.::Eralp Erat's Solutions Diary::..

{#Every way that I Can share!}

8 ve 9 yaşında ki canavarlar :)

Şubat 23
by IThinkable 23. Şubat 2009 09:16
Biri daha 9 yaşında diğeri de daha 8 yaşında..Yaptıklarına bakılırsa hiçte öyle değiller.Aslına bakarsanız onlar için üzülmüyor değilim , ömrünün sonuna dek laboratuvarlarda geçecek bir hayat muhtemelen..:)

Yine de sevdim kerataları. :) Kimlerden bahsediyor bu diyorsunuz değil mi içinizden şimdi , durun hemen söyleyeyim Lim Ding Wen'den adlı malezyalı bir erkek ve diğeri de Marko Calasan isimli şeker mi şeker Makedonyalı bir kız çocuğu..

 

//Resim Kaynak : www.uruninceleme.com

Daha fazla bilgi için Lim'in kendi sitesine bir göz atın. Tıklayın

Hatta Lim'in kardeşleri için yazdığı bir oyunun koduda aşağıda üstelik bu oyun iphone için yazılmış bir oyun..



// Resim Kaynak :CHIP

program DoodleKids;
uses Types, Quickdraw, Events, miscTool;
var
etypes,color            : integer;
key, size, shape, x, y, i : integer;
event                 : eventRecord;
  mouse                 : point;
  tri                   : handle;
  rec                   : rect;
  animate, draw         : boolean;
  tick                    : longInt;
{ Color cycle }
procedure cycle;
begin 
  if animate then begin
    color := getColorEntry(0, 1);
    for i := 1 to 14 do
      setColorEntry(0, i,
        getColorEntry(0, i + 1));
    setColorEntry(0, 15, color);
  end;     
end;
{ Start drawing }
procedure startDraw;
begin  
  if draw then begin
    size := random mod 9 + 3;              
    getMouse(mouse);
    x := mouse.h;
    y := mouse.v;       
    setSolidPenPat(random mod 15 + 1);
if shape < 5 then
      setRect(rec, x - size div 2,
        y - size div 2, x + size div 2,
        y + size div 2);               
    if (shape > 6) and (shape < 9) then begin
      tri := openPoly;
        moveTo(x - size div 2, y + size div 2);
        line(size, 0);
        lineTo(x, y - size div 2);
      closePoly;
    end;                            
    { Draw shape }
    case shape of
      1: paintOval(rec);
      2: paintRect(rec);
      3: frameOval(rec);
      4: frameRect(rec);
      5: begin
        moveTo(x + size div 2,
          y + size div 2);
        lineTo(x - size div 2,
          y - size div 2);
      end; 
      6: begin
        moveTo(x - size div 2,
          y + size div 2);
        lineTo(x + size div 2,
          y - size div 2);
      end; 
      7: paintPoly(tri);
      8: framePoly(tri);
      9: begin
        moveTo(x + size div 2,
          y + size div 2);
        lineTo(x - size div 2,
          y - size div 2);
        moveTo(x - size div 2,
          y + size div 2);
        lineTo(x + size div 2,
          y - size div 2);
        moveTo(x - size div 2, y);
        line(size,0);
        moveTo(x,y - size div 2);
        line(0,size);
      end; 
    end;
  end;                                 
end;   
begin
  etypes := keyDownMask + mDownMask + mUpMask;
  tick := getTick; 
  { Setup }
  graphics(320);
  clearScreen(0); 
  while true do begin
    startDraw;
    if getTick - tick > 9 then begin
      tick := getTick;
      cycle;
    end;         
    if getNextEvent(etypes,event) then begin
      case event.what of       
        { Keys }       
        keyDownEvt: begin
          key := event.message;
            case key of
            27: halt;
            32: begin
              if not animate then
                animate := true
              else animate := false; 
            end;     
            127: clearScreen(0);
          end;   
        end;       
        { Mouse }       
        mouseDownEvt: begin
          shape := random mod 9 + 1;
          draw := true;
        end;  
        mouseUpEvt: draw := false;
      end;
    end;
  end;
end.
Ne diyelim analar ne aslanlar doğuruyor.. :)

Sevgiler.

E2


3 kişi tarafından 5.0 olarak değerlendirildi

  • Currently 5/5 Stars.
  • 1
  • 2
  • 3
  • 4
  • 5

Tags:

Genel

E-mail | Kick it! | DZone it! | del.icio.us
Permalink | Yorumlar (2) | Post RSSRSS comment feed

Yorumlar

Yorumlar kapalı.

Yazar Hakkında

Eralp
Uludağ Üniversitesi bilgisayar programcılığı sonrasında işletme fakültesini bitiren Erat ; 1999 yılından bu yana yazılım sektörünün içerisinde yer almış ve ilgili olduğu projelerin çözüm üretilmesin de aktif olarak rol oynamıştır.Yaklaşık 6 yılını Türkiye’nin dört bir tarafında yer alan devlet hastanelerin bilgi yönetim sistemlerini tasarlamak ve geliştirmekle geçirmiş ; LIS , IVR ve Linux sistemlerinin entegrasyonu konusunda uzmanlaşmıştır.Bu konuda halen danışmanlık hizmeti vermektedir..Uzun yıllar “Object Pascal” ile uygulama geliştirmiştir.MCP , MCAD.NET ve MCSD.NET,MCTS (MS CRM 4 Customization) unvanlarına sahiptir..Aynı zamanda Mobile Cihazlar konusunda 2007 yılında Microsoft tarafından MVP unvanına layık görülmüştür.
Çeşitli kurumsal projelerin mimari tasarım ve yazılımlarını gerçekleştirmiştir. Yazılım konusunda en büyük hayali, Türkiye’mizin bir yazılım üssü haline gelebilmesinde ön ayak olmaktır. Yazılımın belli bir forma sıkıştırılmasından hiç haz etmeyen ve fanatikliği değil sadece kaliteyi ön plana çıkarabilmek adına deneyimlerini ve yeni teknolojiler hakkında oluşan bilgi ve birikimlerini üniversitelerde genç dimağlarla paylaşmaktan büyük mutluluk duymaktadır. Halen büyük ölçekli kurumsal çözümler üreten bir yazılım evinde kıdemli yazılım mühendisi olarak çalışmaktadır.2007 yılında Boğaziçi Üniversitesi Makine Mühendisliği bölümünde C# eğitimleri vermiştir.Sakarya Üniversitesi e-Bilişim dalında MBA yapmaktadır.

Yazılım geliştirme konusunda birebir özel ders verilmektedir.Konuyla ilgili lütfen eralp.erat@gmail.com adresine iletişim bilgilerini mail atınız.

Calendar

<<  Şubat 2010  >>
PaSaÇaPeCuCuPa
25262728293031
1234567
891011121314
15161718192021
22232425262728
1234567

View posts in large calendar