VB Data Base

Vico

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

Txtnama.SetFocus

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Cmdproses_Click()

Dim jurusan, study As String

Dim th, no As Currency

th = “20” & Left(Txtnpm.Text, 2)

Txtth.Text = th

jurusan = Mid(Txtnpm.Text, 3, 1)

If jurusan = “1” Then

jurusan = “Sistem Informasi”

ElseIf jurusan = “2” Then

jurusan = “Manajemen Informatika”

ElseIf jurusan = “3” Then

jurusan = “Teknik Informatika”

ElseIf jurusan = “4” Then

jurusan = “Manajemen & Komp.Akutansi”

End If

Txtjurusan.Text = jurusan

study = Mid(Txtnpm.Text, 4, 2)

If study = “01” Then

study = “Strata Satu”

ElseIf study = “02” Then

study = “Diploma Empat”

ElseIf study = “03” Then

study = “Diploma Tiga”

ElseIf study = “04” Then

study = “Diploma Dua”

End If

Txtstudi.Text = study

no = Right(Txtnpm, 3)

Txtno.Text = no

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Tugas Visual Basic Pertemuan 2

1.

v1

Private Sub txtbl1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtbl2.SetFocus

End If

End Sub

 

Private Sub txtbl2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtbl3.SetFocus

End If

End Sub

 

Private Sub Txtbl3_KeyPress(KeyAscii As Integer)

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

 

Private Sub CmdPros_Click()

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

 

Private Sub Cmddel_Click()

txtbl1 = “”

txtbl2 = “”

Txtbl3 = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

2.

V2

Private Sub optgrn_Click()

Lbltema.ForeColor = vbGreen

End Sub

 

Private Sub optblu_Click()

Lbltema.ForeColor = vbBlue

End Sub

 

Private Sub optred_Click()

Lbltema.ForeColor = vbRed

End Sub

 

Private Sub Optyel_Click()

Lbltema.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkitalic_Click()

If Chkitlc.Value = 1 Then

Lbltema.FontItalic = True

Else

Lbltema.FontItalic = False

End If

End Sub

 

Private Sub Chkblod_Click()

If Chkbld.Value = 1 Then

Lbltema.FontBold = True

Else

Lbltema.FontBold = False

End If

End Sub

 

Private Sub Chkundr_Click()

If Chkunder.Value = 1 Then

Lbltema.FontUnderline = True

Else

Lbltema.FontUnderline = False

End If

End Sub

 

Private Sub Chkstrike_Click()

If Chkstrik.Value = 1 Then

Lbltema.FontStrikethru = True

Else

Lbltema.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

3.

V3

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttjg.SetFocus

End If

End Sub

 

Private Sub Txttjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpot.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgktr.Text = Val(Txtgp.Text) + Val(Txttjg.Text) – Val(Txtpot.Text)

Txtpjk.Text = Val(Txtgktr.Text) * 0.1

Txtgjbr.Text = Val(Txtgktr.Text) – Val(Txtpjk.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgp = “”

Txttjg = “”

Txtpot = “”

Txtgktr = “”

Txtpjk = “”

Txtgjbr= “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

4.

V4

Private Sub Cmdpros_Click()

Txtdsk.Text = Val(Txthrg1.Text) * 0.2

Txthrg2.Text = Val(Txthrg1.Text) – Val(Txtdsk.Text)

End Sub

 

Private Sub Cmdlgi_Click()

Txthrg1 = “”

Txtdsk = “”

Txthrg2 = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

5.

V5

Private Sub Txtnil1_Change()

If KeyAscii = 13 Then

Txtnil2.SetFocus

End If

End Sub

 

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtnil1.Text) / Val(Txtnil2)

End Sub

 

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtnil1.Text) * Val(Txtnil2)

End Sub

 

 

Private Sub Cmdples_Click()

Txtjml.Text = Val(Txtnil1.Text) + Val(Txtnil2.Text)

