Masalah Run Time Error '-2147217900' (80040e14) Pada Pemrograman Visual Basic 6.0

Berbicara menganai pemrogaraman Visual Basic 6.0 bagiku memang mengasyikan,terutama setelah program telah selesai dan saatnya membuat setup file dengan bantuan Inno Setup, namun berbicara tentang pemrograman di visual basic 6.0 itu mengasyikan kita pasti dipertemukan dengan yang namanya rasa jengkel ketika melakukan komple error, maklum saya masih belajar tentang pemrograman visual basic jadi sangat sering berhadapan dengan ERROR saat melakukan kompile projek baik saat run atau saat akan membuat file .exe, disini akan diabahas mengenai permasalahan yang muncul ketika melakukan pengentrian data pada data base acces dari program yang dibuat di visual basic 6.0.

Permasalahan ini muncul saat melakukan pengentrian data pada data base acces dari program yang dibuat di visual basic, data yang dimaksud adalah data yang berisi karakter kutif tunggal ( ' ). Mungkin seperti ini perigantan error nya  : 

Kita bisa lihat bersama kesalahannya pada data yang dimasukan adalah karakter Jum'at yang mengandung tanda kutif tunggal ( ' ). kode awal saat error adalah seperti ini : 

Untuk contoh :

dbkoneksi.Execute "INSERT INTO Jadwal(kdJadwal,deskripsi,hari,jam,suara)" _
    & "Values('" & txt_kode.Text & "','" _
                 & txt_deskripsi.Text & "','" _
                 & txt_hari1.Text & "','" _
                 & txt_jam.Text & "','" _
                 & txt_suara.Text & "')"

Nah, untuk mengatasinya tambahkan kode berikut :

Private Function rep(ByVal s As String) As String
    rep = Replace(s, "'", "''")
End Function

Kemudian sesuaikan kode pertama (kode untuk menyimpan data pada acces) seperti ini :

dbkoneksi.Execute "INSERT INTO Jadwal(kdJadwal,deskripsi,hari,jam,suara)" _
    & "Values('" & rep(txt_kode.Text) & "','" _
                 & rep(txt_deskripsi.Text) & "','" _
                 & rep(txt_hari1.Text) & "','" _
                 & rep(txt_jam.Text) & "','" _
                 & rep(txt_suara.Text) & "')"

Silahkan sesuaikan dengan kode yang anda miliki jika mengalami error yang sama. semoga dapat membantu.

Komponen IDE dalam Visual Basic 6.0

Jendela IDE Visual Basic 6.0 memiliki sejumlah menu, toolbar, windows seperti pada gambar diatas,Berikut ini akan dijelaskan kegunaan masing-masing item :

A. Project Window

Jika membuat program aplikasi, akan terdapat jendela project yang berisi semua file yang dibutuhkan untuk menjalankan program aplikasi Visual Basic yang dibuat. Pada jendela project terdapat tiga icon yaitu icon View Code untuk menampilkan jendela editor, icon View Object untuk menampilkan bentuk formulir (Form) dan icon Toggle Folders digunakan untuk menampilkan folder (tempat penyimpanan file).

Pertama kali ketika menggunakan program Visual Basic maka komponen project yang akan diload, selanjutnya adalah menambah form-form atau membuat modul atau mungkin membuat kode program.

B. Form Designer

Form digunakan ketika akan meletakkan object-object apa saja yang akan digunakan dalam program, object-object yang terdapat dalam toolbox, diletakkan dan didesain dalam bagian form. Form sebenarnya adalah suatu objek yang dipakai sebagai tempat bekerja program aplikasi. Secara otomatis akan tersedia form yang baru jika kita membuat program aplikasi baru, yaitu dengan nama Form1. Umumnya dalam suatu form terdapat garis titik-titik yang disebut dengan Grid.

C. ToolBox

Toolbox adalah kotak alat yang berisi icon-icon untuk memasukkan objek tertentu ke dalam jendela form. Kita dapat memodifikasi toolbox, misalnya menambah komponen icon dengan cara melakukan klik kanan pada toolbox lalu memilih Components atau Add Tab

D. Properties Window

Properties digunakan untuk menentukan setting suatu objek. Suatu objek biasanya mempunyai beberapa properti yang dapat diatur langsung dari jendela Properties atau lewat kode program.

E. Code Window

Digunakan untuk menulis kode program yang menentukan tingkah laku dari form dan objek-objek yang ada pada aplikasi bersangkutan. Kode program adalah serangkaian tulisan perintah yang akan dilaksanakan jika suatu objek dijalankan. Kode program ini akan mengontrol dan menentukan jalannya suatu objek.

F. Module

Module dapat disejajarkan dengan form, tetapi tidak mengandung object. Module dapat berisi kode-kode program atau procedure yag dapat digunakan dalam program aplikasi.

G. Color Pallete Window

Digunakan untuk menentukan warna dari suatu objek seperti warna dari objek yang sedang aktif saat ini.

H. Form Layout Window

Menunjukan bagaimana peletakan sebuah form akan ditampilkan pada saat dijalankan.  

I. Immediate Window

Digunakan untuk memasukkan ekpresi untuk melihat hasilnya dengan menggunakan perintah “print” atau ‘?’. Jendela ini biasanya digunakan bersama watch window pada saat sebuah program di-debug. Short-cut untuk jendela ini adalah Ctrl-G.

J. Object Browser

Digunakan untuk menyelusuri external libraries sehingga anda dapat mempelajari objek-objek dan properti, kejadian (events), dan method yang dimilikinya. Short-cut untuk jendela ini adalah F2.

K. Locals Window

Akan aktif hanya pada saat program di jalankan, berisi nilai dari sejumlah variabel yang bersifat lokal pada sebuah prosedur atau module.

L. Watch Window

Digunakan untuk memonitor nilai dari suatu varibel baik bersifat lokal maupun global.

M. Call Stack Window

Hanya ditampilkan jika suatu program yang dijalankan dihentikan untuk sementara (break) dan menekan Ctrl-L. Menunjukan semua prosedur yang menunggu prosedur aktif telah selesai. Jendela ini penting untuk proses debugging untuk mengetahui jalur eksekusi program  hingga sampai situasi sekarang

Tipe Data, Variabel dan Operator Pada Visual Basic 6.0

1. Type Data
Microsoft Visual Basic, menyediakan tipe data seperti ini :

Penggunaan Tipe Data Variant

