NasstroN

Modul Praktikum Sistem Digital Seven Segment

12:00 praktikum , sistem digital 1 comment

MODUL III

SISTEM DIGITAL

SEVEN SEGMENT BINARY CODE DECIMAL

1. Tujuan

Setelah mengikuti kegitan perkuliahan ini, maka diharapkan :

a. Mahasiswa mampu memahami konsep dasar seven segment

b. Mahasiswa mampu merangkai dan merancang seven segment

2. Teori

Seven segment adalah suatu segmen-segmen yang digunakan untuk menampilkan angka / bilangan decimal. Seven segment ini terdiri dari 7 batang LED yang disusun membentuk angka 8 dengan menggunakan huruf a-f yang disebut DOT MATRIKS. Setiap segment ini terdiri dari 1 atau 2 LED (Light Emitting Dioda).

Seven segment dapat menampilkan angka-angka desimal dan beberapa karakter tertentu melalui kombinasi aktif atau tidaknya LED penyususnan dalam seven segment. Untuk mempermudah pengguna seven segment, umumnya digunakan sebuah decoder atau sebuah seven segment driver yang akan mengatur aktif atau tidaknya led-led dalam seven segment sesuai dengan inputan biner yang diberikan.

Piranti tampilan modern disusun sebagai pola 7 segmen atau dot matriks. Jenis 7 segmen sebagaimana namanya, menggunakan pola tujuh batang led yang disusun membentuk angka 8 seperti yang ditunjukkan pada gambar di atas. Huruf-huruf yang diperlihatkan dalam gambar tersebut ditetapkan untuk menandai segmen-segmen tersebut. Dengan menyalakan beberapa segmen yang sesuai, akan dapat diperagakan digit-digit dari 0 sampai 9, dan juga bentuk huruf A sampai F (dimodifikasi).

Sinyal input dari switches tidak dapat langsung dikirimkan ke peraga 7 segmen, sehingga harus menggunakan decoder BCD (Binary Code Decimal) ke 7 segmen sebagai antar muka. Decoder ini terdiri dari gerbang-gerbang logika yang masukannya berupa digit BCD dan keluarannya berupa saluran-saluran untuk mengemudikan tampilan 7 segmen.

a. Prinsip Kerja Seven Segmen

Prinsip kerja dari seven segment ini adalah inpuan bilangan biner pada switch dikonversi masuk kedalam decoder, baru kemudian decoder mengkonversi bilangan biner tersebut ke dalam bilangan desimal, yang mana bilangan desimal ini akan ditampilkan pada layar seven segmen. Fungsi dari decoder sendiri adalah sebagai pengkonversi bilangan biner ke dalam bilangan desimal.

b. Jenis – jenis Seven Segmen

Seven segmen ada 2 jenis, yaitu Common anoda dan Common katoda

1) Common anoda

Common anoda merupakan pin yang terhubung dengan semua kaki anoda LED dalam seven segment. Common anoda diberi tegangan VCC dan seven segmen dengan common anoda akan aktif pada saat diberi logika rendah (0) atau sering disebut aktif low. Kaki katoda dengan label a sampai h sebagai pin aktifasi yang menentukan nyala LED.

2) Common katoda

Common katoda merupakan pin yang terhubung dengan semua kaki katoda LED dalam seven segmen dengan common katoda akan aktif apabila diberi logika tinggi (1) atau disebut aktif high. Kaki anoda dengan label a sampai h sebagai pin aktifasi yang menentukan nyala LED.

Gambar 1 Jenis seven segmen common katoda dan anoda

c. Perangkat utama merangkai Seven Segmen Digital

Adapun perangkat utama yang digunakan untuk mrangkai modul seven segment diantaranya adalah:

1. IC TTL 4511

Gambar 2 Datashett IC 4511

2. Seven Segment

Gambar 3 Seven Segment

3. Praktikum

a. Persiapan komponen – komponen yang akan digunakan untuk merangkai seven segment

