daftar vps gratis

Mungkin sudah banyak yang tau dari maksud judul diatas, ya benar sekali free trial artinya percobaan gratis. Dalam arti luas saya akan coba paparkan VPS Free Trial adalah VPS percobaan yang bersifat sementara, adapun masa percobaan setiap VPS beragam mulai dari 1 jam bahkan sampai 1 tahun. Berikut daftar penyedia VPS free trial.

VPS Free Trial (Without Credit Card)

http://cloudsigma.com/ (7 days free trails) <= Recommended

https://secure.upcloud.com/signup (14 days free trial) <= Recommended

https://www.linode.com/ (4 hours)

http://www.cloudup.it/ (14 days free trails)

https://east1.openhosting.com/accounts/trial/ (5 days free trails)

http://www.elastichosts.com/cloud-hosting/free-trial (5 days free trails)

https://eduvps.net/‎

http://www.desktone.com/free_trial (7 days free trails)

http://eurobyte.ru/ (14 days free trails)

http://www.atum.com/ (15 days free trails)

http://www.cloudee.eu/preorder (6 days free trails)

http://www.cloudshare.com/ (14 days free trails)

http://www.rsaweb.co.za/cloud-servers-free-trial/ (7 days free trails)

http://www.vps.me/ (may be for more than one year)

http://www.kimsufi.co.uk/vks/geovks.xml (VKS) (may be for more than one year)

http://www.sublimeip.com/services/cloud/free-trial/ (5 days free trails)

https://www.gandi.net/hosting/trial (7 days free trails)

VPS Free Trial (Credit Card Required)

https://www.digitalocean.com/‎ (2 month free trials)

http://aws.amazon.com/ (for one year) 

http://www.softlayer.com/info/special-free-cloud (for one month)

http://www.windowsazure.com/en-us/pricing/free-trial/ (90 days free trails)

https://chunkhost.com/ (14 days free trails)

http://www.triple8.net/vps.htm (7 days free trails)

https://www.zunicore.com/ (14 days free trails)

http://instantappz.com/ (7 days free trails)

http://www.rsawebcloud.com/ (7 days free trails)

http://www.dedicatedserver.com/ (they will give you $200 to use)

http://www.gogrid.com/ (VM) (they will give you $100 to use)

http://www.phoenixnap.com/secured-cloud/ (for one month) (they will give you $50 to use)

https://airvm.cloudhostedservers.com/products.php?trial=go

http://www.serverlove.com/free-trial/ (for one month) (they will give you £15 free credit to use)

https://cloud.atlantic.net/index.php?page=newsignup (for one month) (they will give you $15 free credit to use).

Forum Diskusi Free VPS

http://lowendtalk.com/

http://freevps.us/

Update VPS Free Trial

https://www.profitbricks.com/ (14 days free trails)

https://setupvps.com/clients/cart/&step=5&cat_id=register (3 days free trails)

https://cloudstore.interoute.com/cs.product/vdc/freetrial/  (14 days free trails)

https://cos.cloudorange.in/accounts/trial/ (5 day free trial)

https://incloudibly.com/en/cart/add/13/trial (7-day trial)

http://greenqloud.com/  (7-day trial)

http://www.joyent.com/ (may be 2 month trial)

https://www.exoscale.ch/ (trial 5 days)

https://ninefold.com/  (Unlimited for 30 days)

https://agile.internap.com/signup/register (with promocode: TRYINTERNAP)

https://console.entercloudsuite.com/ecs/registration (Free Credit 15€)

Diatas hanya sebagiaan kecil dari beberapa situs penyedia VPS Free Trial, silahkan mencoba bila anda penasaran dengan bagaimana cara kerja VPS. Postingan ini jangan lupa di Bookmarks, karena saya akan selalu berusaha update link vps trial yang terbaru. Terimakasih semoga bermanfaat.

Read More >>

Read more ...

daftar vps gratis

Mungkin sudah banyak yang tau dari maksud judul diatas, ya benar sekali free trial artinya percobaan gratis. Dalam arti luas saya akan coba paparkan VPS Free Trial adalah VPS percobaan yang bersifat sementara, adapun masa percobaan setiap VPS beragam mulai dari 1 jam bahkan sampai 1 tahun. Berikut daftar penyedia VPS free trial.

VPS Free Trial (Without Credit Card)

http://cloudsigma.com/ (7 days free trails) <= Recommended

https://secure.upcloud.com/signup (14 days free trial) <= Recommended