End Sub

 

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtnil1.Text) – Val(Txtnil2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtnil2 = “”

Txtjml = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Tugas VB 4

1.

viko1

Private Sub Cmdpros_Click()

Dim K As String

Txtth.Text = “20” & Right(Txtkb.Text, 2)

K = Left(Txtkb.Text, 1)

If K = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pnr = “Indah Surabaya”

ElseIf K = “S” Then

Pnr = “Salemba Empat”

ElseIf K = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf K = “M” Then

Pnr = “Maxicom”

End If

P = Mid(Txtkb.Text, 3, 3)

If P = “SIM” Then

Jb = “Sisitem Informasi Manajemen”

Png = “Andra Setiawan”

Hg = “75900”

ElseIf P = “EDP” Then

Jb = “Elektronik Data Processing”

Png = “Desi Istiqomah”

Hg = “62000”

ElseIf P = “MNJ” Then

Jb = “Manajemen”

Png = “Sandy Fitrajaya”

Hg = “42000”

ElseIf P = “CDR” Then

Jb = “Corel draw”

Png = “Tri Indah Sari”

Hg = “53000”

ElseIf P = “RPL” Then

Jb = “Rekayasa Perangkat Lunak”

Png = “Ernita”

Hg = “83000”

End If

Txtpnr.Text = Pnr

Txtjbk.Text = Jb

Txtpng.Text = Png

Txthrg.Text = Hg

End Sub.

 

Private Sub Cmdlgi_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

viko2

Private Sub Cmdpros_Click()

Dim K As String

Txtth.Text = “20” & Mid(Txtkb.Text, 5, 2)

K = Right(Txtkb.Text, 1)

If K = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pnr = “Indah Surabaya”

ElseIf K = “S” Then

Pnr = “Salemba Empat”

ElseIf K = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf K = “M” Then

Pnr = “Maxicom”

End If

P = Left(Txtkb.Text, 3)

If P = “SIM” Then

Jb = “Sisitem Informasi Manajemen”

Png = “Fadiya Ulfa”

Hg = “75900”

ElseIf P = “EDP” Then

Jb = “Elektronik Data Processing”

Png = “Nurul Agustina”

Hg = “62000”

ElseIf P = “MNJ” Then

Jb = “Manajemen”

Png = “Rian Hidayat”

Hg = “42000”

ElseIf P = “CDR” Then

Jb = “Corel draw”

Png = “Siti Nur Khotimah”

Hg = “53000”

ElseIf P = “RPL” Then

Jb = “Rekayasa Perangkat Lunak”

Png = “Winda Erlianti”

Hg = “83000”

End If

Txtpnr.Text = Pnr

Txtjbk.Text = Jb

Txtpng.Text = Png

Txthrg.Text = Hg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

viko3

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

Dim Jbt, Bag, Gol, Ks, St As String

Dim Gjp, Tnj, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

G = Mid(Txtnik.Text, 5, 1)

If G = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf G = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf G = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

T = Mid(Txtnik.Text, 7, 1)

If T = “S” Then

Ks = “S”

St = “Single”

ElseIf T = “M” Then

Ks = “M”

St = “Menikah”

ElseIf T = “J” Then

Ks = “J”

St = “Janda”

ElseIf T = “D” Then

Ks = “D”

St = “Duda”

End If

 

B = Right(Txtnik.Text, 3)

If B = “KEU” Then

Bag = “Accounting”

ElseIf B = “ADM” Then

Bag = “Administrasi”

ElseIf B = “SDM” Then

Bag = “General Affair”

ElseIf B = “EDP” Then

Bag = “IT Unit”

ElseIf B = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjbt.Text = Jbt

Txttnj.Text = Tnj

Txtsta.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkst.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlgi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtgol = “”

Txtkst = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgpk = “”

Txttnj = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnama = “”

Txtgol = “”

Txtkod = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

viko4

Private Sub Cmdpros_Click()

Dim K As String

Txtthn.Text = “20” & Right(Txtkb.Text, 2)

K = Left(Txtkb.Text, 1)

If K = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pnr = “Indah Surabaya”

ElseIf K = “S” Then

Pnr = “Salemba Empat”

ElseIf K = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf K = “M” Then

Pnr = “Maxicom”

End If

P = Mid(Txtkb.Text, 3, 3)

If P = “SIM” Then

Jb = “Sisitem Informasi Manajemen”

Png = “Yati Nur Oktavia”

Hg = “75900”

ElseIf P = “EDP” Then

Jb = “Elektronik Data Processing”

Png = “Imam Tarmizi”

Hg = “62000”

ElseIf P = “MNJ” Then

Jb = “Manajemen”

Png = “Valentina Mariana Adiwianti”

Hg = “42000”

ElseIf P = “CDR” Then

Jb = “Corel draw”

Png = “Riyan Suhadi”

Hg = “53000”

ElseIf P = “RPL” Then

Jb = “Rekayasa Perangkat Lunak”

Png = “Sinta Umpu Singa”

Hg = “83000”

End If

Txtpnr.Text = Pnr

Txtjbk.Text = Jb

Txtpng.Text = Png

Txthrg.Text = Hg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

 

Tugas VB 3

1.

vico1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100208”

Cbonpm.AddItem “12100207”

Cbonpm.AddItem “12100108”

Cbonpm.AddItem “12201009”

Cbonpm.AddItem “12201265”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12100208”

nama = “Vico Gabta Mahendra”

jurusan = “Sistem Informasi”

Case “12100207”

nama = “Rudiyansah”

jurusan = “Sistem Informasi”

Case “12100108”

nama = “Mulyani”

jurusan = “Sisitem Informasi”

Case “12201009”

nama = “Hernika”

jurusan = “Manajemen Informatika”

Case “12201265”

nama = “Wahyu”

jurusan = “Manajemen Informatika”

End Select

Txtnma.Text = nama

Txtjrsn.Text = jurusan

Txtnq.SetFocus

End Sub

 

 

Private Sub Txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnt.SetFocus

End If

End Sub

 

Private Sub Txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

 

 

 

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtnq.Text)

