TUGAS VB : KASUS "PENJUALAN TIKET BUS"

1. Normalisasi Data

1. Normalisasi data
Normalisasi merupakan proses pengelompokkan elemen data menjadi table-tabel yang menunjukkan entity dan relasinya
Normalisasi adalah proses pengelompokan attribute attribute dari suatu relasi sehingga membentuk WELL STRUCTURE RELATION.






Step 1 Unnormalized

Notrans Kode Jnsbus qty no_penumpang
F001 BUS04 AC 2 PEN01
F002 BUS01 AC 2 PEN02
F003 BUS05 AC 1 PEN03






Step 2 bentuk 1NF

Notrans Kode Jnsbus qty no_penumpang
F001 BUS04 AC 1 PEN01
F001 BUS04 AC 1 PEN01
F002 BUS01 AC 1 PEN02
F002 BUS01 AC 1 PEN02
F003 BUS05 AC 1 PEN03







Step 3 bentuk 2NF

2. Spesifikasi File

A. Table Bus

B. Table Penumpang

C. Table Transaksi

Ketentuan :

1.Jika jenis bus yang dipilih adalah AC , maka tarif bus dikenakan biaya tambahan sebesar Rp. 20000 .
2.Jika jenis bus yang dipilih adalah NON AC , maka tarif bus tidak akan dikenakan biaya tambahan .



3. Rancangan Form dan Menu utama

A. Form Login

Listing :


Private Sub bsign_Click()
Form4.Show
End Sub

Private Sub Form_Activate()
tuser.Enabled = True
tpass.Enabled = True
tuser.SetFocus
End Sub


B. Form Master Bus

Listing :

Dim isidetail As Boolean

Private Sub bprint_Click()
crybus.Action = 1
End Sub

Private Sub cadd_Click()
bersih
aktif
tkode.SetFocus
End Sub

Private Sub ccancel_Click()
bersih
nonaktif
End Sub

Private Sub ccari_Click()
With adobus.Recordset
.Find "kode='" & tkode & "'"
If .BOF And .EOF Then
MsgBox "THE CODE" + tkobus + "IS NOT EXIST", 34, "INFO"
tkobus = ""
tkobus.SetFocus
Else
adobus.Refresh
tkobus = adobus.Recordset.Fields("kode")
tnabus = adobus.Recordset.Fields("nm_bus")
tnabus.SetFocus
End If
End With
End Sub

Private Sub cdel_Click()
If Len(Trim(tkode.Text)) = "" Then
Exit Sub
End If
t = MsgBox("DO YOU REALLY WANT TO DELETE THE RECORD?", 32 + 4, "ASK")
If t = vbYes Then
adobus.Recordset.Delete
bersih
Else
bersih
End If
End Sub

Private Sub cedit_Click()
isibus = False
aktif
tnama.SetFocus
cadd.Enabled = False
cdel.Enabled = False
cedit.Enabled = False
csave.Enabled = True
ccancel.Enabled = True
End Sub

Private Sub cexit_Click()
End
End Sub

Sub bersih()
ttgl = ""
tjam = ""
tkode = ""
tnama = ""
tnasup = ""
tjurusan = ""
ttarif = ""
End Sub

Sub aktif()
ttgl.Enabled = True
tjam.Enabled = True
tkode.Enabled = True
tnama.Enabled = True
tnasup.Enabled = True
tjurusan.Enabled = True
ttarif.Enabled = True
cadd.Enabled = True
csave.Enabled = True
ccancel.Enabled = True
cedit.Enabled = True
cdel.Enabled = True
cfirst.Enabled = True
cprev.Enabled = True
cnext.Enabled = True
clast.Enabled = True
bprint.Enabled = True
cexit.Enabled = True
ttgl = Date
tjam = Time()
End Sub

Sub nonaktif()
ttgl.Enabled = False
tjam.Enabled = False
tkode.Enabled = False
tnama.Enabled = False
tnasup.Enabled = False
tjurusan.Enabled = False
ttarif.Enabled = False
cadd.Enabled = True
csave.Enabled = False
ccancel.Enabled = False
cedit.Enabled = False
cdel.Enabled = False
cfirst.Enabled = False
cprev.Enabled = False
cnext.Enabled = False
clast.Enabled = False
bprint.Enabled = False
cexit.Enabled = False
End Sub