https://www.linode.com/ (4 hours)

http://www.cloudup.it/ (14 days free trails)

https://east1.openhosting.com/accounts/trial/ (5 days free trails)

http://www.elastichosts.com/cloud-hosting/free-trial (5 days free trails)

https://eduvps.net/‎

http://www.desktone.com/free_trial (7 days free trails)

http://eurobyte.ru/ (14 days free trails)

http://www.atum.com/ (15 days free trails)

http://www.cloudee.eu/preorder (6 days free trails)

http://www.cloudshare.com/ (14 days free trails)

http://www.rsaweb.co.za/cloud-servers-free-trial/ (7 days free trails)

http://www.vps.me/ (may be for more than one year)

http://www.kimsufi.co.uk/vks/geovks.xml (VKS) (may be for more than one year)

http://www.sublimeip.com/services/cloud/free-trial/ (5 days free trails)

https://www.gandi.net/hosting/trial (7 days free trails)

VPS Free Trial (Credit Card Required)

https://www.digitalocean.com/‎ (2 month free trials)

http://aws.amazon.com/ (for one year) 

http://www.softlayer.com/info/special-free-cloud (for one month)

http://www.windowsazure.com/en-us/pricing/free-trial/ (90 days free trails)

https://chunkhost.com/ (14 days free trails)

http://www.triple8.net/vps.htm (7 days free trails)

https://www.zunicore.com/ (14 days free trails)

http://instantappz.com/ (7 days free trails)

http://www.rsawebcloud.com/ (7 days free trails)

http://www.dedicatedserver.com/ (they will give you $200 to use)

http://www.gogrid.com/ (VM) (they will give you $100 to use)

http://www.phoenixnap.com/secured-cloud/ (for one month) (they will give you $50 to use)

https://airvm.cloudhostedservers.com/products.php?trial=go

http://www.serverlove.com/free-trial/ (for one month) (they will give you £15 free credit to use)

https://cloud.atlantic.net/index.php?page=newsignup (for one month) (they will give you $15 free credit to use).

Forum Diskusi Free VPS

http://lowendtalk.com/

http://freevps.us/

Update VPS Free Trial

https://www.profitbricks.com/ (14 days free trails)

https://setupvps.com/clients/cart/&step=5&cat_id=register (3 days free trails)

https://cloudstore.interoute.com/cs.product/vdc/freetrial/  (14 days free trails)

https://cos.cloudorange.in/accounts/trial/ (5 day free trial)

https://incloudibly.com/en/cart/add/13/trial (7-day trial)

http://greenqloud.com/  (7-day trial)

http://www.joyent.com/ (may be 2 month trial)

https://www.exoscale.ch/ (trial 5 days)

https://ninefold.com/  (Unlimited for 30 days)

https://agile.internap.com/signup/register (with promocode: TRYINTERNAP)

https://console.entercloudsuite.com/ecs/registration (Free Credit 15€)

Diatas hanya sebagiaan kecil dari beberapa situs penyedia VPS Free Trial, silahkan mencoba bila anda penasaran dengan bagaimana cara kerja VPS. Postingan ini jangan lupa di Bookmarks, karena saya akan selalu berusaha update link vps trial yang terbaru. Terimakasih semoga bermanfaat.

Read More >>

Read more ...

Daftar Instruksi Bahasa Assembly MCS-51

