Thursday, May 24, 2018

MESSAGEBOX

Penggunaan MsgBox Pada Visual Basic 6.0. Pada tutorial VB 6.0 kali ini akan dibahas mengenai cara menggunakan MsgBox pada VB 6.0. Apa itu MsgBox ? MsgBox adalah Singkatan dari Massage atau Pesan, sehingga MsgBox dapat diartikan sebuah Box yang berisikan Pesan. Pesan atau MsgBox di VB 6.0 biasanya digunakan untuk Informasi, Perintah atau Sebuah Larangan, sehingga Program yang kita buat berjalan dengan semestinya.

Berikut dibawah ini adalah contoh gambar MsgBox Pada VB 6.0

Penggunaan MsgBox Pada VB 6.0
Pada gambar diatas saya buat di VB 6.0 yang berfungsi sebagai Informasi saja.

Berikut ini adalah beberapa yang bisa anda pelajari mengenai MsgBox pada VB 6.0

Sebelum anda memulai koding, silahkan buka Komputer anda, kemudian anda buka Visual Basic 6.0, dan silahkan tambahkan satu Button pada Form1 tersebut.
Gambarnya seperti dibawah ini :
Penggunaan MsgBox Pada VB 6.0

#1. Koding Dasar MsgBox

Untuk koding dasar, silahkan masukan koding dibawah ini pada Form1. Koding dasar cukup menambahkan MsgBox kemudian spacy kemudian mengisi kata didalam sebauh apostrof. detail seperti koding dibawah ini.
Private Sub Command1_Click()
MsgBox "Belajar VB Bersama JavaNetMedia"
End Sub

#2. Mengganti Header Dengan vbinformation

Secara default, jika menggunakan koding Dasar maka akan muncul Project yang anda buat. Jika namanya adalah Project1, maka akan muncul Project1 di header MsgBox, oleh karena itu untuk menggantinya anda bisa menambahkan VbInformation

Jika Nama Header Tidak ada atau kosong anda bisa menggunakan ini :
Private Sub Command1_Click()
MsgBox "Belajar VB Bersama JavaNetMedia", vbInformation, ""
End Sub
Kemudian jika ingin mengganti Nama Header sesuai keinginan anda
Private Sub Command1_Click()
MsgBox "Belajar VB Bersama JavaNetMedia", vbInformation, "MsgBox JavaNetMedia"
End Sub

#3. Menambahkan Baris Pada MsgBox Dengan vbnewline

Jika anda ingin membuat Pesan atau MsgBox yang panjang, maka sebaiknya anda harus menggunakan vbnewline. Berikut ini adalah contoh penggunaan VBNEWLINE

Private Sub Command1_Click()
MsgBox "Belajar VB Bersama JavaNetMedia" & vbNewLine & "Ini Adalah Baris Kedua", vbInformation, "MsgBox JavaNetMedia"
End Sub

#4. MsgBox Pilihan Dengan vbYesNo

Satu lagi yang MsgBox yang sering digunakan didalam membuat Aplikasi Menggunakan VB 6.0 adalah penggunaan MsgBox Yes dan No. Dengan menggunakan MsgBox ini, pengguna aplikasi akan diberikan 2 pilihan saja yaitu Yes dan No ( Ya atau Tidak). Kemudian dari sisi pogrammer akan memberikan koding ketika Yes maka apa? dan Jika No akan apa?. Contoh penggunaan VBYESNO anda bisa gunakan koding dibawah ini :
Private Sub Command1_Click()
Dim msgYN As VbMsgBoxResult
msgYN = MsgBox("Apakah Ada Ingin Tutup Aplikasi...?", vbYesNo + vbInformation, "Konfirmasi")
If msgYN = vbYes Then
    End
ElseIf msgYN = vbNo Then
FormMenuUtama.Show
End If
End Sub

struktur keputusan case

Struktur Keputusan Pada Visual basic

Struktur keputusan yang didukung oleh Visual Basic adalah sebagai berikut :