Private Sub cfirst_Click()
tkode.Enabled = False
adobus.Recordset.MoveFirst
tampildata
MsgBox "ALREADY EXIST IN THE FIRST RECORD", 64, "INFO"
cedit.Enabled = True
cadd.Enabled = True
cdel.Enabled = True
cedit.SetFocus
End Sub

Private Sub clast_Click()
tkode.Enabled = False
adobus.Recordset.MoveLast
tampildata
MsgBox "ALREADY EXIST IN THE LAST RECORD", 64, "INFO"
cedit.Enabled = True
cadd.Enabled = True
cdel.Enabled = True
cedit.SetFocus
End Sub

Private Sub cnext_Click()
tkode.Enabled = False
adobus.Recordset.MoveNext
If adobus.Recordset.EOF Then
MsgBox "ALREADY EXIST IN THE LAST RECORD", 48, "INFO"
adobus.Recordset.MoveLast
End If
tampildata
cedit.Enabled = True
cadd.Enabled = True
cdel.Enabled = True
cedit.SetFocus
End Sub

Private Sub cprev_Click()
tkode.Enabled = False
adobus.Recordset.MovePrevious
If adobus.Recordset.BOF Then
MsgBox "ALREADY EXIST IN THE FIRST RECORD", 48, "INFO"
adobus.Recordset.MoveFirst
End If
tampildata
cedit.Enabled = True
cadd.Enabled = True
cdel.Enabled = True
cedit.SetFocus
End Sub

Private Sub csave_Click()
On Error Resume Next
With adobus.Recordset
If isibus = True Then 'SIMPAN JIKA DATA BELUM ADA
.AddNew
.Fields("kode") = tkode
.Fields("nm_bus") = tnama
.Fields("nasup") = tnasup
.Fields("jurusan") = tjurusan
.Fields("tarif") = ttarif
.Update
Else 'JIKA DATA YANG ADA DIPERBAHARUI
.AddNew
.Fields("kode") = tkode
.Fields("nm_bus") = tnama
.Fields("nasup") = tnasup
.Fields("jurusan") = tjurusan
.Fields("tarif") = ttarif
.Update
End If
End With
adobus.RecordSource = "select*from table_bus"
adobus.Refresh
adobus.Refresh
On Error GoTo 0
End Sub

Private Sub Form_Activate()
nonaktif
ttgl = Date
tjam = Time()
End Sub

Sub tampildata()
tkode = adobus.Recordset.Fields("kode")
tnama = adobus.Recordset.Fields("nm_bus")
tnasup = adobus.Recordset.Fields("nasup")
tjurusan = adobus.Recordset.Fields("jurusan")
ttarif = adobus.Recordset.Fields("tarif")
End Sub





Private Sub tkode_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii))) 'HURUF KAPITAL
If KeyAscii = 13 Then
adobus.RecordSource = "select*from table_bus where kode='" & tkode & "'"
adobus.Refresh
With adobus.Recordset
If .BOF And .EOF Then
t = MsgBox("THE CODE" & tkode & "IS NOT EXIST, DO YOU WANT TO ADD THE CODE?", vbYesNo + vbQuestion, "CONFIRM")
If t = vbYes Then
isibus = True
Call aktif
tnama.SetFocus
grid1.Refresh
Else
Call nonaktif
End If
Else
MsgBox "THE CODE" & tkode & "IS ALREADY EXIST", vbQuestion, "FOUND"
tampildata
tkode.Enabled = False
End If
End With
End If
End Sub


C. Form Master Penumpang

Listing :

Dim isipen As Boolean

Sub bersih()
tno = ""
tnapen = ""
talamat = ""
ttelp = ""
End Sub

Sub aktif()
tno.Enabled = True
tnapen.Enabled = True
talamat.Enabled = True
ttelp.Enabled = True
cadd.Enabled = True
csave.Enabled = True
ccancel.Enabled = True
cprint.Enabled = True
cexit.Enabled = True
End Sub

Sub nonaktif()
tno.Enabled = False
tnapen.Enabled = False
talamat.Enabled = False
ttelp.Enabled = False
cadd.Enabled = True
csave.Enabled = False
ccancel.Enabled = False
cprint.Enabled = False
cexit.Enabled = False
End Sub