Dalam program bahasa assembly terdapat 2 jenis yang kita tulis dalam program: 1. Assembly Directive (yaitu merupakan kode yang menjadi arahan bagi assembler/compiler untuk menata program) 2. Instruksi (yaitu kode yang harus dieksekusi oleh CPU mikrokontroler dengan melakukan operasi tertentu sesuai dengan daftar yang sudah tertanam dalam CPU) Daftar Assembly Directive Assembly Directive Keterangan EQU Pendefinisian konstanta DB Pendefinisian data dengan ukuran satuan 1 byte DW Pendefinisian data dengan ukuran satuan 1 word DBIT Pendefinisian data dengan ukuran satuan 1 bit DS Pemesanan tempat penyimpanan data di RAM ORG Inisialisasi alamat mulai program END Penanda akhir program CSEG Penanda penempatan di code segment XSEG Penanda penempatan di external data segment DSEG Penanda penempatan di internal direct data segment ISEG Penanda penempatan di internal indirect data segment BSEG Penanda penempatan di bit data segment CODE Penanda mulai pendefinisian program XDATA Pendefinisian external data DATA Pendefinisian internal direct data IDATA Pendefinisian internal indirect data BIT Pendefinisian data bit #INCLUDE Mengikutsertakan file program lain Daftar Instruksi Instruksi Keterangan Singkatan ACALL Absolute Call ADD Add ADDC Add with Carry AJMP Absolute Jump ANL AND Logic CJNE Compare and Jump if Not Equal CLR Clear CPL Complement DA Decimal Adjust DEC Decrement DIV Divide DJNZ Decrement and Jump if Not Zero INC Increment JB Jump if Bit Set JBC Jump if Bit Set and Clear Bit JC Jump if Carry Set JMP Jump to Address JNB Jump if Not Bit Set JNC Jump if Carry Not Set JNZ Jump if Accumulator Not Zero JZ Jump if Accumulator Zero LCALL Long Call LJMP Long Jump MOV Move from Memory MOVC Move from Code Memory MOVX Move from Extended Memory MUL Multiply NOP No Operation ORL OR Logic POP Pop Value From Stack PUSH Push Value Onto Stack RET Return From Subroutine RETI Return From Interrupt RL Rotate Left RLC Rotate Left through Carry RR Rotate Right RRC Rotate Right through Carry SETB Set Bit SJMP Short Jump SUBB Subtract With Borrow SWAP Swap Nibbles XCH Exchange Bytes XCHD Exchange Digits XRL Exclusive OR Logic

Read More >>

Read more ...

FLIP-FLOP

FLIP-FLOP merupakan suatu rangkaian yang terdiri sdari dua elemen aktif (Transistor) yang kerjanya saling bergantian. Fungsinya adalah sebagai berikut:
1. Menyimpan bilangan biner
2. Mencacah pulsa
3. Menyerampakkan/men-sinkronkan rangkaian aritmatika
Misalnya : Beberapa full yang dapat dikendalikan
FLIP-FLOP bersifat bistable : dua kondisi yang stabil 0 atau 1. Kondisi ini akan tetap stabil tidak akan berubah jika tidak ada pemicu (input) yang masuk.

JK Flip-Flop
Flip-flop J-K merupakan penyempurnaan dari flip-flop R-S terutama untuk mengatasi masalah osilasi, yaitu dengan adanya umpan balik, serta masalah kondisi terlarang , yaitu pada kondisi masukan J dan K berlogika 1 yang akan membuat kondisi keluaran menjadi berlawanan dengan kondisi keluaran sebelumnya atau dikenal dengan istilah toggle.
-> Diagram JK


-> Skema pengkabelan JK

Pertama-tama pasang IC pada bread board, lalu hubungkan saklar dan IC menggunakan kabel yang tersedia, hubungkan juga IC dengan ground, input power 5V, dan juga output untuk LED. Input J dihubungkan pada kaki 14, Input clock dihubungkan pada kaki 1, Input K dihubungkan pada kaki 3, Voltase/VCC dihubungkan pada kaki 4, D / CLEAR bernilai 1 pada kaki ke 2 pada IC 7473.
-> Tabel Kebenaran

Kelemahan dari flip-flop SR adalah munculnya output yang tidak dapat didefinisikan ketika input S dan R tinggi untuk jenis NOR dan rendah untuk jenis AND. Untuk menanggulangi keadaan tersebut, maka dikembangkan menjadi flip-flop JK yang dibangun utnuk mengantisipasi keadaan terlarang pada SR flip-flop.
MASTER SLAVE JK FLIP FLOP
Sebuah master slave JK Flip Flop di bentuk dari dua buah SR Flip Flop, dimana operasi dari kedua SR Flip Flop tersebut dilakukan secara bergantian, dengan memberi input Clock yang berlawanan pada ke dua SR Flip Flop tersebut. Prinsip dasar dari Master Slave JK adalah: jika Clock diberi input “1”, gerbang AND 1 dan 2 akan aktif, SR Flip Flop ke 1 akan menerima data yang di masukkan melalui input Jdan K, semantara gerbang AND 3 dan 4 tidak aktif, sehingga SR Flip Flop ke 2 tidak ada respon. Sebaliknya jika Clock dari input 0, gerbang 3 dan 4 aktif, slave akan mengeluarkan output di Q dan Q’, sementara master tidak merespon input, karena gerbang AND 1 dan 2 tidak aktif.
skema perkabelan :
Rangkaian JK Flip-Flop:

Skema Pengkabelan :

Master Slave D Flip-Flop
Master Save D Flip-flop merupakan rangkaian flip-flop yang memiliki 2 latch D dan sebuah inverter. Latch yang satu bernama Master dan yang kedua bernama Slave. Master D hanya akan mendeskripsikan diktat yang outputnya hanya dapt diganti selama ujung negatif jam.
Rangkaian Master Slave D Flip-flop :

Skema Master Slave Flip – flop dan IC yang digunakan :

Skema  pengkabelan menggunakan IC 7472

Skema pengkabelan menggunakan IC 7474

IC yang digunakan yaitu IC 7472 dan IC 7474


D FLIP-FLOP (Delay Flip-Flo)
D Flip-Flop memiliki 1 input yang disebut D (Data) serta 2 output yang disebut Q dan Q. Pada dasarnya D lip-flop diperoleh dari SR flip-flop yang salah satu inputnya didapat dengan mengkomplemenkan input yang lain yaitu menambahkan satu gerbang NOT pada masukan.
Prinsip kerja dari D Flip-flop adalah berapapun nilai yang diberikan pada input D akan dikeluarkan dengan nilai yang sama pada output Q. D Flip-Flop diaplikasikan pada rangkaian-rangkaian yang memerlukan penyimpanan data sementara sebelum diprosesberikutnya. Salah satu contoh IC D Flip-flop adalah 74LS75, yang mempunya input Asinkron.
Rangkaian D Flip-Flop:

Selain Flip-flop Set –Riset dan flip-flop J-K ada pula Flip-flop D. sesuai dengan namanya, input flip-flop ini adalah D. flip-flop ini dibangun dengan menggunakan flip-flop Set-Riset seperti gambar dibawah ini :

Dengan adanya gerbang NOT yang masuk ke R , maka setiap inputan yang diumpankan ke D akan memberikan keadaan yang berbeda pada inputan S dan R .
rangkaian D flip flop

tabel kebenaran D flip flop

About these ads

.

Suka Memuat...

Read More >>

Read more ...

Dot Matrix Moving Display

Pemirsa…..Postingan kali ini akan membahas tentang Tulisan Berjalan menggunakan Dot Matrix, atau lebih dikenal dengan dot matrix running text atau led moving sign, itu tuh yang biasa di spbu, di bank, terminal atau tulisan berjalan di papan iklan kalo malam hari biasanya…

Berawal dari iseng belajar Coding dipagi hari sebelum subuh, akhirnya kepikiran untuk membuat source code dot matrix.

Dot Matrix

Meskipun simple, saya harap tulisan ini bisa bermanfaat, khususnya bagi yang bener-bener ingin belajar dot matrix maupun bagi semua para  pengunjung blog disini….

Dot Matrix Running Text

Design Program / Source code dan Design PCB ini sifatnya Gampang-Gampang Susah, saya sendiri tidak bisa mendesign sekali jadi dan harus melewati beberapa experiment/percobaan dan beberapa rintangan, alhamdulillah semua berhasil dilewati…yuk lihat beberapa gambar percobaan yg saya lakukan..

1st trial…menggunakan 2 buah dot matrix 8×8 & minimu system AT89S52

Percobaan Dot matrix pertama kali

Lihat Kabel2nya, semrawut kabeh….tapi tetep Semangat….

ini sifatnya masih Trial…jadi banyak kabel buat jumper

Ini dia rangkaian Minimum system mikrokontroler yang udah jadi :

Minimum system AT89S52

Kalo ini dot matrix 8×8 jumlahnya 5 pcs, sebenarnya bisa di tambah lagi jumlahnya, cukup dengan menamah dotmatrix dan ic shif register-nya

Dot matrix display

Oke..Rasah Kesuen…!!!! Chek This Out…..

Siapkan Dulu Bahan dan Perlengkapannya…..(kayak mo bikin roti aja ya..)

1. PCB polos + pelarutnya (FeCl)
2. AT89S51/AT89S52 (yg murah aja) atau sembarang Microcontroller yg kompatible
3. Dot matrix 8×8 (pagi pemula, saya sarankan pake 8×8 aja)
4. IC 74LS164 atau 74HC164 ( IC Shif register )
5. Cristal 12 Mhz,Capasitor 30 pf dan pendukung Minimum system AT89Sxx
6. IC Regulator 7805
7. Transistor D31D atau TIP 3055 atau TIP 2955 (pilih salah satua aja)
8. Source code dot matrix.hex
9. Power supply atau adaftor
10. dll