b. Rangkaialah seven segment dengan mengikuti panduan rangkaian berikut

Gambar 4 Rangkaian seven segment

c. Ujicoba

Setelah rangkaian selesai ujilah dengan menggunakan tabel kebenaran dibawah ini.

Gambar 5 Tabel kebenaran dengan menggunakan ic 4511

gambar 5 tabel kebenaran seven segment dengan ic 4511

Modul dapat di download disini

Penggunan Bahasa Java Pada Pemrograman

22:35 java 1 comment

Pembahasan Tugas Menghitung Luas Tanah (Setengah Lingkaran, Persegi Panjang dan Segitiga Sama Kaki) dengan IDE Lazarus

16:27 Delphi , pemrograman , software 1 comment

PEMBAHASAN TUGAS

MENGHITUNG LUAS DAN KELILING TANAH

Soal :

Buatlah program menggunakan bahasa pemrograman pascal (red:lazaruz) untuk menghitung luas dan keliling tanah seperti gambar dibawah ini

Penyelesaian Soal :

Dari kasus menghitung luas dan keliling tanah seperti gambar diatas yang meliputi :

Setengah Lingkaran
Persegi Panjang, dan
Segitiga Sama kaki

Pembagian bidang dapat kita gambarkan seperti gambar 1.0 berikut.

Pada pembagian ruang hitung diatas dapat kita ketahui nilai pokok mana saja yang harus kita inputkan, adapun nilai pokok yang kita butuhkan untuk menghitung luas dan keliling tanah seperti gambar 1.0 diatas meliputi :

Nilai Panjang dari Persegi Panjang Nilai
Lebar Persegi Panjang, dan
Nilai Tinggi dari Segi Tiga

Setelah ketiga nilai pokok tersebut kita ketahui, maka kita dapet menghitung luas dan keliling bidang tanah pada gambar diatas.

Luas Tanah

1. Luas Setengah Lingkaran

Rumus Luas Setengah Lingkaran :

Setengah Lingkaran = π x r ^2 /2

Didalam Pascal Dapat di Tulis dengan :

Luas Setengah lingkaran := (Pi*sqr(R))/2;

Keterangan :

Pi diberi nilai 3.14 dengan menggunkan variable constant (tetap)

Pi := 3.14;

Sqr(R) adalah merupakan source code dalam pascal untuk mencari pangkat 2 dari suatu bilangan, yakni Sqr = Square
Nilai Jari-jari (R) didapatkan dari Nilai Lebar Persegi Panjang dibagi 2

R := L/2;

Karena luas lingkaran hanya setengah maka hasil dari luas lingkaran dibagi 2

Luas1 := (Pi*sqr(R))/2;

2. Luas Persegi Panjang

Rumus Luas Persegi Panjang :
Luas Persegi Panjang = P x L

Didalam Pascal Dapat di Tulis dengan :

Luas Persegi Panjang := P*L;

Keterangan :

Sudah Jelas

3. Luas Segitiga

Rumus Luas Segitiga :
Luas Segitiga Sama Kaki= 2 x (1/2 x alas x tinggi) / alas x tinggi

Didalam Pascal Dapat di Tulis dengan :

Luas Segitiga Sama Kaki := Alas*T;

Keterangan :

Nilai Alas dari segitiga sama dengan nilai dari Jari-jari (R) Lingkaran, maka dapat diambilkan nilai dari Jari-jari (R) dari lingkaran .

Alas := R;

Sudah Jelas

Keliling Tanah

1. Keliling Setengah Lingkaran

Rumus Keliling Setengah Lingkaran :

Keliling Setengah Lingkaran = (2 x π x R)/2 atau π xR

Didalam Pascal Dapat di Tulis dengan :

Luas Setengah lingkaran := (2*Pi*R)/2;
atau

Luas Setengah lingkaran := Pi*R;

Keterangan :

Pi diberi nilai 3.14 dengan menggunkan variable constant (tetap)

Pi := 3.14;