Sub tampildata()
adopen.Recordset.Fields ("no_penumpang")
adopen.Recordset.Fields ("nm_penumpang")
adopen.Recordset.Fields ("alamat")
adopen.Recordset.Fields ("notelp")
End Sub

Private Sub cadd_Click()
bersih
aktif
tno.SetFocus
End Sub

Private Sub ccancel_Click()
bersih
nonaktif
End Sub

Private Sub cexit_Click()
End
End Sub

Private Sub cprint_Click()
crypen.Action = 1
End Sub

Private Sub csave_Click()
On Error Resume Next
With adopen.Recordset
If isipen = True Then 'SAVE RECORD IF IT'S NOT EXIST
.AddNew
.Fields("no_penumpang") = tno
.Fields("nm_penumpang") = tnapen
.Fields("alamat") = talamat
.Fields("notelp") = ttelp
.Update
Else 'RENEW RECORD
.AddNew
.Fields("no_penumpang") = tno
.Fields("nm_penumpang") = tnapen
.Fields("alamat") = talamat
.Fields("notelp") = ttelp
.Update
End If
End With
adopen.RecordSource = "select*from table_penumpang"
adopen.Refresh
On Error GoTo 0
End Sub

Private Sub Form_Activate()
bersih
nonaktif
End Sub


C. FORM MASTER TRANSAKSI

Listing :

Dim isidetail As Boolean
Sub bersih()
ckode = ""
tqty = ""
ttambahan = ""
ttarif = ""
ttobay = ""

tnopen = ""
tubay = ""
tukem = ""
End Sub
Sub aktif()
tnotrans.Enabled = True

tqty.Enabled = True
ttarif.Enabled = True
ttobay.Enabled = True
ttambahan.Enabled = True
ttgltrans.Enabled = True

oac.Enabled = True
onon.Enabled = True
tubay.Enabled = True
tukem.Enabled = True
ttgl.Enabled = True
tjam.Enabled = True
cadd.Enabled = True
csave.Enabled = True
cedit.Enabled = True
ccancel.Enabled = True
cexit.Enabled = True
cprint.Enabled = True
End Sub
Sub nonaktif()
tnotrans.Enabled = False
tqty.Enabled = False
ttarif.Enabled = True
ttobay.Enabled = False
ttobay.Enabled = False
ttgltrans.Enabled = False
oac.Enabled = False
onon.Enabled = False
ttambahan.Enabled = False
tubay.Enabled = False
tukem.Enabled = False
tjam.Enabled = False
ttgl.Enabled = False
cadd.Enabled = True
csave.Enabled = False
cedit.Enabled = False
ccancel.Enabled = False
cexit.Enabled = False
cprint.Enabled = False
End Sub
Sub tampildata()
tnotrans.Text = adodetail.Recordset.Fields("notrans")
tkode.Text = adodetail.Recordset.Fields("kode")
tqty.Text = adodetail.Recordset.Fields("qty")
ttambahan.Text = adodetail.Recordset.Fields("tambahan")
ttarif.Text = adodetail.Recordset.Fields("tarif")
ttobay.Text = adodetail.Recordset.Fields("tobay")
ttgltrans.Text = adodetail.Recordset.Fields("tgltrans")
tnopen.Text = adodetail.Recordset.Fields("no_penumpang")
tubay.Text = adodetail.Recordset.Fields("ubay")
tukem.Text = adodetail.Recordset.Fields("ukem")
End Sub

Private Sub cadd_Click()
aktif
bersih
ttgltrans.SetFocus
End Sub
Private Sub ccancel_Click()
bersih
nonaktif
End Sub
Private Sub cedit_Click()
isidetail = False
aktif
tnotrans.SetFocus
cadd.Enabled = False
cedit.Enabled = False
csave.Enabled = True
ccancel.Enabled = True
End Sub

Private Sub cexit_Click()
End
End Sub

Private Sub ckode_Click()
If ckode.Text = "BUS01" Then
ttarif.Text = 150000
Else
If ckode.Text = "BUS02" Then
ttarif.Text = 300000
Else
If ckode.Text = "BUS03" Then
ttarif.Text = 350000
Else
If ckode.Text = "BUS04" Then
ttarif.Text = 130000
Else
ttarif.Text = 500000
End If
End If
End If
End If
End Sub

