LATIHAN SOAL

Listing Programnya:
Private Sub cmdclear_Click()
kodeoli = ""
jumlahbeli = ""
merkoli = ""
hargaoli = ""
pembayaran = ""
potongan = ""
ppn = ""
service = ""
totalbayar = ""
uangbayar = ""
uangkembali = ""
Combo1.Text = ""
Option1.Value = 0
Option2.Value = 0
End Sub

Private Sub cmdhitung_Click()
If Option1 Then
pembayaran = Val(jumlahbeli) * Val(hargaoli) + 5000
    Else
pembayaran = Val(jumlahbeli) * Val(hargaoli) + 3000
End If
If pembayaran > 80000 Then
potongan = 0.1 * Val(pembayaran)
Else
potongan = 0
End If
ppn = 0.5 * Val(pembayaran)
totalbayar = Val(pembayaran) - Val(potongan) + Val(ppn)

End Sub

Private Sub Combo1_Click()
Dim kode
kode = Combo1.Text
Select Case kode
Case "Penzoil"
    merkoli = "Penzoil"
    hargaoli = 35000
Case "Agip"
    merkoli = "Agip"
    hargaoli = 30000
Case "Top One"
    merkoli = "Top One"
    hargaoli = 27500
Case "4"
    merkoli = "Mesran"
    hargaoli = 20000
End Select


End Sub

Private Sub Form_Load()
Combo1.AddItem "Penzoil"
Combo1.AddItem "Agip"
Combo1.AddItem "Top One"

End Sub

Private Sub Option1_Click()
service = 5000

End Sub

Private Sub Option2_Click()
service = 3000
End Sub

Private Sub uangbayar_lostfocus()
uangkembali = Val(uangbayar) - Val(totalbayar)
End Sub

Contoh latihan:

Private Sub CMDDELETE_Click()
If MsgBox("Yakin Akan Hapus Data?", vbYesNo, "Info Azach") = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub CMDEXIT_Click()
X = MsgBox("Yakin Akan Keluar??", vbOKCancel, "Bioskop 21 Nonstop")
If X = vbOK Then
End
End If
End Sub


Private Sub CMDNEW_Click()
TXTJUDUL = ""
TXTSTUDIO = ""
TXTHARGA = ""
TXTJB = ""
TXTJML = ""
TXTDISCOUNT = ""
TXTTOTAL = ""
Combo1.SetFocus
End Sub

Private Sub CMDSAVE_Click()
Data2.Recordset.AddNew
Data2.Recordset!Kd_Film = Combo1
Data2.Recordset!Judul = TXTJUDUL
Data2.Recordset!Studio = TXTSTUDIO
Data2.Recordset!Harga = TXTHARGA
Data2.Recordset!Jml_Beli = TXTJB
Data2.Recordset!Jumlah = TXTJML
Data2.Recordset!Discount = TXTDISCOUNT
Data2.Recordset!Total = TXTTOTAL
Data2.Recordset.Update
End Sub

Private Sub CMDSEARCH_Click()
X = InputBox("Silahkan Input Kode Film Yang Anda Cari!!", "Pencarian Data")
Data1.Recordset.Indeks = "KODE"
If Data1.Recordset.NoMatch Then
X = MsgBox("Data Tidak Ditemukan", vbInformation, "Pencarian Data")
End If
End Sub


Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
TXTJUDUL = "BROWNIES"
TXTSTUDIO = 1
TXTHARGA = 20000
Case 1
TXTJUDUL = "EKSKUL"
TXTSTUDIO = 1
TXTHARGA = 22500
Case 2
TXTJUDUL = "HEART"
TXTSTUDIO = 1
TXTHARGA = 15000
Case 3
TXTJUDUL = "MISSION IMPOSIBLE"
TXTSTUDIO = 1
TXTHARGA = 25000
Case Else
TXTJUDUL = "RUMAH PONDOK INDAH"
TXTSTUDIO = 2
TXTHARGA = 17500
End Select
End Sub

Private Sub Form_Activate()
Combo1.AddItem "BR102"
Combo1.AddItem "EL102"
Combo1.AddItem "HR101"
Combo1.AddItem "MI101"
Combo1.AddItem "PI203"
End Sub

Private Sub TXTDISCOUNT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL = Val(TXTJML) - Val(TXTDISCOUNT)
End If
End Sub

Private Sub TXTJB_Change()
TXTJML = Val(TXTHARGA) * Val(TXTJB)
If Val(TXTJB) >= 10 Then
TXTDISCOUNT = 0.1 * Val(TXTJML)
ElseIf Val(TXTJB) >= 5 Then
TXTDISOUNT = 0.05 * Val(TXTJML)
Else
TXTDISCOUNT = 0
End If
End Sub

VISUAL BASIC

Listing Modul :

Public conn As ADODB.Connection
Public rsbarang As ADODB.Recordset
Public rstrans As ADODB.Recordset
Public rssmt As ADODB.Recordset

