Sekilas Mengenai Mesran.Net

Assalmu'alikum wr.. wb...

kali ini saya akan mengajak teman-teman sekalian untuk belajar banyak tentang bahasa program, dan saya juga akan memperkenalkan kepada semua sebuah website yang bisa membantu dan mempermudah kita untuk belajar banyak tentang bahasa pemrograman yaitu di website mesran.net.

Mesran.net adalah salah satu website tempat belajar

bahasa pemrograman. Di mesran.net teman-teman dapat

menemukan berbagai macam artikel tentang bahasa

pemrograman mulai dari Vb.net, vcsharp, Visual Basic,Prog.Pascal. Di mesran.net teman-teman juga dapat langsung bertanya dengan berkomentar, pasti setiap pertanyaan sobat akan di jawab. Mesran.net merupakan salah satu dari sekian banyak website tempat belajar bahasa pemrograman yang menurut saya cukup lengkap.

Di mesran.net teman-teman juga dapat menemukan berbagai macam informasi yang tentunya berguna buat sobat, dan mesran.net merupakan tempat mahasiswa/I Budidarma belajar bahasa pemrograman. Apalagi di Akhir semester mesran.net akan menjadi tempat yang ramai di kunjungi mahasiswa/I Budidarma, untuk melihat Nilai atau IP.

Demikian lah Artikel dari mesran.net semoga informasi yang saya berikan bermanfaat bagi kita semua.
Wassalamu'alaikum wr.. wb..

Program Penghitungan Biaya Sewa Kamar dengan VB.Net

Membuat program sederhana menggunakan VB 2008

Bagi anda yang sudah expert di dunia pemrograman, pasti sudah sangat mengenal Visual Basic 2008, pemrograman berbasis object ini, adalah salah satu bahasa pemrograman yang paling diminati oleh programmer expert, atau programmer newbie seperti saya. Visual Basic adalah bahasa pemrograman keluaran Microsoft Corp , relative mudah dipelajari untuk mereka yang baru mengenal bahasa pemrograman .

Kali ini saya akan berbagi ilmu mengenai VB 2008, yaitu bagaiman membuat program perhitungan biaya hotel J

1.       Yang pertama kali anda lakukan adalah klik shortcut VB 2008.

2.       Lalu setelah muncul, program VB 2008, pilih “New Project”

3.        

Pilih windows forms application, dan klik OK

4.       Anda akan dibawa menuju form, dimana anda bisa mendesain user interface dari program anda

Atur desain form anda sesuai dengan gambar diatas, disini saya menggunakan

·         2 buah groupbox

·         6 buah label

·         5 buah textbox

·         2 buah button

·         Dan 1 buah timer

6.       Lalu rubah properties dari object diatas,

·         groupbox1; text = Hotel ,

·         groupbox2; text = Command,

·         label1; text = Lama Menginap

·         label2; text =  Harga Sewa Perhari

·         label3; text = Biaya Sewa Kamar

·         label4; text = Jumlah Bayar

·         label5; text = kembali

·         label6; name = lblCreated, text = Created By : (isi terserah anda) , Font : Monotype Corsiva, 16pt, style=Italic

·         textbox1 ; name = txtLama

·         textbox2; name = txtHarga

·         textbox3; name = txtBiaya

·         textbox4; name = txtBayar

·         textbox5; name = txtKembali

·         button1; text = New, name = btnNew

·         button2; text = Close, name = btnClose

7.       Tampilan dari form tadi akan berubah menjadi seperti gambar dibawah ini

                

8.       Klik pada form, dan ketikkan koding berikut

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

        'TODO: This line of code loads data into the 'HotelDataSet.Hotel' table. You can move, or remove it, as needed.

        Me.HotelTableAdapter.Fill(Me.HotelDataSet.Hotel)

        Me.Text = "Menghitung Biaya Sewa Kamar Sebuah Hotel"

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.txtBiaya.Enabled = False

        Me.txtKembali.Enabled = False

    End Sub

9.       Lalu, klik pada txtHarga, dan ketikkan koding berikut

Private Sub Harga_sewa_perhariTextBox_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

10.   Setelah itu klik dua kali pada txtBayar, dan masukkan koding berikut

               Private Sub txtBayar_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles txtBayar.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

11.   Lalu, pada btnNew masukkan koding berikut

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnNew.Click