If...Then
Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara kondisional.
Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris :
If kondisi Then pernyataan
atau
If kondisi Then
pernyataan-pernyataan
End If
Kondisi biasanya berupa suatu perbandingan, maupun ekspresi yang menghasilkan nilai
numerik. Visual Basic menginterpretasikan False sebagai nol (0), dan True sebagai bukan
nol.


If...Then...Else
Gunakan If…Then…Else untuk mendefinisikan beberapa blok pernyataan yang akan
dijalankan salah satu berdasarkan kondisi yang memenuhi syarat
If kondisi1 Then[blok pernyataan-1]
[ElseIf kondisi2 Then
[blok pernyataan-2]] ...
[Else
[blok pernyataan-n]]
End If

Visual Basic awalnya akan mencoba kondisi1. Jika False, maka Visual Basic akan
memeriksa kondisi2, dan seterusnya sampai menemukan suatu kondisi True untuk
dijalankan blok pernyataannya. 
Contoh :
If JlhRec > 0 Then
Posisi = 1
Else
Posisi = 0
End If

Select Case

Visual Basic menyediakan struktur Select Case sebagai suatu alternatif terhadap
If...Then...Else. Suatu Select Case statement memiliki kemampuan yang sama dengan
If…Then…Else…, tetapi membuat code lebih mudah dibaca.

Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya dievaluasi satu
kali pada bagian atas struktur. Visual Basic then membandingkan hasil ekspresi dengan
nilai pada setiap Case didalam struktur tersebut, jika ada yang sesuai, akan dijalankan
blok statement yang sesuai
Select Case ekspresiyangdicoba
[Case ekspresi1
[blokpernyataan-1]]
[Case ekspresi2
[blokpernyataan-2]]

[Case Else
[blokpernyataan-n]]
End Select

Contoh :


Select Case x
Case 0: angka = "Nol"
Case 1:
If posisi = 1 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select

tipe data dan variabel dan pembuatan kalkulator sederhana

Tipe Data

Tipe data merupakan suatu bentuk penggolongan jenis data berdasarkan kategori data, ukuran dan kegunaan data yang dapat ditampung oleh sebuah variabel. Tipe data pada visual basic 2008 dapat dilihat pada table berikut ini :

 



Konversi Tipe Data

Konversi Tipe data adalah sebuah fungsi yang digunakan untuk mengkonversi ( mengubah tipe dari satu tipe ke tipe data yang lain). Konversi tipe data dapat dilihat pada table berikut ini :


Variabel

Variabel adalah merupakan tempat penyimpanan data dalam memori computer yang mengandung data atau nilai sementara dari sebuah proses pada suatu pemrograman.


Deklarasi Variabel

Deklarasi Variabel adalah merupakan fungsi untuk mengenal suatu variabel berikut dengan tipe data yang pakai pada variabel tersebut. Pendeklarasian variabel di bagi menjadi dua kategori antara lain :

  1. Deklarasi Ekplisit
    Suatu pendeklarasian umum yang sangat sering dilakukan dengan memberikan kata kunci as.
    Bentuk umum : {Private | Public | Dim | …} Nama_Var [{As Tipe data}]

    Contoh :
    Dim Nim as Integer
    Dim Nama as String
  2. Deklarasi Emplisit
    Deklarasi Emplisit adalah suatu pendeklarasian yang tidak memberikan kata kunci As pada semua variabel tersebut. Melainkan memberikan satu karakter atau symbol di akhir variabel. Tabel symbol deklarasi emplisit.



    Contoh :
    Dim NIM% ‘mewakili tipe data integer
    Dim Nama$ ‘ mewakili tipe data string
Ruang Lingkup Variabel

Ruang lingkup variabel sangat mempengaruhi sampai dimana nama variabel tersebut dapat dikenali oleh aplikasi. Ruang Lingkup Variabel dapat digolongkan menjadi :
  1. Local Variabe
    Local variabel merupakan suatu pendeklarasian variabel di dalam ruang lingkup objek saja. Tidak dapat digunakan di dalam objek lain.
  2. Global Variabel
    Global variabel adalah merupakan suatu pendeklarasian variabel tidak hanya di dalam ruang lingkup objek saja. Tetapi mencakup semua presedure dan objek.
