MIKROPROSESOR : MENGENAL SEVEN SEGMENT

NUR DEWIYANTI/11.11.2326/TI 2011 A

Seven segment merupakan suatu komponen yang berfungsi untuk menampilkan angka desimal yang biasanya dipakai pada jam digital,meteran elektronik dan piranti elektronik lainnya yang menampilkan informasi berupa angka. Seven segment ini merupakan salah satukompnen display visual yang sering digunakan dalam dunia elektronika digital, selain seven segment ada juga dot matrix, LCD, dll.

Seven segment terdiri dari 7 LED yang membentuk sebuah angka 8 dan 1 buah LED yang terdapat pada titiknya. Seven segment dapat menampilkan angka 0-9, bisa juga dengan memaksa untuk membentuk suatu huruf. Penyusunan LED pada seven segment di beri indeks menggunakan label a sampai g dan titik (dot point).

Truth Table Seven Segmnet :

Rangkaian Common katoda dan anoda

Common anoda merupakan penyatuan seluruh anoda LED pada seven segment secara paralel dan dihubungkan ke VCC. Sifat Common Anoda ini akan aktif pada saat kondisi LOW, maksudnya kondisi LOW dimana LED akan menyala jika di beri logic 0. Sedangkan Common catoda merupakan kebalikan dari common anoda dimana seluruh katoda LED pada seven segment dihubungkan secara paralel lalu disambungkan ke ground. Common katoda akan aktif pada kondisi HIGH, dimana LED akan menyala jika diberi logic 1.

Untuk menggunakan seven segment juga diperlukan suatu konverter dari bilangan biner menjadi desimal, biasanya menggunakan suatu decoder. Untuk common anoda menggunakan decoder IC TTL 7447 sedangkan common katoda menggunakan IC TTL 7448. Cara kerja decoder ini dengan mengkonversi input biner pada switch lalu masuk ke decoder setelah dikonversikan input-nya maka bilangan desimal akan tampil pada seven segment.

Menampilkan 2 Digit Angka 

Sebagai informasi saja, terdapat alamat penting pada MODUL DT-51:

- PA (Port A) = 2000h

- PB (Port B) = 2001h

- PC (Port C) = 2002h

- Reg CW (Control World) = 2003h

Dibawah ini listing program untuk menampilkan angka 9 dan 8 menggunakan software M-IDE DT5, dimana Port C digit pertama 80h dan Port C digit kedua 40h dengan CW sama-sama 80h :

$mod51

PORTC EQU 2002H

CW EQU 203H

     CSEG

     ORG 4000H

     LJMP START

DELAY : MOV R6,#0FH

LUP : MOV R7,#0FFH

           DJNZ R7,$

           DJNZ R6,LUP

           RET

START : MOV SP, #30H

               MOV DPTR, #CW

               MOV A, #80H

               MOVX @DPTR, A

LOOP :

          MOV DPTR, #PORTC

          MOV A, #80H

          MOVX @DPTR, A

          MOV P1, #7FH       //menampilkan angka 8

          LCALL DELAY

          MOV P1, #00H

          MOV A, #40H

          MOVX @DPTR, A

          MOV P1, #6FH       //menampilkan angka 9

          LCALL DELAY

          MOV P1, #00H

SJMP LOOP

END

Demikian sedikit artikel tentang Seven Segment telah selesai saya buat, semoga artikel ini bermanfaat bagi anda.Terima Kasih...

Referensi :
http://www.geyosoft.com/2012/mengenal-seven-segment

TUGAS 6 PEMROGRAMAN VISUAL

MEMBUAT KONEKSI KE DATABASE

Assalamua’alaikum..

Saya akan sedikit menjelaskan cara membuat tombol navigasi NEXT, PREVIOUS, FIRST, LAST, SEARCH NAME dan KELUAR pada Visual Basic 2010 yang terkoneksi dengan SQL Server 2005. Langsung aja yuu..

Pertama kita membuat database dahulu di SQL Server 2005. Kali ini saya akan membuat database mahasiswa dengan nama dbmahasiswa, selanjutnya membuat tabel mahasiswa dengan nama tbmahasiswa. Kemudian isi data-data pada tbmahasiswa dan jangan lupa di save. Seperti gambar di bawah ini:

Setelah membuat dbmahasiswa, buka Microsoft Visual Studio dan buat satu Form. Untuk mengkoneksikan dengan SQL Server 2005, pilih Menu Data, Add New Data Source, klik Next terus sampai terlihat tombol New Connection, di klik. Isi perintah seperti di bawah ini, kemudian OK, klik Next, klik Finish.

Langkah selanjutnya, drag semua isi dbmahasiswa dan tbmahasiswa yang terdapat pada Data Sources, serta buat 5 button untuk membuat tombol FIRST, PREVIOUS, NEXT, LAST, dan KELUAR. Namun untuk SEARCH NAME dengan menggunakan TextBox. Pada SEARCH NAME ini, pencarian dilakukan dengan kriteria nama saja. Maka akan tampil seperti gambar berikut:

Pada saat kita menekan tombol navigator FIRST, maka akan terjadi seperti ini:

 Codingnya seperti berikut:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

Pada saat kita menekan tombol navigator LAST, maka akan terjadi seperti ini:

Codingnya seperti berikut:

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