Public Sub koneksi()
Set conn = New ADODB.Connection
Set rsbarang = New ADODB.Recordset
Set rstrans = New ADODB.Recordset
Set rssmt = New ADODB.Recordset
conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=penjualan_12086546"
End Sub

Listing Form :

Dim a, b, c As Variant

Function totalharga()
Call koneksi
rssmt.Open "sementara", conn
rssmt.MoveFirst
ttotal = 0
Do While Not rssmt.EOF
ttotal = ttotal + rssmt!total
rssmt.MoveNext
Me.tjumbay = Format(ttotal, "#,###,###")
Loop
End Function

Function caridata()
Call koneksi
rsbarang.Open "select*from barang where kobar='" & tkobar & "'", conn
With rsbarang
If Not rsbarang.EOF Then
    Me.tnabar = !nabar
    Me.tharga = !harga
    c = !stok
    Me.tjumbel.SetFocus
Else
    MsgBox ("Data barang tidak ada!!!")
    tkobar = ""
    tkobar.SetFocus
End If
End With
End Function

Sub aktif()
tkobar.Enabled = True
Me.tjumbel.Enabled = True
Me.tubay.Enabled = True
End Sub
Sub nonaktif()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Enabled = False
End If
Next
End Sub

Sub bersih()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next
End Sub

Private Sub cbatal_Click()
Call koneksi
rssmt.Open "delete from sementara", conn
Form_Activate
Me.ctambah.Enabled = True
End Sub

Private Sub ckeluar_Click()
Unload Me
End Sub

Private Sub csimpan_Click()
On Error Resume Next
Dim SQLSimpan As String
Call koneksi
rssmt.Open "sementara", conn
rssmt.MoveFirst
    Do While Not rssmt.EOF
        If rssmt!kobar <> vbNullString Then
        rsbarang.Open "select*from barang where kobar='" & rssmt!kobar & "'", conn
        If Not rsbarang.EOF Then
            Dim kurangi As String
            kurangi = "update barang set stok='" & rsbarang!stok - rssmt!jumbel & "' where kobar='" & rssmt!kobar & "'"
            conn.Execute kurangi
        End If
    End If
  rssmt.MoveNext
  Loop
  rssmt.MoveFirst
  Do While Not rssmt.EOF
  SQLSimpan = "insert into transaksi values('" & tnofak & "','" & ttgl & "','" & rssmt!kobar & "','" & rssmt!jumbel & "','" & rssmt!total & "')"
  conn.Execute SQLSimpan
  rssmt.MoveNext
Loop
cbatal_Click
End Sub

Private Sub ctambah_Click()
aktif
bersih
Call koneksi
rstrans.Open "select*from transaksi order by nofak desc", conn
If rstrans.BOF Then
urutan = "0001"
Else
hitung = Trim(Str(Val(Right(rstrans!nofak, 4) + 1)))
        If Val(hitung) < 10 Then
        urutan = "000" + hitung
        ElseIf Val(hitung) < 100 Then
        urutan = "00" + hitung
        ElseIf Val(hitung) < 1000 Then
        urutan = "0" + hitung
        Else
        urutan = hitung
        End If
End If
tnofak = "F" + urutan
tkobar.SetFocus
tkobar.MaxLength = 5
ctambah.Enabled = False
csimpan.Enabled = True
cbatal.Enabled = True
End Sub

Private Sub Form_Activate()
Call koneksi
conn.CursorLocation = adUseClient
rssmt.Open "sementara", conn
With rssmt
If Not (.BOF And .EOF) Then
a = .Bookmark
End If
End With
Set DataGrid1.DataSource = rssmt.DataSource
bersih
nonaktif
Me.csimpan.Enabled = False
Me.cbatal.Enabled = False
Me.ctambah.Enabled = True
Me.ckeluar.Enabled = True
ctambah.SetFocus
End Sub


Private Sub Timer1_Timer()
ttgl = Format(Now, "yyyy-mm-dd")
If Label1.ForeColor = vbBlue Then
    Label1.ForeColor = vbYellow
Else
If Label1.ForeColor = vbYellow Then
    Label1.ForeColor = vbRed
Else
If Label1.ForeColor = vbRed Then
    Label1.ForeColor = vbWhite
Else
If Label1.ForeColor = vbWhite Then
    Label1.ForeColor = vbGreen
Else
If Label1.ForeColor = vbGreen Then
    Label1.ForeColor = vbBlack
Else
    Label1.ForeColor = vbBlue
End If
End If
End If
End If
End If
End Sub

