visual basic golongan pegawai

0

Golongan pegawai

Private Sub Cmdbatal_Click()
Txtnidn.SetFocus
Txtnidn.Text = “”
txtnama.Text = “”
Cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub Cmdlagi_Click()
Txtnidn.SetFocus
Txtnidn.Text = “”
txtnama.Text = “”
Cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan.Text
Case “I”
gapok = 1500000
tunjangan = 150000
Case “II”
gapok = 2000000
tunjangan = 200000
Case “III”
gapok = 2500000
tunjangan = 250000
Case “IV”
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total – pajak
End Sub
Private Sub Form_load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub
Private Sub txtnind_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

GOLONGAN

Iklan

visual basic entri penjualan laptop

0

Entri penjualan laptop

Private Sub CBOkl_Click()
kode = Mid(cbokl.Text, 7, 5)
If kode = “MC965” Then
Txtmt = “Apple MacBook Air” & Mid(cbokl.Text, 7, 5)
Txths = “12800000”
ElseIf kode = “MC966” Then
Txtmt = “Apple MacBook Air ” & Mid(cbokl.Text, 7, 5)
Txths = “15800000”
ElseIf kode = “MC968” Then
Txtmt = “Apple MacBook Air ” & Mid(cbokl.Text, 7, 5)
Txths = “9900000”
ElseIf kode = “MC969” Then
Txtmt = “Apple MacBook Air ” & Mid(cbokl.Text, 7, 5)
Txths = “11900000”
ElseIf kode = “MC700” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “10800000”
ElseIf kode = “MC721” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “15900000”
ElseIf kode = “MC723” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “19300000”
ElseIf kode = “MC724” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “13700000”
ElseIf kode = “MC311” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “24200000”
ElseIf kode = “MC313” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “11900000”
ElseIf kode = “MC314” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “14700000”
ElseIf kode = “MC318” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “17600000”
ElseIf kode = “MC322” Then
Txtmt = “Apple MacBook Pro ” & Mid(cbokl.Text, 7, 5)
Txths = “21300000”
End If
Txtjj.SetFocus
End Sub

Private Sub CMDhl_Click()
cbokl.SetFocus
cbokl = “”
Txtmt = “”
Txths = “”
Txtjj = “”
Txthp = “”
Txtdis = “”
Txttb = “”
End Sub

Private Sub CMDkeluar_Click()
End
End Sub

Private Sub CMDproses_Click()
Txthp = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp >= 140000000 Then
Txtdis = Val(Txthp.Text) * 0.15
ElseIf Txthp >= 135000000 Then
Txtdis = Val(Txthp.Text) * 0.1
ElseIf Txthp >= 130000000 Then
Txtdis = Val(Txthp.Text) * 0.05
ElseIf Txthp >= 125000000 Then
Txtdis = Val(Txthp.Text) * 0.02
End If
Txttb = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Form_Load()
cbokl.AddItem “Apple MC965 MacBook Air”
cbokl.AddItem “Apple MC966 MacBook Air”
cbokl.AddItem “Apple MC968 MacBook Air”
cbokl.AddItem “Apple MC969 MacBook Air”
cbokl.AddItem “Apple MC700 MacBook Pro”
cbokl.AddItem “Apple MC721 MacBook Pro”
cbokl.AddItem “Apple MC723 MacBook Pro”
cbokl.AddItem “Apple MC724 MacBook Pro”
cbokl.AddItem “Apple MC311 MacBook Pro”
cbokl.AddItem “Apple MC313 MacBook Pro”
cbokl.AddItem “Apple MC314 MacBook Pro”
cbokl.AddItem “Apple MC318 MacBook Pro”
cbokl.AddItem “Apple MC322 MacBook Pro”
cbokl.AddItem “Apple MC965 MacBook Air”
cbokl.AddItem “Apple MC966 MacBook Air”
End Sub

entri penjualan

visual basic jurusan

0

jurusan

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 2)
If S = “10” Then
Txtjur.Text = “Sistem Informasi”
ElseIf S = “20” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf S = “30” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf S = “40” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 3, 2)
If S = “10” Then
Txtps.Text = “Strata Satu”
ElseIf S = “20” Then
Txtps.Text = “Diploma Tiga”
ElseIf S = “30” Then
Txtps.Text = “Diploma Empat”
ElseIf S = “40” Then
Txtps.Text = “Diploma Dua”
End If
Txturut.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub Form_activate()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
Txtnpm.SetFocus
End If
End Sub
JURUSAN

visual basic huruf tebal

0

HURUF TEBALLHuruf tebal

Private Sub ChkBOLD_Click()
Label2.FontBold = ChkBOLD.Value
End Sub

Private Sub Check1_Click()

End Sub

Private Sub ChkITALIC_Click()
Label2.FontItalic = ChkITALIC.Value
End Sub

Private Sub CmdOK_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub CmdSELESAI_Click()
End
End Sub

Private Sub OptBIRU_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub OptRED_Click()
Label2.ForeColor = vbRed
End Sub

Definisi Visual Basic

0

Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®. Apakah Anda seorang profesional atau pemula sekalipun di bidang pemrograman Windows, Visual Basic menyediakan kepada Anda sekumpulan perangkat untuk mempermudah dan menyederhanakan pengembangan aplikasi yang tangguh.

