PERCOBAAN  10



    POLTEKAD KODIKLATAD
JURUSAN TELEKOMUNIKASI
 


PRAKTIK BAHASA PEMOGRAMAN
PERCOBAAN 10
MEMBUAT GRAFIK SQUARE WAVE

2.         Tujuan Instruksional umum.       Agar bamasis mampu mempraktekan pembuatan grafik square wave pada aplikasi Embarcardero.
3.         Alat dan bahan
                 a. PC/ Laptop
                 b. Delphi/ Embarcardero XE5
4.         Teori Dasar.             Salah satu bahasa pemrograman yang banyak digunakan oleh programmer adalah Delphi. Delphi adalah bahasa pemrograman untuk pengembangan aplikasi konsol, desktop, web, maupun perangkat mobile. Delphi awalnya dikembangkan oleh CodeGear sebagai divisi pengembangan software milik Embarcadero. Delphi XE5 merupakan versi pertama Delphi yang mampu mengembangkan aplikasi untuk platform Android, selain juga handal untuk mengembangkan aplikasi iOS (iPhone, iPod dan iPad), aplikasi untuk Macintosh (OSX 10.7 Lion dan versi lebih baru), serta aplikasi untuk platform Windows sendiri, termasuk Windows 8 family. Delphi suatu  bahasa  pemograman  (development  language)  yang digunakan untk merancang suatu aplikasi program. Delphi  termasuk  dalam  pemrograman  bahasa  tingkat  tinggi  (high  level lenguage). Maksud dari bahasa tingkat tinggi yaitu perintah-perintah programnya menggunakan bahasa yang mudah dipahami oleh manusia. Bahasa pemrograman Delphi  disebut  bahasa  prosedural  artinya  mengikuti  urutan  tertentu.    Dalam membuat     aplikasi     perintah-perintah.   Program  ini mempunyai  beberapa  keunggulan,  yaitu  produktivitas,  kualitas,  pengembangan perangkat lunak, kecepatan kompiler, pola desain yang  menarik serta diperkuat dengan bahasa perograman  yang terstruktur  dalam  struktur bahasa perograman Object Pasca.Sebagaian besar pengembang Delphi menuliskan dan mengkompilasi  kode program di dalam lingkungan pengembang aplikasi atau Integrated Development Environment   (IDE).   Lingkungan   kerja   IDE   ini   menyediakan  sarana   yang diperlukan   untuk  merancang,  membangun,   mencoba,  mencari  atau  melacak. kesalahan,    serta    mendistribusikan     aplikasi.    Sarana-sarana    inilah  yang memungkinkan  pembuatan  prototipe  aplikasi  menjadi  lebih  mudah  dan  waktu yang diperlukan untuk mengembangkan aplikasi menjadi lebih singkat. Ini lah bagian bagian dari program Embarcadero yang dibutuhkan oleh pembuatan Kalkulator :
a.    Form adalah sebuah objek kontrol penampung dari objek kontrol lain, dapat menerima tugas dan memberikan reaksi terhadap tindakan dari pengguna untuk kelangsungan sebuah program aplikasi, form juga bias di sebut bahan untuk pembuatan window. Kita meletakan kontrol pada form. Kontrol ini misalnya tombol,check box, radio button, label,panel dan sebagainya.
b.    Label merupakan salah satu tool pada RAD Delphi XE5. Fungsi label sendiri sering digunakan untuk memberi informasi kepada user (petunjuk) mengenai apa yang harus di isi dalam sebuah text box.
c.    Common Button adalah sebuah tool box yang akan aktif ketika di klik, jelasnya  dengan script yang di tuliskan , untuk penggunaannya sendiri sangatlah banyak  salah satunya bias kita gunakan untuk Form Login, Input Data, dan membuka            Folder.
d.    Edit Komponen yang digunakan untuk menerima satu baris teks yang merupakan data input pemakai komponen ini juga dapat digunakan untuk menampilkan teks.
e.    Image Berfungsi untuk tempat menampilkan gambar dan untuk Open Picture Dialog adalah fasilitas untuk menampilkan box open picture berbasis windows. Untuk gambar yang bisa kita tampilkan diharapkan dengan format Bmp. Untuk JPEG kita harus memberikan coding.