Private Sub tjumbel_KeyPress(KeyAscii As Integer)
Dim total As Double
Dim SQLSementara As String
If KeyAscii = 13 Then
    If Val(tjumbel) > c Then
    MsgBox ("Jumlah Kurang,,Masukkan yang lebih kecil")
    tjumbel = ""
    tjumbel.SetFocus
    Else
    lagi = MsgBox("Ingin Tambah Data Lagi???", vbYesNo + vbQuestion, "TOKO DVD CITRA BUANA")
    If lagi = vbYes Then
    ttotal = ""
    ttotal = Val(tharga) * Val(tjumbel)
    SQLSementara = "insert into sementara values('" & tkobar & "','" & tnabar & "','" & Val(tjumbel) & "','" & Val(tharga) & "','" & Val(ttotal) & "')"
    conn.Execute SQLSementara
    DataGrid1.Refresh
    Call koneksi
    conn.CursorLocation = adUseClient
    rssmt.Open "sementara", conn
    Set DataGrid1.DataSource = rssmt.DataSource
    totalharga
    aktif
    tkobar = ""
    tnabar = ""
    tharga = ""
    tjumbel = ""
    tkobar.SetFocus
    Else
    ttotal = Val(tharga) * Val(tjumbel)
    SQLSementara = "insert into sementara values('" & tkobar & "','" & tnabar & "','" & Val(tjumbel) & "','" & Val(tharga) & "','" & Val(ttotal) & "')"
    conn.Execute SQLSementara
    DataGrid1.Refresh
    Call koneksi
    conn.CursorLocation = adUseClient
    rssmt.Open "sementara", conn
    Set DataGrid1.DataSource = rssmt.DataSource
    totalharga
    tubay.SetFocus
    End If
End If
End If
End Sub

Private Sub tkobar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
caridata
End If
End Sub

Private Sub tubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(tubay) < tjumbay Then
MsgBox " Uang Bayar Kurang.....!!!!"
tubay = ""
tubay.SetFocus
Else
tukem = Format(Val(tubay) - tjumbay, "#,###,###")
csimpan.SetFocus
End If
End If
End Sub

"BINTANG"

BintANG Itu sampai saat ini masih sendirii............
Bintang itu belum punya tujuan akhir hidupnya...
Kasihan......
Sampai kapan dia harus hidup sendiri....
Setiap langkahnya tidak pasti...
Setiap Ucapannya Tidak tentu Arah...
Untuk siapa atau kepada siapa....
Bintang....
Cobalah untuk tidak sendiri...
carilah hidupmu....
Carilah bulanmu....
agar tidak sendiri...
agar kau tidak merasa sepi....
sendiri...
terluka....

Negeriku Menangis Lagi

Sobat....
Belum lagi air mata ini kering
Air mata ini harus jatuh kembali
hati ini harus merasa lagi pilu

Sobat....
Mari kita bercermin
Mari kita intropeksi
Siapa yang akan menolong
Siapa yang akan memberi


Banyak orang hanya berkata kasihan
Banyak orang hanya mencaci
Tapi mereka tidak sadar kalau kita dibutuhkan
Kalau kita ditunggu.....

Luka saudara kita adalah luka kita
Perih saudara kita adalah perih kita
Hancur saudara kita adalah hancur kita
Tapi kenapa masi banyak yang ingin aman sendiri

Sobat....
Sebagai bangsa ini aku malu
malu kepada diriku yang tak berguna
hanya memandang tanpa mau turun membantu

Trend Sofware Engineering

Trend software engineering
Software Engineering atau dalam bahasa indonesianya disebut dengan Rekayasa Perangkat Lunak (RPL) menurut beberapa ahli dapat didefinisikan sebagai suatu pendekatan yang sistematik, terstuktur dan dapat dikuantifikasi untuk pengembangan, pengoperasian dan pemeliharaan perangkat lunak. Seperti apa yang dikatakan oleh Ian Sommervile bahwa “Rekayasa perangkat lunak berkaitan dengan teori, metode dan tools yang diperlukan dalam mengembangkan perangkat lunak untuk komputer”. Menurut Mynat “Rekayasa Perangkat lunak secara sederhana dinyatakan sebagai pendekatan sistematis untuk menciptaan dan pemilikan perangkat lunak”.
Hampir seluruh manusia memimpikan tentang cara baru dan lebih baik untuk menggunakan perangkat komputer dan sistem. Sedangkan pengembangan jumlah aplikasi telah berkembang terus-menerus, sehingga pengguna memiliki daftar aplikasi yang ingin digunakan. Nampaknya semakin kita menulis program, maka semakin kita memahami apa yang kita butuhkan, dan akan menambah program-program didalam pengembangan aplikasi keamanan. Sejauh ini, tingkat pertumbuhan permintaan aplikasi berkembang sangat cepat. Alasan ini bahwa pertumbuhan aplikasi pemrograman sangat efektif untuk memenuhi berbagai jenis kebutuhan manusia. Selama manusia menemukan hal baru dan cara untuk bekerja dan bermain, maka mereka dapat berharap pertumbuhan aplikasi komputer dapat berkembang. Semakin lebih banyak kita belajar tentang sistem dan komputerisasi maka kita akan dapat memecahkan masalah, kita lebih memahami bagaimana untuk menangani masalah yang lebih rumit dan menarik masalah serta mencari solusi untuk jalan masalah kita. Oleh karena kecerdasan manusia tak terbatas, maka pada dasarnya jumlah program yang dibutuhkan di dunia juga tidak terbatas.
A. Kualitas Program
Sistem program berfokus pada cara untuk menyediakan sistem secara otomatis, alat-alat, dan sarana untuk membantu manusia didalam memproduksi dan menjalankan program aplikasi. Beberapa program berkualitas tinggi dan sebaliknya masih banyak yang berkualitas rendah. Pembahasan mengenai kualitas aplikasi terdiri dari dua bagian. Pertama, penggunaan komputer akan semakin penting untuk aplikasi bisnis. Ini berarti, bahwa pada saat ini tingkat kualitas membawa dampak pertumbuhan perangkat lunak. Hal ini menunjukkan bahwa kebutuhan untuk aplikasi perangkat lunak berkualitas tinggi juga akan tumbuh. Sampai saat ini, orang membeli dan menggunakan perangkat lunak tanpa melihat dan memperhatikan kualitas. Walaupun mereka mengeluh tentang masalah mutu, kualitas perangkat lunak belum menjadi pertimbangan penting . Sampai sekarang, kami tidak dapat mengharapkan supplier untuk memberikan spesifikasi dan kualitas produk. Kemudian, mereka mungkin akan menuntut adanya jaminan mutu dan jaminan dari para distributor sebelum mereka menggunakan sistem komputerisasi yang baru. Ketika pelanggan tidak yakin akan kualitas paket perangkat lunak, mereka akan kembali lagi mengunakan aplikasi dan terus menggunakan metode yang sebelumnya. Ini tidak akan secara otomatis karena metode tidak akan pernah bermanfaat, tetapi lebih dikarenakan risiko kegagalan terlalu tinggi.

