Trik Membuka File Berekstensi EPUB dengan Adobe Digital Edition

Trik Membuka File Berekstensi EPUB dengan Adobe Digital Edition

Seiring dengan perkembangan dunia IT, maka segala sesuatunya semakin tidak bisa luput dari sentuhan IT. Tak terkecuali dalam dunia pendidikan. Pengaruh terhadap kebiasaan gaya hidup semakin tampak. Salah satunya adalah dalam penyampaian berita maupun ilmu.
Kita ambil contoh pada perkembangan buku. Dahulu, orang membuat buku pasti dari yang namanya kertas. Dengan semakin berkembangnya teknologi digital, maka buku yang dulu sifatnya nyata, sekarang ikut dibuat menjadi digital, atau lebih dikenal dengan E-book. Hal ini tentunya sangat bermanfaat terutama pada efektifitas bahan bakunya. Konsumsi terhadap bahan baku kertas yaitu kayu menjadi berkurang. Sehingga bisa lebih ramah terhadap alam.
Di dunia E-book sendiri, kita mengenal bermacam-macam jenis/eksteni dari Ebook itu sendiri. Dari yang paling sering kita temui seperti PDF, DJVU, EPUB, CHM, dan lainnya. Ada juga yang berbentuk file aplikasi (.exe). Nah untuk kali ini, yang akan kita bahas adalah tentang file yang berakhiran EPUB.
File EPUB tidak bisa dibuka dengan software biasanya seperti Adobe reader ataupun Nitro pdf. Tapi butuh aplikasi yang lain. Dan yang akan kita bahas ini masih merupakan produk dari Adobe. Yaitu software yang berjuluk Adobe Digital Edition.

Langsung saja kunjungi situsnya adobe, dan kalau tidak salah link untuk Adobe Digital Editionnya adalah :
Download dan langsung instal saja. Untuk saat ini versi yang terbaru adalah versi 1.8.3

Setelah terinstal, maka buka saja aplikasinya.
Untuk membuka file EPUBnya, klik saja Ctrl + O. Atau bisa juga dengan Klik File >> Add to library

Selanjutnya tinggal klik 2X file pada Bookshelves. Maka tampilannya adalah seperti ini :

Latihan Listview Perhitungan Penjualan Barang

Latihan Listview Perhitungan Penjualan Barang

Public Class databarang

 

    Private Sub databarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        rancangtabel()

        bersih()

        Call addkodebarang()

       

    End Sub

    Sub addkodebarang()

        kodebarang.Items.Add("c001")

        kodebarang.Items.Add("c002")

        kodebarang.Items.Add("c003")

    End Sub

    Sub bersih()

        kodebarang.Text = ""

        namabarang.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

    End Sub

    Sub rancangtabel()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("kodebarang", 100)

        lv.Columns.Add("namabarang", 140)

        lv.Columns.Add("satua", 100)

        lv.Columns.Add("harga", 100)

        lv.Columns.Add("jumlah", 80)

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = kodebarang.Text

        lst.SubItems.Add(namabarang.Text)

        lst.SubItems.Add(satuan.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub kodebarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        rancangtabel()

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

        bersih()

        kodebarang.Focus()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        lv.Items.Clear()

        bersih()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        If kodebarang.Text = "c001" Then

            namabarang.Text = "acer"

            satuan.Text = "unit"

            harga.Text = "4200000"

            jumlah.Text = "1"

        ElseIf kodebarang.Text = "c002" Then

            namabarang.Text = "tosiba"

            satuan.Text = "unit"

            harga.Text = "4000000"

            jumlah.Text = "1"

        ElseIf kodebarang.Text = "c003" Then

            namabarang.Text = "HP"

            satuan.Text = "unit"

            harga.Text = "11200000"

            jumlah.Text = "12"

        End If

    End Sub

End Class

hasilnya :