Private Sub cprint_Click()
crytrans.Action = 1
End Sub

Private Sub csave_Click()


With adodetail.Recordset
If isidetail = True Then 'simpan jika data belum ada
.AddNew
.Fields("notrans") = tnotrans.Text
.Fields("kode") = d1.Text
.Fields("qty") = tqty.Text
.Fields("tobay") = Val(ttobay.Text)
.Fields("tgltrans") = ttgltrans.Text
.Fields("no_penumpang") = d2.Text
If oac.Value = True Then
.Fields("jnsbus") = "AC"
Else
.Fields("jnsbus") = "NON"
End If

.Fields("tambahan") = ttambahan.Text
.Fields("tarif") = ttarif.Text
.Fields("ubay") = tubay.Text
.Fields("ukem") = tukem.Text
.Update
Else 'simpan jika data yang ada diperbaharui
.Fields("notrans") = tnotrans
.Fields("kode") = ckode
.Fields("qty") = tqty
.Fields("tobay") = Val(ttobay)
.Fields("tgltrans") = ttgltrans
.Fields("no_penumpang") = tnopen
.Fields("tambahan") = ttambahan
.Fields("tarif") = ttarif
.Fields("ubay") = tubay
.Fields("ukem") = tukem
.Update
End If
End With
MSHFlexGrid1.Refresh
adodetail.RecordSource = "select*from table_trans"
adodetail.Refresh
On Error GoTo 0
bersih

End Sub

Private Sub d1_Change()
adobus.RecordSource = "select * from table_bus"
adobus.Recordset.MoveFirst
Do While Not adobus.Recordset.EOF
If d1.Text = adobus.Recordset!kode Then
ttarif.Text = adobus.Recordset!tarif
Exit Sub
End If
adobus.Recordset.MoveNext
Loop


End Sub

Private Sub Form_Activate()
bersih
nonaktif
auto
ttgl.Text = Date
tjam.Text = Time()

isidetail = True
ttgltrans = Date
End Sub

Private Sub oac_Click()
If oac = True Then
onon.Enabled = False
ttambahan.Text = 20000
End If
tqty.SetFocus
End Sub

Private Sub onon_Click()
If onon = True Then
oac.Enabled = False
ttambahan.Text = 0
End If
End Sub





Private Sub tnotrans_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ckode.SetFocus
End If
End Sub

Private Sub tqty_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ttobay.Text = (Val(ttambahan.Text) + Val(ttarif.Text) * Val(tqty.Text))
tubay.SetFocus
End If
End Sub

Private Sub tubay_Change()
tukem.Text = Val(tubay.Text) - Val(ttobay.Text)
End Sub

Sub auto()
Dim urut As String * 4
Dim hitung As Integer
With adodetail.Recordset
If .RecordCount = 0 Then
tnotrans = "F" + "001"
Else
.MoveLast
urut = Val(Right(!notrans, 3))
hitung = urut + 1
If hitung < 10 Then tnotrans = "F" + "00" + Trim(Str(hitung)) Else tnotrans = "F" + Trim(Str(hitung)) End If End If End With End Sub D. Form Menu Utama

Listing :

Dim stri As String
Dim i

Private Sub Form_Load()
stri = "SELAMAT DATANG DI LOKET CAPCUS"
i = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top + 40
Me.Move , Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
Unload Me: End
End Sub





Private Sub lbus_Click()
crybus.Action = 1
End Sub

Private Sub lpen_Click()
crypen.Action = 1
End Sub

Private Sub ltrans_Click()
crytrans.Action = 1
End Sub

Private Sub tbus_Click()
Form1.Show
End Sub

Private Sub texit_Click()
End
End Sub

Private Sub tformtrans_Click()
Form3.Show
End Sub

Private Sub Timer1_Timer()
Me.Width = Me.Width + 400
If Me.Width >= 9000 Then
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Static a
a = a + 10:
If a > 200 Then
Label1.ForeColor = (Rnd * 255)
End If
End Sub

Private Sub tpen_Click()
Form2.Show
End Sub

LUCKNOW

  