Square wave atau gelombang kotak memiliki laju gelombang dan kandungan harmonik seperti yang digambarkan berikut:




Gambar 1. Square wave.
Seperti namanya, Bentuk Gelombang Kotak atau Square Waveform ini memiliki bentuk seperti Kotak dan umumnya digunakan pada rangkaian mikro elektronik untuk pengendalian waktu (timing control). Hal ini dikarenakan Square Waveform memiliki bentuk gelombang simetris dengan durasi yang sama pada siklus setengah kotak dengan setengah kotak lainnya (memiliki interval yang teratur). Bentuk Gelombang Kotak.

5.         Langkah – Langkah Percobaan
            a. Aktifkan PC / Laptop
                b. Bukalah aplikasi IDE Rad studio delphi XE5 anda.
c. Jika sudah klik menu File > New > VCL Forms Application – Delphi seperti
   gambar dibawah ini. 



Gambar 2. New Forms Application
f.     Setelah itu akan tampil form seperti berikut ini. Jangan lakukan perubahan apapun.




Gambar 3. Tampilan Form.

g.    Jalankan program tersebut dengan cara klik menu Run > Run. Dan mari kita lihat hasilnya.




Gambar 4. Langkah menjalankan RUN.
.




                Gambar 5. Hasil dari RUN form.
f. untuk menampilkan label pilih standart pada tool palette pada main menu standart terdapat Tlabel   seperti dibawah ini .




Gambar 6. Tlabel pada standart
h.    Percobaan ke 10 ini pengembangan dari percobaan ke 9 sehingga menggunakan project yang sama hanya saja diberikan tambahan pada project tersebut untuk memasukan inputan dari gelombang square wave, berikut bagian bagian yang dibutuhkan. Menggunakan 5 label, 3 untuk memberikan keterangan variable X, Y, dan A serta 2 label untuk memberikan nama pada sumbu A dan T .
Gambar 7. Label.

i.      Gunakan button untuk dapat memasukan codding sebagai perintah sebanyak 3 button untuk tombol seperti gambar dibawah ini.

Gambar 8. Tbutton.
j.      Gunakan 3 edit untuk data variable X ,Y, dan A yang berada di tool palette >standart>Edit.
Gambar  9. Edit.

k.     Langkah selanjutnya klik button ke 3 untuk memasukan sebuah coding yang diharapkan dapat menjalankan sebuah aplikasi yang sudah didisain. Pada percobaan 10 ini kami menggunakan coding pada button sin akan tetapi diberikan tambahan perintah sehingga dapat menghasilkan gelombang square wave. Berikut codingnya:
      Coding pada Button sin :
procedure TForm2.Button1Click(Sender: TObject);
var y,x: integer;
sx,T,A : integer;
sy:real;
tanda:integer;
i:integer;
tanda1:integer;
begin
image1.Visible :=true;
image2.Visible :=false;

for y := 1 to 900 do
begin
image1.Canvas.Pixels[200,y]:= clgreen;
end;
begin
for x := 1 to 1000 do
begin
image1.Canvas.Pixels[x,245]:= clred;
end;
begin
for sx := 1 to 800 do
 begin
T := strtoint(Edit1.Text);
A := strtoint(Edit3.Text );
sy:= sin(sx*pi/180*x)*A;
form2.Image1.Canvas.Pixels[sx+x,200-round(sy)]:=clblack;
end; begin
   for i := 1 to 100 do
   begin
     tanda:=(10*i)-10;
     image1.Canvas.Pixels[tanda,100]:=clgreen;

     for tanda1 := 1 to 10 do
       begin
         image1.Canvas.Pixels[tanda,240+tanda1]:=clgreen;

       end;
   end;

    for i:= 1 to 100 do
      begin
        tanda:=(10*i)-10;
        image1.Canvas.Pixels[tanda,100]:=clred;
        for tanda1 := 1 to 10 do
          begin
            image1.Canvas.Pixels[195+tanda1,tanda]:=clred;
              label4.Visible :=true;
              label5.Visible :=true;
          end;
     end;
 end;
   end;
 end;
end;

      Coding pada Button Pulse (gelombang square wave):

            procedure TForm2.Button3Click(Sender: TObject);
 var y,x: integer;