Nilai Jari-jari (R) didapatkan dari Nilai Lebar Persegi Panjang dibagi 2

R := L/2;

Karena keliling lingkaran yang terhitung hanya setengah maka hasil dari keliling lingkaran dibagi 2

Keliling1 := (2*Pi*R)/2;

2. Keliling Persegi Panjang

Rumus Keliling Panjang :
Keliling Persegi Panjang = 2 x (P+L)

Karena yang dihitung hanya pada sisi panjangnya saja, naka menggunakan rumus

Keliling Persegi Panjang = 2 x P

Didalam Pascal Dapat di Tulis dengan :

Keliling Sisi Panjang Persegi Panjang := P*2;

Keterangan :

Sudah Jelas

3. Keliling Segitiga Sama Kaki
Rumus Keliling Segitiga :

Keliling Segitiga Sama Kaki = (2 xSisi Miring)+Alas

Karena yang dihitung hanya pada sisi miringnya saja, maka dapat menggunakan rumus
Keliling Persegi Panjang = Sisi Miring x 2

Didalam Pascal Dapat di Tulis dengan :

Keliling Segitiga Sama Kaki := Si_Mir*2);

Untuk mengetahui nilai dari Sisi Miring Segitiga dapat menggunakan rumus Pytagoras

Sisi Miring = √(alas² + tinggi²)

yang didalam pascal dapat ditulis dengan :

Si_Mir := sqrt((sqr(Alas)+sqr(T)));

Keterangan :

Nilai Alas dari segitiga sama dengan nilai dari Jari-jari (R) Lingkaran, maka dapat diambilkan nilai dari Jari-jari (R) dari lingkaran .

Alas := R;

Sqr(Alas) adalah merupakan source code dalam pascal untuk mencari pangkat 2 dari suatu bilangan, yakni Sqr = Square
Sqrt() adalah merupakan source code dalam pascal untuk mencari akat pangkat 2 dari suatu bilangan, yakni Sqrt = Square Root

Source code Pascal (Lazarus) :

program Tugas_Hitung_Luas_dan_Keliling_Tanah;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  P, L, T : Integer;                                                                {
  ket : (Integer : Tipe data untuk bilangan bulat)
      P : variable panjang persegi
      L : variable lebar persegi
      T : variable tinggi segitiga                                                  }

Pi, R, Alas, Si_Mir, Keliling1, Keliling2, Keliling3 : Single;                      {
  ket : (Single : Tipe data untuk bilangan desimal 4 Bit)
      Pi      : variable Pi
      R       : variable Rata-rata
      Alas       : variable Alas
      Si_Mir  : variable Sisi Miring Segitigas                                         }

Luas1, Luas2, Luas3, Tot_luas, Tot_Keliling : Double;                                   {
  ket : (Double : Tipe data untuk bilangan desimal 8 Bit)
      Luas1      : variable Luas Tanah Dengan Bentuk Setengah Lingkaran
      Luas2      : variable Luas Tanah Dengan Bentuk Persegi Panjang
      Luas3      : variable Luas Tanah Dengan Bentuk Segitiga
      Tot_luas   : variable Keseluruhan Luas Tanah
      Keliling   : Keliling Keseluruhan Bidang Tanah                                       }

// variable pilihan untuk mengulangi
  ulang : Char;

procedure Hitung;
begin
  Pi    := 3.14;  // Nilai variable konstant Pi
  R     := L/2;   // Jari-jari Lingkaran = Lebar Persegi Panjang / 2
  Alas  := R;     // Karena Segitiganya sama kaki maka (Alas = Jari-jari (R) )

//Luas Tanah
  Luas1 := (Pi*sqr(R))/2;   // Rumus Luas setengah lingkaran
  Luas2 := P*L;             // Rumus Luas Persegi Panjang
  Si_Mir:= sqrt((sqr(Alas)+sqr(T))); //Rumus Pytagoras
  Luas3 := Alas*T;  // Rumus Luas Segitiga sama kaki "2 x (1/2 x Alas x Tinggi)"
  Tot_luas:= Luas1+Luas2+Luas3; // Jumlah keseluruhan luas tanah