B. Kompleksitas Pertumbuhan Program

Bagian kedua dari kualitas program pembahasan mengenai keprihatinan ukuran dan kompleksitas dari aplikasi program yang meningkat. Ukuran data dalam Gambar 1 menunjukkan bagaimana pertumbuhan hal tersebut. Pengukuran IBM berasal dari tindakan yang diinginkan, Pengukuran Microsoft NT berasal dari ukuran data yang diterbitkan dalam laporan, dan ukuran data angkasa dari Barry Boehm [Boehm 81, Zachary 94]. TV data adalah untuk kode tertanam di set televisi dan telah dibicarakan oleh Hans Aerts dan lain-lain di konferensi Eropa SEPG pada Juni 2000. Menurut definisi saya, produk-produk perangkat lunak IBM dan Microsoft untuk sistem angkasa dan program aplikasi perangkat lunak TV.
Data ini menunjukkan bahwa jumlah perangkat lunak yang diperlukan untuk berbagai macam sistem dan aplikasi telah berkembang eksponensial selama 40 tahun. kecenderungan baris di bagian tengah menunjukkan grafik tingkat pertumbuhan majemuk dari sepuluh kali setiap lima tahun. Ini sama dengan hukum Moore untuk pertumbuhan jumlah Semikonduktor pada chip, atau dua kali lipat setiap 18 bulan. Sedangkan ukuran pertumbuhan sistem perangkat lunak bersifat fenomenal nampaknya bersifat memperlambat, setidaknya pada tampilan IBM dan data NT dalam Gambar 1. Saya membahas tren perangkat lunak sistem ini dalam kolom selanjutnya. Point penting dari kualitas aplikasi point of view ini adalah bahwa kecenderungan pertumbuhan untuk aplikasi perangkat lunak akan terus muncul.
Dengan anggapan metode yang digunakan sama, program pertumbuhan linier jumlah cacat dengan ukuran yang sama. Namun, masalah di tingkat pengguna program aplikasi ditentukan oleh jumlah cacat dalam sebuah program mereka daripada kepadatan. Oleh karena itu, walaupun kepadatan sama tetap terjadi atau bahkan meningkat, namun memproduksi program yang lebih besar dengan metode yang sama hanya akan menghasilkan sistem progresif yang kurang handal. Jadi, kualitas aplikasi perangkat lunak di masa depan harus meningkat paling tidak dalam langkah, dengan cara meningkatkan sensitivitas dari aplikasi atau membatasi usaha mereka harus dalam menggunakan komputasi sistem aplikasi yang kurang penting.
Untuk mengetahui mengapa program keandalan tergantung kerusakan nomor bukan kepadatan kerusakan, pertimbangkan sebuah contoh. J 200 KLOC (seribu baris kode) program dengan 5 diketahui kerusakan per KLOC akan ada 1.000 kerusakan. Jika anda mengganti program ini dengan program yang disempurnakan yaitu program 2000 KLOC dan kepadatan kerusakan yang sama, akan ada 10.000 kerusakan. Dengan asumsi bahwa pengguna menggunakan siklus yang sama dengan aplikasi baru, mereka akan melaksanakan program yang lebih besar dengan tingkat yang sama seperti sebelumnya. Sementara ini akan membutuhkan komputer yang lebih cepat, pengguna akan menemukan sepuluh kali lebih banyak kerusakan dalam jumlah waktu yang sama. Hal ini, tentu saja, dengan menganggap bahwa sebenarnya pengguna menggunakan banyak peningkatan fungsi program yang baru. Jika mereka tidak melakukan hal tersebut, mungkin tidak akan ada program yang diperlukan.
Kesimpulannya adalah bahwa proses pengujian tidak akan meningkatkan ukuran program. Sejak kualitas program ini termarjinal dan permintaan kualitas meningkat, saat ini kualitas perangkat lunak praktek tidak akan cukup di masa depan.