Ikatan suami-suami takut istri ternyata ada di India,yang lelah karena gangguan dari istri mereka,meminta pemda setempat membuat perlindungan bagi kaum lelaki. Seorang lelaki yang masuk dalam kelompok itu mengatakan, sudah cukup menderita oleh istrinya yang cerewet dan sering mengomel. Para suami takut istri itu mengenakan pakaian pengantin tradisional dan berarak-arak di kota Lucknow,India,pekan ini. Mereka menginginkan pembentukan Komisi Nasional Laki-laki. “Kami menginginkan persamaan hak. Kami ingin ada seseorang yang sudi mendengarkan para lelaki”, ujar Subash Dube,seorang dokter yang mengaku menjadi korban kekerasan pada rumah tangga yang dilakukan oleh istrinya.
    Presiden Komite Kesejahteraan Suami India Indu Paney mengatakan , perlindungan hukum hanya untuk perempuan. “ Kami sudah berulangkali menginginkan perundangan itu diamandemen “,katanya. Sebagian besar masalah adalah seputar mas kawin. Perempuan dan anggota keluarganya mendaftarkan klaim palsu bahwa mereka telah mendapat perlakuan kekerasan dari suami atau keluarga suami hanya karena tidak mampu memberikan mas kawin yang cukup. Di India , mas kawin diberikan oleh pihak perempuan kepada pihak laki-laki. Terkadang memang pihak lelaki merasa bahwa mas kawin tidak cukup lalu menyiksa istri. Polisi sudah biasa menerima keluhan terkait mas kawin. Sangat jarang terdengar suami-suami India yang disiksa  istri.

7 MAKANAN PENUNDA PENUAAN

Inilah beberapa jenis makanan yang di klaim berkhasiat membuat awet muda dan tetap sehat :



1.Minyak Zaitun

    Empat dekade lalu,para peneliti dari Seven Coutries Study menyimpulkan bahwa lemak tak jenuh dengan rantai tunggal (monounsaturated) dalam minyak zaitun secara luas bermanfaat untuk menekan resiko jantung penyakit jantung dan kanker di kepulauan Crete,Yunani.Kini masyarakat juga sudah banyak tahu bahwa minyak Zaitun mengandung folifenol,antioksidan terkuat yang dapat mencegah jenis penyakit akibat penuaan.

2.Yogurt

    Pada era 1970-an ,wilayah Georgia dikabarkan memiliki jumlah penduduk yang berusia diatas 100 tahun lebih banyak dari negara lain . Laporan pada saat itu mengklaim bahwa rahasia dari umur panjang tersebut ialah Yogurt.
Meskipun kekuatan Yogurt dalam memperpanjang usia belum pernah terbukti secara langsug,Yogurt ialah makanan yang kaya kalsium yang dapat mencegah osteoporosis.
    Selain itu,Yogurt juga mengandung bakteri baik yang mempertahankan kesehatan pencernaan serta mengurangi resiko mengidap penyakit usus yang berkaitan dengan usia.

3.Ikan

        Tiga puluh tahun lalu para ahli mulai meneliti mengapa penduduk asli Alaska     (inuit) bisa terbebas dari penyakit jantung. Alasannya menurut pekiraan para     ahli,adalah tingkat konsumsi ikan yang luar biasa. Ikan memang mengandung banyak     lemak omega-3,yang bisa membantu menurunkan kolesterol dan penyumbatan     pembuluh darah serta mencegah ritme jantung abnormal.

4.Cokelat Cocoa

        Masyarakat Kuna di Kep.San Blas,Panama,tercatat memiliki resiko penyakit     jantung lebih rendah hingga sembilan kali lipat dibanding penduduk lainnya di     Panama. Alasannya? Warga Kuna rajin sekali meminum Cocoa yang mengandung     Flavanols,antioksidan yang dapat membantu memperlancar peredaran darah.     Menjaga kesehatan pembuluh darah berarti mengurangi resiko tekanan darah     tinggi,diabetes tipe 2,penyakit ginjal,dan demensia.

5.Kacang

        Riset yang dilakukan oleh kelompok Seven-Day of Adventist menunjukkan     bahwa seseorang yang makan kacang rata-rata memiliki umur panjang dua setengah     tahun. Kacang dikenal kaya akan lemak tak jenuh, sehingga makanan ini     menawarkan manfaat serupa dengan minyak Zaitun.