Lalu apa sebenarnya definisi dari Visual Basic itu sendiri? Kata “Visual” merujuk kepada metode yang digunakan untuk membuat antar muka yang bersifat grafis Graphical User Interface (GUI). Daripada menulis berbaris-baris kode untuk menjelaskan pemunculan dan lokasi dari suatu elemen di dalam antar muka, Anda dengan mudah dapat menambahkan object yang sebelumnya sudah dibangun ke dalam tempat dan posisi yang Anda inginkan di layar Anda. Jika Anda pernah menggunakan program untuk menggambar seperti Paint, maka Anda sebenarnya sudah memiliki keahlian uuntuk membuat sebuah antar muka pengguna secara efektif.

Kata “Basic” merujuk kepada bahasa BASIC (Beginners All-Purpose Symbolic Instruction Code), sebuah bahasa yang digunakan oleh banyak programmer dibandingkan dengan bahasa lainnya dalam sejarah komputer. Visual Basic telah berubah dari bahasa asli BASIC dan sekarang memiliki ratusan pernyataan (statements), fungsi (functions), dan kata kunci (keywords), dan kebanyakan di antaranya terkait dengan antar muka grafis di Windows. Pengguna tingkat pemula sekalipun dapat membuat aplikasi dengan mempelajari hanya beberapa kata kunci, sementara kekuatan dari bahasanya membolehkan para pengguna tingkat professional mencapai apapun yang dapat dihasilkan dengan menggunakan bahasa pemrograman Windows lainnya.

Bahasa pemrograman Visual Basic tidaklah hanya identik dengan Visual Basic saja. Sistem Pemrograman Visual Basic dalam bentuk Edisi Aplikasi, telah dimasukkan ke dalam Microsoft Excel, Microsoft Access, dan banyak aplikasi Windows lainnya juga menggunakan bahasa yang sama. Visual Basic Scripting Edition (VBScript) adalah sebuah bahasa skrip yang digunakan secara lebih umum dan merupakan bagian dari bahasa Visual Basic. Dengan mempelajari Visual Basic, maka Anda akan dibawa ke area-area yang telah disebutkan tadi.

Apakah tujuan Anda untuk membuat sebuah utility sederhana untuk diri Anda sendiri atau untuk kelompok kerja Anda, sebuah sistem berskala perusahaan, atau bahkan aplikasi yang terdistribusi melalui Internet, Visual Basic memilik perangkat yang Anda butuhkan.

Fitur Data Access membolehkan Anda untuk membuat database, aplikasi front-end, dan komponen di sisi server (scalable server-side components) untuk hampir semua format database yang terkenal, termasuk Microsoft SQL Server dan database level perusahaan lainnya.

Teknologi ActiveX™ membolehkan Anda untuk menggunakan fungsionalitas yang disediakan oleh aplikasi-aplikasi lainnya, seperti pengolah kata Microsoft Word, Microsoft Excel spreadsheet, dan aplikasi Windows lainnya. Anda bahkan dapat mengotomatisasikan aplikasi-aplikasi dan objek-objek yang dibuat dengan menggunakan edisi Professional atau Enterprise Visual Basic.

Kemampuan Internet membuatnya mudah menyediakan pengaksesan ke dokumen-dokumen atau file-file dan aplikasi-aplikasi melalui Internet atau intranet dari dalam aplikasi Anda, atau untuk membuat aplikasi Internet server.

Aplikasi akhir Anda nantinya akan berbentuk sebuah file .exe yang menggunakan Visual Basic Virtual Machine dan dapat Anda distribusikan secara bebas.

Teknologi Terbaru 2012 : Meja Masa Depan

0
Teknologi Terbaru 2012 : Meja Masa Depan | Update Informasi Teknologi Terbaru, Gadget Terbaru, Berita Teknologi Terbaru – Sobat mungkin sudah sering melihat video maupun film yang menampilkan kecanggihan teknologi terbaru untuk masa depan. Tapi apa jadinya jika hal tersebut menjadi nyata dan bisa sobat miliki? Saat ini mungkin fungsi meja bagi sobat hanya sebagai peralatan rumah tangga untuk meletakkan peralatan tulis menulis atau sekedar pengisi interior ruangan. Pada awal tahun 2011, beredar kabar munculnya teknologi tv hologram. Tapi baru-baru ini, dipenghujung tahun 2011, Microsoft membuat sebuah terobosan dengan teknologi yang diberi nama Microsoft Surface, dimana sebuah kombinasi antara meja, komputer, kamera, serta touch sensivity berukuran sebesar yang memungkinkan pengguna untuk berinteraksi untuk berbagai aktivitas.

 

Pada meja besar yang menggunakan LCD touch screen 40 inci, Microsoft menempatkan sebuah smartphone pada layar, seketika Microsoft Surface akan mengenali perangkat tersebut dan menampilkan informasi mengenai perangkat serta memungkinkan untuk memilih model yang berbeda. Kabarnya, Microsoft telah mengkonfirmasi harga terbaru untuk meja masa depan yang akan mereka rilis pada tahun 2012 nanti di pasar Amerika sebesar $8.900.
Teknologi Terbaru 2012 : Meja Masa Depan Microsoft Surface dan EXOdesk
Seperti halnya Microsoft Surface, teknologi terbaru untuk masa depan lainnya, sebuah meja interaktif, EXOdesk, memungkinkan sobat untuk melakukan semua aktivitas pada virtual space. EXOdesk sebenarnya merupakan sebuah tabletop computer yang menawarkan layar high definition 40 inci, di mana kita bisa memanipulasi virtual object dengan menyentuh dan dragging. EXOdesk akan dirilis pada tahun 2012 mendatang dengan harga $1,299.
Pada video dibawah ini bisa sobat saksikan penampakan kecanggihan teknologi terbaru untuk masa depan dengan tampilan virtual keyboard, RSS feed stream, simulasi permainan piano, dan aplikasi untuk permukaan tabletop.