Langkah Kerja :
Recomended : Buat denga 1 buah dot matrix 8×8 dulu ya, kalo udh berhasil muncul karakter, bisa di tambah sesukamu….

1. Pastikan dulu pin anoda dan cathoda dot matrix, karena beda produk beda konfigurasi pin-nya dan pasti gk dikasih pinoutnya sama yang jual, saya sarankan beli yang sama (biasanya 1 toko) untuk menentukan pin, biasanya harus cek satu persatu. dot matrix 8×8 ada 16 pin yang menentukan kolom 1 sampai kolom ke 8 dan baris 1 sampai baris ke 8.
2. Gunakan multitester atau kalo gk ada pake batre 1,5-3 volt dan kabel.
3. Klo udh ketemu,lihat gambar skema dan buat pcbnya. untuk membuat pcb dot matrix ini tidak semudah kita menggambar skemanya, hal ini dikarenakan jumlah pin pada dot matrix dan terhubung dengan jumlah pin yg terdapat pada IC mikrokontroler dan shif register.

PCB-PCB nya :

PCB dot matrix display

PCB Minimum system

Read More >>

Read more ...

Accessing PC Parallel Port (LPT Port) With Borland Delphi 7.0 Using Small Port Component

Posted by To Share Wednesday, 24 August 2011 0 comments

Adsense Content. recommended 336 X 300

This article will lead you how to make a program to access input output data in parallel port, simple example, this program is used to turn on and turn of LED which is set in Parallel Port, Data Register in computer (Pin D2 until pin D9) in Parallel Port/ LPT.

The steps are as follows:

Enter the following component in Form 1:

No	Component	Property	Value
1	Shape1	Name	ShpLED1
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
2	Shape2	Name	ShpLED2
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
3	Shape3	Name	ShpLED3
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
4	Shape4	Name	ShpLED4
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
5	Shape5	Name	ShpLED5
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
6	Shape6	Name	ShpLED6
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
7	Shape7	Name	ShpLED7
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
8	Shape8	Name	ShpLED8
		Shape	stCircle
		Height	41
		Width	41
		Brush Color	clWhite
		Brush Style	bsSolid
9	EditText1	Name	EdLED1
		Text	-
10	EditText2	Name	EdLED2
		Text	-
11	EditText3	Name	EdLED3
		Text	-
12	EditText4	Name	EdLED4
		Text	-
13	EditText5	Name	EdLED5
		Text	-
14	EditText6	Name	EdLED6
		Text	-
15	EditText7	Name	EdLED7
		Text	-
16	EditText8	Name	EdLED8
		Text	-
17	Button1	Name	BtnNyalaLED1
		Caption	NyalakanLED1
18	Button2	Name	BtnNyalaLED2
		Caption	NyalakanLED2
19	Button3	Name	BtnNyalaLED3
		Caption	NyalakanLED3
20	Button4	Name	BtnNyalaLED4
		Caption	NyalakanLED4
21	Button5	Name	BtnNyalaLED5
		Caption	NyalakanLED5
22	Button6	Name	BtnNyalaLED6
		Caption	NyalakanLED6
23	Button7	Name	BtnNyalaLED7
		Caption	NyalakanLED7
24	Button8	Name	BtnNyalaLED8
		Caption	NyalakanLED8
25	Button9	Name	BtnMatiLED1
		Caption	MatikanLED1
26	Button10	Name	BtnMatiLED2
		Caption	MatikanLED2
27	Button11	Name	BtnMatiLED3
		Caption	MatikanLED3
28	Button12	Name	BtnMatiLED4
		Caption	MatikanLED4
29	Button13	Name	BtnMatiLED5
		Caption	MatikanLED5
30	Button14	Name	BtnMatiLED6
		Caption	MatikanLED6
31	Button15	Name	BtnMatiLED7
		Caption	MatikanLED7
32	Button16	Name	BtnMatiLED8
		Caption	MatikanLED8
33	Button17	Name	BtnOpenPort
		Caption	Open Port
34	Button18	Name	BtnClosePort
		Caption	CloseProgram
35	SmallPort1	Name	SmPort1

In the monitor will appear image like the following;  

 

Picture1. Accessing PC Parallel Port (LPT Port) With Borland Delphi 7.0 Using Small Port Component : Visualization of the Program which will be made.