6.Anggur

        Minum anggur dalam jumlah yang moderat diklaim dapat melindungi dari     penyakit jantung,diabetes,dan kepikunan. Mangenai jenis minuman yang bisa     menatangkan manfaat tersebut, banyak penelitian yang memfokuskan pada anggur     merah. Anggur merah mengandung Resveratrol,zat yang diperkirakan dapat     mendatangkan berbagai manfaat tersebut.

7.Blueberry

        Dalam sebuah riset yang dipublikasikan pada tahun 1999,peneliti dari Jean     Mayer Human Nutrition Research Centre memberikan ekstrak Blueberry pada tikus.     Pemberian ekstrak ini selama periode kehidupan tikus yang setara dengan 10 tahun     kehidupan manusia. Tikus diberi ekstrak ini menunjukkan keunggulannya daripada     tikus biasa saat uji keseimbangan dan koordinasi pada saat mereka mencpai usia     lanjut. Kandungan dalam Blueberry diduga dapat mengurangi peradangan dan     kerusakan yang bersifat oksidatif,yang mana ini berhubungan dengan penuruna daya     ingat,dan kemampuan motorik saat usia lanjut.


Sumber : Surat kabar harian Warta kota

NEW MOON'S CAST

Nama : Kristen Jaymes Stewart as Issabella Mary Swan
TTL :9 April 1990, LA , California, USA

Nickname:Kris / Kstew

Tinggi Badan : 56 Inci/ 168 cm

Pernah bermain di Film :

-Zathura : The Space Aduventure

-In The Land Of Woman

-The Messengers

-The Cake Eaters

-Into The Wild

-Cutlass Yellow Handkerchief

-What Just Happened

-Jumper

-Twilight

-Aduventureland ( Coming Soon )

-Welcome to Rileys (Coming Soon)

-New Moon (Twilight Sequel)

Nama : Thomas Robert Pattinson as Edward Cullen

Tanggal Lahir / Tanggal Lahir : 13 Mei 1986 , London (Inggris)

Nama Panggilan : Rob, Patty, Rpattz, Spunk Ransom

Tinggi Badan : 61 inci / 185 Cm

Sodara : Victoria 27 tahun , Lizzy 25 tahun
Sekolah : Harrodian Private School
Sekarang tinggal di : LA , California , USA
Film yang pernah di bintangi :
-How To Be
-The Summer House
-Little Ashes
-Harry Potter And the Goblet Of Fire
-Harry Potter And the Orde Of Phoinex
-Twilight
Mikes : Coke Diet
Makes: Cinnamon toast crunch
SuperHero : SpidermanKartun : Hammertime
Film Favorit : Pippi Longstocking, Ivan's, Corky Romano, Prenom Carmen, The Exorcist, One Flew Over the Cuckoo's Nest.
Acara TV : American Idol & The X Factor
Aktris Kesukaan: Kristen Stewart
Aktor Kesukaan : Jack Nicholson
First Kiss : 12 Tahun ( OMG )

Nama : Taylor Daniel Lautner as Jacob Black
Tanggal Lahir : 11 February 1992
Nama Panggilan : Taylor
Asal : Grand Rapids, Michigan
Film yang pernah dibintangi :
-2001 Shadow Fury Kismet (child)
-2003 The Bernie Mac Show Aaron TV
-2004 My Wife and Kids Tyrone TV
-Summerland boy on beach TV
-2005 Cheaper by the Dozen 2 Eliot Murtaugh
-Danny Phantom Youngblood TV; voice
-Duck Dodgers Reggie Wasserstein TV; voice
-The Adventures of Sharkboy and Lavagirl in 3-D Sharkboy
-What's New, Scooby-Doo? Dennis/Ned TV; voice
2006 Love, Inc. Oliver TV
-He's a Bully, Charlie Brown Joe Agate TV special; voice
2008 Twilight Jacob Black post-production






















 Nama : Kellan Christopher Lutz as Emmet Cullen
Tinggi : 1.85 m
Tempat lahir / tanggal lahir : North Dakota,15 Maret 1985
Hobi : skateboarding, track, baseball, bola basket, lacrosse, berenang, tenis, badminton, bulu tangkis, ski salju dan snowboarding.
Film yang pernah di bintangi :
-Model Citizens
-The Comeback
-The Bold and the Beautiful
-Summerland
-Six Feet Under
-Crime Scene Investigation
-Heroes
-Twilight
- New Moon

