Anasayfa > Genel > Kelime EzberIM – Kelime Eşleştir Oyunu

Kelime EzberIM – Kelime Eşleştir Oyunu


Merhaba,

Yine bir ufak bir çalışmanın ürünü diyebileceğim oyunu Kelime EzberIM içerisine yerleştirebildim.

Bu kez biraz yer bulma çalışması yapmanız gerekli…

Ortaya karışık olarak serpiştirilmiş olan kelimelerin diğer dildeki karşılığını bulmak ister misiniz?

Bunun için yapmanız gereken çok kolay yazılımın son versiyonunu indirmek ve Dosya / Kelime Oyunları alt menüsünden seçim yapmak.

Not: Oyunların herhangi bir puanlandırmaya katkısı yok zira tamamen eğlence amaçlı.

Biraz ekran görüntüsü:

Match_Words_Game_MenuMatch_Words_Game_Find_Right_Place

Match_Words_Game_Clear_Auto

Match_Words_Game_Final

İyi eğlenceler…

Kategoriler:Genel
  1. mehmet
    Nisan 29, 2015, 10:15 pm

    verilen örnekler için teşekkür ederim.Yalnız bir konuda tüm forumlara bakmaya çalıştığım halde delphi ile modbus haberleşmenin nasıl yapılacağı,nasıl komut gönderip alma komutlarını belirten bilgi bulamıyorum.Elimde entes mpr63 enerji analizörü varbilgileri alıp veri tabanına yüklemek istiyorum.Yardımcı olabilirseniz sevinirim

  2. Mayıs 17, 2015, 3:01 pm

    lazarus programında switch case yapısını nasıl kullanabilirim? switch case yapısıyla ilgili bi örnek bulamadım yardımcı olabilirmisiniz?

    • mehmetulukaya
      Mayıs 17, 2015, 9:14 pm

      Merhaba Saliha Korkmaz,

      Swich case mantığı C dili için geçerli pascaldaki yapı çok az farklı.

      Örneklerden gidersek:
      Var
      com_state : integer;

      procedure mytimer(sender : tobject);
      begin

      case com_state of

      0: begin
      // bla bla codes..
      send_datas(bla_bla);
      inc(com_state);
      end;

      1: begin
      // bla bla codes..
      look_at_the_data(com_port_buffer);
      inc(com_state);
      end;

      2: begin
      // bla bla codes..
      if all_datas_stored_etc then
      com_state := 0;
      end;

      end;

      end;

      Com_State değişkeni bir tam sayı ve kendisinin durumunu ilgili şartlara göre değiştiriyor buna state machine diyoruz.

      Bunun dışında object pascal modu seçildiyse:

      {$mode objfpc}
      var s: string;
      begin
      case s of
      ‘abc’: s := ‘123’;
      ‘111’: s := ”;
      end;
      end.

      şeklinde de kontroller yapmak mümkün.

      Ayrıca

      TUpDownDirection = (updNone, updUp, updDown);
      .
      .
      .

      procedure TForm1.UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: SmallInt; Direction: TUpDownDirection);
      begin
      case Direction of
      updUp: begin
      Edit1.Text := IntToStr(NewValue);
      end;
      updDown: begin
      Edit1.Text := IntToStr(NewValue);
      end;
      end;
      end;

      direction ile ifade edilen değişkenlerde de kullanılabilir.

      Umarım faydalı olmuştur.

      Ayrıca lazarus’un forum sitesinde de örneklere ulaşabilirsiniz.

      Selamlar iyi çalışmalar

  3. Mayıs 17, 2015, 10:45 pm

    çok teşekkür ederim yardımınız için

    • mehmetulukaya
      Mayıs 18, 2015, 7:49 am

      Rica ederim yardımcı olabildiysem ne mutlu.
      Selamlar

  1. No trackbacks yet.

Görüşlerinizi belirtin

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s