// Keliling Tanah
  Keliling1:= (2*Pi*R)/2; // Setengah Lingkaran
  Keliling2:= P*2;        // Sisi Persegi Panjang
  Keliling3:= Si_Mir*2;   // Sisi Miring Segitiga
  Tot_Keliling := Keliling1+Keliling2+Keliling3;
end;

procedure Garis;
begin
  WriteLn('=====================================================================');
end;

procedure enter_wae;
begin
  WriteLn();WriteLn();WriteLn();
  Garis;
  WriteLn(' #####   ###   ##    ##   ###   #####    ###   #####  #####    ###');
  WriteLn('    ##  ## ##  ###   ##  ## ##  ##  ##  ## ##  ##  ## ##  ##  ## ##');
  WriteLn('    ## ##   ## ## #  ## ##   ## ##  ## ##   ## ##  ## ##  ## ##   ##');
  WriteLn('    ## ####### ##  # ## ####### #####  ####### ##  ## #####  #######');
  WriteLn('    ## ##   ## ##   ### ##   ## ##  ## ##   ## ##  ## ##  #  ##   ##');
  WriteLn(' ####  ##   ## ##    ## ##   ## #####  ##   ## #####  ##   # ##   ##');
  Garis;
  WriteLn();WriteLn();WriteLn();
  WriteLn('---------------------------= HITUNG LAGI =---------------------------');
  Garis;
end;

procedure Jalankan_Program;
begin
  WriteLn('Silahkan Masukkan Data Tanah');
  Write('  Panjang Persegi            : ');
  ReadLn(P);
  Write('  Lebar Persegi              : ');
  ReadLn(L);
  Write('  Tinggi Segitiga            : ');
  ReadLn(T);
  Hitung;
  WriteLn();
  Garis;
  WriteLn('  Luas Setengah Lingkaran    : ',Luas1:6:3);
  WriteLn('  Luas Persegi Panjang       : ',Luas2:6:3);
  WriteLn('  Luas Segitiga Sama Kaki    : ',Luas3:6:3);
  WriteLn();
  WriteLn('  Luas Tanah Adalah          : ',Tot_luas:6:3,' M2');
  WriteLn('  Keliling Tanah adalah      : ',Tot_Keliling:6:3, ' M');
  Garis;
  Write('Apakan Anda Akan Menghitung kembali ? (Y/N) : ');
  ReadLn(ulang); if (ulang ='Y') or (ulang='y') then enter_wae;
end;

begin
  ulang := 'Y';
  Garis;
  WriteLn('      PEMBAHASAN SOAL MENGHITUNG LUAS DAN KELILING TANAH');
  WriteLn('                       Oleh : Suharyanto');
  Garis;
  WriteLn('Bentuk Kasus Tanah di Lapangan adalah : ');
  WriteLn('- Setengah Lingkaran');
  WriteLn('- Persegi Panjang');
  WriteLn('- Segitiga sama kaki');
  WriteLn();
  repeat
    case ulang of
    'Y': Jalankan_Program;
    'y': Jalankan_Program;
    else
      begin
        Write('Apakan Anda Akan Menghitung kembali ? (Y/N) : ');
        ReadLn(ulang); if (ulang ='Y') or (ulang='y') then enter_wae;
      end;
    end;
  until (ulang='N') or (ulang='n');
end.

Hasil Runnya :

Untuk Program dapat di dowload disini

Subscribe to: Posts ( Atom )

NasstroN

Recent Posts

Modul Praktikum Sistem Digital Seven Segment

1. Tujuan

2. Teori

3. Praktikum

Penggunan Bahasa Java Pada Pemrograman

Pembahasan Tugas Menghitung Luas Tanah (Setengah Lingkaran, Persegi Panjang dan Segitiga Sama Kaki) dengan IDE Lazarus

Labels