PROGRAM PENGOLAHAN TAGIHAN PDAM

Berikut ini program untuk menyelesaikan pembayaran tagihan air minum.

Program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic dot Net

Public Class Form1

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

        KP.Items.Add("TOK-MED-100")

        KP.Items.Add("PAB-BEL-101")

        KP.Items.Add("SWA-BEL-102")

        KP.Items.Add("PAB-MED-103")

        KP.Items.Add("RUM-MED-104")

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(KP.Text, 3)

        Select Case x

            Case "100" : Nama.Text = "Muhammad Ardianto"

            Case "101" : Nama.Text = "Jekson Sinaga"

            Case "102" : Nama.Text = "Triani Arista"

            Case "103" : Nama.Text = "Aldyan"

        End Select

        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        Select Case x

            Case "PAB"

                HargaM3.Text = 500

                BBeban.Text = 250000

                Tipe.Text = "Pabrik"

            Case "TOK"

                HargaM3.Text = 500

                BBeban.Text = 25000

                Tipe.Text = "Toko"

            Case "RUM"

                HargaM3.Text = 500

                BBeban.Text = 10000

                Tipe.Text = "Rumah"

            Case "SWA"

                HargaM3.Text = 200

                BBeban.Text = 15000

                Tipe.Text = "Swalayan"

        End Select

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)

        Select Case x

            Case "MED" : Daerah.Text = "Medan"

            Case "BEL" : Daerah.Text = "Belawan"

        End Select

    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)

            Pajak.Text = 0.01 * TTagihan.Text

            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)

        End If

    End Sub

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

        End

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        KP.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        TTagihan.Text = ""

        HargaM3.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

        Pemakaian.Text = ""

        Daerah.Text = ""

        BBeban.Text = ""

    End Sub

End Class

Demikianlah program penyelesaian pembayaran tagihan air minum menggunakan Visual Basic dot Net

mesran.net

data pemograman karyawan menggunakn Vb.net

 

Public Class Form1

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

        NIK.Items.Add("PM001")

        NIK.Items.Add("PS002")

        NIK.Items.Add("KU003")

        NIK.Items.Add("GD004")

        NIK.Items.Add("PM002")

        GOLONGAN.Items.Add("IIIA")

        GOLONGAN.Items.Add("IIIB")

        GOLONGAN.Items.Add("IIIC")

        STATUS.Items.Add("menikah")

        STATUS.Items.Add("belum menikah")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case Nik.Text

            Case "PM001"

                NAMA.Text = "dita"

            Case "PS002"

                NAMA.Text = "rama"

            Case "KU003"

                NAMA.Text = "dhani"

            Case "GD004"

                NAMA.Text = "dinda"

            Case "PM002"

                NAMA.Text = "savira"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            BAGIAN.text = "pemasaran"

        ElseIf x = "PS" Then

            BAGIAN.text = "personalia"

        ElseIf x = "KU" Then

            BAGIAN.text = "keuangan"

        Else

            BAGIAN.text = "pemasaran"

        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAMA.TextChanged

    End Sub

    Private Sub GOLONGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOLONGAN.SelectedIndexChanged

        Select Case GOLONGAN.Text

            Case "IIIA"

                GAJIPOKOK.Text = "1000000"

            Case "IIIB"

                GAJIPOKOK.Text = "2000000"

            Case "IIIC"

                GAJIPOKOK.Text = "3000000"

        End Select

        PAJAK.Text = 0.03 * GAJIPOKOK.Text

    End Sub

    Private Sub Btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_proses.Click

        TOTALGAJI.Text = Val(GAJIPOKOK.Text) + Val(TUNJANGANKEL.Text) - Val(PAJAK.Text)

    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        Select Case STATUS.Text

            Case "menikah"

                TUNJANGANKEL.Text = 0.1 * GAJIPOKOK.Text

            Case "belum menikah"

                TUNJANGANKEL.Text = "0"

        End Select

    End Sub

    Private Sub Btn_hpus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpus.Click

        NIK.Text = ""

        NAMA.Text = ""

        BAGIAN.Text = ""

        GOLONGAN.Text = ""

        GAJIPOKOK.Text = ""

        PAJAK.Text = ""

        STATUS.Text = ""

        TUNJANGANKEL.Text = ""

        TOTALGAJI.Text = ""

    End Sub

End Class

berikut adalah lanjutan desain di atas:

mesran.net

Program Vb.Net 2008 Kriptografi VERNAM CHIPER

mari kita belajar kriptografi vernam,,

kita langsung aja dengan mengetikan listing programnya seperti ini:

Public Class Vernam_Chiper

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

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        j = 0

        sKata = Plainteks.Text

        jum = Len(sKata)

        sKey = Kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

        Next i

        Chiperteks.Text = sPlain

    End Sub

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

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

Tampilan Desain 

 mesran.net

Tempat Wisata di Kota Medan yang Menarik

1.Danau Linting

Danau Linting Kota Medan

Danau Linting merupakan Salah satu Danau unik yang dapat anda kunjungi di kota Medan, Danau Linting ini mempunyai warna air yang hijau dan biru juka dilihat dari permukaan, dan disekeliling danau terdapat batu cadas. Lokasi Danau Linting di Kecamatan STM Hulu desa Sibunga-bunga Hilir Kabupaten deli Serdang. Danau Linting memiliki nuansa mistis namun menyejukkan karena disekeling danau terdapat pepohonan dengan akar yang panjang sehingga menambah suasna udara menjadi sejuk dan damai. Sangat Cocok untuk tempat refreshing anda dan keluarga atau bersama sahabat-sahabat anda.

2. Air Terjun Sipiso-Piso Tongging

Air Terjun Sipiso-Piso Tongging kota Medan

Air terjun Sipiso-Piso Tongging yang majestic terletak sekitar 135 km dari Brasatagi. Air terjun Tongging ini mempunyai ketinggian sekitar 120 meter yang dekat dengan Gunung Sipiso-piso . Keindahan panorama alam dari air terjun ditambah dengan pemandangan alam dari Danau Toba yang indah dan juga matahari di air terjun yang menambah keindahan dari air terjun tongging yang indah. Anda harus Bersiap untuk olah raga jika ingin pergi menuju dasar dari air terjun tongging. Karena anda harus menempuh sekitar 1000 anak tangga dan kira-kira membutuhkan waktu sekitar setengah jam untuk turun ke bawah melewati tangga yang berliku-liku dengan berjalan kaki. Air terjun Tongging sangat indah karena tidak begitu jauh dari tepian Danau Toba yang juga berada di tengah bukit dan disekelilingnya memiliki nuansa warna hijau yang di pengaruhi oleh tumbuhan dan ada disekeliling lembah yang menakjubkan.

3. Air Terjun dan Telaga Dwi Warna Sibolangit

Air Terjun dan Telaga Dwi Warna Sibolangit

Air Terjun dan Telaga Dwi Warna Sibolangit berjarak sekitar 2 jam waktu dari Kota Medan dengan menggunakan motor atau bus. Sibolangit merupakan sebuah tempat dengan nuansa pegunungan yang sejuk dan penuh dengan tempat pariwisata yang menarik sangat cocok untuk travelling. Salah satunya adalah Telaga Dwi warna yang terdapat di dalam hutan Sibolangit. Air terjun ini disebut Dwi warna karena air terjun terjun ini berada di telaga berwarna biru yang dingin dan tidak jauh dari air terjun yang dingin terdapat juga air terjun yang hangat dan berwarna putih. Jika Anda dari taman wisata Sibolangit dan ingin menuju Telaga Dwi warna ini membutuhkan waktu sekitar 3 jam waktu perjalanan dengan berjalan kaki dan menjelajahi hutan. Anda harus bersiap untuk melakukan perjalanan panjang namun waktu anda melihat keindahan panorama alamnya rasa capek yang ada akan serasa hilang. Pariwisata ini masih tersembunyi dan jika ingin menuju kesini sebaiknya anda menyewa pemandu agar tidak tersesat di dalam hutan. dan Tempat ini juga cocok untuk kamping atau berkemah.

4 . Gedung London

Gedung London Sumatera atau biasa disebut gedung Lonsum selesai dibangun tahun 1906 bersamaan dengan lahirnya Ratu Juliana, Kerajaan Belanda. Dibangun oleh David Harrison, pemilik perkebunan karet Harrison & Crossfield Company (H&C) yang berpusat kota London. Meskipun dibangun pada masa lampu namun fasilitas gedung ini cukup mengagumkan. Ia  tercatat sebagi gedung pertama di Medan yang menggunakan teknologi lift untuk menjangkau 5 lantai. Terletak di kawasan Kesawan, Anda harus melihat dari dekat kemegahan gedung ini. Read more. (peta lokasi View Larger Map)

Apple Kerjasama dengan China Mobile, Siap Datangkan iPhone 5S dan 5C ke Pasar Cina 17 Januari Mendatang

iPhone 5S dan 5C akan segera datang ke pasar Cina. Kedatangan kedua iPhone terbaru itu merupakan bagian dari kerjasama yang baru saja diumumkan oleh Apple dan China Mobile. Provider telepon terbesar dunia dengan jumlah pelanggan sebanyak 760 juta itu pun siap mendatangkan iPhone 5S dan 5C pada 17 Januari mendatang.