C. Dampak Kualitas Rendah

Pertumbuhan kesalahan biaya aplikasi yang semakin besar terlihat pada dampak erforma bisnis menjadi kualitas program aplikasi akan semakin lebih penting. Sementara ini Perkembangan komunitas perangkat lunak menjadi sebuah perkembangan positif. Penyebab umumnya pemasok tidak akan memperhatikan kualitas sampai pelanggan mulai meminta hal itu. Bila kualitas perangkat lunak menjadi pertimbangan ekonomi yang penting untuk bisnis, kami berharap organisasi untuk memberikan prioritas yang lebih tinggi untuk perangkat lunak tersebut. Walaupun kita berharap bahwa industri perangkat lunak akan mengenali keunggulan kualitas pekerjaan sebelum mereka dipaksa, tidak ada tanda-tanda yang mendorong kea rah tersebut. Namun, meningkatkan kualitas produk di bidang industri menjadi hal terbaik. Ini berarti akan meningkatkan peluang bagi sistem komputasi dan peningkatan permintaan untuk pemasok 'produk. Ini juga berarti akan menjadikan permintaan professional terampil untuk perangkat lunak tumbuh. Pada kolom berikutnya, saya mendiskusikan kebutuhan keterampilan aplikasi dan bagaimana secara langsung berkaitan dengan masalah kualitas program ini. Setelah itu, kita akan membicarakan hal yang terkait dengan tren sistem pemrograman dan implikasi dari tren ini untuk software engineering.

Reference
Hatton, Les. "How Accurate is Scientific Software?" IEEE Transactions on Software Engineering, Vol. 20, No. 10 (October 1994): 785-797.

Zachary, G. Pascal. 1994.Showstopper! New York: The Free Press.

Sommerville,Ian.1992.Software Engineering.New York.Addison-Wesley

Boehm, Barry.1981. Software Engineering Economics. Englewood Cliffs, NJ: Prentice-Hall.

FHOTO ANAK-ANAKKU (AUDRE DAN NAIMA)

Artikel JAVA

“Setelah Mencoba Java”

Masing-masing orang punya metode tersendiri untuk mulai belajar Java. Dimana Java yang dikenal sebagai Program yang berbasis OOP (Object Oriented Programming - Pemrogram Berorientasi Objek), yang artinya semua aspek yang terdapat di Java adalah objek dan merupakan salah satu pemprograman berbasis objek secara murni. Hal ini memudahkan pemprogram untuk mendesain, membuat, mengembangkan dan mengalokasikan kesalahan sebuah Program. Java mengunakan pemrograman berorientasi objek yang membuat program dapat dibuat secara modular dan dapat dipergunakan kembali. Pemrograman berorientasi objek memodelkan dunia nyata kedalam objek dan melakukan interaksi antar objek-objek tersebut. Dan OOp merupakan kelebihan dari program java, selain itu java yang saya lihat dan saya coba memiliki sintak sama seperti bahasa pemprograman C++.

Setelah saya mencoba program sederhana dari ketiga pembahasan yang saya buat satu demi satu konsep Java saya pahami seperti:

1. Konsep OOP
2. Implementasi Class dan Object di Java
3. Sintaks dan Semantic (for loop, statement, if-else, dsb)
4. Package
5. I/O
6. dan Lain Sebagainya

Sampai akhirnya saya lumayan bisa mulai mengerti sedikit pemrograman Java. Kalau pemahaman kita benar, komunitas akan memperkuat, dan kadang menambahkan sudut pandang yang berbeda sehingga pengetahuan kita semakin kaya.
Kalau kita salah, akan ada yang mengoreksi. Sehingga pemahaman kita yang salah tersebut tidak akan terbawa sampai tua dan terungkap dalam event yang jauh lebih memalukan.

Dari ketiga pembahasan yang saya buat mungkin teman- teman bias memahami juga bahasa pemrogaman Java yang Saya buat. Karena tanpa kita lakukan praktek kita tidak akan mengerti, begitu juga belajar bahasa pemrograman yang lain.