Konstanta

Konstanta merupakan suatu variabel yang mempunyai nilai tetap dan tidak dapat diubah nilainya.
Deklarasi konstanta :
{Const} Nama_Var [{AS tipedata}]=<nilai>

Contoh :
Const nama_bidang as string=”persegi_panjang”
Public const Panjang As Integer=8
Private const Lebar As Integer=5
Private const luas As Integer=Panjang*Lebar
Private const Keliling As Integer=2*(Panjang+Lebar)






Deklarasi Konstanta Enumerasi
Deklarasi Konstanta Enumerasi merupakan pendeklarasian daftar konstanta yang bersipat global . Dengan deklarasi konstanta enumerasi dapat membuat daftar

konstanta sendiri dapam bentuk seperti modul kelas dan dapat diakses oleh projek lain.
Format penulisannya :
{Private | Public | …. }[enum] Nama_Variabel_konstanta

Contoh :
Const nama_bidang as string=”persegi_panjang”

Private const Panjang As Integer=8
Private const Lebar As Integer=5
Private const luas As Integer=Panjang*Lebar
Private const Keliling As Integer=2*(Panjang+Lebar)
Public enum Hitung
    Luas = Luas
    Keliling=Keliling
end Enum

A=Hitung.Luas ‘menggunakan variabel enum luas
B=Hitung.Kelilin ‘ menggunakan variabel enum keliling


Operator Aritmatika
Operator Aritmatika adalah merupakan suatu operator perhitungan matematika yang digunakan untuk proses perhitungan matematika. Operator aritmatika dapat dilihat pada table berikut ini :



Operator Perbandingan
Operator perbandingan adalah merupakan suatu operator yang menyatakan suatu kondisi itu benar atau salah. Operator perbandingan dapat dilihat pada table berikut ini :


Operator Logika
Operator Logika adalah merupakan suatu operator yang dapat membandingkan dua ekspresi atau lebih data logika (Boolean) dan menghasilkan data logika (Boolean) baru. Operator logika dapat dilihat pada table berikut ini:



Operator Penugasan

Operator penugasan adalah merupakan operator yang bertugas untuk menentukan nilai yang dikeluarkan oleh suatu variabel terhadap kondisi tertentu.



Operator Penggabungan (Concatenation)
Operator Penggabungan adalah merupakan suatu operator yang dapat digunakan untuk menggabungkan dua buah string atau lebih. Operator Penggabungan dapat dilihat pada table berikut ini :


Program Kalkulator Sederhana dengan Visual 

Di posting kategori programming pertama ini, saya ingin memberikan pelajaran bagaimana cara membuat program kalkulator sederhana dengan menggunakan Visual Basic 6.0.

Bagi anda yang belum punya software Microsoft Visual Basic 6.0. Silahkan anda klik disini
Mungkin bagi sebagian orang membuat program kalkulator tidak ada gunanya, karena di windows pun sudah tersedia aplikasi ini, namun yang ingin ditekankan disini bukan untuk ada gunanya atau tidak, namun ini adalah suatu pembelajaran tentang bagaimana mengatur logika kamu, sehingga kamu dapat menciptakan sendiri suatu program.

Saya ingat ketika saya mulai belajar programming, program kalkulator inilah yang pertama kali saya buat. Jadi saya simpulkan bahwa ini adalah program paling sederhana diantara yang paling sederhana.
Langsung saja, saya akan berusaha membuat langkah - langkah nya se-rinci mungkin, karena tujuan saya membuat blog ini bukan untuk para master vb namun bagi orang awam yang ingin belajar vb.
1.    Buka Microsoft Visual Basic 6.0
2.    Pada Plihan New Project Pilih Standard.Exe lalu klik Open
Program Kalkulator dengan Visual Basic 6.0
3.    Atur Lebar Form dan Panjang Form seperti gambar dibawah ini
Program Kalkulator dengan Visual Basic 6.0
4.    Klik icon Text Box  pada kotak ToolBox dan buat tiga Text pada Form seperti gambar dibawah ini
Program Kalkulator dengan Visual Basic 6.0