Kedua smartphone tersebut akan bisa digunakan memakai jaringan 3G dan 4G milik China Mobile. Pihak China Mobile pun akan mulai melayani pre-order untuk kedua smartphone tersebut pada 25 Desember dan handphone akan secara resmi tersedia pada 17 Januari 2014.
CEO Apple Tim Cook mengatakan bahwa kerjasama itu bakal memberikan keuntungan yang sangat besar bagi kedua perusahaan. Terlebih Cina merupakan salah satu pangsa pasar yang sangat potensial bagi Apple.
Selain mendatangkan iPhone 5S dan 5C, Apple juga siap mendatangkan produk lain miliknya ke pasar Cina. Produk lain tersebut adalah iPad Air. Belum ada informasi resmi terkait rumor yang satu ini. Kita tunggu saja kabar berikutnya.

Samsung Siap Luncurkan Smartphone Pertama Dunia yang Memiliki RAM 4GB

hablet Samsung Galaxy Note 3 menjadi smartphone pertama di dunia yang hadir dengan RAM sebesar 3GB. Namun nampaknya Samsung masih belum puas dengan pencapaian tersebut. Mereka pun siap menghadirkan smartphone yang dilengkapi dengan RAM sebesar 4GB.

Perusahaan asal Korea Selatan itu pun baru saja memperkenalkan chip Memori low power DDR4 8-gigabit (1GB) yang bisa digunakan secara multilayer untuk bisa membentuk memori 4GB. Chip ini pun memungkinkan untuk digunakan pada perangkat mobile karena ukurannya terbilang kecil.
Chip ini juga memiliki kecepatan lebih tinggi dibandingkan chip berbasis DDR3 yang saat ini ada di pasaran, dengan bandwidth sebesar 3.1Gbps. Tak hanya itu, chip memori ini juga hadir dengan efisiensi power 40 persen lebih baik dibandingkan pendahulunya.
Keberadaan chip memori ini pun sangat memungkinkan untuk dihadirkan Samsung pada berbagai jenis produknya pada tahun 2014 nanti. Tak terkecuali produk smartphone Galaxy milik Samsung. Selain itu, teknologi ini juga bisa dihadirkan pada perangkat lain seperti laptop serta tablet.

Macam-macam software komputer yang handal

Ada berbagai macam software komputer yang tersedia untuk masyarakat pada umumnya. Mereka memperoleh akses mudah untuk menemukan software yang berfungsi untuk mendukung kinerja mereka. Tipe software yang sering digunakan oleh cyber addict adalah programming, system dan aplikasi. Masing-masing memiliki kelebihan dan kekurangan. Tentu saja, untuk memperoleh manfaat optimal tersebut, ada baiknya untuk memahami ciri khas ketiga software tersebut.
Diantara ketiga jenis software tersebut, yang paling sering digunakan adalah software sistem. Tipe ini menyajikan pelindung utama bagi berbagai macam aplikasi sekaligus menyediakan support terhadap komponen fisik pada komputer. Ini memastikan adanya kordinasi antar komponen eksternal pada komputer seperti keyboard, display dan printer. Software semacam ini sangatlah dibutuhkan untuk kelancaran kinerja PC komputer dan juga memperbaiki sistem yang tidak berjalan baik.
Lain halnya dengan software system, programming software memberi keleluasaan bagi programmer untuk mengembangkan program bahasa yang diperlukan untuk menjalankan komputer. Beberapa profesi tertentu yang terkait dengan pengembangan bahasa seperti penerjemah, editor dan penulis buku mempergunakan programming software sebagai alat handal untuk memaksimalkan kinerja mereka.
Software aplikasi memberi manfaat yang sedikit berbeda dari software lain. Pada dasarnya ini diciptakan untuk tujuan komersial. Sistem canggih ini sering digunakan untuk berbagai macam kepentingan seperti pendidikan, bisnis dan kesehatan. Banyak praktisi pendidikan yang menggunakan software tersebut untuk kelangsungan proses belajar mengajar di kelas. Selain itu, software untuk perhitungan statistic mampu menyingkat waktu yang dihabiskan untuk menganalisis data. Selain singkat dan cepat, hasilnya pun akurat. Ini yang menyebabkan software sejenis bisa populer di kalangan masyarakat.
Software untuk bisnis pada umumnya digunakan untuk para pemilik perusahaan untuk memegang kendali terhadap data yang muncul pada setiap transaksi bisnis dan lain-lain. Keberadaan software tersebut memberi hal positif pada keefektifan suatu analisis data. Sebagai contoh, banyak para peneliti yang mengambil jalan pintas untuk menganalisis data dengan software komersial yaitu spss. Kegunaan software ini mampu mempermudah urusan mereka dan memberi hasil yang cpat dan akurat.
Salah satu macam-macam software komputer yang umumnya dipakai oleh pengguna komputer adalah computer games. Sesuai dengan kebutuhan masyarakat akan hiburan, software aplikasi menyediakan berbagai macam pilihan agar bisa dimanfaatkan untuk hiburan semata. Banyak aplikasi yang tersedia dan siap diunduh dengan berbagai macam kisaran harga, bahkan ada yang gratis. Keleluasaan ini semakin menambah kepopuleran aplikasi tertentu terhadap yang lain.
Kemunculan Google Play dalam sistem Android merupakan bukti nyata kepopuleran software aplikasi bagi masyarakat. Melalui koneksi internet, pintu gerbang Google Play terbuka lebar agar para pengguna Android dapat merasakan fasilitas gratis dan berbayar dalam bentuk aplikasi variatif.
Macam-macam software komputer aplikasi yang ditemukan pada Google Play memberi inspirasi bagi programmer untuk memproduksi berbagai macam aplikasi berharga untuk memenuhi kebutuhan para pengguna Android. Aplikasi tersebut didesain untuk berbagai macam tujuan yakni pendidikan, bisnis dan kesehatan. Para pelajar dan mahasiswa pun merasa diuntungkan dengan kemudahan akses aplikasi terkait, Mereka bisa belajar tes TOEFl gratis hanya dengan mengunduh software aplikasi yang tersedia di Google Play.

