Membuat Form Biodata, Kalkulator Luas: Segitiga, Kubus, Ligkaran (Visual Basic 6)

Assalammualaikum wr.wb 1. Form Biodata Hmmm... Mungkin Masih Ada yang Belum Mengetahui Cara membuat program ini, dan mungkin juga banyak yang menyepelekan program sesederhana ini, hehee.. ok.. ya langsung saja saya akan Menjelaskan Langkah-Langkah membuat Program Sederhana Ini(Maklum Berantakn, Masih Pemula) Pertama Kita Buat Form Baru Dan Isikan Label,Text,Commandbutton Seperti Contoh d Bawah ini

Dan Ini Syntax Untuk Print Dan Hapus Private Sub Command1_Click() Label5.Caption = ("" & Text1.Text & Chr(15) & "" & Text2.Text & Chr(15) & "" & Text3.Text) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" label5.text= "" End Sub Dan Jika Berhasil Akan Menampakkan

Latihan Pertama Selesai.. (Ini Hanya Sebagai Contoh Saja, Dan Sytax program Beserta Logical Tsb bisa di Desaign Sedemikian Rupa Oleh Siapapun. 2.Membuat Kalkulator Langkah pertama Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. dan kita Design seperti contoh ini:

Lalu Kita Beri Syntax Sebagai Berikut (Di Setiap Commandbutton [6 Buah]) Beserta Hapus Dan Keluar

Dan ini Syntax dari Screenshot di atas.. ^_^ Private Sub Command1_Click() Text3.Text = (Val(Text1.Text) + (Text2.Text)) End Sub Private Sub Command2_Click() Text3.Text = (Val(Text1.Text) - (Text2.Text)) End Sub Private Sub Command3_Click() Text3.Text = (Val(Text1.Text) / (Text2.Text)) End Sub Private Sub Command4_Click() Text3.Text = (Val(Text1.Text) * (Text2.Text)) End Sub Private Sub Command5_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command6_Click() End End Sub Ok.. Kita Lanjut ke Luas: Segitiga Langkah Selanjutnya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. lalu Buat Label,text,commadbutton seperti Screenshot ini

Lalu Kita Beri Syntax Di bawah Ini: Private Sub Command1_Click() Text3.Text = (Val(Text1.Text * Text2.Text)) / 2 End Sub Private Sub Command2_Click() Text1.Text = "" Text3.Text = "" Text2.Text = "" End Sub (Sengaja Saya TIdak Upload Gambarnya, jadi Hanya Syntaxnya Saja) Selanjutnya Luas Persegi Gogogogo..... Langkah Berikunya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form.

Ini Syntaxnya Private Sub Command1_Click() Text2.Text = Val(Text1.Text * Text1.Text) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Private Sub Command3_Click() End End Sub Sybtax dan Logical Sudah Tersedia Di Atas, Agar Lebih Cepat, .. Tancap Luas Kubus Seperti Di Atas Kita Buat Form Baru dan Ini Logicalnya

Dan Ini Syntaxnya: Private Sub Command1_Click() Text2.Text = Val(Text1.Text) ^ 3 End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Selanjutnya Kita buat Luas Lingkaran Langkah Selanjutnya Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form. Dan Buat Form Seperti Gambar di bawah ini

Private Sub Command1_Click() phi 3.14 Text2.Text = phi * (Val(Text1.Text * Text1.Text)) End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub #Phi Sebagai Pelantara pengganti nilai 3.14 OK.. Yang Terakhir Kita Buat Menu editor, langkahnya sama dengan membuat form sperti di atas, tetapi form ini untuk membuat Hyperlink terhadap form yang telah kita buat dalam 1 program/project.. Langkah Terakhir Kita Buat Form Baru dengan Cara Klik Project lalu pilih add form Ok, pertama klik kanan pada bagian kosong form hingga muncul:

Lalu Isiskan Nama dan caption tersebut dengan form-form yang telah dibuat.. dan ini syntaxnya.. Samakan dengan Nama form yang ada pada Project Explorer Private Sub menubiodata_Click() Form1.Show End Sub Private Sub menukalkulator_Click() Form2.Show End Sub Private Sub menukubus_Click() Form4.Show End Sub Private Sub menulingkaran_Click() Form5.Show End Sub Private Sub menusegitiga_Click() Form3.Show End Sub Terimakasih Jika Telah Menyimak Postingan Saya, Sekian dan Assalammualaikum wr.wb ^_^

List Dan Link Anime Fall 2012 Takarir Indonesia

List Daftar Anime Fall (Gugur) 2012 Yang Air Di Jepang... Akan Tetapi Tak Semua Anime Tersebut Di Upload ke Dunia Maya Oleh Uploader, Mungkin Karna Keterbatasan Waktu Atau Koneksi Atau Hambatan Lainnya... Mungkin Jika Kalian Ingin mencari List Anime Yang Sedang On Air Setiap Harinya Bisa Langsung Cek Ke http://animecalendar.net dan Jika Ingin Melihat Secara Detail Info Anime Tersebut bisa di Cek ke http://myanimelist.com Dan Jika Agan-Agan Ingin Mendapatkan Anime Ber Takarir (Subtitle) indonesia yang Berseumber Lengkap Bisa Di Cek Ke : http://animekompi.web.id http://Fansubsupdate.com http://animeindo.tv (Steaming Langsung Nime Sub Indo) Silangkan Di Coba

PENGOLAHAN SEQUENTIAL FILE

PENGOLAHAN SEQUENTIAL FILE File merupakan fasilitas penyimpanan data pada external storage yang bersifat permanen, jika dibandingkan dengan penyimpanan ke RAM yang sifatnya sementara. Dengan pemakaian file kita dapat menghemat pemakaian RAM komputer yang memiliki jumlah yang terbatas serta dapat melakukan dokumentasi untuk jangka waktu yang panjang. Pada QBasic pengolahan file dapat dibagi atas tiga jenis, yaitu : 1. SEQUENTIAL FILE 2. RANDOM FILE 3. BINARY FILE Pada Sequential file (file urut) proses pengolahannya dilakukan secara linier dari awal sampai akhir, tanpa bisa kembali kebagian sebelumnya, kecuali proses dimulai lagi dari awal. Jadi dalam pengolahan datanya bersifat first in first out, artinya pembacaan data dari file ini harus dimulai dari data yang paling awal. Pada umumnya pengolahan data yang menggunakan file sebagai media INPUT maupun OUTPUT memiliki tiga tahap, yaitu : 1. Tahap membuka file (OPEN) 2. Tahap memproses (INPUT/OUTPUT) 3. Dan yang terakhir adalah tahap menutup file (CLOSE) Membuka File SEQUENTIAL Untuk membuka file sequential yang akan diproses dapat digunakan penulisan sebagai berikut : Syntax : Open filename [FOR mode] AS [#]filenum dimana mode terdiri dari : INPUT, membuka file untuk proses INPUT OUTPUT, membuka file baru untuk proses OUTPUT APPEND, membuka file untuk untuk proses OUTPUT dimana data baru ditambahkan pada bagian akhir. Contoh : Open “Siswa.Dat” For Append AS #1 Akan membuka Siswa.Dat sebagai OUPUT dimana data baru ditambahkan pada bagian akhir. Jika file Siswa.Dat belum ada, maka akan dibuat yang baru. Proses INPUT/OUTPUT Perintah proses INPUT/OUTPUT pada sequential file sangat tergantung kepada bentuk perlakuan terhadap data. Untuk penulisan yang berorientasi pada baris, anda dapat menggunakan perintah PRINT, dan pembacaanya dapat menggunakan LINEINPUT. Penulisan yang berorientasi kepada data, anda dapat menggunakan perintah WRITE dan INPUT untuk proses pembacaannya. Syntax : PRINT #filenumber,[USING stringexpressin;]expression list WRITE #filenumber[,expressionlist] INPUT #filenumber, variablelist LINEINPUT #filenumber, variable-string Contoh : Write #1, “920403024″,”Hendra”,80,90 menulis ke file nomor 1, dan data dapat dibaca kembali dengan perintah : Input #1,Nim$,Nama$,Teori,Praktek Catatan : Anda dapat menggunakan fungsi bantu EOF(filenumber) untuk memeriksa apakah berada diposisi akhir file. Proses CLOSE Untuk menutup file dapat digunakan perintah CLOSE. Syntax : CLOSE #filenumber Contoh : CLOSE #1 menutup file nomor 1. Contoh : ‘PROGRAM MENGISI DATA KE FILE SISWA.DAT OPEN “SISWA.DAT” FOR APPEND AS #1 DO PRINT “DATA SISWA KE -”;I INPUT “NO.INDUK :”,NOINDUK$ IF NOINDUK$ “” THEN INPUT “NAMA :”,NAMA$ INPUT “TEORI :”,TEORI INPUT “PRAKTEK :”,PRAKTEK WRITE #1,NOINDUK$,NAMA$,TEORI ENDIF LOOP UNTIL NOINDUK$ = “” CLOSE #1 END ‘PROGRAM BACA DATA DARI SISWA.DAT DAN MENCETAK KE LAYAR CLS OPEN “SISWA.DAT” FOR INPUT AS #1 PRINT “——————————————————————-” PRINT “NO.INDUK NAMA TEORI PRAKTEK RATA-RATA LULUS “ PRINT “——————————————————————-” POLA$=”\ \ \ \ ###.## ###.## ###.## \ \ “ VIEW PRINT 4 TO 23 WHILE NOT EOF(1) INPUT #1, NO_INDUK$,NAMA$,TEORI,PRAKTEK RATA = (TEORI+PRAKTEK)/2 IF RATA < 60 THEN LULUS$=”TIDAK” ELSE LULUS$ = “YA” ENDIF PRINT USING POLA$;NO_INDUK$;NAMA$;TEORI;PRAKTEK;RATA;LULUS$ WEND CLOSE #1 END