Dim answer = MsgBox("Apakah anda ingin memasukkan input baru, dan menghapus data yang baru di input ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

        Me.txtBayar.Clear()

        Me.txtBiaya.Clear()

        Me.txtHarga.Clear()

        Me.txtKembali.Clear()

        Me.txtLama.Clear()

End if

    End Sub

End Class

12.   Pada btnClose masukkan koding berikut

Dim answer = MsgBox("Apakah anda ingin keluar ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

            End

        End If

13.   Dan terakhir pada timer1, masukkan koding berikut

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

        If Me.lblCreated.Visible = True Then

            Me.lblCreated.Visible = False

        Else

            Me.lblCreated.Visible = True

        End If

    End Sub

Save dan, coba anda run. Selamat anda sudah berhasil membuat program penghitungan biaya sewa kamar !!! :D

kriptografi enkripsi-deskripsi dengan VB.Net

 

Dalam tutorial vb.net berikut ini, penulis mencoba membuat program Kriptografi, Enkripsi dan Dekripsi dengan program vb.net, apa itu Kriptografi, Enkripsi dan Dekripsi? Sedikit saya jelaskan yah…

Kriptografi adalah cara-cara untuk mengamankan data, Data yang asli diubah menjadi sandi-sandi dengan format tertentu.
Dalam kriptografi terdapat dua konsep utama yakni enkripsi dan dekripsi.
Enkripsi adalah proses dimana informasi / data yang hendak dikirim diubah menjadi bentuk yang hampir tidak dikenali sebagai informasi awalnya dengan menggunakan algoritma tertentu.
Dekripsi adalah kebalikan dari enkripsi yaitu mengubah kembali bentuk tersamar tersebut menjadi informasi awal.
Pada tutorial kali ini kita akan membutuhkan “Class” dari vb.net untuk membuat program Enkripsi dan Dekripsi.
Ok langsung saja tutorial membuat Kriptografi, Enkripsi dan Dekripsi menggunakan vb.net :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, dan Juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. Ubah Propertiesnya seperti ini :

Nama Control	Properties	Nilai
Label1	Text	Teks Asli
Label2	Text	Teks Sandi
TextBox1	Text	[Dikosongkan]
	Name	TxtTextAsli
	Multiline	Thrue
	ScrollBars	Vertical
TextBox2	Text	[Dikosongkan]
	Name	TxtTeksSandi
	Multiline	Thrue
	ScrollBars	Vertical
Button1	Text	Enkripsi
	Name	BtnEnkripsi
Button2	Text	Dekripsi
	Name	BtnDekripsi

4. Sebelum Memasukkan Kode di Form1 anda harus membuat dua “Class” terlebih dahulu, caranya klik “Add New Item” di ToolBar, Lalu Pilih “Class”,
5. “Class” yang pertama beri nama dengan “Kryptografi” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Kryptografi
Protected Teks_Asli As String, Teks_Sandi As String, PanjangTeks As Long
Public Function KryptografiEnkripsi(ByVal Teks As String) As String
Dim Pos As Long, EnkripsiKarakter, EnkripsiText
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Asli, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
EnkripsiKarakter = Mid(Teks_Sandi, Pos, 1)
EnkripsiText = EnkripsiText + EnkripsiKarakter
Else
EnkripsiText = EnkripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiEnkripsi = EnkripsiText
End Function
Public Function KryptografiDekripsi(ByVal Teks As String) As String
Dim Pos As Long, DekripsiKarakter, DekripsiText
Teks_Sandi = “?!@#$%^&*()_+|;:,’.-`~1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ”
Teks_Asli = ” ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890?!@#$%^&*()_+|;:,’.-`~”
For PanjangTeks = 1 To Len(Teks)
Pos = InStr(Teks_Sandi, Mid(Teks, PanjangTeks, 1))
If Pos > 0 Then
DekripsiKarakter = Mid(Teks_Asli, Pos, 1)
DekripsiText = DekripsiText + DekripsiKarakter
Else
DekripsiText = DekripsiText + Mid(Teks, PanjangTeks, 1)
End If
Next
KryptografiDekripsi = DekripsiText
End Function
End Class

6.  “Class” yang Kedua beri nama dengan “Proses” pada kolom “Name”, Lalu Pilih “Add”, Setelah itu masukkan kode berikut ini :

Public Class Proses
Inherits Kryptografi
End Class

7.  Sehingga Solution Exlorer yang disebelah kanan akan tampak sebagai berikut ini :

8.  Pada Form1 Masukkan kode berikut ini :

Public Class Form1

Private Sub BtnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnkripsi.Click
Dim Enkripsi As New Proses
TxtTeksSandi.Text = Enkripsi.KryptografiEnkripsi(TxtTeksAsli.Text)
End Sub

Private Sub BtnDekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDekripsi.Click
Dim Dekripsi As New Proses
TxtTeksSandi.Text = Dekripsi.KryptografiDekripsi(TxtTeksSandi.Text)
End Sub
End Class

9.  Setelah itu klik “Start Debugging (F5)”
10.  Maka akan tampil form1 dan coba masukkan sebuah kalimat dan tekan tombol enkripsi, maka kalimat yang di bawah akan berubah.. dan coba klik Dekripsi maka kalimat yang berubah tersebut kambali ke kalimat yang awal.

Demikian tutorial membuat program Kriptografi, Enkripsi dan Deskripsi dengan vb.net.

cara membuat pemisah koma ribuan pada inputan angka di VB.Net

         kali ini postingan aku agak serius nih,di sini akan di bahas bagaimana cara membuat koma ribuan pada inputan angka di VB.Net.aku sih baru belajar jadi copas blog sebelah boleh donk yaa

       visual Basic yang saya gunakan adalah Visual basic yang satu paket dalam Visual Studio Ultimate 2012, tapi codingnya sama kok sama versi sebelumnya seperti versi Visual basic.Net 2010 (Vb.Net 2010) pemisah koma yang saya maksud seperti gambar dibawah :

Langkah-langkah :

• Langkah pertama , buatlah form yang bernama “FormPemisahKoma” dan masukkan 3 textbox yang terdiri dari textbox pertama dengan nama “TxtValue1” , textbox kedua dengan nama “TxtValue2” dan terakhir  dengan nama “TxtHasil” serta masukkan sebuah Button yang bernama “BtnJumlah”, berikut penampakan hasil form pemisah komanya :

• Selanjutnya tinggal ngoding code aja, codenya seperti dibawah ini :

• Nah, setelah semua dibuat, silahkan di coba, dan liat hasil seperti berikut :

Nah sekian share tentang cara membuat pemisah koma ribuan  pada inputan angka di VB.Net, semoga bermanfaat.

 

sumber:http://pohon-tua.blogspot.com/2014/08/cara-membuat-pemisah-koma-ribuan.html

perubahan....

   Setelah untuk yg kesekian kali nya kehilangan passsword blog,akhir nya blog mahasiswa berkumis tipis bisa nyampah lagi di dunia maya,maklum lah karena faktor U juga (usia) dan terlalu banyak pikiran makanya sampai lupa password blog2 yg sebelumnya.

   Ehh sepertinya aku harus ngerubah jalur blog aku nih,kek nya blog ini harus lebih berbobot ga cuma nyampah di dunia maya,iya karena blog ini sebenernya tugas dari dosen,jadi seperti nya jalan cerita di blog ini harus diputer 180 derajat.dari pada ga di terima lebih bagus di perbaiki dari sekarang karena setelah aku cermati kek nya isi blog aku ini gadak nyinggung ke materi kuliah.



saat nya BERUBAAAAH !!!!!! (ala ala powerrangers)

Fatamorgana Senyum Mu

Andai aku dan kau tak pernah menjadi kita.
Pandangan itu tak berujung cinta.
Rentang waktu yg telah kita lalui bersama
tak menjadi rindu.
Dan andai segaris senyum di bibir mu tak menjadi candu.

Mungkin saat ini aku tak akan begitu sakit saat kau tak lagi bisa memberi senyum itu untuk ku,dan aku tak akan merasa ada sesuatu yg hilang di hidup ku.

Saat ini aku mencoba untuk menghapus fatamorgana senyum mu di benak ku
Tapi, entah mengapa aku selalu tidak kuasa untuk melakukan itu di saat aku haus akan indahnya senyum mu 

Malam yg sunyi selalu memutar kembali video kebersamaan kita,dan aku sebagai penonton yg baik selalu mengikuti alur ceritanya,berharap kau masih di sini dan ikut menonton semua kenangan kita.

Jarum Suntik

        "Gak sakit kok,kayak (di gigit semut) aja" kata perawat itu meyakin kan ,sesaat setelah kalimat itu di ucapkan,tiba tiba sebuah jarum berongga menyelinap di lapisan kulit ku,dan benda kecil berbentuk jarum itu dengan sukses mengalirkan cairan nya di aliran darah ku.
Seketika pandangan ku berkunang kunang,kaki ku terasa tak sanggup lagi untuk membuat ku berdiri tegak,dan semua nya menjadi gelap.Aku pingsan,iyaa...pingsan, dan aku pingsan cuma gara gara di suntik anti tetanus sewaktu kelas 2 SD.semenjak saat itu aku menjadi sangat takut untuk berhubungan dengan yg nama nya jarum suntik.Mungkin di antara kalian juga memiliki phobia seperti yg aku alami (cieeeee samaan )
Malam ini ku beranikan diri untuk bertanya ke google siapakah yg kurang kerjaan menyiptakan jarum suntik itu (bentar yaa google nya lagi loading)
hufft lama yaa gel (google) nyari kek gitu aja pun lama kalii..


(setelah 6 jam 57 menit lewat 3 detik) akhir nya google berhasil mendapat kan informasi  yg aku cari,mari kita simak penjelasan  google (ehh itu yg di belakang,tidur ko yaa ?)



 Kata si google " Bentuk injeksi intravena dan infus dimulai sejak 1670.
Namun, Charles Gabriel Pravaz dan Alexander Wood (ohh jadi lek ini yg nyiptain) adalah yang pertama untuk mengembangkan sebuah jarum suntik dengan jarum denda cukup untuk menembus kulit pada tahun 1853.
Banyak kesulitan teknis yang dihadapi mereka bereksperimen dengan transfusi darah telah dihapus setelah 1853 oleh penemuan jarum suntik, dengan jarum berongga runcing.
Kredit untuk evolusi alat ini berguna universal biasanya diberikan kepada Dokter Alexander Wood (lahir 1817), yang diangkat Sekretaris dari Royal College of Physicians of Edinburgh 1850.
Untuk beberapa waktu, Dokter Wood telah bereksperimen dengan jarum berlubang untuk pemberian obat.
Akhirnya, dia merasa cukup percaya diri untuk mempublikasikan dalam "The Medical Edinburgh dan Bedah Review" kertas pendek - 'Sebuah Metode Baru mengobati Neuralgia oleh aplikasi langsung Opiat ke Poin Menyakitkan' - di mana ia menunjukkan bahwa metode ini belum tentu terbatas pada administrasi opiat.
Pada waktu yang sama, Charles Gabriel Pravaz dari Lyon membuat jarum suntik serupa yang dengan cepat datang ke banyak digunakan dalam operasi dengan nama 'The Syringe Pravaz'.
Menurut MedhelpNet.com:
"Charles Gabriel Pravaz (1791-1853), ahli bedah Prancis, dan Alexander Wood (1817-1884), dokter Skotlandia, independen menemukan jarum suntik..
Hal ini pertama kali digunakan untuk menginjeksi morfin sebagai obat penghilang rasa sakit"
Vaksinasi Jarum suntik
Benjamin A. Rubin menemukan "cabang Imunisasi dan Pengujian Needle" atau jarum vaksinasi .
Ini merupakan penyempurnaan untuk jarum suntik konvensional.
Jarum suntik sekali pakai
Arthur E. Smith menerima 8 paten AS untuk jarum suntik sekali pakai 1949-50.
(US nos Paten. 2524363, 2524362, 2497562, 2490553, 2490552, 2490551, 2478845, 2478844)
Pada tahun 1954, Becton, Dickinson dan Perusahaan menciptakan alat suntik sekali pakai yang diproduksi massal pertama dan jarum, diproduksi di kaca.
Ini dikembangkan untuk Salk massal administrasi Jonas Dr dari satu juta anak-anak Amerika dengan vaksin polio Salk baru.
Pada tahun 1955, Roehr Produk memperkenalkan suntik syring e pakai plastik yang disebut Monoject tersebut.
Pada tahun 1956, Colin Murdoch, seorang apoteker dari Timaru, Selandia Baru mematenkan sekali pakai, jarum suntik plastik untuk menggantikan jarum suntik kaca.
Colin Murdoch telah mematenkan empat puluh enam penemuan termasuk: alarm pencuri diam, jarum suntik otomatis untuk memvaksinasi hewan, bagian atas botol childproof, dan senapan pembius yang diciptakan pada tahun 1959.
Pada tahun 1961, Becton Dickinson memperkenalkan jarum suntik sekali pakai pertama plastik yang disebut Plastipak.
African American penemu Phil Brooks menerima paten AS untuk " Jarum suntik sekali pakai "pada tanggal 9 April 1974".
Diambil dari:  http://inventors.about.com/library/inventors/blsyringe.htm
 
Fiyuhhh..(ngelap keringat) makasi ya gel udah ngasi tau,makin takut aku loh,entah sampai kapan aku harus takut dengan jarum suntik,Tapi sepertinya untuk selamanya kalau pun aku sakit,minum obat adalah pilihan terbaik dari pada aku harus di suntik.

Ari Hidayat 21 tahun (cowok bekumis,tapi takut banget di suntik )