System Digital of Dispenser With Electronic Workbench

Pada saat diberikan tegangan atau alat ini dinyalakan secara bersamaan lampu POWER dan lampu WARM menyala serta memperlihatkan tampilan waktu yang sedang berjalan. Tidak lama kemudian dalam waktu 60 detik lampu HOT menyala dan lampu WARM mati. Dan begitu selanjutnya dengan periode waktu yang sama saat menyalakan lampu HOT. Dan untuk menghentikan nyala lampu juga tampilan waktu yang sedang berjalan hanya dengan menekan tombol OF.Berdasarkan hasil pengujian dari software Electronic Workbench dapat disimpulkan bahwa alat ini dapat bekerja secara maksimum dari mulai pemberian tegangan sampai proses tahap akhir atau dapat diperoleh kesimpulan bahwa...

Read more »

Making Tetris with Pascal

{===================================================x= Program : Tetris 2 Player ==========================================================================}program tetris_2player;uses crt;type _points = array [1..4] of record x,y : longint; end; tetris = record points : _points; cshape, nshape, xmodel, xtetris, ymodel, ytetris : longint; end;Const template : array [1..8] of _points = (((x:1; y:1),(x:1; y:2),(x:2; y:1),(x:2; y:2)), ((x:2; y:1),(x:1; y:1),(x:3; y:1),(x:4; y:1)), ((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:3)), ((x:2; y:2),(x:2; y:1),(x:2; y:3),(x:1; y:3)), ((x:1; y:2),(x:1; y:1),(x:2; y:2),(x:2; y:3)), ((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:1; y:3)), ((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:2)), ((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:2; y:3)));var field : array [1..79,1..25]...

Read more »

Membuat Bentuk Kotak dengan Emulator8086 (Asembler)

org 100hmov ah,09hlea dx,kal0int 21hmov ah,01hint 21hmov bl,almov ah,09hlea dx,lnint 21hmov ah,09hlea dx,kal1int 21hmov ah,09hlea dx,lnint 21hmov ah,09hlea dx,lnint 21hsub bl,30hmov cl,bllea bh,clmulai:cmp cl,1ja cetakje satujb exitsatu:mov ah,02hmov dl,'*'int 21hjmp exitcetak:mov ah,09hlea dx,barisint 21hloop cetakmov ah,09hlea dx,aint 21hsub bl,02hmov cl,bldua:cmp bl,0je pindahjne kosongkosong:cmp cl,0jne tambah1je tambah2tambah1:mov ah,09hlea dx,spasiint 21hloop kosongtambah2:mov ah,09hlea dx,baris2int 21hmov ah,09hlea dx,aint 21hcmp bl,0je bandingsub bl,01hbanding:cmp bl,0je pindahlea dl,bhsub dl,01hmov cl,dlloop kosongpindah:sub bh,01hmov cl,bhbawah:cmp cl,0jne akhirjmp exitakhir:mov ah,09hlea dx,baris2int 21hloop bawahexit:retkal0 db 'Masukan jumlah titik sisinya : $'kal1 db 13,10,13,10,09,...

Read more »