Jika di dalam suatu program tidak mendeklarasikab suatu variabel, tetapi langsung memakainya, maka variabel yang dipakai akan nertipe variant. Tipe data variant dapat dipakai untuk menampung data null, error, dan seluruh file data lain, misalnya boolean, numerik, string, objek, aray. Oleh karena itu penggunaannya haruslah sangat selektif, karena selain tidak memberikan kepastian tentang jenis dara yang dikandungnya, juga memerlukan byte memory lebih banyak.

Tipe Data Buatan Sendiri

Dalam Microsoft Visual Basic 6.0 kita dapat membuat sendiri tipe data baru dengan mengambil salah satu atau beberapa tipe standar yang disediakan. Misalnya pada penanganan database, sering diperlukan variabel yang dapat menampung 1 record data. Record data tersebut terdiri dari dari beberapa tipe data yang berbeda, misalnya record mahasiswa dapat terdiri tipe data string untuk menampung data NPM, nama, alamat, kota, tanggal lahir. Record data Mahasiswa semacam ini disebut tipe data terstruktur.

Penulisan umum tipe data buatan sendiri adalah sebagai berikut :

Private Type NamaTipeData
................
End Type

atau

Public Type NamaTipeData
...............
End Type

2. Variabel

Variabel adalah suatu tempat dalam memory komputer yang diberi nama (sebagai pengenal) dan dialokasikan untuk menampung data, sesuai data yang ditampung, variabel harus mempunyai tipe data yang sesuai dengan isinya. Kita dapat menggunakan dua cara untuk memberi tahu MS‐Visual Basic 6.0 tentang tipe variabel dan nama variabel yang akan dipakai.

Cara pertama adalah menggunakan perintah DIM untuk mendeklarasikan nama variabel beserta tipe datanya pada awal prosedur, seperti contoh dibawah ini.

Dim nama As String
Dim Alamat As String * 36
Dim Gaji As Long

Pernyataan DIM diatas disebut Deklarasi Eksplisit dan menyebabkan MS‐Visual Basic 6.0 mengalokasikan memory sesuai dengan nama dan tipe yang diinginkan sehingga variabel dan tipe variabel yang digunakan terkontrol.

Cara kedua Deklarasi Implisit seperti contoh dibawah ini :

Nama$ = “Ahmad Lukman Nulhakim”
Alamat$ = “Jl. Sambongjaya 103 B”
Gaji& = 500000

Deklarasi implisit ini membuat MS‐Visual Basic 6.0 mengalokasikan nama variabel berikut tipenya dan langsung mengisi nilai variabelnya. Cara yang dianjurkan adalah cara pertama (Deklarasi Eksplisit dengan menuliskan DIM) karena lebih terencana dan terkontrol.

Nama Variabel

Dalam menggunakan nama variabel, sebaiknya digunakan nama variabel yang sesuai dengan dara yang dikandungnya data yang mudah diingat(singkat dan jelas). Misalnya NamaMhs, Alamat, TglLahir dan lain lain. Penulisan huruf besar dan kecilnya diatur biar lebih mudah dibaca. Kita tidak perlu mengkhawatirkan konsistensi penulisan besar dan kecilnya, karena MS‐Visual Basic 6.0 akan otomatis menjaga konsistensi penulisannya.

Menuliskan DIM NamaMhs, maka pada saat kita menulis dalam bada program nama variabel namamhs, akan diubah secara otomatis oleh MS‐Visual Basic 6.0 menjadi NamaMhs. Beberapa peraturan yang berlaku pada penggunaan nama variabel adalah sebagai berikut :

1. Harus dimulai dari karakter Alfabet (Huruf)
2. Harus Unique (Tidak boleh ada yang sama) pada ruang lingkup (Scope) variabel yang sama.
3. Maksimum 255 karakter, tetapi hanya 40 karakter pertama yang dianggap sebagai nama variabelnya (Karakter ke‐41 dan seterusnya diabaikan)
4. Beberapa karakter tidak diperbolehkan dipakai, misalnya karakter yang dipakai operator ( +, ‐, *, /, <, > dan lain – lain), titik dua, titik koma dan lain – lain.

Ruang Lingkup Variabel

Ruang lingkup variabel (variabel scope) adalah ruang lingkup atau daerah dimana variabel yang dibuat dikenal (dapat dipakai). Ruang lingkup variabel biasanya juga berhubungan dengan umur (waktu hidup) variabel. Ada variabel yang dapat dikenal di seluruh bagian program (proyek) dan hidup selama program berjalan, ada variabel yang hanya dikenal di prosedure atau fungsi tempat variabel tersebut dibuat dan hidupnya hanya prosedure atau fungsi tersebut berjalan.

Ruang lingkup paling dalam adalah ruang lingkup prosedure. Jika mendeklarasikan secara eksplisit suatu variabel didalam suatu prosedure dengan perintah DIM, Private atau Static, maka variabel yang dideklarasikan mempunyai ruang lingkup prosedure, artinya variabel tersebut hanya dikenal dan dapat dipakai pada prosedure yang bersangkutan. Jadi persifat Local pada procedure itu. Jika pada prosedure lain atau pada level diatanya (Form atau Modul) mempunyai variabel dengan nama yang sama, maka tidak saling mengganggu.

3. Operator
Untuk melakulan berbagai manipulasi dan pengolahan data, Visual Basic 6.0 menyediakan bermacam-macam operator.

Operator Penugasan
Operator penugasan disimbolkan dengan tanda sama dengan dan berfungsi untuk memasukan suatu data ke dalam suatu variabel. Penulisannya adalah :

<variabel> = <ekpresi>

Contoh :

Bilangan = 0
Harga = 500

Operator Aritmatika

Digunakan untuk melakukan operasi aritmatika. Operator aritmatika mempunyai hirarki paling tinggi dibandingkan dengan operator yang lain, yaitu operator pembanding dan operator logika. Operator aritmatika dengan hirarki paling tinggi ke paling rendah adalah sebagai berikut :

Operator Pembanding

Operator pembanding digunakan utuk membandingkan suatu data (ekpresi) dengan data (ekpresi) lain dan menghasilkan nilai logika (boolean) benar atau salah. Dengan syarat antara dua data yang dibandingkan harus mempunyai tipe data yang sama. Berikut adalah tabel operator pembanding :

Operator Logika

Digunakan untuk mengekpresikan satu atau lebih data (ekpresi) logika (boolean) sehingga menghalikan data logika bari (boolean). Tabel operator logika dengan hirarki dari atas ke bawah adalah sebagai berikut :

