Selasa, 13 April 2010

PROGRAM CLASS





Public Class Class_payroll

Private payroll As Integer

Public Function total(ByVal gaji As Integer, ByVal istri As Integer, ByVal jabatan As Integer)

Dim jumlah As Integer

jumlah = gaji + istri + jabatan

total = jumlah

End Function

Public Function pph(ByVal salary As Integer)

Dim pajak As Integer

If salary >= 1000000 Then

pajak = 0.03 * salary

Else

pajak = 0

End If

pph = pajak

End Function

Public Function net_salary(ByVal gaji As Integer, ByVal pajak As Integer)

Dim gaji_bersih As Integer

gaji_bersih = gaji - pajak

net_salary = gaji_bersih

End Function

Public Property gaji_pegawai() As Integer

Get

gaji_pegawai = payroll

End Get

Set(ByVal value As Integer)

payroll = value

End Set

End Property

End Class

Public Class Form_payroll

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CenterToScreen()

Dim a As Integer

For a = 1 To 5

ComboBox1.Items.Add(a)

Next

TextBox4.TextAlign = HorizontalAlignment.Center

TextBox5.TextAlign = HorizontalAlignment.Center

TextBox6.TextAlign = HorizontalAlignment.Center

TextBox7.TextAlign = HorizontalAlignment.Center

TextBox8.TextAlign = HorizontalAlignment.Center

TextBox9.TextAlign = HorizontalAlignment.Center

mulai.Focus()

mulai.Focus()

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.Text

Case Is = "1"

TextBox3.Text = "Manager"

TextBox4.Text = 20000000

Case Is = "2"

TextBox3.Text = "Supervisor"

TextBox4.Text = 15000000

Case Is = "3"

TextBox3.Text = "Staff"

TextBox4.Text = 10000000

Case Is = "4"

TextBox3.Text = "Ass. Staff"

TextBox4.Text = 7500000

Case Is = "5"

TextBox3.Text = "Junior Staff"

TextBox4.Text = 5000000

End Select

Select Case ComboBox1.Text

Case Is = "1"

TextBox6.Text = 0.15 * TextBox4.Text

Case Is = "2"

TextBox6.Text = 0.15 * TextBox4.Text

Case Is = "3"

TextBox6.Text = 0.05 * TextBox4.Text

Case Is = "4"

TextBox6.Text = 0.05 * TextBox4.Text

Case Else

TextBox6.Text = 0

End Select

End Sub

Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

If ComboBox2.Text = "Menikah" And ComboBox3.Text = "Laki-laki" Then

TextBox5.Text = 0.1 * TextBox4.Text

Else : TextBox5.Text = 0

End If

Dim total_gaji As Integer

Dim objek As New Class_payroll

total_gaji = objek.total(TextBox4.Text, TextBox5.Text, TextBox6.Text)

TextBox7.Text = total_gaji

Dim pajak As Integer

Dim salary As New Class_payroll

pajak = salary.pph(TextBox7.Text)

TextBox8.Text = pajak

Dim gaji_bersih As Integer

Dim income As New Class_payroll

gaji_bersih = income.net_salary(TextBox7.Text, TextBox8.Text)

TextBox9.Text = gaji_bersih

TextBox4.ReadOnly = True

TextBox5.ReadOnly = True

TextBox6.ReadOnly = True

TextBox7.ReadOnly = True

TextBox8.ReadOnly = True

TextBox9.ReadOnly = True

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mulai.Click

TextBox1.Focus()

TextBox1.Enabled = True

TextBox2.Enabled = True

TextBox3.Enabled = True

TextBox4.Enabled = True

TextBox5.Enabled = True

TextBox6.Enabled = True

TextBox7.Enabled = True

TextBox8.Enabled = True

TextBox9.Enabled = True

ComboBox1.Enabled = True

ComboBox2.Enabled = True

ComboBox3.Enabled = True

TextBox1.Focus()

End Sub

Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click

TextBox1.Focus()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

TextBox4.ReadOnly = False

TextBox5.ReadOnly = False

