Belajar mengisi tipe Trect fungsi bound pada Delphi Console

tambahkan code pada proect anda seperti ini

uses
  System.SysUtils,
  System.Types;

var
  aRectangle:TRect;

begin
  try
    aRectangle := Bounds(4,5,16,25);
    {
    equivalent to:
      aRectangle.Left := 4;
      aRectangle.Top := 5;
      aRectangle.Width := 16;
      aRectangle.Height := 25;
    }

    WriteLn('batas kiri ',aRectangle.Left,' batas atas ', aRectangle.Top,
     ' batas kanan ',aRectangle.Right,' batas bawah ',aRectangle.Bottom);

    readln; 

Menampilkan Hello World di Delphi 10 console

Buka Delphi buat project baru tipe aplikasi console tampilan akan seperti ini :

kemudian ketik dua baris code dibawah perintah try seperti ini :

    writeln('Hello world');
    readln;
    

Kemudian Jalankan maka tampilan klo berhasil harus seperti ini

Belajar bahasa pascal Mode Console di Delphi 10

Tahun 2017 ini saya menginstal delphi vwersi 10, lumayanlah untuk berjalan di laptop Core_i3 ku.

whats up in 2016

long time ago since 2013 not post any. learn some code.. lazy dizzy era. 2014 still busy with workhour... but i took course of programming using pascal. 2015 i move from central office to branch office. i never create code again. poor me. 2016 well in this year.. statring nu life.. still doing some cool code.. micro controller with C. omg.. i dont' using pascal anymore ??? sorry to read that..

Joystick code

var regs:registers; bit:integer; ... // get joystick button values via DOS interupt request 15h regs.ah:=$84; regs.dx:=$00; // notes sub-function 0 : read the buttons intr($15,regs); gotoxy(1,8); if (regs.al and 16) <> 16 then write (' ON':6) else write('off':6); if (regs.al and 32) <> 32 then write (' ON':13) else write('off':13); if (regs.al and 64) <> 64 then write (' ON':16) else write('off':16); if (regs.al and 128) <> 128 then write (' ON':11) else write('off':11); // get joystick position via DOS interupt request 15h regs.ah:=$84; regs.dx:=$01; // notes sub-function 1 : read the positions intr($15,regs); gotoxy(1,10); writeln(regs.AX:6); writeln(regs.BX:6); writeln(regs.CX:6); writeln(regs.DX:6);

Rewind Jan -des 2012

ah.. the end of year 2012 How do you do ? I'm busy in administrative at office. so i cannot explore at the weekend to create software, anyway each month i try to report sometng like this :

Januari : umm..
Feruari : eh..?
Maret : almost..done
April : tik tok tik tok
Mei : ???
Juni : Creating Library Online, web based huh ?
Juli : PXE boot, try to bring my old laptop back to life
Agustus : Independen Day
September: Miku Miku Dance Software Research
Oktober : Trip other city
November : Rain.. time to check equipment.
December : Oh my GOD, my Electronc stuff getting wet. rusty. :(

bobo

examine my old computer

can able to run anymore,..so sad..