Operator logika Not menghasilkan nilai kebalikan dari suatu data logika dan mempunyai hirarki paling tinggi pada operator logika. Tetapi ingat operator logika hirarkinya lebih rendah dari operator penugasan, operator aritmatika, dan operator pembanding.

Sekian Terima Kasih !!!!

Aplikasi Kamusku Dengan Visual Basic.06

Disini saya akan sedikit menjelaskan mengenai pembuatan kamus dengan menggunkan Visual basic. ini hasil ideku yang sudah jadi, namun sekarang terbengkalai dikarenakan berbagai hal. aplikasi ini dibuat dengan menggunakan Visual basic 6.0 dan menggunakan database Acces.

Fitur-fitur nya :

• Kamus
• Irregular Verb
• Regular Verb
• Catatan
• Sound saat startup

Tools yang digunakan :

• Frame
• Shapes
• Listbox
• Textbox
• Label
• Images
• Common Button

Seperti ini Screenshoot nya :

Tampilan Startup

Tampilan Depan 

 Tampilan Menu Irregular Verb

Tampilan  Regular Verb

Tampilan Kamus

 Tampilan Catatan

Mari kita lihat kode nya :

1. Code Koneksi dengan Acces Pada Module

'Koneksi Database
Public dbkoneksi As ADODB.Connection
Public Sub Koneksi()
Dim Lokasi As String
    Lokasi = App.Path & "\Database\Kamus.mdb"
Set dbkoneksi = New ADODB.Connection
    dbkoneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Lokasi & "; Persist Security Info=False; Jet OLEDB:Database Password=ahmad"
End Sub

2.  Code Sound Saat Satarup Pada Module
'Memainkan Musik

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1
Public Const SND_SYNC = &H0
Public Const SND_LOOP = &H8
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

3. Code Untuk Form StartUp

Private Sub Form_Load()
sndPlaySound App.Path & "\Audio\Masuk.wav", SND_ASYNC
End Sub
Private Sub Timer1_Timer()
Load Form_Utama
Form_Utama.Show
Unload Me
End Sub

4. Code Untuk Kamus

Private Sub OPKamus()
cmbKamus.AddItem "Indonesia"
cmbKamus.AddItem "Inggris"
End Sub
Private Sub cmbCariKamus_Click()
Dim DataComboKamus As String
DataComboKamus = txtKamus.Text
Set RsKamus = New ADODB.Recordset
RsKamus.CursorLocation = adUseClient
If cmbKamus.Text = "Indonesia" Then
    RsKamus.Open "select * from Datakamus where Indonesia like '" & DataComboKamus & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaKamus
    Kamus_View.Refresh
ElseIf cmbKamus.Text = "Inggris" Then
    RsKamus.Open "select * from Datakamus where Inggris like '" & DataComboKamus & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaKamus
    Kamus_View.Refresh
Else
End If
End Sub
Sub JikaKamus()
If (RsKamus.EOF) Then
    MsgBox "Kata Yang Anda Cari Tidak Ditemukan.", vbCritical, "Konfirmasi"
    Else
    Set Kamus_View.DataSource = RsKamus
    FormatViewKamus
    JmlKamus.Caption = "Jumlah Kata : " & RsKamus.RecordCount & ""
End If
End Sub
'Format Penampilan
Private Sub FormatViewKamus()
With Kamus_View
    .ColumnWidth(1) = 243
    .ColumnText(1) = "Indonesia"
    .ColumnAlignment(1) = enAlignCenter
   
    .ColumnWidth(2) = 243
    .ColumnText(2) = "Inggris"
    .ColumnAlignment(2) = enAlignCenter
End With
End Sub
'Tampil Database
Private Sub TampilKamus()
Set RsKamus = New ADODB.Recordset
    RsKamus.Open "select * from Datakamus order by Indonesia", dbkoneksi, adOpenStatic, adLockOptimistic
Set Kamus_View.DataSource = RsKamus
JmlKamus.Caption = "Jumlah Kata : " & RsKamus.RecordCount & ""
End Sub
Private Sub Timer1_Timer()
If Weekday(Date) = 1 Then
    LbTanggal.Caption = "Minggu" & Format(Date, ", dd-mm-yyyy")
ElseIf Weekday(Date) = 2 Then
    LbTanggal.Caption = "Senin" & Format(Date, ", dd-mm-yyyy")
ElseIf Weekday(Date) = 3 Then
    LbTanggal.Caption = "Selasa" & Format(Date, ", dd-mm-yyyy")
ElseIf Weekday(Date) = 4 Then
    LbTanggal.Caption = "Rabu" & Format(Date, ", dd-mm-yyyy")
ElseIf Weekday(Date) = 5 Then
    LbTanggal.Caption = "Kamis" & Format(Date, ", dd-mm-yyyy")
ElseIf Weekday(Date) = 6 Then
    LbTanggal.Caption = "Jum'at" & Format(Date, ", dd-mm-yyyy")
Else
    LbTanggal.Caption = "Sabtu" & Format(Date, ", dd-mm-yyyy")
End If
    LbJam.Caption = Format(Time, "hh:mm:ss")
End Sub 

5. Code Untuk Irregular Verb

'Tampil Database
Private Sub TampilIrregular()
Set RsIrregular = New ADODB.Recordset
    RsIrregular.Open "select * from Irregular order by Infinitive", dbkoneksi, adOpenStatic, adLockOptimistic
Set Irregular_View.DataSource = RsIrregular
JmlIrregular.Caption = "Jumlah Kata : " & RsIrregular.RecordCount & ""
End Sub
'Pencarian Kata
Private Sub cmdCariIrregular_Click()
Dim DataCombo As String
DataCombo = txtIrregular.Text
Set RsIrregular = New ADODB.Recordset
RsIrregular.CursorLocation = adUseClient
If cmbIrregular.Text = "Infinitive (V1)" Then
    RsIrregular.Open "select * from Irregular where Infinitive like '" & DataCombo & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaIrregular
    Irregular_View.Refresh
ElseIf cmbIrregular.Text = "Past Tense (V2)" Then
    RsIrregular.Open "select * from Irregular where Past_Tense like '" & DataCombo & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaIrregular
    Irregular_View.Refresh
ElseIf cmbIrregular.Text = "Past Participle (V3)" Then
    RsIrregular.Open "select * from Irregular where Past_Participle like '" & DataCombo & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaIrregular
    Irregular_View.Refresh