Before making listing program (source code) first we decide 2 variables which will be used; those are “data” and “NewData” which mean:

NO.	NAMA KOMPONEN	SOURCE CODE
1	BtnMatiLED1	data := SmPort1.ReadByte($378); baru := data AND 254; SmPort1.WriteByte($378,baru); ShpLED1.Brush.Color := clBlack; EdLED1.Text:='OFF';
2	BtnMatiLED2	data := SmPort1.ReadByte($378); baru := data AND 253; SmPort1.WriteByte($378,baru); ShpLED2.Brush.Color := clBlack; EdLED2.Text:='OFF';
3	BtnMatiLED3	data := SmPort1.ReadByte($378); baru := data AND 251; smport1.WriteByte($378,baru); ShpLED3.Brush.Color := clBlack; EdLED3.Text:='OFF';
4	BtnMatiLED4	data := SmPort1.ReadByte($378); baru := data AND 247 ; SmPort1.WriteByte($378,baru); ShpLED4.Brush.Color := clBlack; EdLED4.Text:='OFF';
5	BtnMatiLED5	data := SmPort1.ReadByte($378); baru := data AND 239; SmPort1.WriteByte($378,baru); ShpLED5.Brush.Color := clBlack; EdLED5.Text:='OFF';
6	BtnMatiLED6	data := SmPort1.ReadByte($378); baru := data AND 223 ; SmPort1.WriteByte($378,baru); ShpLED6.Brush.Color := clBlack; EdLED6.Text:='OFF';
7	BtnMatiLED7	data := SmPort1.ReadByte($378); baru := data AND 191; SmPort1.WriteByte($378,baru); ShpLED7.Brush.Color := clBlack; EdLED7.Text:='OFF';
8	BtnMatiLED8	data :=SmPort1.ReadByte($378); baru := data AND 127; SmPort1.WriteByte($378,baru); ShpLED8.Brush.Color := clBlack; EdLED8.Text:='OFF';
9	BtnNyalaLED1	data := SmPort1.ReadByte($378); baru := data or 1; SmPort1.WriteByte($378,baru); ShpLED1.Brush.Color := clRED; edLED1.Text:='ON';
10	BtnNyalaLED2	data := SmPort1.ReadByte($378); baru := data or 2; SmPort1.WriteByte($378,baru); ShpLED2.Brush.Color := clRED; edLED2.Text:='ON';
11	BtnNyalaLED3	data := SmPort1.ReadByte($378); baru := data or 4; SmPort1.WriteByte($378,baru); ShpLED3.Brush.Color := clRED; edLED3.Text:='ON';
12	BtnNyalaLED4	data := SmPort1.ReadByte($378); baru := data or 8; SmPort1.WriteByte($378,baru); ShpLED4.Brush.Color := clRED; edLED4.Text:='ON';
13	BtnNyalaLED5	data := SmPort1.ReadByte($378); baru := data or 16; SmPort1.WriteByte($378,baru); ShpLED5.Brush.Color := clRED; edLED5.Text:='ON'
14	BtnNyalaLED6	data := SmPort1.ReadByte($378); baru := data or 32; SmPort1.WriteByte($378,baru); ShpLED6.Brush.Color := clRED; edLED6.Text:='ON';
15	BtnNyalaLED7	data := SmPort1.ReadByte($378); baru := data or 64; SmPort1.WriteByte($378,baru); ShpLED7.Brush.Color := clRED; edLED7.Text:='ON';
16	BtnNyalaLED8	data := SmPort1.ReadByte($378); baru := data or 128; SmPort1.WriteByte($378,baru); ShpLED8.Brush.Color := clRED; edLED8.Text:='ON';
17	BtnOpenPort	SmPort1.Opened:=true;
18	BtnCloseProgram	Close;

            “Data” is value that will be read from parallel port in the form of 8 bit data (1 byte)

“New data” is value that will be written to the parallel port after conducted

“Modification” with logical “and” or “or” to conduct bit setting or bit clearing data which is written in the form of 8 bit data (1 byte)

Variable writing decision is conducted under the writing:

var

Form 1:Tform1;

The result is as follows: 

Picture 2. Accessing PC Parallel Port (LPT Port) With Borland Delphi 7.0 Using Small Port Component : variable declaration

The next step is how to make source code program comprehensively so that the program can be used:

Type source code below, appropriate with each component which mean:




result of program execution is like this:  