TextBox6.ReadOnly = False

TextBox7.ReadOnly = False

TextBox8.ReadOnly = False

TextBox9.ReadOnly = False

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Dim x As Integer

x = MsgBox("Apakah anda ingin keluar?", MsgBoxStyle.OkCancel, "EXIT")

If x = vbOK Then

MsgBox("Terima kasih telah menggunakan program kami...", MsgBoxStyle.MsgBoxRight, "Informasi")

End

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label13.Text = My.Computer.Clock.LocalTime.ToLongDateString

Label14.Text = My.Computer.Clock.LocalTime.ToLongTimeString

End Sub

End Class


Senin, 08 Maret 2010

Tugas Aplikasi VB



Penjelasan Program
Program ini adalah program untuk menghitung berat badan proporsional seseorang. Berat badan tersebut dihitung dengan cara mengurangi tinggi badan dengan 110. Dengan begitu kita dapat mengetahui berat badan kita yg proporsional. Ketika berat badan dan tinggi badan telah dimasukkan maka program akan running. Bila berat badan belum proporsional maka akan ada petunjuk berat badan harus ditambah atau dikurangi berapa.

Source Code

Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label3.Visible = True

Label4.Visible = True

Label5.Visible = True

Label6.Visible = True

Label7.Visible = True


If (TextBox2.Text - 110) = TextBox1.Text Then

Label7.Text = "Berat badan anda proporsional"

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

ElseIf (TextBox2.Text - 110) > TextBox1.Text Then

Label3.Text = "Berat badan anda tidak proporsional"

Label4.Text = "Berat badan anda kurang"

Label5.Text = (TextBox2.Text - 110) - TextBox1.Text

Label6.Text = "Kg"

Label7.Visible = False

ElseIf (TextBox2.Text - 110) < style="color: blue;">Then

Label3.Text = "Berat badan anda tidak proporsional"

Label3.TextAlign = HorizontalAlignment.Center

Label4.Text = "Berat badan anda kelebihan"

Label5.Text = TextBox1.Text - (TextBox2.Text - 110)

Label6.Text = "Kg"

Label7.Visible = False

End If


End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ""

TextBox2.Text = ""

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

Label7.Visible = False

TextBox1.Focus()

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CenterToScreen()

Me.Visible = False

TextBox1.Focus()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Button1.Visible = True

Button2.Visible = True

Button3.Visible = True

Button4.Visible = False

TextBox1.Enabled = True

TextBox2.Enabled = True

End Sub


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End


End Sub


End Class

Rabu, 25 November 2009

PEMROGRAMAN JAVA

Apakah Java?

Java adalah bahasa pemrograman berorientasi objek yang dikembangkan oleh Sun Microsystems sejak tahun 1991. Bahasa ini dikembangkan dengan model yang mirip dengan bahasa C++ dan Smalltalk, namun dirancang agar lebih mudah dipakai dan ­platform independent, yaitu dapat dijalankan di berbagai jenis sistem operasi dan arsitektur komputer­­. Bahasa ini juga dirancang untuk pemrograman di Internet sehingga dirancang agar aman dan portabel.

Platform Independent

Platform independent berarti program yang ditulis dalam bahasa Java dapat dengan mudah dipindahkan antar berbagai jenis sistem operasi dan berbagai jenis arsitektur komputer. Aspek ini sangat penting untuk dapat mencapai tujuan Java sebagai bahasa pemrograman Internet di mana sebuah program akan dijalankan oleh berbagai jenis komputer dengan berbagai jenis sistem operasi. Sifat ini berlaku untuk level source code dan binary code dari program Java. Berbeda dengan bahasa C dan C++, semua tipe data dalam bahasa Java mempunyai ukuran yang konsisten di semua jenis platform. Source code program Java sendiri tidak perlu dirubah sama sekali jika Anda ingin mengkompile ulang di platform lain. Hasil dari mengkompile source code Java bukanlah kode mesin atau instruksi prosesor yang spesifik terhadap mesin tertentu, melainkan berupa bytecode yang berupa file berekstensi .class. Bytecode tersebut dapat langsung Anda eksekusi di tiap platform yang dengan menggunakan Java Virtual Machine (JVM) sebagai interpreter terhadap bytecode tersebut.