Else
End If
End Sub
Sub JikaIrregular()
If (RsIrregular.EOF) Then
    MsgBox "Kata Yang Anda Cari Tidak Ditemukan.", vbCritical, "Konfirmasi"
    Else
    Set Irregular_View.DataSource = RsIrregular
    FormatViewIrregular
    JmlIrregular.Caption = "Jumlah Data : " & RsIrregular.RecordCount & ""
End If
End Sub
'Format Penampilan
Private Sub FormatViewIrregular()
With Irregular_View
    .ColumnWidth(1) = 120
    .ColumnText(1) = "Invinitive (V1)"
    .ColumnAlignment(1) = enAlignCenter
   
    .ColumnWidth(2) = 120
    .ColumnText(2) = "Past Tense (V2)"
    .ColumnAlignment(2) = enAlignCenter
   
    .ColumnWidth(3) = 120
    .ColumnText(3) = "Past Participle (V3)"
    .ColumnAlignment(3) = enAlignCenter
   
    .ColumnWidth(4) = 126
    .ColumnText(4) = "Arti"
    .ColumnAlignment(4) = enAlignCenter
End With
End Sub
Private Sub OPIrregular()
cmbIrregular.AddItem "Infinitive (V1)"
cmbIrregular.AddItem "Past Tense (V2)"
cmbIrregular.AddItem "Past Participle (V3)"
End Sub

6. Code Untuk Regular Verb

'Tampil Database
Private Sub TampilRegular()
Set RsRegular = New ADODB.Recordset
    RsRegular.Open "select * from Regular order by Infinitive", dbkoneksi, adOpenStatic, adLockOptimistic
Set Regular_View.DataSource = RsRegular
JmlRegular.Caption = "Jumlah Kata : " & RsRegular.RecordCount & ""
End Sub
'Format Penampilan
Private Sub FormatViewRegular()
With Regular_View
    .ColumnWidth(1) = 120
    .ColumnText(1) = "Invinitive (V1)"
    .ColumnAlignment(1) = enAlignCenter
   
    .ColumnWidth(2) = 120
    .ColumnText(2) = "Past Tense (V2)"
    .ColumnAlignment(2) = enAlignCenter
   
    .ColumnWidth(3) = 120
    .ColumnText(3) = "Past Participle (V3)"
    .ColumnAlignment(3) = enAlignCenter
   
    .ColumnWidth(4) = 126
    .ColumnText(4) = "Arti"
    .ColumnAlignment(4) = enAlignCenter
End With
End Sub
Sub JikaRegular()
If (RsRegular.EOF) Then
    MsgBox "Kata Yang Anda Cari Tidak Ditemukan.", vbCritical, "Konfirmasi"
    Else
    Set Regular_View.DataSource = RsRegular
    FormatViewRegular
    JmlRegular.Caption = "Jumlah Kata : " & RsRegular.RecordCount & ""
End If
End Sub
'Pencarian Kata
Private Sub cmdCariregular_Click()
Dim DataComboRegular As String
DataComboRegular = txtRegular.Text
Set RsRegular = New ADODB.Recordset
RsRegular.CursorLocation = adUseClient
If cmbRegular.Text = "Infinitive (V1)" Then
    RsRegular.Open "select * from Regular where Infinitive like '" & DataComboRegular & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaRegular
    Regular_View.Refresh
ElseIf cmbRegular.Text = "Past Tense (V2)" Then
    RsRegular.Open "select * from Regular where Past_Tense like '" & DataComboRegular & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaRegular
    Regular_View.Refresh
ElseIf cmbRegular.Text = "Past Participle (V3)" Then
    RsRegular.Open "select * from Regular where Past_Participle like '" & DataComboRegular & "%'", dbkoneksi, adOpenDynamic, adLockOptimistic
    Call JikaRegular
    Regular_View.Refresh
Else
End If
End Sub

Private Sub OPRegular()
cmbRegular.AddItem "Infinitive (V1)"
cmbRegular.AddItem "Past Tense (V2)"
cmbRegular.AddItem "Past Participle (V3)"
End Sub

 Cukup sekian saja untuk share mengenai pembuatan kamusku.

Sumber : http://www.komputermedia.com

Perintah Dasar atau Query Command pada MySql

Postingan kali ini melanjutkan Postingan Tentang Mengenal MySql dan MySql Database Server. Sekarang seperti yang terlihat oleh teman-teman mengenai Perintah dasat atau Query Command pada MySql.
Query Command atau perintah dasar yang wajib kita ketahui agar bisa memnafaatkan database secara maksimal. Perintah dasar itu diantaranya :

1. SELECT (Menampilkan Data)

Perintah ini digunakan apabila kita ingin menampilkan data dari suatu tabel, format dasar nya :

SELECT * FROM NamaTabel

Contoh sederhana, misak kita ingin menampilkan seluruh dari data nama siswa, maka kita akan menggunakan query seperti ini :

SELECT * FROM siswa

Nah untuk menampilkan berdasarkan field tertentu (misal Kelas) maka menggunakan query seperti ini :

SELECT * FROM WHERE  Kelas='Kelas Berapa';

2. INSERT (Menambah Data)
Perintah ini digunakan apabila kita ingin menanbahkan suatu data, ditandai dengan adanya query "Insert Into". Format dasarnya seperti ini :