Demikianlah penulisan ini saya buat yang pada awalnyaa saya mencoba terlebih dahulu agar saya bias memberikan penjelasan. Mengenai bahasa pemprograman Java. Karena yang saya dengar dan saya baca Java merupakan bahasa pemprograman yang sangat hebat. Kalangan pembuat program sendiri memang banyak yang mendukung Java. Jumlah pengembang Java di luar negeri untuk seluruh platform sendiri sudah banyak sekali. aplikasi Java yang tersedia untuk ponsel, untuk aplikasi internet maupun intranet, mengingat komunitasi internet dan intranet biasanya menggunakan sistem operasi dan platform yang sangat berbeda-beda dalam mendapatkan dan memberikan informasi.

Mungkin karena itulah Java dibilang bahasa pemrograman yang hebat.

JAVA 3

Pembahasan ke-III

PERINTAH ATAU PERNYATAAN CONTROL

Perintah control digunakan untuk mengatur jalannya alur dari program sesuai dengan keinginan kita, untuk perintah control sendiri dapat terdiri dari tiga jenis, diantaranya yaitu:pemilihan, pengulangan, dan perintah peloncatan. Untuk perintah pemilihan digunakan dalam menentukan perintah mana terlebih dahulu dijalankan, tergantung dari ekspresi atau kondisi yang didefinisikan. Pengulangan digunakan untuk melakukan eksekusi terhadap perintah yang berulang sesuai dengan kondisi yang telah kita tentukan. Sedangkan perintah loncatan digunakan untuk memindahkan proses eksekusi ke bagian dari kode program yang kita inginkan.
Pemilihan
Dalam java sendiri menyediakan dua buah perintah untuk proses pemilihan, yaitu if dan switch. Kedua buah perintah tersebut digunakan untuk mengontrol perintah eksekusi tergantung pada kondisi yang telah ditentukan sebelumnya. Sebagai contoh cobalah kita lihat pernyataan berikut:

Jika Fatimah pintar, maka fatimah tidak akan tinggal kelas.

Artinya : Fatimah tidak akan tinggal kelas kalau Fatimah pintar. Apabila kondisi tersebut tidak terpenuhi, maka fatimah pun tidak akan tinggal kelas. Hal ini juga berlaku dalam perintah pemilihan dalam program.

a. Perintah IF
Perintah If dapat digunakan untuk menangani percabangan atas perintah pemilihan yang terdiri dari satu, dua atau tiga kondisi. Berikut ini penjelasan mengenai perintah IF untuk masing-masing jumlah kondisi yang berbeda.

1. 1 (satu kondisi)
Dalam bentuk satu kondisi ini merupakan bentuk yang paling sederhanan, karena hanya memakai 1 kondisi. Untuk bentuk umumnya didalam java dituliskan perintahnya sebagai berikut:
If (kondisi){
Statement1;
Statement2;
….
}
Contoh program:
class DemoIfSatuKondisi
{
public static void main(String[] args)
{
int c=1, d=5;
if (c<5)>

}
if (d>5)
{
System.out.println("Nilai d lebih besar dari 5");
}
}
}
Dari Contoh program diatas jelas sekali yang dieksekusi oleh program hanya perintah yang terdapat pada blok if Pertama.

1. 2 (Dua kondisi)
Dalam kondisi ini menyediakan kondisi tambahan untuk menangani kejadian yang kondisi pertamanya tidak terpenuhi atau bernilai false. Untuk contoh programnya:
class DemoIfDuaKondisi1
{
public static void main(String[] args)
{
int c=1, d=6;
if (c<5)>= 5)
System.out.println(c + "Lebih Besar Sama Dengan 5");
}

if (d<5)>= 5)
System.out.println(d + "Lebih Besar Sama Dengan 5");
}
}
}

Dari Contoh diatas jelas bahwa pada blok if pertama, dimana kondisi (c<5)> Demikianlah Pembahasan-Pembahasan dari materi Java yang saya Buat mudah-mudahan bermanfaat yaa…….,Dan untuk Kondisi yang lebih dari mudah-mudahan kita akan bahas di lain waktu.

JAVA-2

Bahasan ini merupakan lanjutan dari bahasa JAVA sebelumnya...>>

Packages

Paket merupakan tempat dari kelas-kelas maupun interface-interface yang telah dibuat. Kegunaan paket itu sendiri adalah untuk menghindari kesamaan nama pada kelas-kelas yang kita buat

Contoh Program Packages:

package ContohPkg;

public class BujurSangkar

{

private double sisi1;

private double sisi2;

public BujurSangkar(double sisi1,double sisi2)

{

this.sisi1=sisi1;

this.sisi2=sisi2;

}

public double luas(){

return (sisi1*sisi2);

}

}

Simpan dengan nama BujurSangkar

package ContohPkg;

public class Persegi

{

private double panjang;

private double lebar;

public Persegi(double panjang,double lebar)

{

this.panjang=panjang;

this.lebar=lebar;

}

public double luas(){

return (panjang*lebar);

}

}

Simpan dengan nama Persegi

package ContohPkg;

public class Balok

{

private double panjang;

private double lebar;

private double tinggi;

public Balok(double panjang,double lebar,double tinggi)

{

this.panjang=panjang;

this.lebar=lebar;

this.tinggi=tinggi;

}

public double volume(){

return (panjang*lebar*tinggi);

}

}

