Pembacaan Text File(Notepad) menggunakan Visual Basic 2005

Pada saat pembuatan program pasti dibutuhkan tempat penyimpanan file yang tetap ya paling tidak datanya tidak langsung hilang begitu program dijalankan dan data masih tetap ada jika program dibuka dikemudian hari mungkin bisa dibilang sih seperti file atau database lah. Nah kali ini saya akan coba bahas cara menghubungkan atau membuat file text yang dapat diisi dan dibaca datanya.
p>Untuk melakukan penyimpanan pada data otomatis yang pertama kali kita lakukan adalah menentukan tempat penyimpanan dan nama file, kemudian kita harus perhatikan apakah file tersebut sudah ada atau belum, jika filenya belum ada ya tinggal save saja tetapi kalau file sudah ada berarti ada dua kemungkinan yaitu mengganti nama file atau membiarkan file lama tertimpa alias menghilang karena digantikan file baru, pada Visual basic 2005 kita bisa membuat kemungkinan-kemungkinan seperti itu.

beberapa perintah standard pengaksesan file :

1. system.io.file.exists(namafile) berfungsi untuk mengecek keberadaan file apakah sudah ada apa belum.
   
2. system.io.streamwriter(namafile) berfungsi untuk membuat file baru atau membuka file untuk diisi/ditambahi
   
3. system.io.streamreader(namafile) berfungsi untuk membuat akses file yang medonya membaca
   

setelah kita membuat akses file maka kita perlu melakukan operasi terhadap file tersebut seperti mengisi dan membaca nah
Beberapa perintah pengolahan isi file

1. Readline berfungsi untuk membaca satu bari


2. readtoend berfungsi untuk membaca isi file sampai habis


3. endofstream berfungsi mengecek apakah cursor sudah berada pada data paling akhir



4. write berfungsi untuk menuliskan/menambah data ke file dengan posisi cursor berada paling kanan


5. writeline berfungsi untuk menuliskan/menambahkan data ke file dengan posisi cursor berada di baris berikutnya.

Contoh Program Pada Form1 buat tampilan seperti Berikut ini

Kode Programnya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

Untuk Form2 buatlah tampilan berikut ini

Kodenya:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If System.IO.File.Exists("BUKUTAMU.TXT") Then
Dim bf As New System.IO.StreamWriter("bukutamu.txt", True)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close
Else
Dim bf As New System.IO.StreamWriter("bukutamu.txt", False)
bf.WriteLine(TextBox1.Text)
bf.WriteLine(TextBox2.Text)
bf.WriteLine(TextBox3.Text)
bf.WriteLine(TextBox4.Text)
bf.Close()
End If
End Sub

Pada Form3 bentuk tampilan sebagai berikut ini:

Kodenya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists("bukutamu.txt") Then
Dim bf As New System.IO.StreamReader("bukutamu.txt")
Do
TextBox1.Text = TextBox1.Text & bf.ReadLine
Loop While Not bf.EndOfStream
bf.Close()
Else
MsgBox("Maaf buku tamu masih kosong")
TextBox1.Enabled = False
End If
End Sub

Spammer dan Valentine

Menjelang hari valentine, kayaknya enaknya nih cari kado untuk si doi, yaa itupun kalau misalnya tidak jomblo, ya kalau masih jomblo jangan salah bisa juga cari kado untuk diberikan untuk keluarga. Kalu yang jomblo itu blogger ya paling-paling kerjaannya ngeblog dan ningkatkan rank alexa. Tapi yang satu ini tidak jauh berbeda siapa lagi kalau bukan para spammer mau tau aksinya di hari valentine ini ikuti kisahnya dan rencananhya dan pasti terima kado istimewa dari mereka

