3.
Bahasa Pemograman adalah MataKuliah yang sangat mahasiswa pusingkan,karena koding-koding yang belum dimengerti,tapi law udah tugas asdos ato dosen,waaaw.....gila deh,kmren aj aq disuruh buat program dengan java,membuat Class Film dengan atribut kodefilm, judul, jenre,th_terbit, jumlahBeli dan hargaSatuan (sesuaikan tipe datanya)
dari soalnya aj,udah bikin pusing,tp ea mw gmana lg,kita harus mencoba,,,
Masalahnya, di soal tersebut sudah ada coding method main-nya dan kita disuruh melengkapi coding tersebut, sehingga soal diatas terasa susah (buat aku sih susah,mungkin yang udah pakar ini gampang aja.. hehe). Ini coding-nya :


public static void main(String[] args) {
film f = new film(1,"2 Fast 2 Furious 5","Action",2011,50000,3);
System.out.println("\t.:Toko Film Bagus :.\n");
f.info();
System.out.println();
f.totalHarga();
f.discount();
f.totalBayar();
}
}

Coding Main() diatas mengharuskan kita membuat sebuah class film dengan atribut kodefilm, judulfilm, th_terbit, harga_satuan, jumlah dan membuat Constructor untuk mengisi nilai untuk tiap atribut. Kemudian Method info(); Untuk menampilkan Atribut dengan nilainya yang diambil dari Constructor, Method totalHarga(); Untuk menampilkan totalharga, Method discount(); Untuk menentukan ‘apakah memenuhi syarat untuk mendapat discount atau tidak”, Method totalBayar(); untuk menampilkan total bayar. Buat yang ngerti pasti udah tau kalo aplikasi sederhana diatas dibangun dengan bahasa Java.



Tugas ini berhasil aku selesaikan dengan cara biasa (tidak membuat method secara terpisah sesuai ketentuan soal) karena belum tau cara buat method-method Java dan cara manggilnya di method main().

public static void main(String[] args) {
film f = new film(1,"2 Fast 2 Furious 5","Action",2011,50000,2);
System.out.printf("Kode Film : %d \n",f.getkodeFilm());
System.out.printf("Judul Film : %s \n",f.getjudulFilm());
System.out.printf("Jenre : %s \n",f.getJenisFilm());
System.out.printf("Tahun Terbit : %d \n",f.getTahunTerbit());
System.out.printf("Harga Satuan : Rp.%d \n",f.getHargaSatuan());
System.out.printf("Jumlah : %d \n",f.getJumlah());
System.out.println();

int total, diskon;
total = f.getJumlah() * f.getHargaSatuan();
System.out.println("Total : "+ total);
if(total<100000){ System.out.println("Anda tidak mendapat diskon"); }else { diskon = total * 10/100; System.out.println("diskon ="+ diskon); } } } Setelah berhasil membuat coding diatas, akhirnya penulis coba untuk membuat method masing-masing dengan ‘merombak’ script main() diatas, dengan membuat method info(),totalHarga(),discount(), dan totalBayar(); //method info void info(){ film f = new film(1,"2 Fast 2 Furious 5","Action",2011,50000,3); System.out.printf("Kode Film : %d \n",f.getkodeFilm()); System.out.printf("Judul Film : %s \n",f.getjudulFilm()); System.out.printf("Jenre : %s \n",f.getJenisFilm()); System.out.printf("Tahun Terbit : %d \n",f.getTahunTerbit()); System.out.printf("Harga Satuan : Rp.%d \n",f.getHargaSatuan()); System.out.printf("Jumlah : %d \n",f.getJumlah()); } //method totalHarga void totalHarga(){ int total, diskon; total = getJumlah() * getHargaSatuan(); System.out.println("Total : "+ total); } //method discount void discount(){ int total, diskon; total = getJumlah() * getHargaSatuan(); if(total<=100000){ System.out.println(">> Maaf Anda tidak mendapat diskon");
}else
{
diskon = total * 10/100;
total = total - diskon;
System.out.println(">> Selamat anda mendapat discount 10% = "+ diskon+" b^_*d");
}
}
//method totalBayar
void totalBayar(){
int total, diskon;
total = getJumlah() * getHargaSatuan();
if(total<=100000){ System.out.println("Total Bayar : "+total); }else { diskon = total * 10/100; total = total - diskon; System.out.println("Total Bayar = "+ total); } } //Main Program public static void main(String[] args) { film f = new film(1,"2 Fast 2 Furious 5","Action",2011,50000,3); System.out.println("\t.:Toko Film Bagus :.\n"); f.info(); System.out.println(); f.totalHarga(); f.discount(); f.totalBayar(); } } Lihat main programnya, ternyata aku telah berhasil menyelesaikan tugas ini dengan baik (sesuai dengan ketentuan soal), ini hasilnya:


1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#0000# Menampilkan versi firmware.
3. *#9999# Merupakan alternatif jika kode *#0000# tidak berfungsi.
4. *#8110# Menampilkan versi firmware (Nokia 8110).
5. *#21# Melihat pengalihan untuk semua panggilan ‘All calls’.
6. **21*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk semua panggilan.
7. **61*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk panggilan yang tidak terjawab.
8. **67*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk panggilan ketika sedang sibuk.
9. *#61# Melihat nomor pengalihan karena tidak dijawab ‘Call divert’.
10. *#62# Melihat nomor pengalihan karena diluar jangkauan ‘Call divert’ dan mengetahui kemana nomor tersebut dialihkan.
11. *#67# Melihat nomor pengalihan karena sibuk ‘Call divert’ dan mengetahui kemana nomor tersebut dialihkan.
12. *#2820# Menampilkan alamat IP Bluetooth.
13. *#30# Menampilkan nomor pribadi.
14. *#43# Melihat status ‘Call waiting’.
15. *#62209526# atau *#MACOWLAN# Menampilkan alamat MAC WLAN.
16. *#67705646# Mengganti operator logo (tipe 3310, 3330).
17. *#73# Mereset timer ponsel dan skor game.
18. *#746025625# Menampilkan status SIM Clock. Jika ponsel anda mendukung fungsi power saving akan muncul tulisan “SIM Clock Stop Allowed”, itu berarti anda bisa mendapatkan waktu terbaik untuk standby.
19. *#7370# atau *#RESO# Mereset ke setingan awal (pabrikan), data-data akan terhapus
20. *#7760# Menampilkan kode pabrik/produk.
21. *#7780# atau *#rst0* Mereset ke setingan awal (pabrikan), data-data tidak akan terhapus.
22. *#92702689# atau *#war0anty# Menampilkan nomor serial, tanggal pembuatan, tanggal pembelian, tanggal terakhir servis (000 jika belum pernah diperbaiki) dan transfer user data. Pada beberapa ponsel setelah menggunakan kode ini anda harus merestart ponsel.
23. *#2640# Menampilkan kode pengamanan ponsel.
24. *#3370# Mengaktifkan EFR (Full Rate Codec), kualitas suara terbaik namun pemakaian baterai menjadi boros.
25. #3370# Untuk menonaktifkan EFR.
26. *#4720# Mengaktifkan Half Rate Codec, kualitas suara terendah namun pemakaian baterai menjadi lebih hemat.
27. #4720# Untuk menonaktifkan Half Rate Codec.
28. 10# Cara cepat untuk membuka nomor kontak yang tersimpan di kartu SIM berdasarkan nomor urut. Contoh angka 10 adalah nomor urut kontak.
29. #pw+1234567890+1# Mengunci status provider, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
30. #pw+1234567890+2# Mengunci status network, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
31. #pw+1234567890+3# Mengunci status country, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
32. #pw+1234567890+4# Mengunci status kartu SIM, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
Udah lama gx NgeBlog,,,gw mw Kasi trik baru ne buat agan2x semua,emang ce ne uda ad yang tw,tp gx ad slahnya kan bagi yang newbi juga mncoba....kali ne gw share cara buat kalkulator dengan VB.6,,,jgan hanya bisa pakai doank,tp gx bisa buat ea gx?:...wkwk
yawudah gan,lansung aj ke TKP!!!
Pertama-tama, buatlah sebuah form sesuai selera Agan2x, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:


Untuk properties dari masing-masing objek,gw contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Agan tinggal membuat coding dari kalkulator tersebut. Jika Agan mengikuti semua
setting properties seperti diatas, maka codingnya gw contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

About