Simpan dengan nama Balok

package ContohPkg;

public class LimasSegiempat

{

private double panjang;

private double lebar;

private double tinggi;

public LimasSegiempat(double panjang,double lebar,double tinggi)

{

this.panjang=panjang;

this.lebar=lebar;

this.tinggi=tinggi;

}

public double volume(){

return ((panjang*lebar*tinggi)/3);

}

}

import ContohPkg.BujurSangkar;

import ContohPkg.Persegi;

import ContohPkg.Balok;

import ContohPkg.LimasSegiempat;

class PkgBeraksi

{

public static void main(String[] args)

{

BujurSangkar obBujurSangkar=new BujurSangkar(5,5);

Persegi obPersegi=new Persegi(9,7);

Balok obBalok=new Balok(3,4,5);

LimasSegiempat obLimasSegiempat=new LimasSegiempat(2,2,6);

System.out.println("Luas Bujur Sangkar :"+obBujurSangkar.luas());

System.out.println("Luas Persegi :"+obPersegi.luas());

System.out.println("Volume Balok :"+obBalok.volume());

System.out.println("Volume Limas Segi Empat :"+obLimasSegiempat.volume());

}

}

Simpan dengan nama PkgBeraksi

JAVA

“Mengenal Java”

Pemprograman Java merupakan pemrograman yang berorientasi kepada objek, dimana setiap objek akan memiliki data (sifat, berupa variable maupun konstanta) dan method (perilaku atau kemampuan untuk melakukan sesuatu, berupa fungsi). Jadi, objek dapat diartikan sebagai suatu entitas yang memiliki data dan method. Semua pemprograman java merupakan objek, maka sebelum kita memulai penulisan kode – kode dari Java sebaiknya kita mengenal terlebih dahulu dasar – dasar dari konsep yang terkandung dalam pemrograman berorientasi objek. Untuk pembahasan awal mari kita membahas tentang kelas.
Contoh Program Kelas:
class Pc
{
String casing;String warna;String jenis;String mainBoard;
String powerSupply;String processor;String jenisCard;String harddisk;
String monitor;String keyBoard;String mouse;
}
Simpan dengan nama :Pc

public class PcBeraksi
{
public static void main(String[] args)
{
//Membuat object
Pc pcku=new Pc();
/*memanggil atribut dan memberi nilai */
pcku.casing="Top";
pcku.warna="Hitam";
pcku.jenis="Home";
pcku.mainBoard="Intel Desktop";
pcku.powerSupply="ATX";
pcku.processor="Pentium IV";
pcku.jenisCard="Onboard";
pcku.harddisk="Seagete";
pcku.monitor="Samsung";
pcku.keyBoard="PS 2";
pcku.mouse="PS 2";
System.out.println("Casing: " + pcku.casing);
System.out.println("Warna: " + pcku.warna);
System.out.println("Jenis: " + pcku.jenis);
System.out.println("Mainboard: " + pcku.mainBoard);
System.out.println("Powersupply: " + pcku.powerSupply);
System.out.println("Processor: " + pcku.processor);
System.out.println("jeniscard: " + pcku.jenisCard);
System.out.println("Harddisk: " + pcku.harddisk);
System.out.println("Monitor: " + pcku.monitor);
System.out.println("Keyboard: " + pcku.keyBoard);
System.out.println("Mouse: " + pcku.mouse);
}
}

Simpan Dengan nama:PcBeraksi

bersambung ke bahasan selanjutnya ......>>> Package.

CeRiTa LUcU

Seputar Sidang

pada Saat Sidang Terakhir Berlangsung terjadi Kesalahan yang dilakukan tanpa unsur kesengajaan, dimana korbannnya adalah mahasiswa dan juga dosennnya........,dimana kesalahan dilakukan oleh salah seorang panitia Sidang, kira-kira sekitar jam 18:45 kejadiaanya. Saat itu hanya ada 2 ruangan yang dipakai untuk sidang, karena pada hari itu memang sidang terakhir.

panitia sidang : "Mas" Absen dulu mas mau sidang kan??

Mahasiswa : iya pak, saya mau sidang.

setelah absen mahasiswa tersebut kemudian foto dengan memakai jas dan dasi.

Panitia Sidang :Kalau sudah foto langsung naik aja mas ke atas.(tanpa melihat kartu ujian panitia tersebut meminta mahasiswa tadi naik ke atas).

Setelah mahasiswa tersebut naik, tidak berapa lama 2 orang penguji turun, dan menghampiri si panitia.

2 orang penguji :istirahat ya pak???

Panitia sidang :"Pak",mahasiswanya udah datang dan sudah naik tuh!,langsung sidang aja pak(2 orang penguji) biar cepat pulang.

akhirnya tanpa basa basi 2 orang penguji tersebut naik kembali setelah mendengar ucapan dari panitia.

Setelah beberapa saat panitia yang lain bertanya??