Pesan sampah (spam) yang dikirimkan para spammer tersebut menawarkan iming-iming kado Valentine istimewa.
Menurut pengamatan Symantec, ada sekitar 20 subjek spam 'Valentine's Day' yang dikirim untuk para pengguna PC, misalnya:
Increase your length, the best valentine's gift
Show off your length for valentine's
Valentines Day Approaching... Don't Miss Out on Our $1 Jewelry Auctions
Lose excess weight by valentine's day
An Erotic Valentines Gift
Need A Valentines Gift?

Selain itu, spammer juga menggunakan kata dan frase tertentu dalam subjek pesan, seperti 'Feb 14', 'Februari 14', 'Cupid'.

Oleh karena itu para pengguna PC diimbau untuk waspada terhadap banjir 'kado istimewa' dari para spammer.

Ikan baris Gratis

Daftar Iklan baris anda disini, begitu anda daftar langsung diproses
Daftar iklan Anda

Iklan terbaru:

Judul Iklan Anda: kampanye damai
Isi Iklan Anda: kampanye damai pemilu indonesia 2009
Web Anda: http://ukibatam.blogspot.com

Sejarah Valentine Day

Hari Valentine (bahasa Inggris: Valentine's Day), pada tanggal 14 Februari adalah sebuah hari di mana para kekasih dan mereka yang sedang jatuh cinta menyatakan cintanya di Dunia Barat. Asal-muasalnya yang gelap sebagai sebuah hari raya Katolik Roma didiskusikan di artikel Santo Valentinus. Beberapa pembaca mungkin ingin membaca entri Valentinius pula. Hari raya ini tidak mungkin diasosiasikan dengan cinta yang romantis sebelum akhir Abad Pertengahan ketika konsep-konsep macam ini diciptakan.Hari raya ini sekarang terutama diasosiasikan dengan para pencinta yang saling bertukaran notisi-notisi dalam bentuk "valentines". Simbol modern Valentine antara lain termasuk sebuah kartu berbentuk hati dan gambar sebuah Cupido (Inggris: cupid) bersayap. Mulai abad ke-19, tradisi penulisan notisi pernyataan cinta mengawali produksi kartu ucapan secara massal. The Greeting Card Association (Asosiasi Kartu Ucapan AS) memperkirakan bahwa di seluruh dunia sekitar satu milyar kartu valentine dikirimkan per tahun. Hal ini membuat hari raya ini merupakan hari raya terbesar kedua setelah Natal di mana kartu-kartu ucapan dikirimkan. Asosiasi yang sama ini juga memperkirakan bahwa para wanitalah yang membeli kurang lebih 85% dari semua kartu valentine.
Di Amerika Serikat mulai pada paruh kedua abad ke-20, tradisi bertukaran kartu diperluas dan termasuk pula pemberian segala macam hadiah, biasanya oleh pria kepada wanita. Hadiah-hadiahnya biasa berupa bunga mawar dan cokelat. Mulai tahun 1980-an, industri berlian mulai mempromosikan hari Valentine sebagai sebuah kesempatan untuk memberikan perhiasan.
Sebuah kencan pada hari Valentine seringkali dianggap bahwa pasangan yang sedang kencan terlibat dalam sebuah relasi serius. Sebenarnya valentine itu Merupakan hari Percintaan, bukan hanya kepada Pacar ataupun kekasih, Valentine merupakan hari terbesar dalam soal Percintaan dan bukan berarti selain valentine tidak merasakan cinta.
Di Amerika Serikat hari raya ini lalu diasosiasikan dengan ucapan umum cinta platonik "Happy Valentine's", yang bisa diucapkan oleh pria kepada teman wanita mereka, namun jarang kepada teman pria lainnya. Kecuali kedua-duanya adalah kaum homoseksual.


Sumber:Wikipedia

Hati

hati merupakan kelenjer tebesar di dalam tubuh, terletak diafragma. Berdasarkan fungsinya, hati juga termasuk sebagai alat ekskresi. Hal ini dikarenakan hati membantu fungsi ginjal dengan cara memecah beberapa senyawa yang bersifat racun dan menghasilkan anomia, urea dan asam urat dengan memanfaatkan nitrogen dari asam amino. Proses pemecahan senyawaa racun oleh hati disebut proses detoksifikasi.
Sebagai kelenjer, hati menghasilkan empedu yang mencapa 1/2 liter setiap hari. Empedu berasal dari hemoglobin sel darah merah ang telah tua. Empedu merupakan cairan hijau dan terasa pahit. Zat ini disimpan di dalam kantong empedut. Empedu mengandung kolestrol, garam mineral, garam empedu, pigmen bilirubin, dan biliverdin. Empedu yang diseklerasikan berfungsi untuk mencerna lemak, mengaktifkan lipase, membantu daya observasi lemak di usus, dan mengubah zat yang larut dalam air.
sel-sel darah merah dirombak di dalam hati. hemoglobin yang terkandung di dalamnya pecah menhadi zat besi, globin dan heme. Zat besi dan globin didaur ulang, sedangkan heme dirombak menjadi bilirubin dan biliverdin yang berwarna hijau kebiruan. Di dalam usus zat empedu ini mengalami oksidasi menjadi urobilin sehingga warna feses dan urin kekuningan.
Fungsi lain dari hati adalah mengubah zat buangan dan bahan racun untuk dikeluarkan dalam empedu dan urin, serta mengubah glukosa yang diambil dari daraih menjadi glikogen yang disimpan di sel-sel hati. Glikogen akan dirombak kembali menjadi glukosa oleh enzim emilase dan dilepas ke darah sebagai respons meningkatnya kebutuhna energi oleh tubuh

Kapoltabes Medan Resmi Dicopot

Jakarta - Buntut kematian Ketua DPRD Sumatera Utara, Abdul Aziz Angkat, Kapoltabes Medan Kombes Pol Aton Suhartono resmi dicopot. Bersama Aton, 3 perwira menengah Polda Sumatera Utara juga dimutasi.



Berdasarkan pesan singkat dari Kadiv Humas Mabes Polri Irjen Pol Abubakar Nataprawira, Jumat (6/2/2009), Aton diganti oleh AKBP Imam Margono yang sebelumnya menjabat Kapuslatkor Brimob Polri. Aton sendiri akan menjadi Pamen Denmabes Polri.

Selain itu Inspektur Pengawasan Daerah Kombes Pol Dedy Ahmad Jubaedi dimutasi menjadi Kepala Pusat Studi Manajemen PTIK. Dedy digantikan oleh Kombes Pol Benyamin Selawa yang sebelumnya menjabat Irwasda Jambi.

Kepala Biro Operasi Polda Sulut Kombes Pol Adios Salova dimutasi menjadi Pamen di Polda Sumut. Adios digantikan oleh Kombes Pol Sigit Sudarmanto dari Polda Metro Jaya

Direktur Intel Keamanan Kombes Pol Tjetjep Agus Supriatna pun dimutasi menjadi analis utama tingkat II Biro Analisis Baintelkam Mabes Polri. Tjetjep diganti oleh Kombes Pol Prasta Wahyu Hidayat Kepala Detasemen A1 Direktorat Baintelkam Polri

Aturan Pemasangan Iklan

Untuk menambah pasaran web anda,saya menyediakan ruang untuk iklan yang di bagian atas blog ini dengan harga
1. Rp.50.000,00 dengan lama tayang 1 bulan
2. Rp.80.000,00 dengan lama tayang 2 bulan
3. Rp.100.000,00 dengan lama tayang 3bulan
4. Khusu iklan sebelah kanan bawah Rp.75.000,00 perbulan
Adapaun cara untuk menempatkan iklan anda pada space yang tersedia anda dapat mengirimkan email ke baturtik@yahoo.com yang menyatakan bahwa anda akan menggunakan tempat iklan yang kami sediakan dan kami akan langsung menghubungi anda secepatnya

Fungsi Pembacaan Tabel pada Excel ( Hlookup dan Vlookup)

Excel menyediakan fungsi if untuk melakukan pengujian atau biasa juga disebut dengan test kondisi,fungsi if biasanya digunakan untuk melakukan pengujian dimana ketentuannya dibuat dalam bentuk kalimat. Bentuk dari fungsi if jika hanya dua kondisi adalah =if(test_kondisi,nilai_bernar,nilai_salah), tetapi jika lebih dari dua kondisi bentuknya bisa digunakan =if(text_kondisi,nilai_benar,if(test_kondisi,nilai_benar,nilai_salah)), dengan kata lain jika kondisi banyak maka harus diatur nilai salahnya menjadi test kondisi lagi.Sedangkan jika ketentuan sudah dalam bentuk tabel atau sudah disusun berdasarkan kolom atau baris maka excel menyedian fungsi pembacaan tabel, memang tidak mungkin melakukan atau mengerjakannya menggunakan fungsi If tetapi sudah merupakan suatu pekerjaan yang sangat sia-sia karena membutuhkan banyak waktu. contohnya dalam pengerjaan latihan dibawah ini,

untuk mencari nama gerbong, harga tiket, tujuan/jurusan,jam pergi, jenis tiket kalau digunakan menggunakan if maka rumus if yang dipakai akan panjang karena ada 15 kondisi. untuk menyingkatnya digunakanlah fungsi pembacaan tabel dimana rumusnya sebagai berikut :=vlookup(Nilai_patokan_pencarian,sumber_tabel,nomor_kolom_yang_dicari,Match)=Hlookup(Nilai_patokan_pencarian,sumber_tabel,nomor_baris_yang_dicari,Match)dimana match bernilai true/1 atau false/0, jka tidak diberikan maka standarnya adalah 1
Untuk contoh Kasus diatas digunakan rumusmencari nama Gerbong : =VLOOKUP(B9,$B$25:$E$39,2,0)mencari harga tiket : =VLOOKUP(B9,$B$25:$E$39,3,0)mencari tujuan/jurusan : =VLOOKUP(B9,$B$25:$E$39,4,0)
jika anda perhatikan di rumus tersebut terdapat $B$25:$E$39 yang maksudnya sama dengan B25:E39 hanya saja jika kamu ketikkan rumus tersebut pada kotak c9 maka rumus tersebut jika dicopykan ke baris dibawahnya maka tidak akan manjur sehingga perlu diberi tanda dollar dimana tanda dollar tersebut menandakan absolut atau tidak akan berubah.
contohnya :

1. Pada kotak c9 anda mengetikkan rumus =$b9*250 maka rumus tersebut jika dikopikan ke kotak d9 maka rumus yang terpoki adalah $b9 sedangkan jika dikopi pada kotak c10 maka hasilnya adalah $b10 karena $ didepan b menandakan bahwa kolom b-nya tidak akan berubah ketika rumus dikopi ketempat lain


2. Pada kotak c9 anda mengetikkan rumus =b$9*250 maka rumus tersebut jika dikopi pada kotak d9 maka rumus tersebut akan berubah menjadi =c$9*250 sedangkan jika dikopi pada kotak c10 maka rumus tersebut akan berubah menjadi =b$9*250
   atau bentuk sederhananya saya gambarkan menggunakan kolom dibawah ini
   rumus sebelumnya rumus dicopi rumus dicopy

rumus sebelumnya      rumus dicopi       rumus dicopy

  pada kotak            ke kotak           ke kotak

     c10                   c11                 d10

===========================================================

    =a10*b10            =a11*b11        =b10*c10

    =$a10*$b10          =$a11*$b11      =$a10*$b10

    =a$10*b$10          =a$10*b$10      =a$10*b$10

  =$a$10*$b$10         =$a$10*$b$10     =$a$10*$b$10

Selamat Belajar dan semoga sukses. jika masih bingung Semoga sukses dan jika masih bingung silahkan postkan comment ada, ngak usah sungkan-sungkan