JVM sendiri adalah sebuah aplikasi yang berjalan di atas sebuah sistem operasi dan menerjemahkan bytecode program Java dan mengeksekusinya, sehingga secara konsep bisa dianggap sebagai sebuah interpreter. Proses pengeksekusian program Java dapat dilukiskan seperti di Gambar 1. Dengan cara ini, sebuah program Java yang telah dikompilasi akan dapat berjalan di platform mana saja, asalkan ada JVM di sana.

Kompiler dan interpreter untuk program Java berbentuk Java Development Kit (JDK) yang diproduksi oleh Sun Microsystems. JDK ini dapat didownload gratis dari situs java.sun.com. Interpreter untuk program Java sendiri sering juga disebut Java Runtime atau Java Virtual Machine. Interpreter Java, tanpa kompilernya, disebut Java Runtime Environment (JRE) dapat didownload juga di situs yang sama. Untuk mengembangkan program Java dibutuhkan JDK, sementara jika hanya ingin menjalankan bytecode Java cukup dengan JRE saja. Namun untuk mengeksekusi applet (sebuah bytecode Java juga) Anda biasanya tidak perlu lagi mendownload JRE karena browser yang Java-enabled telah memiliki JVM sendiri.

Library

Selain kompiler dan interpreter, bahasa Java sendiri memiliki library yang cukup besar yang dapat mempermudah Anda dalam membuat sebuah aplikasi dengan cepat. Library ini sudah mencakup untuk grafik, desain user interface, kriptografi, jaringan, suara, database, dan lain-lain.

OO

Java adalah bahasa pemrograman berorientasi objek. Pemrograman berorientasi objek secara gamblang adalah teknik untuk mengorganisir program dan dapat dilakukan dengan hampir semua bahasa pemrograman. Namun Java sendiri telah mengimplementasikan berbagai fasilitas agar seorang programer dapat mengoptimalkan teknik pemrograman berorientasi objek.

Sedikit perbandingan tambahan dengan bahasa C dan C++, Java banyak mewarisi konsep orientasi objek dari C++ namun dengan menghilangkan aspek-aspek kerumitan dalam bahasa C++ tanpa mengurangi kekuatannya. Hal ini mempermudah programer pemula untuk mempelajari Java namun mengurangi keleluasaan programer berpengalaman dalam mengutak-atik sebuah program. Di balik kemudahan yang ditawarkan Java, luasnya fasilitas library Java sendiri membuat seorang programer membutuhkan waktu yang tidak singkat untuk dapat menguasai penggunaan library-library tersebut.


CONTOH JAVASCRIPT

$now = 1;
$prev = 0;

$jumlah = 8;

while ($i < $jumlah)
{
$temp = $prev;

$prev = $now;
$now = $now + $temp;

echo($now . ", ");

$i++;
}

?>

Selasa, 17 November 2009

Permasalahan Pada Komputer

Masalah Monitor

Permasalahan : Monitor sering sekali mati tiba-tiba di saat sedang digunakan.

Solusi : Coba peiksa pengaturan pada screen saver. Siapa tahu anda mengestnya terlalu cepat (misalnya 1 menit). Periksa juga colokan power dan kabel monitor ke PC. Pastikan sudah tertancap dengan benar dan kuat. Cek driver kartu grafik melalui dialog display properties. Klik-kanan saja area kosong desktop, lalu pilih [properties], maka boks dialog itu akan terbuka. Uahakan driver-nya cocok dengan kartu grafik yang anda gunakan. Bukalah juga Control Panel. Lalu klik pada [System] [Device Manager] [Display Adapter].


Masalah Hard Disk

Permasalahan :
Komputer keluar TULISAN DISK BOOT FAILURE, INSERT SYSTEM DISK AND PRESS ENTER. Kerusakan pada hardisk anda atau system yang ada dihardisk hilang.

