3. Membuat FORM USER

3. Membuat FORM USER

- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini: 

NAME	CAPTION/TEXT	KETERANGAN	TAMBAHAN
Label1	ID user	Label
Label2	Nama user	Label
Label3	Alamat	Label
Label4	Telpon	Label
Label5	Type	Label
Label6	Password	Label
TxtId	-	Textbox
Txtnama	-	Textbox
Txtalamat	-	Textbox
Txttelpon	-	Textbox
Cbotype	-	Combo box
Txtpass	-	Textbox
Txtfind	-	Textbox
Cmdadd	&add	Command Button
Cmdclear	&clear	Command Button
Cmdsave	&save	Command Button
Cmdedit	&edit	Command Button
Cmddelete	&delete	Command Button
Cmdexit	&exit	Command Button
Cmdfind	&find	Command Button
Data1	-	Data
Dbgrid1	-	Dbgrid	Data source : data1
User	Data User	Form
Cmdprint	&print	Command Button	Jika punya Crystal Report
CR	-	Crystal Report	Jika punya Crystal Report

Adapun Listing Program dari Form User ini: (keterangannya baca di Tutorial 2)

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/BUKU.mdb"
Data1.RecordSource = "Table_user"
Cbotype.add item “ADMINISTRATOR”
Cbotype.add item “LIMITED”
End Sub

Private Sub Form_Activate()
CBOTYPE.Enabled = False
Call nonaktif
TXTID.Enabled = False
CMDCLEAR.Enabled = False
CMDSAVE.Enabled = False
CMDDELETE.Enabled = False
CMDEDIT.Enabled = False
End Sub

Sub aktif()
TXTNAMA.Enabled = True
TXTPASS.Enabled = True
TXTALAMAT.Enabled = True
TXTTELPON.Enabled = True
End Sub

Sub nonaktif()
TXTNAMA.Enabled = False
TXTPASS.Enabled = False
TXTALAMAT.Enabled = False
TXTTELPON.Enabled = False
End Sub

Sub kosong()
TXTNMPEL.Text = ""
TXTALAMAT.Text = ""
TXTTELP.Text = ""
End Sub

Sub tampil()
On Error Resume Next
With Data1.Recordset
    TXTKDPEL.Text = !Kode_pelanggan
    TXTNMPEL.Text = !Nama_Pelanggan
    TXTALAMAT.Text = !Almt_pelanggan
    TXTTELP.Text = !Telp_pelanggan
End With
End Sub

Private Sub TXTFIND_Change()
If TXTFIND.Text = "" Then
Data1.RecordSource = "SELECT*FROM Table_user"
Data1.Refresh
CMDEDIT.Enabled = False
CMDDELETE.Enabled = False
CMDFIND.Enabled = True
TXTFIND.Enabled = True
CMDADD.Enabled = True
End If
End Sub

Private Sub CMDFIND_Click()
If TXTFIND.Text = "" Then
MsgBox "masukan data dulu"
TXTFIND.SetFocus
Else
Data1.RecordSource = "SELECT*FROM Table_user WHERE Id_user=’" & TXTFIND.Text & "’"
Data1.Refresh
Call tampil
CMDFIND.Enabled = False
CMDADD.Enabled = False
CMDEDIT.Enabled = True
CMDDELETE.Enabled = True
If Data1.Recordset.EOF Then
MsgBox "DATA TIDAK ADA !!!", vbOKOnly, "INFO"
TXTFIND.Text = ""
TXTFIND.SetFocus
Call kosong
TXTID.Text = ""
End If
End If
End Sub

KETERANGAN: Lagi lagi di Form User ini saya memakai kode pencarian yang berbeda dari Form Pelanggan dan Form Buku. Jika di Form Buku saya hanya menggunakan textbox lalu di Form Pelanggan saya hanya menggunakan command button, maka pada Form User ini saya menggunakan kedua duanya baik textbox dan command button.
Maksud dari logika program pencariannya agak mirip dengan yang ada di Form Buku tetapi kalau memasukan data yang dicari pada Form User ini harus benar benar sama persis dengan yang ada di database. Arti listing programnya yaitu: Pilih semua data dari Table User yang ada di database yang ID User nya sama persis dengan yang ada di txtfind.