tugas = Val(Txtnt.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtnila.Text = NilaiAkhir

 

Select Case Txtnila.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is <50

HurufMutu = “E”

End Select

Txthm.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnma = “”

Txtjrsn = “”

Txtnq = “”

Txtnt = “”

Txtuts = “”

Txtuas = “”

Txtnila = “”

Txthm = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

vico2

Private Sub Optmrh_Click()

Lblnaml.ForeColor = vbRed

End Sub

 

Private Sub Opthij_Click()

Lblnam.ForeColor = vbGreen

End Sub

 

Private Sub Chkmrng_Click()

Lblnam.FontItalic = Chkmrng.Value

End Sub

 

Private Sub Chktbl_Click()

Lblnam.FontBold = Chktbl.Value

End Sub

 

Private Sub Cmdok_Click()

Lblnam.Caption = Txtnm.Text

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

3.

Vico3

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpg.SetFocus

End If

End Sub

 

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

Cbogol.AddItem “IV”

End Sub

 

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Total As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 1500000

Tunjangan = 200000

Case “II”

Gajipokok = 2000000

Tunjangan = 400000

 

Case “III”

Gajipokok = 2500000

Tunjangan = 600000

Case “IV”

Gajipokok = 3000000

Tunjangan = 800000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Total = Gajipokok + Tunjangan

Pajak = Total * 0.1

Txtgjpk.Text = Gajipokok

Txttun.Text = Tunjangan

Txtpjk.Text = Pajak

Txtttl.Text = Total – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgjpk = “”

Txttun = “”

Txtpjk = “”

Txtttl = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgjpk = “”

Txttun = “”

Txtpjk = “”

Txtttl = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

Vici4a

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Private Sub Cmdprs_Click()

Dim S As String

Txtthm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjrs.Text = “Sisitem Informasi”

ElseIf S = “2” Then

Txtjrs.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjrs.Text = “Komputer Akuntansi Manajemen”

ElseIf S = “4” Then

Txtjrs.Text = “Tehnik Informatika”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf S = “01” Then

Txtpst.Text = “Diploma Tiga”

ElseIf S = “02” Then

Txtpst.Text = “Diploma Dua”

ElseIf S = “03” Then

Txtpst.Text = “Diploma Satu”

End If

S = Right(Txtnpm.Text, 3)

Txtno.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Cmdlgi_Click()

Txtnam.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthm = “”

Txtno = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrs = “”

Txtpst = “”

Txtthm = “”

Txtno = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

BlackBerry 10 N-Series Menampakkan Diri

1dlm

Jakarta – Research in Motion (RIM) segera memperkenalkan handset dengan sistem operasi BlackBerry 10. Bagaimana penampilan ponsel BlackBerry 10 mulai muncul, termasuk versi yang memakai keyboard qwerty.

RIM rencananya akan merilis BlackBerry 10 dalam dua model handset. Satu memakai full layar sentuh dan model kedua memakai keyboard fisik qwerty yang selama ini menjadi ciri khas BlackBerry.

Setelah BlackBerry 10 versi layar sentuh bocor, kini giliran versi yang memakai keyboard fisik muncul di dunia maya, pertama kali di website CrackBerry. Tampak bentuknya lumayan mirip dengan Bold 9900 atau Dakota, namun dengan layar sentuh lebih lebar.

Seperti dikutip detikINET dari AfterDawn, Rabu (26/12/2012), versi BlackBerry 10 dengan keyboard fisik ini kabarnya akan dinamai N-Series. Sedangkan model layar sentuh akan dinamai L-Series.

RIM telah menyebar undangan perkenalan resmi BlackBerry 10 yang akan berlangsung pada tanggal 30 Januari 2013. Peluncuran handset BlackBerry 10 ini akan dilakukan secara serentak di beberapa negara.

Ini Dia Gambaran Spesifikasi Tablet Nokia

nokiarttabletwindows460

Jakarta – Nokia santer terdengar akan menciptakan tablet sendiri yang berbasis Windows RT. Kabarnya, spesifikasi tablet yang akan hadir awal 2013 mendatang itu mirip dengan tablet keluaran Microsoft.

Demikian seperti detikINET kutip dari The Verge, Rabu (26/12/2012). Menurut laporannya, tablet Nokia ini akan menggunakan layar 10.1 inch dengan cakupan tambahan layar konektifitas seluler. Piranti ini akan semakin mirip dengan Surface, setelah ditambahkan kickstanda dan antara keyboard dengan layar dapat dicopot.

Soal baterai, tablet ini akan mempunyai daya tahan hingga 10 jam, dengan kemampuan mengisi baterai hingga 50% dengan cepat. Namun, baterai ini diklaim jauh lebih hemat alias tidak boros. Tambahan dua port USB juga akan disertakan untuk menunjang pekerjaan dari penggunanya.

Sayang, baik dari Microsoft maupun Nokia enggan mengkonfirmasi mengenai kabar yang tengah ramai diperbincangkan ini. Alhasil, konsumen masih akan terus meraba seperti apa spesifikasi tablet Nokia ini nantinya.

Tampil Lebih Langsing, iPad 5 Dirilis Maret 2013?

ipad5

Jakarta – iPad generasi keempat boleh saja masih hangat menggantikan new iPad, tapi Apple disebut-sebut malah sudah bersiap menghadirkan iPad 5. Konsepnya tentu saja masih misterius, walaupun potongan bocorannya sudah tercecer di internet.

Kabar terbaru ini datang dari blog asal Jepang bernama Macotakara. Melalui postingan tulisannya, blog itu menyebutkan iPad 5 akan hadir sekitar bulan Maret 2013. Bila ini benar, ini sesuai dengan siklus tahunan dimana new iPad dirilis pada Maret tahun 2012.

Dikutip detikINET dari Sydney Morning Herald, Rabu (26/12/2012), iPad 5 konon akan jauh lebih ringan dan lebih tipis dibandingkan iPad yang ada saat ini. Perbedaan ketipisannya bahkan dipercaya sampai 2 millimeter.

Bila terbukti benar, maka iPad 5 akan jauh lebih tipis dari iPad Mini — yang selama ini memang menjadi tablet tertipis di keluarga Apple.

Sekadar diketahui, blog Macotakara sering mengungkapkan isu-isu mengenai tablet iPad. Sebelumnya, tulisan mereka terkait iPad mini setipis iPod Touch menjadi kenyataan saat perangkat tersebut diumumkan.