Smartphone Android Mengkonsumsi Data Rata-rata lebih Tinggi Ketimbang iPhone atau Windows Phone

Smartphone Android ternyata membutuhkan jumlah data yang lebih banyak dibandingkan platform lain seperti iOS atapun Windows Phone. Hal tersebut terungkap dalam data yang dirilis oleh Ericsson, konsumsi data rata-rata smartphone Android lebih banyak dibandingkan Windows Phone ataupun iPhone.

Menurut data tersebut, rata-rata smartphone Android memakan data sebanyak 2.2 GB per bulan. Sementara itu iPhone membutuhkan konsumsi data rata-rata lebih rendah, yakni sebanyak 1.7GB per bulan. Platform mobile milik Microsoft, yakni Windows Phone memiliki konsumsi rata-rata paling rendah sebesar 1.4GB per bulan.
Analis telekomunikasi Chetan Sharma mengungkapkan secara khusus bahwa smartphone Android high-end di Amerika rata-rata memakan data sebanyak 4GB per bulan. Sharma mengatakan bahwa tingginya konsumsi data smartphone Android tersebut terjadi karena mempunyai layar berukuran lebih besar.
Sharma juga mengungkapkan alasan lain kenapa Android memakan data lebih banyak ketimbang iOS dan Android. Faktor tersebut adalah karena Android menjalankan banyak aplikasi di background secara otomatis, salah satunya adalah mengumpulkan informasi berupa data lokasi.

Sistem Operasi Android Kuasai 40 Persen Traffic Internet Mobile Dunia

Dunia saat ini tengah terjangkit wabah Android. Tak heran kalau perangkat Android saat ini bisa dijumpai di mana-mana. Dan menurut data yang dirilis oleh StatCounter, Android saat ini juga mendominasi traffic internet mobile dunia.

Dari data tersebut, saat ini pengguna Android menguasai 43 persen traffic internet mobile. Angka tersebut pun meningkat jika dibandingkan tahun 2012, di mana perangkat Android mengkonsumsi data sebanyak 33.19 persen.
Peningkatan serupa juga dialami oleh Windows Phone. Pada tahun 2012, konsumsi data Windows phone berada di angka 0.91 persen. Dan menurut data terbaru dari StatCounter, traffic internet mobile dari perangkat Windows Phone saat ini berada di angka 2.08 persen.
Kenaikan traffic data dari perangkat Windows Phone tersebut pun terjadi karena tingginya angka penjualan smartphone Lumia 520/521. Smartphone tersebut saat ini memang menjadi smartphone Windows Phone paling populer sedunia.
Berbeda dengan Android dan Windows Phone, akses data dari iPhone justru mengalami penurunan. Di kalangan pengguna iPhone, terdapat penurunan traffic data dari 23.36 persen pada 2012 ke angka 21.82 persen. Sementara itu akses data dari pengguna BlackBerry sedikit mengalami kenaikan, dari 3.53 persen menjadi 3.63 persen.

sejarah Visual Basic

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).
Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.
Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.
Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.). Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.
Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.
Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).