Private Sub CMDADD_Click()
Call aktif
Call kosong
CBOTYPE.Enabled = True
TXTNAMA.SetFocus
CMDADD.Enabled = False
CMDCLEAR.Enabled = True
CMDSAVE.Enabled = True
CMDEDIT.Enabled = False
CMDDELETE.Enabled = False
CMDFIND.Enabled = False
End Sub

Private Sub CMDCLEAR_Click()
TXTID.Text = ""
Call kosong
Call nonaktif
CMDADD.Enabled = True
CMDSAVE.Enabled = False
CMDCLEAR.Enabled = False
CMDEDIT.Enabled = False
CMDDELETE.Enabled = False
CBOTYPE.Enabled = False
CMDFIND.Enabled = True
End Sub

Private Sub CMDSAVE_Click()
With Data1.Recordset
.AddNew
!Id_user = TXTID.Text
!Nama_user = TXTNAMA.Text
!Almt_user = TXTALAMAT.Text
!Telp_user = TXTTELPON.Text
!Pass_user = TXTPASS.Text
!Type_user = CBOTYPE.Text
.Update
End With
Data1.Refresh
MsgBox "data telah disimpan"
Call nonaktif
CMDSAVE.Enabled = False
CMDCLEAR.Enabled = False
CMDADD.Enabled = True
CBOTYPE.Enabled = False
CMDFIND.Enabled = True
Call kosong
TXTID.Text = ""
End Sub

Private Sub CMDEDIT_Click()
If CMDEDIT.Caption = "&EDIT" Then
Call aktif
CMDSAVE.Enabled = False
CMDCLEAR.Enabled = False
CMDDELETE.Enabled = False
CMDEDIT.Caption = "&UPDATE"
CBOTYPE.Enabled = True
Else
CBOTYPE.Enabled = False
With Data1.Recordset
.Edit
!Id_user = TXTID.Text
!Nama_user = TXTNAMA.Text
!Almt_user = TXTALAMAT.Text
!Telp_user = TXTTELPON.Text
!Pass_user = TXTPASS.Text
!Type_user = CBOTYPE.Text
.Update
End With

If TXTID.Text = Menuutama.txtuser.Text Then
Menuutama.txtuser.Text = Data1.Recordset!Id_user
Menuutama.Label2.Caption = Data1.Recordset!Nama_user
End If

Call kosong
TXTFIND.Text = ""
TXTID.Text = ""
CMDEDIT.Caption = "&EDIT"
CMDDELETE.Enabled = False
CMDADD.Enabled = True
CMDEDIT.Enabled = False
CMDFIND.Enabled = True
Call nonaktif
End If
End Sub

Private Sub CMDDELETE_Click()

a = MsgBox("YAKIN ANDA MAU MENGAHAPUS DATA INI ?", vbQuestion + vbYesNo, "KONFIRMASI")
    If a = vbYes Then
    Data1.Recordset.Delete
    Call kosong
    TXTID.Text = ""
    MsgBox "DATA TELAH BERHASIL DIHAPUS", vbOKOnly, "INFO"
    CMDADD.Enabled = True
    Data1.Refresh
    CMDDELETE.Enabled = False
    CMDEDIT.Enabled = False
    CMDFIND.Enabled = True
    TXTFIND.Text = ""
Else
CMDDELETE.Enabled = False
CMDADD.Enabled = True
Call kosong
TXTID.Text = ""
TXTFIND.Text = ""
    End If
End Sub

Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub CMCPRINT_Click()
CR.ReportFileName = App.Path & "\USER.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub

PERHATIAN: CMDPRINT hanya dipakai jika anda mempunyai software pembuat laporan yang bernama CRYSTAL REPORT. Jika tidak punya, silahkan hapus rumusnya. Tapi jika anda punya, gunakan listing program tersebut dan hilangkan  tanda petik di depan rumusnya. Untuk keterangan lebih lanjut baca Tutorial Membuat Laporan dengan Crystal Report.

- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”User” dan menyimpannya dengan nama ”User.frm”.

Akhirnya selesai juga Form Pelanggan dan Form User ini. Bagaimana? Tambah mengerti atau tambah pusing? Nyantai aja bro, masih banyak yang harus kita bikin. Masih ada beberapa form lagi. Jadi, tetap ikuti tutorial dari saya.

By: yamin.

ahmad.askhabulyamin@gmail.com
www.informasiyamin.blogspot.com

Cara Membuat Game Dengan VB

Cara membuat game dengan VB 

dah lama ga blog nnih maklum masih pemula masih bingung bikin blog..
Kali ini kita kita akan belajar membuat game yang nantinya bisa kamu kembangkan sendiri.Penulis hanya membuat sample ini supaya kamu bisa menciptakan sendiri game yang lebih bagus.Game ini sangat simple dengan tampilan 2 dimensi menggunakan scipt kode di VB. Ada tiga option yang bisa dipilih yaitu :

1) Start
2) Options
3) The Game

Komponen yang digunakan

1) Timer Control
2) Picture Control
3) Label Control
4) Windows Media ocx

Untuk bermain game ini hanya menggunakan tombol arah serta tombol spasi. Silakan mencoba sendiri..

Dan berikut sample codenya

Option Explicit
Dim u, d, l, r, showm As Boolean
Dim x, y As Integer
Dim mx, my As Integer
Dim ex, ey As Integer
Dim score As Long
Dim fuel As Integer
Dim es As Integer

Private Sub Form_Load()'MediaPlayer1.playerApplication = App.Path & "\sfx\fire.wav"
'MediaPlayer2.FileName = App.Path & "\sfx\Explosion.wav"
'MediaPlayer3.FileName = App.Path & "\sfx\mainsound.mp3"lblScore.Caption = "0"x = 0
y = 0ex = -100
ex = -100es = 10fuel = 1
End Sub

Private Sub Form_Paint()
shooter.SetFocus
End Sub

Private Sub shooter_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then speed = speed - 1
If speed <= 0 Then speed = 0 If speed > 30 Then speed = 30

If KeyCode = 50 Then speed = speed + 1
If KeyCode = vbKeyLeft Then l = True
If KeyCode = vbKeyRight Then r = True
If KeyCode = vbKeyUp Then u = True
If KeyCode = vbKeyDown Then d = True
If KeyCode = vbKeySpace Then
If Not showm Then
fireit
End If
End If
If KeyCode = vbKeyEscape Then Unload Me: End
End Sub

Private Sub shooter_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then l = False
If KeyCode = vbKeyRight Then r = False
If KeyCode = vbKeyUp Then u = False
If KeyCode = vbKeyDown Then d = False
End Sub

Private Sub Timer1_Timer()Static ch As Boolean
ch = Not chIf ch Then
shooter.Picture = Picture2.Picture
Else
shooter.Picture = Picture3.Picture
End If
End Sub

Private Sub
Timer2_Timer()
If l Then
x = x - speed
If x < x =" 0" x =" x">= Me.ScaleWidth - 100 Then x = Me.ScaleWidth - 100

End If

If u Then
y = y - speed
If y < y =" 0" y =" y">= Me.ScaleHeight - 100 Then y = Me.ScaleHeight - 100
End If

Label5.Caption = "X = " & x
Label6.Caption = "Y = " & y

shooter.Left = x
shooter.Top = y

Label3.Caption = CStr(speed)

If showm Then

mx = mx + 20
If mx > Me.ScaleWidth Then
showm = False
fire.Visible = False

End If

fire.Left = mx
fire.Top = my

If (my > ey And my <> ex) Then
score = score + 10
showm = False
SetEn
End If