sx,T,A : integer;
sy:real;
tanda:integer;
i:integer;
tanda1:integer;
begin
image1.Visible :=true;
image2.Visible :=false;
for y := 1 to 900 do

begin
image1.Canvas.Pixels[200,y]:= clgreen;
end;
begin
for x := 1 to 1000 do

begin
image1.Canvas.Pixels[x,200]:= clred;   
end;
begin
for sx := 1 to 800 do
 begin
T := strtoint(Edit1.Text);
A := strtoint(Edit3.Text );
sy:= sin(sx*pi/180*T)*A; 
if (round(sy)>0) and (round(sy)<=a) then
begin
form2.Image1.Canvas.Pixels[sx+T,200-a]:=clblack;
end;

 if (round(sy)<0) and (round(sy)>=-a) then
 begin
   form2.Image1.Canvas.Pixels[sx+T,200+a]:= clblack;
 end;
 if round(sy) =0 then   
  begin
    form2.Image1.Canvas.Pen.Color:=clblack;
    form2.Image1.Canvas.MoveTo(sx+T,200-a);
    form2.Image1.Canvas.LineTo(sx+T,200+a);
  end;
 end;
 begin
   for i := 1 to 100 do
   begin
     tanda:=(10*i)-10;
     image1.Canvas.Pixels[tanda,100]:=clgreen;

     for tanda1 := 1 to  10 do
       begin
         image1.Canvas.Pixels[tanda,195+tanda1]:=clgreen;

       end;
   end;

    for i:= 1 to 100 do
      begin
        tanda:=(10*i)-10;
        image1.Canvas.Pixels[tanda,100]:=clred;
        for tanda1 := 1 to 10 do
          begin
            image1.Canvas.Pixels[195+tanda1,tanda]:=clred;
              label4.Visible :=true;
              label5.Visible :=true;
          end;
     end;
 end;
   end;
 end;
end;
end.
6. HASIL PERCOBAAN
Gambar 10.Design Project diagram.
Buatlah terlebih dahulu design project diagram . Untuk keterangan komponen yang dipakai berada di keterangan dilangkah-langkah percobaan diatas.
Gambar 11. Hasil dari gelombang Pulsa.
Ini adalah hasil diagram dari penetuan variable X,Y dan A menggunakan aplikasi embarcardero untuk menampilkan grafik Square Wave.
7. ANALISA.            
Pada Percobaan 10, aplikasi diagram ini adalah pengembangan dari percobaan 9 yaitu menambahkan program aplikasi square wave setelah terdapat gelombang sinus dan cosinus.  Program ini merupakan aplikasi yang berfungsi sebagai alat bantu umumnya digunakan pada rangkaian mikro elektronik untuk pengendalian waktu (timing control). Dalam gelombang blok tegangan dari nol langsung atau mendadak berubah ke level tertinggi +X Volt tanpa pewaktuan. Lalu bertahan pada level itu selama waktu tertentu (kurva bagian atas berbentuk lurus), kemudian berubah mendadak ke level terendah –X Volt tanpa pewaktuan pula dan bertahan pada level terendah itu selama waktu tertentu (kurva bagian bawah berbentuk lurus juga), dan kemudian mendadak menjadi nol lagi. Dengan demikian bisa dilihat bahwa belahan positif adalah munculnya tegangan positif selama waktu tertentu (setengah periode gelombang), dan belahan negatif adalah munculnya tegangan negatif selama waktu tertentu (setengah periode gelombang berikutnya). Satu siklus gelombang adalah munculnya satu belahan positif dan satu belahan negatif yang berbentuk blok/balok. Gelombang blok banyak dimanfaatkan dalam pengoperasian sirkuit-sirkuit logika (digital), rangkaian-rangkaian timer (pewaktuan) dan lain-lain. Serta perlu diketahui Software Embarcadero/Delphi XE5 dapat berjalan apabila script syntax/codding data pada From sudah sesuai dengan perintah, properties dan coddingnya sama. Apabila antara properties dan coddingnya tidak sesuai maka percobaan 10 pada aplikasi Embarcadero/Delphi XE5 tidak dapat terbaca/error pada Program tersebut.