5.    Klik Text1 yang telah kita buat, pada jendela Properties di pojok kanan bawah, hapus tulisan Text1 di kolom Text dan lakukan hal yang sama pada Text2 dan Text 3, sehingga tulisan Text1 Text 2 dan Text 3 di form akan hilang seperti gambar dibawah ini :
Program Kalkulator dengan Visual Basic 6.0

6.    Klik Icon CommandButton dan atur seperti gambar dibawah ini :
Program Kalkulator dengan Visual Basic 6.0

7.    Pada Jendela Properties, ubah Caption menjadi + seperti gambar di bawah ini :
Program Kalkulator dengan Visual Basic 6.0
8.    Maka sekarang tampilan Form akan menjadi seperti gambar di bawah ini :
Program Kalkulator dengan Visual Basic 6.0

9.    Klik 2x pada CommandButton yang telah kita buat maka akan tampil jendela untuk memasukkan kode seperti gambar dibawah ini :
Program Kalkulator dengan Visual Basic 6.0
10.    Masukkan kode dibawah ini :
Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) 

End Sub 

11.    Klik Icon Start   atau tekan F5 , maka akan tampil seperti gambar di bawah ini :
Program Kalkulator dengan Visual Basic 6.0
 12.    Masukkan angka di kotak yang paling kiri dan yang paling tengah , lalu klik CommandButton (+) maka akan muncul hasil di kotak yang ketiga seperti gambar dibawah ini :
Program Kalkulator dengan Visual Basic 6.0
Ok , sampai disini anda sudah berhasil membuat program tambah pada kalkulator sederhana. Saya ingin jelaskan tentang kode yang tadi telah kita buat:
Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text) 

End Sub 
Berikut penjelasannya :
Private Sub Command1_Click()
adalah kode yang berfungsi ketika command1 di click
End Sub 
adalah penutup dari sebuah kode, end sub wajib ada di akhir setiap kode

Secara default setiap textbox yang telah kita buat di visual basic diberi nama text1, text2 , text3 ,dst. Anda dapat mengganti sendiri pada dialog properties pada bagian Name
Program Kalkulator dengan VB 6.0
Dari gambar diatas dan koding yang telah kita buat, dapat disimpulkan bahwa ketika kita klik Di Command1, maka Text3 sama dengan nilai Text1 ditambah nilai Text2.

Masih kurang jelas ? berikut saya perinci lagi penjelasannya.
1. Ketika kita klik di command 1 maka kode pemrograman harus diisi pada bagian
Private Sub Command1_Click()


End Sub 
2. Text3 sama dengan nilai Tex1 ditambah dengan nilai Text2 , maka cara penulisan kode di visual basic adalah
Text3.Text = Val(Text1.Text) + Val(Text2.Text) 
Penjelasan :
val berasal dari kata value yang berarti nilai 

OK, saya fikir sampai disini anda sudah merasa cukup mengerti dengan penjelasan saya.

Saya tidak akan menjelaskan secara detail program selanjutnya, karena tujuan kita dari awal adalah untuk belajar, maka dari itu gunakan logika kamu untuk membuat tombol tombol selanjutnya, seperti tombol - , x , : , dll.( Sekedar petunjuk untuk tombol ambil gunakan kode - pada visual basic, untuk tombol kali gunakan kode * , dan untuk tombol bagi gunakan kode / )

Setelah kamu membuat semua tombol, kini kita akan menambahkan satu tombol lagi yaitu Auto Clear Tombol ini berfungsi untuk menghapus layar, seperti pada kalkulator biasanya berlambangkan dengan (AC).

Dalam visual basic 6.0 perintah yang digunakan untuk membersihkan fungsi text adalah ""
Maka secara umum perintah untuk menghapus teks pada layar adalah :
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Setelah program kalkulator sederhana selesai dibuat, maka tampilan program anda akan menjadi seperti gambar dibawah ini :

Program Kalkulator dengan VB 6.0
Selamat anda sudah bisa membuat progam kalkulator sederhana dengan Visual Basic 6.0.