panitia lain: "Kok",mahasiswa yang diruangan 201 sudah ada dan lagi disidang ya, padahal dia belum absen dan belum foto. (untuk menghilangkan rasa penasaran akhirnya panitia lain langsung naik keatas dan bertanya??)

panitia lain:"maaf pak",mahasiswa ini belum absen dan foto!!!,setelah di cek ruangan dan nim ternyata mahasiswa tersebut bukan diruang 201, melainkan 101.sementara 2 orang penguji tidak memeriksa kembali ruangan dari mahasiswa tersebut,dimana ujian sudah berlangsung selama 30 menit.

akhirnya si mahasiswa salah ruangan, dan 2 orang penguji tersebut salah menguji!hehehehehe

LANGIT ATAP RUMAHKU

Teman….
Saat Aku Lahir Kedunia ini semua indah
Ayah dan Ibu Merawatku Dengan Kasih Sayang
Mereka Berjuang Untuk Kehidupanku

Tapi Kini…..
Saat Aku Besar Baru Kutahu dan Kusadari
Aku Tak Mempunyai Rumah Untuk Berteduh
Aku Tak Mempunyai Tempat Tinggal Dan Tempat Bersandar

Langit Adalah Atap Rumahku Kawan…..
Terkadang Aku Harus Pindah Dari Tempat Satu Ke tempat Lain
Karena Aku Hanya Orang Yang Tidak Mampu dan Miskin
Yang Hanya Bisa Berharap Belas Kasih Orang Lain..

Disaat Yang Lain Duduk Dibangku Pendidikan
Aku Hanya Bisa Duduk Dipingggir-Pinggir Bangku Kota
Orang Tuaku Tak Mampu Membayar Biaya Sekolah
Dan Aku Hanya Mengenal Pendidikan Dijalan

Sehari-hari Aku Hanya Bisa Memandangi Langit
Aku Hanya Bisa Berharap Kepada Khayalanku
Aku Hanya Bisa Merenungi Nasib Dan Kedua Orang Tuaku
Tanpa Bisa Berbuat Dan Berharap Banyak

Saat Lapar Menyapa Aku Hanya Bisa Mencoba Untuk Bertahan
Saat Hujan Datang Aku Hanya Bisa Terdiam
Saat Malam Menjelang Aku Hanya Bisa Bermimpi
Karena Langit Atap Rumahku

Ya Rabb…..
Akankah Deritaku Berakhir
Akankah Ku Capai Kebahagiaan Dikehidupanku
Akankah Berganti Atap Rumahku Dikemudian Waktu

Ya Rabb…
Doa Dan Harapan Kupanjatkan Kepada-Mu
Derita Dan Air Mata Kupasrahkan Kepada-Mu
Karena Hanya Kepada-MU TerLetak Segalanya

Wajah Bangsaku....

Wajah Bangsaku...

Negeri Ini Memang Dikenal Subur
Lautan Yg Kaya Dengan Ikannya
Hutan Yg Lebat Dengan Pohonnya
Bukit Dan Gunung Yg Terhampar

Kini Semuanya Hanya Tinggal Angan
Semua Hancur Seketika Ditelan Bencana
Sekejab Tsunami Menghantam Segalanya
Yang Tergambar Hanya Luka Dan Air Mata

Teman…
Sudah Sepatutnya Kita Berkaca
Sudah Sepantasnya Kita Menyadari
Siapa Lagi Yg Akan Menolong Bangsa Ini??

Liat Saja Disana…..
Dimana Orang-orang Bangga Dengan Dosanya
Kesombongan Sudah Merajalela
Peramal Menjadi Penolong Setiap Kejadian

Hukum Dinegara Ini Sudah Tidak Berfungsi
Keadilan Bisa Dikalahkan Dengan Uang
Maksiat Sudah Menjadi Tema Berita Tertinggi
Masalah Rumah Tangga Telah Menjadi Milik Umum

Teman….
Jeritan Lapar Simiskin Sudah Tidak Didengarkan
Air Mata Korban Bencana Seakan Dianggap Hujan Sesaat
Sampai-sampai Orang Yang Pergi Haji Pun Bisa Kelaparan

Robb….
Terlalu Banyakkah Dosa Yang Diperbuat
Terlalu Besarkah Kesombongan Dari Bangsa Ini
Sampai Tidak Memperdulikan PeringatanMU Ya Robb…

Robb…
Sadarkan Bangsa Ini Dari Kelalaiannya Ya Robb
Jadikan Bangsa Ini Menjadi Bangsa Yang Selalu Bersyukur KepadaMU
Bukakan Mata Hati Bangsa Ini Ya Robb..
Semoga Selalu Berada DijalanMU

PeNyeSalan .....

" Menyesal tak pernah di awal selalu saja hadirnya belakangan, setiap terjadi barulah sadar ku Menyesal.." itu adalah sepotong lagu dari Desi Ratnasari, mudah2an itu ga berlaku buat kita yah :D.