8. KESIMPULAN DAN SARAN .             
KESIMPULAN
Dari Percobaan 10 dapat ditarik kesimpulan sebagai berikut, aplikasi Software Embarcadero/Delphi XE5 dapat membantu user dalam mempelajari gelombang Square Wave. Glombang Square Wave sendiri adala jenis dari Electrical Waveform atau dalam bahasa Indonesia disebut dengan Bentuk Gelombang Listrik yang merupakan bagian dari Gelombang Elektromagnetik yang tidak memiliki bentuk fisik. Untuk mempermudah melihat bentuk gelombang tersebut, kita perlu peralatan khusus seperti Osiloskop untuk mem-visualisasikannya. Selain itu, kita juga dapat menggambarkannya ke kertas grafik dengan menghubung setiap perubahan titik plot tegangan pada suatu periode waktu tertentu. Secara Teknik, Bentuk Gelombang Listrik (Electrical Waveform) ini adalah representasi visual dari perubahaan tegangan atau arus terhadap waktu. Bentuk Gelombang Listrik ini memiliki 3 karakteristik umum  sebagai berikut :
  1. Periodik (Period) adalah waktu yang dibutuhkan untuk menempuh 1 kali getaran atau waktu yang dibutuhkan pada 1 siklus gelombang bolak-balik, biasanya dilambangkan dengan t dengan satuan detik (second).
  2. Frekuensi (Frequency) adalah sejumlah getaran yang dihasilkan selama 1 detik (f=1/t), satuan frekuensi adalah Hertz.
  3. Amplitudo (Amplitude) adalah simpangan terjauh yang diukur dari titik keseimbangan dalam suatu getaran. Satuan unitnya adalah Volt.
Secara garis besar, Bentuk Gelombang Listrik atau Electrical Waveform dapat diklasifikasikan menjadi 2 golongan besar yaitu Uni-directional Waveform dan Bi-directional Waveform.sedangkan gelombang Square Wave adalah contoh dari klasifikasi Uni-directional Waveform, ini adalah bentuk gelombang yang selalu berada pada wilayah Positif ataupun Negatif dan tidak ada akan memotong titik sumbu nol. Contoh Uni-directional Waveform ini adalah Square Wave Waveform (Bentuk Gelombang Kotak) untuk Sinyal Pewaktu (Timing), Sinyal Pulsa Jam (Clock Pulse) dan Sinyal Pemicu (Trigger).  Bentuk Gelombang Kotak atau Square Waveform ini memiliki bentuk seperti Kotak dan umumnya digunakan pada rangkaian mikro elektronik untuk pengendalian waktu (timing control). Hal ini dikarenakan Square Waveform memiliki bentuk gelombang simetris dengan durasi yang sama pada siklus setengah kotak dengan setengah kotak lainnya (memiliki interval yang teratur).
Bentuk Gelombang Kotak atau Square Waveform ini memiliki bentuk seperti Kotak dan umumnya digunakan pada rangkaian mikro elektronik untuk pengendalian waktu (timing control). Hal ini dikarenakan Square Waveform memiliki bentuk gelombang simetris dengan durasi yang sama pada siklus setengah kotak dengan setengah kotak lainnya (memiliki interval yang teratur). Dari percobaan percobaan sebelumnya dapat dipelajari dan mengetahui bagaimana cara kerja aplikasi alat secara logika. Sehingga kami dapat mengetahui proses terjadinya gelombang square wave menggunakan aplikasi Embarcadero ini.
SARAN
Praktik Percobaan 10 ini menggunakan Software Embarcadero/Delphi XE5 adalah perkembangan dari percobaan 9 yang membahas golombang sinus dan cosinus dari sinus tersebut dapat dikembangkan menjadi gelombang square wave yang dapat berguna bagi user yang ingin mencoba. Serta kami telah memberikan keterangan di setiap langkah-langkahnya sehinga audiens dapat mempelajari menggunakan software ini, Apabila diperkenankan kami memberikan saran bagi bamasis agar sering sering berlatih dan mempraktikan dalam mempelajari Bahasa pemograman karena banyak manfaat yang dapat diperoleh oleh bamasis serta dapat berguna dalam pengerjaan tugas akhir yang menggunakan bantuan software jenis Embarcadero/Delphi XE5.



 


Langganan: Postingan (Atom)