Picture 3. Accessing PC Parallel Port (LPT Port) With Borland Delphi 7.0 Using Small Port Component : The Result of Program Execution.

 I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing Share To Facebook, Twitter button or just press like button.

Read More >>

Read more ...

Delphi dan Sistem Embedding – Port Serial RS-232

OK sekarang kita akan membuat contoh sederhana interfacing PC dengan mikrokontroler lewat port serial.

Di contoh ini, mikrokontroler digunakan untuk mengendalikan 4 LED dan membaca 4 saklar. Tugas komputer adalah mengendalikan ke-8 LED tersebut dan membaca posisi saklar.

Program Mikrokontroler

Mikrokontroler menggunakan sebuah AT89S52 dan menggunakan bahasa assembler. Berikut skematiknya.

Skematik ini tidak menampilkan rangkaian RS-232, hanya langsung menggunakan symbol COMPIM. Untuk rangkaian RS-232 converter bisa diliat di sini.

AT89S52 bekerja pada frekuensi 11.0592 MHz dan baud rate pada 9600 bps. Tugas utama mikro adalah selalu mengecek data dari port serial, sub-rutinCommand_Receive dan memproses perintah yang diterima, sub-rutinCommand_Process. Perintah menggunakan 1 karakter ASCII, ‘A’ – ‘G’.

Berikut adalah daftar perintah dari PC:

• ‘A’: toggle LED yang terhubung ke P2.0
• ‘B’: toggle LED yang terhubung ke P2.1
• ‘C’: toggle LED yang terhubung ke P2.2
• ‘D’: toggle LED yang terhubung ke P2.3
• ‘E’: semua LED ON
• ‘F’: semua LED OFF
• ‘G’: membaca posisi saklar, jika saklar ON semua mikro akan mengirim ’00′ dan jika OFF semua mikro akan mengirim ’0F’.

Program mikro bisa di download di sini.

Pada dasarnya, mikro memfungsikan port serial pada mode 1 dengan baud rate 9600 bps. Pada saat dimulai program langsung menyalakan semua LED. Dan mikrokontroler sebagian besar menghabiskan waktunya untuk membaca command dari port serial.

Program Komputer

Tampilan program komputer bisa dilihat di bawah ini dan source codenya bisa di download di sini.

Bagian utama dari program Delphi adalah:

Prosedure EnumComport

Prosedure ini adalah prosedure untuk membaca registry untuk mengetahui COM apa saja yang terinstal di komputer. Berikut cuplikan kodenya:

procedure TForm5.EnumComPorts(Ports: TStrings);
var
KeyHandle: HKEY;
ErrCode, Index: Integer;
ValueName, Data: string;
ValueLen, DataLen, ValueType: DWORD;
TmpPorts: TStringList;
begin
ErrCode := RegOpenKeyEx(
HKEY_LOCAL_MACHINE,
‘HARDWARE\DEVICEMAP\SERIALCOMM’,
0,
KEY_READ,
KeyHandle);

if ErrCode <> ERROR_SUCCESS then
begin
//raise EComPortExt.Create(‘EnumComPorts’,CError_RegError, ErrCode);
MessageBox(Handle,’Registry Error’,pchar(Application.Title),MB_OK or MB_ICONERROR);
exit;
end;
TmpPorts := TStringList.Create;
try
Index := 0;
repeat
ValueLen := 256;
DataLen := 256;
SetLength(ValueName, ValueLen);
SetLength(Data, DataLen);
ErrCode := RegEnumValue(
KeyHandle,
Index,
PChar(ValueName),
{$IFDEF DELPHI_4_OR_HIGHER}
Cardinal(ValueLen),
{$ELSE}
ValueLen,
{$ENDIF}
nil,
@ValueType,
PByte(PChar(Data)),
@DataLen);

if ErrCode = ERROR_SUCCESS then
begin
SetLength(Data, DataLen);
TmpPorts.Add(Data);
Inc(Index);
end
else
if ErrCode <> ERROR_NO_MORE_ITEMS then
MessageBox(Handle,’Registry error’,pchar(Application.Title),MB_OK or MB_ICONERROR);

until (ErrCode <> ERROR_SUCCESS) ;

TmpPorts.Sort;
Ports.Assign(TmpPorts);
finally
RegCloseKey(KeyHandle);
TmpPorts.Free;
end;
end;

prosedur ini digunakan di event Combobox1 onDropdown:

procedure TForm5.ComboBox1DropDown(Sender: TObject);
begin
EnumComPorts(ComboBox1.Items);
end;