Nama : Nicole Houston Reed as Rosalie Hale
Panggilan : Nikki
Tanggal Lahir : 17 Mei 1988
Film yang pernah di bintangi :
-Twilight
-New Moon
-K11
-Chain Letter  
-Familiar stranger

-Last day of summer
-Previleged
-Cherry crush
-Justice
-Mini's First time
-American Gun
dll

Nama : Jackson Rathbone as Jasper Hale
Panggilan : Jay
Tanggal lahir : 21 Desember 1984
Film yang pernah di bintangi :
-The cleaner
-Close to Home
-Beautiful People
-The OC
-Disney 411
-Twilight
-New Moon

Nama : Michele ashley Greene as Alice Cullen

Panggilan : Ashley

Tempat/tanggal lahir : Florida , 21 Februari 1987

Tinggi : 1,65m

Film yang pernah dibintangi :

-Desire

-Twilight

-New Moon

-Shrink

-Summer's blood

-Skateland

BAGAIMANA WAP BEKERJA?

WAP atau wireless application protocol adalah sebuah protokol komunikasi yang memformat data Web untuk ditransmisikan melalui koneksi internet wireless , sehingga kita bisa menjelajah internet melalui telepon seluler,laptop atau piranti wireless lainnya.

WAP terdiri dari 4 bagian, yaitu Wireless application Environment (WAE), Wireless Session Protocol (WSP), Wireless Transport Protocol (WTP), dan Wireless Transport Layer Security (WTLS). Dari 4 bagian itu, kita cuma melihat WAE, yang menampilkan isi Web ke layar.

WAE terdiri dari Wireless Markup Language (WML), sebuah varian dari HTML yang biasa digunakan untuk menampilkan isi Web di monitor. WML dapat terdiri atas teks dan hyperlink, tetapi bukan grafis. Sebuah telepon seluler WAP memiliki sebuah microbrowser versi kecil dari browser yang kita gunakan saat ini,yang menampilkan isi WML.

Saat melihat WAE sebagai bagian dari WAP, bagian lain memainkan peranan penting di belakang layar. WSP membuka dan menutup koneksi ke situs Web WAP. WTP membuat paket data berjalan sesuai arahnya.

BAGAIMANA WAP BEKERJA?

WAP atau wireless application protocol adalah sebuah protokol komunikasi yang memformat data Web untuk ditransmisikan melalui koneksi internet wireless , sehingga kita bisa menjelajah internet melalui telepon seluler,laptop atau piranti wireless lainnya.

WAP terdiri dari 4 bagian, yaitu Wireless application Environment (WAE), Wireless Session Protocol (WSP), Wireless Transport Protocol (WTP), dan Wireless Transport Layer Security (WTLS). Dari 4 bagian itu, kita cuma melihat WAE, yang menampilkan isi Web ke layar.

WAE terdiri dari Wireless Markup Language (WML), sebuah varian dari HTML yang biasa digunakan untuk menampilkan isi Web di monitor. WML dapat terdiri atas teks dan hyperlink, tetapi bukan grafis. Sebuah telepon seluler WAP memiliki sebuah microbrowser versi kecil dari browser yang kita gunakan saat ini,yang menampilkan isi WML.

Saat melihat WAE sebagai bagian dari WAP, bagian lain memainkan peranan penting di belakang layar. WSP membuka dan menutup koneksi ke situs Web WAP. WTP membuat paket data berjalan sesuai arahnya.

10 LANGKAH BERTAHAN SAAT PATAH HATI :

1. Simpan semua benda yang pernah doi kasih atau punya memori indah waktu masih berdua

2. Buat sementara waktu jangan dulu deh pergi ke tempat-tempat pacaran favorit sewaktu masih akur

3. Lakuin selama ini hal-hal yang pernah dia larang

4. Lakuin hal-hal seru yang paling bisa bikin kita girang

5. Tambah frekuensi nongkrong bareng temen-temen

6. Jangan menyendiri!

7. Jangan curhat sama temen,yang ada ntar malah makin susah lupa deh sama si doi.

8. Bikin sibuk diri dengan hal-hal yang positif

9. Nulis ! basi y?..tapi efeknya lumayan dahsyat loh

10. Sering-sering jalan! Misalnya ke Mall,yaaahhh..syukur-syukur dapet gebetan baru ^_^