Else
fire.Visible = False

End If

ex = ex - es
en.Left = ex
If ex < -200 Then SetEn en.Top = ey End If lblScore = CStr(score) Label8.Caption = "EX = " & ex Label7.Caption = "EY = " & ey If (y > ey - 40 And y <> ex And x < fuel =" fuel"> 1 Then MediaPlayer2.Play
Picture1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

SetEn Select Case fuel

Case 2
Image1.Picture = LoadPicture(App.Path & "\data\fuel50.gif")

Case 3
Image1.Picture = LoadPicture(App.Path & "\data\fuel20.gif")

Case 4
Image1.Picture = LoadPicture(App.Path & "\data\game-over.gif")

End Select

If fuel = 4 Then

MsgBox "Game Over", vbCritical, "Shooter"
Unload Me
Form2.Show

End If

End If
End Sub

Private Sub fireit()
'MediaPlayer1.Play
showm = Truemx = shooter.Left + 100
my = shooter.Top + 50
fire.Visible = True
End Sub

Public Sub SetEn()
ey = Int(Rnd * Me.ScaleHeight) - 100

ex = Me.ScaleWidth
en.Left = ex
en.Top = ey

End Sub

Private Sub Timer3_Timer()
es = es + 5
End Sub

Selamat bereksperimen semoga berhasil..

kita sama-sama belajar mari kita share pengetahuan kita..

Inikah Komputer Masa Depan?

Menggunakan sebuah teknologi 3D trancking dan monitor transparan OLED Samsung, Microsoft Applied Sciences Group menciptakan sebuah karya ilmiah fiksi teknologi dekstop masa depan.
Mereka menyebutnya dengan nama 3D Desktop, sebuah desktop tiga demensi yang diprediksi sebagai teknologi dekstop canggih di masa depan.
Dua orang pemuda yang sedang magang di Microsoft, Jinha Lee dan peneliti Cati Boulanger menciptakan sebuah teknologi antarmuka yang memungkinkan pengguna menginput data fisik menggunakan tangan.
Dan dengan tangan ini maka proses navigasi komputer dapat dilakukan secara tiga dimensi. Sebuah keyboard tetap dihadirkan. Namun letaknya dibelakang monitor.
Memang ini hanya sebuah karya fiksi ilmiah. Namun karya dua pemuda ini adalah sebuah blueprint yang di masa depan jika didukung dengan SDA yang lebih mumpuni bisa saja dimungkinkan

rayuan gombal

Rayuan Gombal 2012 | Sms Rayuan Gombal Cinta dan Lucu Terbaru

- Cewek kadang suka jika di gombalin, tapi tidak sedikit juga yang tidak suka, karena memang tiap cewek berbeda tipe.

Sebenarnya bukan hanya cowok saja yang bisa ngegombal, Cewek pun juga bisa. Seperti di tulis dalam thread forum detik dengan judul Ternyata Gombal Wanita lebih maut dr Lelaki. Lihat disini

Rayuan gombal jika berlebihan, akan membuat orang yang bersangkutan males, lama-lama bisa ilfeel. Maka dari itu, kalau ngegombal carilah waktu dan suasana yang tepat.

Kebanyakan orang bingung untuk membedakan antara ngegombal atau jujur dari hatinya. Untuk masalah itu, tergantung diri sendiri, tinggal bagaimana Anda menyikapinya.


Berikut beberapa Rayuan Gombal | Sms Rayuan Gombal | Kata Kata Gombal

Rayuan Gombal Cinta

- Saat aku nggak SMS ke kamu, bukan berarti aku melupakanmu, tapi aku hanya memberi waktu buat NGANGENIN AKU !!

- Aku tidak minta bintang atau bulan kepadamu. Cukup temani aku selamanya di bawah cahayanya

- Gimana kalo kita berdua jadi komplotan penjahat: Aku mencuri hatimu, dan kamu mencuri hatiku ?

Aku pengen bersamamu cuma pada dua waktu : SEKARANG dan SELAMANYA.

- Jika aku bisa jadi bagian dari dirimu, aku mau jadi air matamu, yang tersimpan di hatimu, lahir dari matamu, hidup di pipimu, dan mati di bibirmu.

- Aku selalu berusaha tak menangis karenamu, karena setiap butir yang jatuh, hanya makin mengingatkan, betapa aku tak bisa melepaskanmu.

- Andai sebuah bintang akan jatuh setiap kali aku mengingatmu, bulan pasti protes. Soalnya dia bakal sendirian di angkasa.

- Kenapa aku tetap menginginkanmu walau kamu tak pernah punya rasa yang sama. Masalahnya, begitu sulit membuatmu mencintaiku, lebih sulit lagi memaksa hatiku berhenti memikirkanmu.

- Dingin malam ini menusuk tulang. Kesendirian adalah kesepian. Maukah kau jadi selimut penghangat diriku ?

- Aku ingin mengaku dosa. Jangan pernah marah ya. Maafkan sebelumnya. Tadi malam aku mimpiin kamu jadi pacarku. Setelah bangun, akankah mimpiku jadi nyata?

- Dulu aku heran, napa orang sampe berantem ? hanya karena cinta. Trus aku inget muka kamu, dan tiba-tiba, aku merasa siap menghadapi Perang Dunia Ketiga.


Rayuan Gombal Lucu

- Kalau kamu nanya berapa kali kamu datang ke pikiranku, jujur aja, cuma sekali. abisnya, ga pergi2 sih!

- Orangtuamu pengrajin bantal yah? Karena terasa nyaman jika di dekatmu.

- Sekarang aku gendutan gak sih ? kamu tau gak kenapa ? soalnya km udah mengembangkan cinta yang banyak dihatiku

- Tau ga knapa malem ini ga ada bintang ?? soalnya bintangnya pindah semua ke matamu?

- Jangan GR deh. Aku kangen kamu sedikit aja kok. Sedikit berlebihan maksudnya.

Cowok: Maaf mbak, jangan terlalu lama duduk dikursi itu, pindah deket saya saja?
Cewek: Loh? Emangnya kenapa??
Cowok: Biar gak dikerubung semut.. soalnya mbak manis sich?

Cowok : Aku didiagnosa Sakit jantung.
Cewek : Hah! Kok bisa?
Cowok : Iya. Jantungku selalu berdegup kencang bila dekat denganmu.

Cowok : Kemarin aku ke dokter mata. Kamu tau apa kata dokter?
Cewek : Apa? Parah?
Cowok : Kata dokter ada kamu di mataku.

Cowok : Kamu punya kunci apa aja sih?
Cewek : Kunci rumah, kunci mobil, kunci lemari. Emang ada apa?
Cowok : Punya nggak kunci untuk membuka hatimu kepadaku?

Cowok : Kamu punya peta nggak?
Cewek : Peta apa?
Cowok : Peta hatimu. Karena aku tersesat dan tak bisa keluar dari hatimu.

- Bapak kamu pasti seorang astronot ??? Soalnya aku melihat banyak bintang di matamu.

- Kamu pasti kuliah di seni pahat ya ??? Soalnya kamu pintar sekali memahat namamu di hatiku.

- Kakekmu pasti penambang ya ??? Soalnya banyak berlian di matamu.

- Kamu Mantan pencuri ya ??? Abisnya kamu mencuri hatiku sih!

Cowok : Aku suka senyum-senyum sendiri lho.
Cewek : Hah .. Gila Ya
Cowok : Nggak. Aku sedang mikirin kamu.

- Setiap malam aku berjalan-jalan di suatu tempat. Kamu tau di mana itu ? Di hatimu.

- Kamu merasa gempa gak ??? ada kamu yang mengguncang hatiku sih.

-Kamu pake Indosat ya ??? Karena sinyal-sinyal cintamu sangat kuat sampai ke hatiku.