Solusi : Pastikan hardisk dikenal didalam sistem BIOS komputer caranya dengan memperhatikan tampilan awal apakah ada IDE / hardisk yang muncul atau tekan del pada saat awal menyala lalu lihat di standard setting apakah hardisk anda muncul tidak disitu. Jika muncul berarti hardisk bagus hanya systemnya/partisinya yang hilang> lakukan instalasi system lagi, jika tidak muncul hardisk anda yang rusak> Ganti dengan yang baru. Atau coba tepuk secara perlahan badan hardisk lalu nyalakan lagi, jika berhasil segera backup data anda.Kenapa di tepuk pelan? sekedar memberi goncangan sedikit di motor hardisk yang macet agar bergerak lagi.

Permasalahan Pada Komputer

Selasa, 03 November 2009

HARD DISK

Cakram keras (Inggris: harddisk atau harddisk drive disingkat HDD atau hard drive disingkat HD) adalah sebuah komponen perangkat keras yang menyimpan data sekunder dan berisi piringan magnetis. Cakram keras diciptakan pertama kali oleh insinyur IBM, Reynold Johnson di tahun 1956. Cakram keras pertama tersebut terdiri dari 50 piringan berukuran 2 kaki (0,6 meter) dengan kecepatan rotasinya mencapai 1.200 rpm (rotation per minute) dengan kapasitas penyimpanan 4,4 MB. Cakram keras zaman sekarang sudah ada yang hanya selebar 0,6 cm dengan kapasitas 750 GB.


Jika dibuka, terlihat mata cakram keras pada ujung lengan bertuas yang menempel pada piringan yang dapat berputar

Data yang disimpan dalam cakram keras tidak akan hilang ketika tidak diberi tegangan listrik. Dalam sebuah cakram keras, biasanya terdapat lebih dari satu piringan untuk memperbesar kapasitas data yang dapat ditampung.

Dalam perkembangannya kini cakram keras secara fisik menjadi semakin tipis dan kecil namun memiliki daya tampung data yang sangat besar. Cakram keras kini juga tidak hanya dapat terpasang di dalam perangkat (internal) tetapi juga dapat dipasang di luar perangkat (eksternal) dengan menggunakan kabel USB ataupun FireWire.

RAM


Memori akses acak (bahasa Inggris: Random access memory, RAM) adalah sebuah tipe penyimpanan komputer yang isinya dapat diakses dalam waktu yang tetap tidak memperdulikan letak data tersebut dalam memori. Ini berlawanan dengan alat memori urut, seperti tape magnetik, disk dan drum, di mana gerakan mekanikal dari media penyimpanan memaksa komputer untuk mengakses data secara berurutan.

Pertama kali dikenal pada tahun 60'an. Hanya saja saat itu memori semikonduktor belumlah populer karena harganya yang sangat mahal. Saat itu lebih lazim untuk menggunakan memori utama magnetic.

Perusahaan semikonduktor seperti Intel memulai debutnya dengan memproduksi RAM , lebih tepatnya jenis DRAM.

Biasanya RAM dapat ditulis dan dibaca, berlawanan dengan memori-baca-saja (read-only-memory, ROM), RAM biasanya digunakan untuk penyimpanan primer (memori utama) dalam komputer untuk digunakan dan mengubah informasi secara aktif, meskipun beberapa alat menggunakan beberapa jenis RAM untuk menyediakan penyimpanan sekunder jangka-panjang.

Tetapi ada juga yang berpendapat bahwa ROM merupakan jenis lain dari RAM, karena sifatnya yang sebenarnya juga Random Access seperti halnya SRAM ataupun DRAM. Hanya saja memang proses penulisan pada ROM membutuhkan proses khusus yang tidak semudah dan fleksibel seperti halnya pada SRAM atau DRAM. Selain itu beberapa bagian dari space addres RAM ( memori utama ) dari sebuah sistem yang dipetakan kedalam satu atau dua chip ROM.