Pada saat kita menekan tombol navigator PREVIOUS, maka akan terjadi seperti ini:

Codingnya seperti berikut:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TbmahasiswaBindingSource.Position > 0 Then

            TbmahasiswaBindingSource.MovePrevious()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Pada saat kita menekan tombol navigator NEXT, maka akan terjadi seperti ini:

Codingnya:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

 Pada saat kita menekan menulis nama yang ingin dicari pada SEARCH NAME, maka akan terjadi seperti ini:

 Apabila nama yang kita cari tidak ada, maka akan seperti ini:

Codingnya:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Terakhir pada tombol KELUAR, codingnya sederhana:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

Demikian sedikit penjelasan mengenai tombol navigator. Semoga bermanfaat bagi para pembaca.

Wassalamu’alaikum...

TUGAS 5 PEMROGRAMAN VISUAL

Return Value Function, Overloading Function & Function Bawaan Visual Basic

Assalamu'alaikum.. saya akan menjelaskan sedikit mengenai Function pada Visual Basic 2010. Langsung saja...

 RETURN VALUE FUNCTION
 


Coding gambar di atas sebagai berikut:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

    Private Function fstat(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

            End If

            If hasil(1) < args(i) Then hasil(1) = args(i)

            If hasil(2) > args(i) Then hasil(2) = args(i)

        Next i

        Return hasil

    End Function

End Class

Function dengan nama fstat yang menggunakan ByVal ParamArray, parameter berupa array. Parameter tersebut diberi nama args yang bertipe data Object, sedangkan fstat bertipe data Single.

Dim hasil(3) As Single merupakan variabel lokal, hasil(3) berupa array yang menampung 3 elemen.
For i = 0 To UBound(args) melakukan perulangan sebanyak indeks terakhir pada array args.

If hasil(1) < args(i) Then hasil(1) = args(i)            

If hasil(2) > args(i) Then hasil(2) = args(i)

Jika hasil(1) < args(i), maka args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) > args(i) maka nilai hasil(2) diganti dengan args(i).

Return hasil , akan mengembalikan nilai.

Maka ketika kita menekan tombol Button1 maka akan muncul Total, Terbesar, Terkecil seperti gambar di atas.

 

 

 OVERLOADING FUNCTION

 
Coding gambar di atas sebagai berikut:

Public Class overloading

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = hitung(1, 2, 3)

    End Sub

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        hitung = bil1 + bil2

    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer

        hitung = bil1 + bil2 + bil3

    End Function

End Class

Terdapat 2 function yang sama-sama diberi nama hitung. Pada function pertama mendeklarasikan parameter menggunakan 2 keyword ByVal yang bertipe data Integer. Pada function kedua mendeklarasikan parameter menggunakan 3 keyword ByVal juga bertipe Integer.

coding program di atas, pada saat pemanggilan function menggunakan function kedua dengan  perintah hitung = bil1 + bil2 + bil3.Maka ketika kita menekan tombol Button1 pada TextBox1 akan menampilkan jumlah hitung yaitu 6, jumlah dari 1+2+3.

FUNCTION BAWAAN

 

Fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung.

a.    Fungsi-fungsi konversi ke integer

Fungsi	Keterangan
Cint( )	Pembulatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix( )	Pemotongan suatu nilai desimal menjadi integer
Int( )	Pembulatan ke bawah suatu nilai desimal

b.    Fungsi – fungsi konversi tipe data

Fungsi	Keterangan
Ccur( )	Mengkonversi argumen menjadi tipe data currency
Cdbul( )	Mengkonversi argumen menjadi tipe data double (presisi ganda)
CLng( )	Mengkonversi argumen menjadi tipe data long integer
CSng( )	Mengkoonversi argumen menjadi tipe data single
CStr( )	Mengkonversi argumen menjadi tipe data string
Ivar( )	Mengkonversi argumen menjadi tipe data variant

 

c.    Fungsi-fungsi matematika 

Fungsi	Keterangan
Abs( )	Mengembalikan nilai absolut dari argumen
Atn( )	Mengembalikan nilai arc tangen dari arguen dalam bentuk radian
Cos( )	Mengembalikan nilai cosinus dari argumen dalam radian
Exp( )	Mengembalikan nilai exponensial dari argumen
Log( )	Mengembalikan nilai logaritma dari argumen
Sin( )	Mengembalikan nilai sinus dar argumen dalam radian
Sqr( )	Mengembalikan nilai akar dari argumen
Tan( )	Mengembalikan nilai tangen dari argumen dalam radian

 

 

d.    Fungsi-fungsi String

Fungsi	Keterangan
Lcase$( )	Mengembalikan argumen string sebagai tipe data string huruf kecil
UCase( )	Mengembalikan argumen string sebagai tipe data variant huruf besar
Ucase$( )	Mengembalikan argumen string sebagai tipe data string huruf besar
Val( )	Mengembalikan nilai number dari argumen string
Len( )	Mengembalikan nilai number yang menunjukkan panjang string

 

e.    Fungsi-fungsi Tanggal dan Waktu

Fungsi	Keterangan
Now( )	Mengembalikan tanggal dan waktu sistem
Date( )	Mengembalikan tanggal dari sistem
Time( )	Mengembalikan waktu dari sistem

  

Demikian penjelasan singkatnya, semoga bermanfaat. 

Wassalamu'alaikum...