INSERT INTO (Field, Fied, Field, Field) VALUES ('Var1', 'Var2', 'Var3', Var4')

Contoh akan menambahkan data seperti ini :
Nama : Ahmad Lukman Nulhakim
Kelas :  XII IPA 3
NIS : 091010143

Maka Querynya seperti ini :

INSERT INTO (Nama, Kelas, NIS) VALUES ('Ahmad Lukman Nulhakim', 'XII IPA 3', '091010143')

 3. UPDATE (Mengubah Data)
Nah Perintah ini digunakan apabila kita ingin merubah suatau data. Format dasarnya seperti ini :

UPDATE NamaTabel SET Field1='Var1', Field2='Var2', Field3='Var3' WHERE Fieldx='Varx'

Untuk x adalah field yang akan menjadi primaryKey diubahnya data. Intinya data yang diubah adalah data yang memiliki nilai tertentu.

4. DELETE (Menghapus Data)
Ini dalah format yang paling mudah, seperti ini format nya :

DELETE FROM NamaTabel WHERE Fieldx='Varx'

Contoh kita akan menghapus data dari tabel Siswa yang mempunyai Nis=091010143 maka querynya seperti ini :

DELETE FROM Siswa WHERE Nis='091010143'

Catatan : Yang Bergaris Bawah Miring itu yang harus di kerjakan dalam pengkodingan..

Sekian mengenai Database MySql.
Semoga Bermanfaat.
Terimakasih.

Mengenal MySQL dan MySQL Database Server

Postingan kali ini mengenai database tepatnya MySql Database. Mungkin sahabat sudah sangat jago dengan materi ini tapi tidak salah jika membanyaca lagi.

MySql merupakan salah satu database kelas dunia yang sangat cocok bila dipadukan dengan bahasa pemrograman PHP. MySql bekerja menggunakan bahasa Sql (Structure Query Language) yang merupakan bahasa standar yang digunakan untuk manipulasi database.

Pada umunya, perintah yang sering digunakan dalam MySql adalah SELECT (Mengambil), INSERT (Menambah), UPDATE (Mengubah), dan DELETE (Menghapus). selain itu Sql juga menyediakan perintah untuk membuat database, field, ataupun index untuk menambah atau menghapus data. 

Mengapa menggunakan MySql ?

Beberapa alasan mengapa menggunakan MySql, MySql sangat diminati oleh para programmer diantaranya karena :

1. Sifatnya yang Open Source.
2. Memiliki dukungan (group) pengguna MySql
3. Ease For use (Sangat Mudah Dipelajari)
4. Menggunakan bahasa SQL (Structure Query Language) yang merupakan standar bahasa dalam pengolahan data.
5. Performance dan reliable, pemrosesan sangat cepat dan stabil.
6. Lintas Platform atau dapat digunakan di berbagai System Operasi.
7. Multi User, dimana dapat diguanakan oleh banyak user danal waktu yang bersamaan tanpa masalah.
8. Dan lain-lain.

Sekian dulu perkenalan dengan MySql Database. untuk selanjutnya tentang Perintah Dasar (Query Command) Pada MySql Database.

Terimakasih.

Hidden File Tanpa Software di Komputer/Laptop

1.       Pilih target file yang ingin di sembunyikan

2.       Klik kanan . setelah klik kanan pilih Propeties maka tampilan akan berubah menjadi

3.       Ceklis Hidden ... seperti  gambar di atas setelah ceklis anda Applay dan OK setelah itu akan muncul kotak seperti gambar di bawah ini anda OK saja

 

Selamat Mencoba !!!!

Melihat File yang di sembunyikan di Komputer/Laptop

1. Cari Target yang ingin dilihat saya contohkan di sini di Local D
Klik Tool lalu Pilih Folder Option


2. maka tampilan komputer anda seperti ini :




3. Pilih Tab View dan anda pilih Show Hidden file folder and drive
setelah itu anda Apply dan OK


Selamat Mencoba !!!!

Bunyi BEEP pada AMI BIOS

mungkin anda sering kali mendengarkan bunyi BEEP pada 'Komputer/Laptop' anda.
hal ini sekilas tidak akan terlihat dampaknya. tapi jika kita perhatikan dengan baik, bahwa bunyi yang terdengar itu adalah sebuah isarat/peringatan kepada kita..

nah untuk mengetahui isarat/peringatan apa yang diberitahu kepada kita, mending kita lihat yoouk keterang dibawah ini !!!!

AMI BIOS
1 pendek = DRAM gagal me-refresh
2 pendek = paritas sirkuit kegagalan
3 pendek = basis 64K RAM kegagalan
4 pendek = kegagalan sistem waktu
5 pendek = kegagalan proses
6 pendek = keyboard kontroler gerbang A20 kegagalan
7 pendek = kegagalan memori kecuali modus virtual
8 pendek = kegagaln Teks /tulis keggagaln tes
9 pendek = ROM BIOS checksum
10 pendek = CMOS shutdown yang baca / kesalahan tulis
11 pendek = Cache memori terjadi kesalahan
1 panjang, 3 pendek = Konvensional / kegagalan perpanjangan memori
1 panjang, 8 pendek = Tampilan / menelusuri teks kegagalan

Booting Cepat (Komputer / Laptop )

CARA MENANGGULANGI PROSES BOOTING YANG LEMOT PADA "KOMPUTER/LAPTOP" :
biasanya bila anda ingin menyalakan 'Komputer/Laptop' anda sering kali merasakan betapa 'Lemotnya "Komputer/Laptop" anda sehingga hal itu akan membuat anda terasa bosan untuk menunggu loading yang begitu lama.....
adapun salah satu penyebab hal itu adalah dengan terlalu banyaknya Software/Aplikasi yang sudah terinstal di "Komputer/Laptop" anda...

Nah adapun cara untuk mengatasi hal itu, lakukanlah langkah - langkah sebagi berikut :
1. Klik Start
2. Ketik msconfig ---->>Enter

3. Akan muncul jendela kemudian pilih startup







4. Unchecklist saja yang menurut anda tidak terlalu penting
5. Klik OK ---> ReBoot
Selesai....

Selamat Mencoba !!!

Windows7 Build 7600 This copy of Windows is not genuine

Remove WAT 2.2.6 berfungsi untuk menghapus WAT (Windows Aktivation Technologies)  logo windows bajakan / wga di windows vista dan windows7 seperti gambar di atas. Layar menjadi hitam dan muncul tulisan " Windows7 Build 7600 This copy of Windows is not genuine". Untuk menghilangkannya sangat mudah dengan bantuan software Remove WAT 2.2.6

Download Removewat DISINI

Belajar HTML (Teks Berjalan)

1. Teks berjalan dari kanan ke kiri

Kode:
<marquee direction="left" scrollamount="2" align="center">Contoh Tulisan Berjalan</marquee>
Hasil:

Contoh Tulisan Berjalan

2. Teks berjalan dari kiri ke kanan

Kode:
<marquee direction="right" scrollamount="2" align="center"> Contoh Tulisan Berjalan </marquee>
Hasil:

Contoh Tulisan Berjalan

3. Teks berjalan bolak balik

Kode:
<marquee direction="left" scrollamount="2" align="center" behavior="alternate"> Contoh Tulisan Berjalan </marquee>
Hasil:

Contoh Tulisan Berjalan

4. Teks berjalan dari atas ke bawah

Kode:
<marquee direction="down" scrollamount="2" align="center"> Contoh Tulisan Berjalan </marquee>

Hasil:

Contoh Tulisan Berjalan

5. Teks berjalan dari bawah ke atas

Kode:
<marquee direction="up" scrollamount="2" align="center"> Contoh Tulisan Berjalan </marquee>

Hasil:

Contoh Tulisan Berjalan

6. Teks berjalan mondar-mandir

Kode:
<marquee direction="up" scrollamount="2" align="center" behavior="alternate"> Contoh Tulisan Berjalan </marquee>

Hasil:

Contoh Tulisan Berjalan


7. Teks berjalan zig-zag nembus

Kode:
<center><marquee direction="up" scrollamount="2" align="center" behavior="alternate" width="90%"><marquee direction="right"> Contoh Tulisan Berjalan </marquee></marquee></center>

Hasil:
Contoh Tulisan Berjalan
8. Teks berjalan zig-zag mantul




Kode:
<center><marquee direction="up" scrollamount="2" align="center" behavior="alternate" width="90%"><marquee direction="right" behavior="alternate"> Contoh Tulisan Berjalan </marquee></marquee></center>
Hasil:


Contoh Tulisan Berjalan





Langkah Selanjutnya adalah mengganti tulisan
Contoh Tulisan Berjalan
dengan tulisan atau kata-kata yang anda inginkan.

Ket :
# direction="left/right/up/down" --> Mengatur arah gerakan teks.

# scrollamount="angka" --> mengatur kecepatan gerakan dalam pixel, semakin besar angka semakin cepat gerakannya.

# behavior="scroll/slide/alternate" --> Untuk mengatur perilaku gerakan :
~> Scroll --> teks bergerak berputar
~> Slide--> teks bergerak sekali lalu berhenti
~> Alternate --> teks bergerak dari kiri kekanan lalu balik lagi ( bolak-balik bo)

# Fungsi dari :
<center> ............. </center>
adalah agar tulisan tersebut selalu berada di tengah.
Oke, sekian posting saya dengan judul cara membuat teks bergerak di blog. Semoga bisa menjadi informasi yang bermanfaat..

Cara Menbobol Password HotSpot WiFi

Berikut adalah trik trik untuk membobol wifi hotspot

CARA 1 : 

• Salah satu proteksi wireless adalah dengan membatasi akses internet berdasarkan MAC Address.

MAC Address adalah nomer yang membedakan setiap perangkat jaringan seperti komputer atau bisa disebut juga sama seperti ip address.

seperti hotspot yang membatasi penggunaan Internet gratis hanya selama 3 Jam, setelah itu tidak dapat mengakses internet lagi, dan baru akan dapat mengakses lagi di hari esok. Jenis proteksi yang digunakan adalah MAC Address Filtering.

Untuk menjebol Proteksi dengan MAC Address bisa menggunakan K-MAC.

Apa itu K-MAC ??? Download DISINI

Selamat Mencoba !!! 

Cara Sharing File melalui WiFi

Memang banyak cara yang dapat dilakukan untuk dapat berbagi filemelalui komputer atau laptop diantaranya dengan menggunakan Media flashdisk dan juga dengan Media Harddisk external Namun apabila Media tersebut tidak tersedia.  Kita masih dapat menggunakan melalui kabel LAN, Bluetooth, koneksi wireless ad hoc, dan masih banyak cara lain sesuai ketersediaan, dalam membicarakan Sistem Share kali ini akan membahas sedikit cara mengenai Sistem share dengan mengunakan Wi-Fi /Hotspot Zone, ada beberapa kelebihan apabila Kita berbagi File melalui WiFi /Hotspot Zone, kita tidak terlalu disibukan dengan Setting untuk mengkoneksikannya Seperti Setting IP, Pairing dan lain-lain karena setting yang diperlukan hanya dengan cara sederhana saja yaitu Kita hanya memerlukan Settinguntuk Folder Sharing saja.

Dan sebagai  di contohkan kali ini dalam berbagi File dengan Teman Kita  jika di ibaratkan berbagi File antara Kedua Laptop/PC yaitu Laptop/PC 1dengan  Laptop/PC 2  ( Pada OS Windows 7 ) sedangkan fungsi padaLaptop/PC 1 akan berbagi File sedangkan Laptop/PC 2 yang akan mengambil File. yang telah terhubung ke hotspot (hotspot pada Area yang sama)

- Pertama-tama Silahkan Anda tentukan folder yang akan dibagi / Share (Laptop/PC 1)
   Klik kanan pada folder yang akan di share folder "Games" tersebut, kemudian pilih Properties
- Kemudian pada Tab Sharing, Dapat Anda klik Advanced Sharing
- Silahkan Beri Tanda Centang pada Share this folder, Lalu klik Apply / klik OK
- Untuk langkah yang selanjutnya, Silahkan Anda matikan Windows Firewall / non aktifkan, ( Yaitu
   masuk ke Control Panel, Lalu pilih Windows firewall, non aktifkan Windows firewall )
- Kemudian agar Laptop/PC 2  dapat mengambil file dari Laptop/PC 1 maka Kita harus mengketahui IP
  address dari Laptop/PC 1 . dengan cara sebagai berikut:
    -- Silahkan Anda buka Command Prompt , dari menu Run ( Logo Windows +R) ketikkan CMD,
        klik   OK
- Apabila telah muncul jendela Command Prompt, Anda dapat mengetikkan ipconfig Lalu tekan Enter
Dan dapat terlihat hasil Ip addressnya adalah  55.41.23.44.253
- Dan langkah terakhir yang Kita lakukan yaitu mengakses file atau folder  dari Laptop/PC 2
  Dari Laptop/PC 2 masuk ke menu RUN (tekan Logo windows + R)
  Lalu Silahklan diketikkan tanda backslash 2x (\\) disambung dengan IPLaptop/PC 1 tadi
  \\55.41.23.44.253  Kemudian Klik , OK
Setelah itu akan muncul Folder yang di Share dari Laptop/PC 1,
Kemudian Silahkan Anda buka Folder menandakan kita telah berhasil melakukan copy paste dari Folder yang di share dari Laptop/PC 1 ke Laptop/PC 2 melalui penghubung Wi-Fi / Hotspot Zone.

Demikian  Sedikit sharing dari saya......Semoga bermanfaat... selamat mencoba..........

Remote Computer dengan CMD (Command Prompt)

Salah satu senjata terampuh para Hacker adalah Command Prompt, percaya tidak percaya tool bawaan windows ini bisa sama gunanya sama Remote Executor, FTP Manager, dll. tetapi bedanya ini berbasis CUI (Code User Interface) kalo Remote Executor, FTP Manager kebanyakan berbasis GUI (Graphical User Interface) yang semudah klak-klik-klak-klik dll.

Dalam tulisan ini saya akan memberi tutorial meremote komputer orang lain dengan Command Prompt.
Persyaratanya adalah :

1. Pc Kita & Pc target sama-sama sedang connect internet
2. Pc Kita & Pc target sama-sama menggunakan OS Windows


Tentukan IP target mu,Dan Mulai jalankan CMD dengan cara :
Start ====> RUN ===> CMD
Kemudian ketikan perintah dibawah ini :

cd c:\  [enter]

C:\>net use \\ip_target [enter]
kalo ada keterangan
the command completly succesfully, lanjut...

C:\>net use K: \\ip_target\c$ [enter]
kalo ada keterangan
the command completly succesfully, lanjut...

Seperti Gambar Di bawah ini

Setelah Sukses Langsung Buka My Computer anda
maka akan terlihat drive K disanalah Drive C target berada
Jika ingin meremot Drive D  cukup mengganti kode net use K: \\ip_target\c$ menjadi net use K: \\ip_target\d$

Mengembalikan Taks Manager Yang Hilang Pada Windows7

ini langkah-langkahnya :
sebelum task manager terbuka anda coba dulu mantra ini
klik disini untuk mendownload   Disini

Setelah Selesai di download, lakukan dengan langkah - langkah Sebagai Berikut :
Buka regedit (Start - run - ketik regedit - enter )
pilih HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
di sebelah kanan set DisableTaskMgr menjadi 0 (nol)
Tutup registry editor dan… Task Manager muncul kembali
ini kalo kasusnya lain laen lagi (apabila DisableTaskMgr nya gak ada )

sumber : http://sildrian.blogspot.com/2011/12/mengembalikan-task-manager-yang-hilang.html

Membuka Situs Yang DiBlokir

Cara Terbaru Membuka Situs yang Diblokir - Mungkin Anda pernah mengunjungi sebuah situs atau website yang menurut Anda sangat bermanfaat tetapi ketika Anda buka situs itu ternyata sudah diblokir oleh provider internet yang Anda gunakan. Tentu dalam hal ini Anda akan merasa sangat jengkel dengan kenyataan bahwa situs kesukaan Anda tersebut ternyata sudah tidak bisa dikunjungi lagi.

Memang keluhan-keluhan seperti ini kerap terjadi dan tidak tertutup kemungkinan hal ini pula yang membuat banyak orang bertanya-tanya tentang bagaimana cara membuka situs yang diblokir, baik itu cara membuka situs yang diblokir Aha, cara membuka yang diblokir XL, cara membuka situs yang dibloker Telkomesel, Tri, Speedy dan lain sebagainya.

Untuk menjawab pertanyaan-pertanyaan tersebut, maka pada kesempatan ini blog Berita Terhangat akan mempublikasikan informasi tentang cara terbaru membuka situs yang diblokir oleh provier internet tersebut. Adapun cara-caranya bisa Anda download file berikut:

 

 

 DISINI

Selamat Mencoba !!!

Array Pada Bahasa C++

Contoh Program Toko Buku   

mungkin anda pusing dengan sulitnya pemahaman coding dalam bahasa C++, berikut ini contoh sebuah program Toko Buku

tampilan menu utama

User Sign

Menu Transaksi

untuk menghasilkan tampilan seperti diatas, tentu akan melalui bebrapa proses.
proses yang sangat penting adalah pada saat peng'Koding'....
UUuoppppsss...!!!!! :D
Anda tidak usah khawatir, karena akan saya lampirkan juga 'Koding seperti contoh diatas Guy's !!! jadi harap tenang....

Silahkan 'Ketik' Kodiing dibawah ini !!!
Ettts !!!!
ada satu lagi, jangan di Copy-Paste yah, karena apabila anda Copy-Paste maka program anda tidak akan jalan/Running....

Good Luck !!!

  #include <iostream>
    #include <fstream>
    #include <strstream>
    #include <stdio.h>
    #include <conio.h>
    #define besar_array 100
    int main()
    {
    Menu :
    char buffer1[2048];
    char daftar1[2048];
    istrstream ostr1(buffer1, 2048);
    char values1[30][besar_array];
    int c=0;
    int a; int b; int j,k,l,m,n,o; float y,p,kem;
    int z=0; int x=0;
    int s;
    char nama[100];
    char pass[100];
    char nama1[100];
    ifstream fin("master.txt");
    fin.getline(buffer1, 2048);
    ifstream daftar("masterdb.txt");
    ofstream registrasi;
    registrasi.open("master.txt", ios::app);
    ofstream bukti1;
    bukti1.open("bukti.txt",ios::app);
    while(ostr1 >> values1[c])         //memecah isi file menjadi array
    { c++;}
    clrscr();
    printf ("Menu Utama");
    printf ("\n+++++++++++");
    printf ("\n1. Login\n2. Register\n3. Exit");
    printf ("\nPilihan :");
    scanf ("%i", &a);
    switch (a)
    {
                                       //Pilihan satu dari menu
    case 1 :
    clrscr();
    printf ("1.login");
    printf("\n+++++++");
    printf ("\n\nMasukan Username Anda [1..25] : ");
    scanf ("%s",&nama[0]);
    while(strlen(nama)>25){ //Validasi
    scanf("%s",&nama[0]); fflush(stdin);
    }
    printf ("\nMasukan Password Anda [1..25] : ");
    scanf ("%s",&pass[0]);
    while(strlen(pass)>25){ //Validasi
    scanf("%s",&pass[0]); fflush(stdin);
    }
    for(s=0;s<c;s=s+2)
    {
    if (strcmp (nama, values1[s]) == 0){
    if (strcmp (pass, values1[s+1]) == 0){
    z++;
    strcpy(nama1,values1[s]);
    }
    }}
    clrscr();
    if (z>0){ //Jika Login Berhasil
    printf ("Login SUCCESS...");
    printf ("\n\nSelamat Datang DI Toko \"Book Store\" sdr. %s ..^^v",nama1);
    printf ("\n\nTekan Enter Untuk Lanjut...");
    cin.get();
    //Masuk ke Menu Login
    Mlog:
    clrscr();
    printf ("Selamat Datang di Toko Buku \"Book Store\" sdr. %s ..^^v",nama1);
    printf ("\n***********************************************************");
    printf ("\n\nMenu Login :");
    printf ("\n1.Lihat List Buku\n2.Beli Buku dan Print BuktiPembelian\n3.Logout");
    printf ("\n\nPilihan : ");
    scanf ("%i",&b);
    switch(b){
    case 1 : //Pilihan 1 Dari Menu Login
    clrscr();
    cout << "1. Lihat List Buku";
    cout << "\n+++++++++++++++++++\n\n";
    daftar.read(daftar1, 2048);
    cout << daftar1 <<"\n\n Tekan ENTER untuk kembali ke Menu Login" << endl;
    cin.get();
    goto Mlog;
    case 2 : //Pilihan 2 Dari Menu Login
    clrscr();
    cout << "2. Beli Buku dan Print Bukti Pembelian";
    cout << "\n+++++++++++++++++++++++++++++++++++++++";
    cout << "\n\n";
    cout << "Masukan berapa banyak buku yang ingin anda beli [jumlah min 0, max 5] :"
    << "\n\n";
    cout << "Nama Buku : The Joy of Living [harga satuan : 125000] = ";
    cin >> j;
    while(j<0||j>5){cin.clear(); cin >> j;} //validasi
    cout << "Nama Buku : Pemograman Bahasa C++ [harga satuan : 70000] = ";
    cin >> k; while(k<0||k>5){cin.clear(); cin >> k;} //validasi
    cout << "Nama Buku : Membuka Pintu Hati [harga satuan : 80000] = ";
    cin >> l; while(l<0||l>5){cin.clear(); cin >> l;} //validasi
    cout << "Nama Buku : Java for Dummies [harga satuan : 75000] = ";
    cin >> m; while(m<0||m>5){cin.clear(); cin >> m;} //validasi
    cout << "Nama Buku : Rule of Quidditch [harga satuan : 40000] = ";
    cin >> n; while(n<0||n>5){cin.clear(); cin >> n;} //validasi
    cout << "Nama Buku : 72 Jam Menguasai VB [harga satuan : 200000] = ";
    cin >> o; while(o<0||o>5){cin.clear(); cin >> o;} //validasi
    y=(j*125000)+(k*70000)+(l*80000)+(m*75000)+(n*40000)+(o*200000);
    cout << "\n\n";
    printf ("Total Belanjaan Anda adalah RP. %.0f ",y);
    printf ("\nMasukan uang pembayaran Anda [Min pembayaran Rp. %.0f] : Rp. ",y);
    cin >> p;
    while(p<y) {cin >> p;} //validasi pembayaran
    kem = p - y;
    printf ("\nUang Kembalian Anda Adalah : RP. %.0f",kem);
    bukti1 << "\nNama Member : " << nama1 << "\nTotal Belanja = RP. " << y
    << "\n-----------------------";
    printf ("\n\nTerimakasih atas Pembeliannya,\nBukti Pembayaran dapat anda lihat di bukti.txt");
    printf ("\n\nTekan ENTER untuk kembali ke menu Login");
    getch();
    goto Mlog;
    case 3 : //Pilihan 3 Dari Menu Login
    clrscr();
    printf ("Logout SUCSESS...\n\nTekan ENTER untuk Lanjut...");
    cin.get();
    goto Menu;
    default : printf ("Salah");
    break;
    }
    }
    else {                                                                                                 //Jika Login Gagal
    printf("Login FAILED...\n\nHarap Lakukan Registrasi terlebih dahulu");
    printf("\n\nTekan ENTER untuk Lanjut");
    cin.get();
    goto Menu;
    }
    //Pilihan 2 dari menu
    case 2:
    clrscr();
    printf ("2. register");
    printf ("\n++++++++++++");
    printf ("\n\nMasukan Username Anda [1..25] : ");
    scanf ("%s",&nama[0]);
    while(strlen(nama)>25){ //Validasi
    scanf("%s",&nama[0]);}
    printf ("\nMasukan Password Anda [1..25] : ");
    scanf ("%s",&pass[0]);
    while(strlen(pass)>25){ //Validasi
    scanf("%s",&pass[0]); fflush(stdin);
    }
    for(s=0;s<c;s=s+2);
    {
    if (strcmp (nama, values1[s]) == 0){
    x++;
    }
    }
    if (x>0){
    clrscr();
    printf("Registrasi FAILED...\n");
    printf("\nID sudah ada, Silakan Masukan ID yang lain...");
    printf("\n\nTekan ENTER untuk lanjut...");
    cin.get();
    goto Menu;
    }
    else{
    clrscr();
    registrasi << " " << nama<<" " << pass ;
    registrasi.close();
    printf ("Registrasi SUCSESS..");
    printf ("\n\nSilahkan Login untuk melakukan Transaksi ^^v");
    printf ("\n\nTekan Enter untuk Lanjut...");
    cin.get();
    goto Menu;
    }
    //pilihan 3 dari menu
    case 3 :
    clrscr();
    cout << "Terima Kasih Atas Kunjungan Anda ke Toko Kami... ^^v\n\nTekan ENTER     untuk Exit.."
    << endl;
    break;
    default : printf ("Salah"); break;
    }}
    getch();

Latihan Sederhana

Input Coding ny dibawah !!!

Private Sub Cmdinput_Click()Tharga.Text = "0"
Tlama.Text = "0"
Ttotal.Text = "0"
Tubay.Text = "0"
Option1 = False
Option2 = False
End Sub

Private Sub CmdKeluar_Click()
s = MsgBox("Yakin mau keluar ?", vbQuestion + vbYesNo)
If s = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem ("Single")
Combo1.AddItem ("Family")
End Sub

Private Sub Option1_Click()
If Combo1.Text = "Single" Then
Tharga.Text = 175000
Else
Tharga.Text = 300000
End If
End Sub

Private Sub Option2_Click()
If Combo1.Text = "Family" Then
Tharga.Text = 350000
Else
Tharga.Text = 200000
End If
End Sub


Private Sub Tlama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Ttotal.Text = Val(Tlama.Text) * Val(Tharga.Text)
End If
End Sub


Private Sub Tubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Tubay.Text = Val(Tubay.Text) - Val(Ttotal.Text)
p = MsgBox("Uang Kembali = Rp. " + Tubay, vbInformation + vbOKOnly, "Promotel")
End If
End Sub