Pada saat ComboBox1 mengalami even Ondropdown, maka akan ditambahkan item2 baru berupa nama com yang terinstal di PC.

Prosedur Buka COM

ApdComport dibuka oleh button1, button dengan caption “Open”. Berikut cuplikan programnya:

procedure TForm5.Button1Click(Sender: TObject);
var
ComNo:integer;
S:string;
begin
if ComboBox1.ItemIndex=-1  then
begin
MessageBox(Handle,’Please select a COM’,pchar(Application.Title),
MB_OK or MB_ICONERROR);
ComboBox1.SetFocus;
exit;
end;
S:=Copy(ComboBox1.Text,4,Length(ComboBox1.Text)-3);
ComNo:=StrToInt(s);
try
ApdComPort1.ComNumber:=ComNo;
ApdComPort1.Open:=true;
Except
Port_State:=false;
end;
end;

Pertama program mengecek apakah COM sudah dipilih dengan membaca ComboBox1.Itemindex, jika bernilai -1, berarti belum ada com yang dipilih. Program akan menampilkan pesan error. Jika sudah ada com yang terpilih, program akan mengambil nomor comnya, dengan membuang string “COM”.

Lalu apdComport coba dibuka dengan membuat property open menjadi true. Jika gagal, misal karena com yang bersangkutan telah dipakai oleh aplikasi lain, maka sebuah variabel Port_State akan bernilai false. Variable ini digunakan untuk mengecek apakah com telah sukses dibuka atau tidak. Setiap pengiriman atau penerimaan data akan selalu mengecek variable ini. Pengiriman baru bisa dilakukan apabila com telah sukse dibuka, jika tidak akan error.

Menyalakan atau Mematikan LED

Menyalakan atau mematikan LED dilakukan dengan mengirim perintah yang telah ditentukan di atas. LED bisa diatur secara individu atau secara bersamaan. Misal untuk untuk mengatur LED yang terhubung ke P2.0 dilakukan dengan mengirim karakter “A”:

procedure TForm5.CheckBox1Click(Sender: TObject);
begin
if not Port_State then exit;
ApdComPort1.Output:=’A';
end;

Sedangkan program untuk menyalaka semua LED:

procedure TForm5.Button3Click(Sender: TObject);
begin
if not Port_State then exit;
ApdComPort1.Output:=’E';
end;

Prosedur Membaca Saklar

Untuk membaca saklar, pertama program akan mengirim perintah membaca saklar, kemudian membaca data yang dikirim oleh mikro.

procedure TForm5.Button5Click(Sender: TObject);
var
S:string;
TheData,code: integer;
begin
if not Port_State then exit;
ApdComPort1.Output:=’G';
S:= ReadSerialData(100);
val(‘$’+S,TheData,code);
Label2.Caption:=’SW1 OFF’;
Label3.Caption:=’SW2 OFF’;
Label4.Caption:=’SW3 OFF’;
Label5.Caption:=’SW4 OFF’;

TheData:= not TheData;
if (TheData and 1 = 1)  then
Label2.Caption:=’SW1 ON’;
if (TheData and 2 = 2)  then
Label3.Caption:=’SW2 ON’;
if (TheData and 4 = 4)  then
Label4.Caption:=’SW3 ON’;
if (TheData and 8 = 8)  then
Label5.Caption:=’SW4 ON’;
end;

Program pembacaan data dilakukan di fungsi ReadSerialData:

function TForm5.ReadSerialData(TimeOut: integer): string;
var
i: integer;
begin
Result:=”;
while ApdComPort1.InBuffUsed=0  do
begin
Dec(TimeOut);
Sleep(1);
Application.ProcessMessages;
if TimeOut=0  then exit;
end;
Sleep(10);
for I := ApdComPort1.InBuffUsed downto 1 do
Result:=Result+ApdComPort1.GetChar;
end;

Fungsi ini akan membaca data yang diterima oleh port serial selama waktu tertentu,TimeOut. Buffer input port serial dibaca dulu (InBuffUsed), apabila selalu 0 dalam waktu TimeOut, berarti tidak ada data. Jika ada maka data dibaca per karakter (byte) melalui perintah ApdComport.GetChar. Data yang diterima akan selalu ASCII. Misal jika semua saklar pada posisi ON maka data yang diterima adalah “0F”. Program harus mengecek data yang diterima tersebut untuk menentukan semua posisi saklar.

Read More >>

Read more ...