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..

PXE BOOT

Q:apa itu pxe boot ? A:boot lewat lan. Q:apa itu boot? apa itu lan? A:wah butuh kuliah jaringan neh :-) saya dapat laptop yang parah kondisinya. cdrom rusak, harddisk rusak gak ada floppydisk, boot lewat usb gak bisa. padahal software itu nyawanya laptop. jadi ? ya tanpa software maka laptop mati mau ganti harddisk biayanya mahal. lalu? ada satu jalan lagi boot lewat lan. nah butuh satu komputer sebagai file server sehingga laptop ini dijadikan terminal dan untuk transfer file. (ftp) ibaratnya laptop ini menyambung nyawa dengan server tersebut. pertanyaannya bagaiman mengkonfigurasi TFTP server ? download programnya di tftp.com siapkan file boot images, saya menggunakan bart boot dan win98se diskboot ukurannya sebesar 2,8MB download file yg dibutuhkan sehingga isi c:\output sbb : - buat subdir lagi namanya \pxeconfig.cfg\ didalam subdir berisi file DEFAULT edit dengan notepad atau text editor lain isinya sebagai berikut : default menu ====== pxe boot menu ==== boot bard disk kernel= boot win98 Nah sisi server siap untuk menerima koneksi

perpus online

berikut ini contoh desain aku ambil saja dari undip plus foto chibi di FB :-) anda punya desain kartu anggota perpustakaan yang lebih menarik ?

perpus online laiinya silahkan coba : http://siakad.umuslim.ac.id/simpus/index.php/main_view/buku/search http://perpustakaan.upi.edu/index.php?option=com_content&view=article&id=89&Itemid=201