March 2017

Home / Archives for March 2017

Menilik Teknologi "Cloud Computing"

Posted by Erixon Thursday, March 23, 2017 0 comments

Teknologi Cloud Computing diprediksi akan semakin berkembang pesat, seiring dengan berkembangnya teknologi internet yang didukung dengan harga yang semakin terjangkau. Hal ini

juga akan menjadi bagian dari teknologi masa depan, terlebih lagi kedepan akan ada teknologi internet 5G. Cloud computing merupakan salah satu inovasi di teknologi komputer, informasi dan komunikasi, yang ditujukan untuk kemudahan hidup manusia. Teknologi ini sudah ada sejak tahun 2000-an dan terus berkembang pesat hingga saat ini dan juga diprediksi akan semakin maju untuk kebutuhan komputasi dan sebagai lahan bisnis bagi industri internet.

Cloud computing, dalam bahasa indonesia berarti komputasi awan, hal ini terdiri dari kata Cloud dan Computing. Computing adalah komputasi yang berhubungan dengan prosesor, CPU, RAM dan sistem operasi yang akhirnya kita bisa menggunakan komputer tersebut menjalankan sebuah program aplikasi semisal MS Office, Photoshop dan lain sebagainya. Cloud atau awan, adalah hal-hal yang terdapat jauh dari pengguna dan tidak diketahui secara nyata oleh pengguna. Arti kata Cloud adalah “awan” ini tidak jelas, juga tidak ditemukan sumber yang pasti, kemungkinan adalah sebuah ilustrasi dimana kita berada di bawah awan yang sama. Awan dalam hal ini mengacu pada “Internet”.

Seperti yang Anda lihat, diatas merupakan satu contoh layanan Cloud computing. Pihak penyedia menyuguhkan beberapa pilihan yang pada dasarnya mencakup server, virtual desktop, platform, aplikasi dan penyimpanan awan.

Analogi sederhana untuk komputasi awan bisa merujuk pada istilah berlangganan listrik dari PLN. Anda bisa memesan sumber daya dari banyak pilihan sumber daya, 900 watt, 1300 watt atau 2200 watt. Suatu saat, jika Anda ingin menaikkan atau menurunkan spesifikasi sumber daya PLN, Anda bisa mengajukan permintaan ke PLN dan memilih paket lain yang sudah disediakan. Dalam konteks ini, berarti kita tidak perlu mendirikan “pembangkit listrik sendiri”.

Hal itu sama dengan Cloud Computing, dimana Anda bisa menyewa sebuah komputer dari penyedia jasa, dengan spesifikasi yang ditawarkan seperti 1 CPU, RAM 1GB dan Storage SSD 20GB, serta sistem operasi baik LINUX ataupun Windows, dan tentunya program aplikasi sesuai dengan apa yang Anda inginkan. Tetapi tidak seperti Anda mempunyai komputer sendiri yang bisa diakses tanpa bantuan koneksi internet. Komputer harus terhubung dengan jaringan internet (disinilah mengapa disebut Cloud/ Awan, supaya Anda bisa mengakses unit yang Anda pesan bersama sistem dan aplikasi yang Anda install. Nah, ketika Anda memerlukan tambahan spesifikasi, maka Anda tinggal membayar sejumlah uang untuk meng-upgrade misalnya ke 2GB RAM dan SSD 1TB. Berbeda dengan langganan listrik PLN, yang tidak perlu mendirikan pembangkit sendiri, untuk menikmati layanan teknologi cloud, kita harus mempunyai perangkat untuk menghubungkan server yang kita pesan dari penyedia jasa Cloud Computing.

Cloud computing melibatkan komputer server, jaringan internet, dan perangkat lunak (software), sehingga memungkinkan pengguna melakukan penyimpanan data terpusat melalui akses online internet. Hadirnya layanan komputasi awan, memudahkan pengguna mempunyai perangkat komputer sendiri beserta sistem operasi, software dan aplikasi terpasang, sehingga hanya mengeluarkan biaya lebih murah dengan cara menyewa ke penyedia cloud, daripada harus membeli sistem sendiri.

Teknologi yang digunakan untuk komputasi awan adalah virtualisasi. Software virtualisasi memisahkan perangkat komputasi fisik menjadi satu atau lebih perangkat virtual, yang masing-masing dapat dengan mudah digunakan untuk menyelesaikan atau melakukan tugas-tugas komputasi. Dengan virtualisasi sistem operasi tingkat dasarnya menciptakan sistem scalable beberapa perangkat komputasi independen, sumber daya komputasi menganggur dapat dialokasikan dan digunakan secara lebih efisien. Virtualisasi memberikan kelincahan yang dibutuhkan untuk mempercepat operasi teknologi informasi, dan mengurangi biaya dengan meningkatkan pemanfaatan infrastruktur.

Cloud computing adalah jenis komputasi grid dan telah berkembang dengan mengatasi QoS (kualitas layanan) dan masalah reliabilitas. Cloud computing menyediakan alat dan teknologi untuk membangun data / menghitung aplikasi paralel intensif dengan harga yang jauh lebih terjangkau dibandingkan dengan teknik komputasi paralel tradisional.

Jenis Layanan Komputasi Awan

Pada dasarnya bisnis Cloud Computing atau layanan dari komputasi awan adalah menawarkan satu unit server virtual di internet yang bisa Anda kelola sendiri. Pun begitu, tentunya bisnis terus berkembang dan menjadikan cloud computing tidak sekedar menyewa server di awan, namun juga dimudahkan dengan satu paket server bersama dengan jasa instalasi program yang dibutuhkan. Sehingga Cloud computing adalah hasil dari evolusi dan adopsi teknologi yang ada, memungkinkan pengguna memperoleh manfaat dari semua teknologi itu, tanpa perlu pengetahuan yang mendalam tentang atau keahlian dengan masing-masing dari mereka. Keberadaan “Awan” bertujuan untuk memotong biaya, dan membantu pengguna fokus pada bisnis inti mereka bukannya terhambat oleh kendala seputar teknologi informasi dan komputer. Sehingga, pengguna akan lebih fokus pada bisnis dan apa yang mereka inginkan.

Dalam model cloud-layanan yang paling dasar, penyedia infrastruktur yang disingkat IaaS (Infrastructure as a service). Cloud computing tipe IaaS menawarkan komputer virtual, sementara Anda harus mempunyai kemampuan untuk menginstal software dan aplikasi. Seperti yang kami katakan diatas, model ini merupakan layanan yang paling dasar, seolah Anda membeli paket server yang bisa Anda instal sesuai dengan keinginan Anda. IaaS sering menawarkan sumber daya tambahan seperti disk image, objek penyimpanan, firewall, keseimbangan beban, alamat IP, daerah maya jaringan (VLAN), dan satu paket (bundel) software. IaaS ditujukan untuk konektivitas yang luas, pelanggan dapat menggunakan Internet yang didedikasikan jaringan pribadi virtual.

Dalam model layanan cloud computing yang sudah berupa sebuah platform yang disebut PaaS (Platform as a Servise), penyedia layanan komputasi awan memberikan platform komputasi yang sudah terpasang, biasanya termasuk sistem operasi, bahasa pemrograman lingkungan eksekusi, database, dan server web. Pengembang aplikasi dapat mengembangkan dan menjalankan solusi perangkat lunak mereka pada platform cloud tanpa biaya dan kompleksitas dalam mengelola hardware dengan software. Contoh beberapa layanan PaaS, seperti Microsoft Azure dan Google App Engine, sumber daya yang mendasari komputer dan penyimpanan skala otomatis untuk memenuhi permintaan aplikasi sehingga pengguna awan tidak perlu mengalokasikan sumber daya secara manual. Yang terakhir ini juga telah diusulkan oleh arsitektur bertujuan untuk memfasilitasi real-time dalam lingkungan cloud. Bahkan lebih spesifik jenis aplikasi dapat diberikan melalui PaaS, misalnya, seperti media encoding seperti yang disediakan oleh jasa bitcodin transcoding cloud atau media.io.

Dalam model bisnis cloud computing yang paling akhir yaitu layanan yang sudah berupa software dan Anda tinggal memakai tanpa banyak set-up, dalam hal ini disebut dengan SaaS (software as a service), pengguna diberikan akses ke perangkat lunak aplikasi dan database. Penyedia awan mengelola infrastruktur dan platform yang menjalankan aplikasi. SaaS kadang-kadang disebut sebagai “perangkat lunak on-demand”. Dalam model SaaS, penyedia awan menginstal dan mengoperasikan perangkat lunak aplikasi di awan dan pengguna cloud mengakses software dari klien awan. Pengguna awan tidak mengelola infrastruktur cloud dan platform di mana aplikasi berjalan. Hal ini menghilangkan kebutuhan untuk menginstal dan menjalankan aplikasi pada komputer pengguna cloud sendiri, yang menyederhanakan pemeliharaan dan dukungan.

Pada akhirnya ketiga layanan baik IaaS, PaaS dan SaaS tentu saja akan berbeda harga. Dimana IaaS akan cenderung lebih murah karena kita mengelola hardware dan harus menginstal software dan aplikasi sendiri. (Teknologi canggih ini diprediksi akan semakin berkembang pesat, seiring dengan hadirnya era Internet of Things. Hal ini juga akan menjadi bagian dari teknologi masa depan terlebih lagi kedepan akan ada teknologi internet 5G. Cloud computing merupakan inovasi di bidang teknologi komputer, informasi dan komunikasi, yang ditujukan untuk kemudahan hidup manusia.

Sumber

Baca Selengkapnya ....

Mengatasi Koneksi Internet bermasalah

Posted by Erixon Thursday, March 16, 2017 0 comments

Koneksi internet seringkali terputus tanpa disengaja, hal ini bisa menyebabkan kita menjadi galau, terutama kalau lagi asik-asiknya nge-blog dan ketika di-posting, lalu error connection dan isi blog belum tersimpan, atau ketika sedang asik men-download data, setelah 98% hampir selesai kemudian koneksi internet terputus, sungguh menganggu jika kondisi tersebut terjadi secara berulang-ulang.

Troubleshooting atau cara untuk mengatasi koneksi internet yang tiba-tiba disconnected, bisa kita lakukan sendiri dengan cara menelpon call center provider Anda untuk memastikan tidak terjadi permasalahan yang sama dengan yang Anda alami, sebelum kita menganalisis dan melakukan checking terhadap software maupun hardware yang bertanggung jawab sebagai perantara koneksi internet dengan perangkat komputer kita.

Untuk melihat apa yang terjadi pada koneksi internet kita, Windows telah menyediakan icon internet connection pada pojok kanan bawah desktop, tepatnya di sebelah kiri display date and time. Gambar berikut mewakili berbagai kondisi koneksi komputer menggunakan jaringan lan dan wlan.

Total ada enam simbol yang memberikan informasi kondisi koneksi terkini pada PC atau laptop windows kita, seperti gambar di atas yang akan dibahas menjadi dua porsi yaitu Wireless connection dan wired connection.

Troubleshooting Wireless Connection

Wireless connection connected menandakan bahwa komunikasi antar PC dengan perangkat lain/ internet tidak mengalami gangguan atau normal.

Wireless connection detected menunjukkan bahwa adapter wifi laptop mendeteksi adanya sinyal wifi dari hotspot atau sumber wifi lainnya dalam jarak jangkau. Tetapi komputer kita belum mencoba melakukan hubungan dengan sumber wifi tersebut.

Wireless connection limited menandakan bahwa komputer kita telah terhubung dengan komputer/router/access point menggunakan media wireless, tetapi komputer kita belum diijinkan untuk melakukan koneksi melewati AP tersebut. Untuk permasalahan ini, penyebabnya bisa karena:

AP belum dikonfigurasi/ (AP baru).
AP/router tidak memiliki koneksi internet via modem/line internet lain
AP tidak memberikan IP dhcp kepada laptop kita selaku client
Setting IP wireless adapter di laptop kita diset secara static bukan dynamic
Sementara jika icon wireless connection tidak tampil bisa disebabkan oleh:
Driver wifi belum diinstall
Driver wifi mengalami error/crash
Wireless connection di disable lewat tombol keyboard
Tidak memiliki adapter wifi

Untuk mengecek apakah masalah ada di driver silahkan klik kanan pada icon my computer di Windows Explorer lalu pilih manage – device manager. Lihatlah pada bagian network adapters, apakah ada driver yang mengandung kata Wi-Fi , wireless atau 802.11.

Jika belum ada, maka driver wireless belum terinstall/laptop tidak memiliki adapter wifi.
Jika ada dengan simbol berwarna segitiga warning berwarna kuning, driver anda bermasalah, restart komputer dan jika masih tetap tidak menghilangkan segitiga, install ulang driver wireless anda/update via koneksi lain (modem USB/wired LAN)
Jika ada dengan simbol x merah, berarti driver anda dalam kondisi disabled. Klik kanan pada simbol driver dan klik enable.
Jika ada tanpa simbol x merah maupun segitiga warning berwarna kuning maka driver anda tidak ada masalah.

Troubleshooting Wired Connection

Untuk wired connection, ada tiga kondisi icon koneksi yang bisa dilihat.

Wired connection connected, normal tidak mengalami gangguan koneksi. Jika koneksi lambat, itu sudah diluar kekuasaan anda, bisa faktor ISP, paket data, bandwith, yang berada di sisi router / server, bukan kesalahan laptop anda, sebaiknya anda berkonsultasi dengan admin jaringan anda.

Wired connection limited, koneksi fisik sudah beres. Kabel antar perangkat telah tertancap di sisi laptop sebagai klien dan hub/switch/router sebagai perwakilan server. Pastikan bahwa lampu indikator pada LAN card anda menyala/berkedip hijau/orange. Indikator yang berwarna merah berarti ada gangguan dari segi hardware/driver.

Koneksi limited bisa disebabkan hal yang sama seperti koneksi wireless limited, yaitu

kita belum menyeting IP komputer.
IP komputer tidak satu jaringan dengan IP server.
server/router menyediakan IP DHCP tetapi kita menggunakan IP statis.
komputer kita tidak menemukan server dalam jaringan.
server/router tidak terhubung dengan internet.

Wired cable unplugged, artinya kabel UTP belum terpasang secara benar mengakibatkan komputer tidak memiliki koneksi ke perangkat lain.

Trik Command Prompt, untuk troubleshooting koneksi internet

Command prompt/ CMD bisa kita gunakan untuk melakukan troubleshoot koneksi internet. Sebelumnya masuk ke RUN ketik CMD dan tekan enter maka sebuah program text mode akan muncul ke depan kita. Gunakan perintah berikut untuk melakukan troubleshoot internet.

ipconfig /all digunakan untuk melihat informasi IP address komputer kita berikut IP gateway dan IP DNS server. IP gateway adalah IP server/router yang menghubungkan kita dengan line internet. Sementara DNS server adalah alamat IP yang bertanggung jawab menerjemahkan perintah pengetikan URL pada browser kita. Pastikan keduanya telah terisi

ipconfig /renew digunakan jika IP yang kita miliki pada perintah pertama bersifat dynamic/dhcp. Perintah ini akan meminta server memperbarui informasi IP kita
ping IP gateway setelah kita mengetahui nomor IP gateway, lakukan ping ke alamat gateway, misal alamatnya 10.10.12.254 maka perintahnya adalah ping 10.10.12.254 pastikan anda mendapatkan jawaban reply bukan request time out atau destination host unreachable.
ping google.com jika ping gateway sukses, kita bisa mencoba ping google.com untuk mengecek komputer kita bisa mengakses alamat URL google.com
tracert google.com baru kita gunakan jika ping google.com menghasilkan RTO atau destination host unreachable. Tracert berfungsi untuk mengetahui path/hops/jalan mana yang komputer kita lewati untuk mencapai tujuan, dalam hal ini misal google.com. Setelah perintah dimasukkan, komputer akan merespon dengan memberikan alamat2 IP yang kita lewati untuk menuju google dan waktu yang dibutuhkan komputer untuk melewati satu path ke path lain. Jika menemukan tanda * pada salah satu atau beberapa jalur, maka jalur tersebutlah bisa jadi yang mengalami gangguan/putus sehingga kita tidak bisa terkoneksi internet. Jalur tersebut dapat berupa router yang kita miliki, atau router internet provider yang kita pakai.

Selamat belajar dan selamat mencoba, semoga bermanfaat.

(Sumber)

Baca Selengkapnya ....

Bagaimana Cara Setting Router ASUS 12+

Posted by Erixon Wednesday, March 15, 2017 0 comments

Salam sobat blogger, artikel hari ini saya ambil dari pembelajaran di lapangan, mengenai setting router sebagai router utama. Bagi pengguna ISP di rumahnya pasti sudah tidak asing lagi dengan benda ini, karena sebagai komponen utama yang penting dalam membagi data untuk dapat mengakses sebuah internet, baik itu via kabel maupun nirkabel. Suatu ketika, router yang kita miliki rusak dan terpaksa harus membeli baru, sudah lapor ke technical ISP? namun terlalu lama untuk menunggu kunjungan, tidak seperti sebuah switch/hub, router memiliki settingan tersendiri untuk dapat digunakan sebagaimana mestinya, silahkan dicoba sobat. Setiap router dengan brand yang berbeda memiliki tampilan tersendiri untuk settingannya, terkadang kita bingung ketika menghadapi router dengan produk yang berbeda dengan sebelumnya, bisa jadi karena downgrade ke router yang lebih ekonomis atau router yang lebih baik dengan harga fantastis. tapi intinya sama, kali ini saya gunakan router dengan produk Asus. untuk jelasnya dapat disimak dibawah ini

Langkah- langkah untuk Setting Router Asus 12+

1. Colokkan kabel FTP ke port Lan di router, apabila menggunakan wifi, konekkan ke wifi (no password).

2. Buka Browser (IE atau Mozzila, atau Chrome), ketikkan IP default router 192.168.1.1, tekan enter

3. Di tampilan awal, pilih manual setting.

4. Ketikkan password baru untuk akses router , lalu klik next.

5. Pilih modenya ( wireless router mode/ repeater mode / access point(AP) mode. Pembahasan kita kali ini router sebagai wireless router mode.

6. Pilih No, dan next.

7. Pilih Static Ip, kemudian next.

8. Lalu inputkan Ip WAN, netmask dan gateway serta DNS. (dapat diperoleh dari ISP yang sobat gunakan). Sebagai contoh pada gambar. Kemudian next.

9. Lalu set SSID dan Password Wifi, dan kemudia apply.

dan selanjutnya pilih complete. Selesai, silahkan ditest wifi, or via LANnya,

Baik sobat, sekian dari saya, jika ada yang ingin ditanyakan bisa dipost di kolom komentar. Terimakasih

Baca Selengkapnya ....

Penggunaan Seleksi Case Pada Pascal

Posted by Erixon 0 comments

Salam sobat blogger, kondisi untuk mengambil sebuah keputusan pada pascal bisa menggunakan fungsi IF dan Case. Artikel kali ini saya bahas penggunaan seleksi CASE untuk menentukan nilai huruf dari range nilai angka yan ada. untuk penggunaannya dapat diuraikan di bawah ini.

Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;

var

Matakuliah : string[30];

nilai : byte ;

ket,Nh : string[10];

Begin

clrscr ;

Write('Mata Kuliah : '); readln(matakuliah) ;

Write('Nilai : '); readln(nilai) ;

Case nilai of

80..100: Nh:='A' ;

70..79 : Nh:='B' ;

60..69 : Nh:='C' ;

50..59 : Nh:='D' ;

0..49 : Nh:='E' ;

end;

if nilai >49 then Ket:='lulus' else ket:='Gagal';

Writeln('Nilai Huruf : ', Nh);

Writeln('Keterangan : ', ket);

readln;

end.

mudah bukan, untuk permasalahan lainnya script bisa disesuaikan tergantung pada kasusnya. jika ada yang ingin ditanyakan atau saran silahkan dipost di kolom komentar. Sekian dan Terima kasih.

Baca Selengkapnya ....

Membuat Program Input Harga Foto Copy Menggunakan Bahasa Pascal

Posted by Erixon 0 comments

Salam sobat blogger, artikel kali ini saya mau membahas tentang program input harga foto copy. Sederhana tapi bisa dijadikan bahan pembelajaran, untuk menjalankannya silahkan gunakan aplikasi turbo pascal bisa di download di submenu download, lalu ketikkan script listing program dibawah ini:

uses crt;

var

Jumlahlembar : longint;

Totharga : longint;

Pembayaran : real;

hpl : byte;

discount : real;

begin

clrscr;

writeln('PROGRAM INPUT HARGA FOTO COPY');

writeln('-----------------------------------');

write('Jumlah Lembar :');readln(jumlahlembar);

if Jumlahlembar >=200 then hpl:=90 else

if jumlahlembar <=200 then hpl:=100;

writeln('Harga per Lembar:',hpl);

totharga :=hpl*jumlahlembar;

writeln('Total Harga:',totharga);

if totharga > 500000 then discount:=0.15 else

if totharga < 500000 then discount:=0;

discount:=totharga*discount;

writeln('Discount:',Discount:3:0);

pembayaran:= totharga-discount;

writeln('Pembayaran:',Pembayaran:3:0);

readln;

end.

Tampilan hasil program sebagai berikut :

Tampilan Tidak Dapat Discount

Tampilan Ketika Mendapatkan Discount

Sederhana bukan?, jika ada yang mau ditanyakan atau saran, bisa dipost di kolom komentar. Sekian dan terimakasih.

Baca Selengkapnya ....

Program Sederhana Membuat Pembayaran Tagihan Rekening Listrik Menggunakan VB 2008

Posted by Erixon Tuesday, March 14, 2017 2 comments

Salam sobat Blogger, pembahasan saya kali ini adalah tentang membuat program sederhana tentang pembayaran tagihan rekening listrik, subjek dan objek yang dipakai berdasarkan list tugas yang diberikan dosen, jikalau sobat berkenan bisa membantu memberi saran perbaikan pada script yang saya buat bisa di post di kolom komentar. ada beberapa Script yang mungkin sobat bisa gunakan untuk menyelesaikan logika program yang sobat hendak kerjakan, walau sederhana tapi terlihat kompleks.
Langsung saja, desain form seperti berikut :

Desain Form

Untuk listing Program yang saya buat adalah sebagai berikut :

Public Class Form_Pembayaran_Rekening_Listrik

Private Sub Form_Pembayaran_Rekening_Listrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TOK-MED-001")
kode.Items.Add("RUM-BEL-002")
kode.Items.Add("SWA-TEM-003")
kode.Items.Add("PAB-MAR-004")
kode.Items.Add("TOK-BIN-005")
kode.Items.Add("TOK-PAK-006")
Rancangan_Table()
Biaya_Beban.ReadOnly = True
HargaperKwh.ReadOnly = True
Total_Tagihan.ReadOnly = True
besar_Pemakaian.ReadOnly = True
Pajak.ReadOnly = True
pEMBAYARAN.ReadOnly = True
End Sub

Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(kode.Text, 3)
Select Case x
Case "001"
nama.Text = "ERIXON A S"
no.Text = x
Case "002"
nama.Text = "RINALDI PRATAMA"
no.Text = x
Case "003"
nama.Text = "ABDUL RAHMAD"
no.Text = x
Case "004"
nama.Text = "SUHENDRIK"
no.Text = x
Case "005"
nama.Text = "ROHIMAN"
no.Text = x
Case "006"
nama.Text = "ARIFIN S P"
no.Text = x
End Select
x = Microsoft.VisualBasic.Left(kode.Text, 3)
Select Case x
Case "PAB"
HargaperKwh.Text = 10000
Biaya_Beban.Text = 1000000
tipe.Text = "PABRIK"
Case "RUM"
HargaperKwh.Text = 200
Biaya_Beban.Text = 50000
tipe.Text = "RUMAH"
Case "SWA"
HargaperKwh.Text = 1500
Biaya_Beban.Text = 400000
tipe.Text = "SWALAYAN"
Case "TOK"
HargaperKwh.Text = 500
Biaya_Beban.Text = 150000
tipe.Text = "TOKO"
End Select
x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
Select Case x
Case "MED" : daerah.Text = "MEDAN"
Case "BEL" : daerah.Text = "BELAWAN"
Case "TEM" : daerah.Text = "AKSARA"
Case "MAR" : daerah.Text = "MARENDAL"
Case "BIN" : daerah.Text = "BINJAI"
Case "PAK" : daerah.Text = "LUBUK PAKAM"
End Select
End Sub
Sub Rancangan_Table()
With lv
.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
.Columns.Add("Nama Pelanggan", 100, HorizontalAlignment.Left)
.Columns.Add("No Urut", 100, HorizontalAlignment.Left)
.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
.Columns.Add("Meter Bulan Lalu", 100, HorizontalAlignment.Left)
.Columns.Add("Meter Bulan Ini", 100, HorizontalAlignment.Left)
.Columns.Add("Besar Pemakaian", 100, HorizontalAlignment.Left)
.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
.Columns.Add("Harga Per KWH", 100, HorizontalAlignment.Left)
.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub
Sub isi_table()
Dim lst As New ListViewItem
With lst
.Text = kode.Text
.SubItems.Add(nama.Text)
.SubItems.Add(no.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(daerah.Text)
.SubItems.Add(mbl.Text)
.SubItems.Add(mbi.Text)
.SubItems.Add(besar_Pemakaian.Text)
.SubItems.Add(Biaya_Beban.Text)
.SubItems.Add(HargaperKwh.Text)
.SubItems.Add(Total_Tagihan.Text)
.SubItems.Add(Pajak.Text)
.SubItems.Add(pEMBAYARAN.Text)
lv.Items.Add(lst)
End With
End Sub

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

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

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub
Sub bersih()
kode.Text = ""
nama.Text = ""
no.Text = ""
tipe.Text = ""
daerah.Text = ""
mbi.Text = ""
mbl.Text = ""
Biaya_Beban.Text = ""
besar_Pemakaian.Text = ""
Biaya_Beban.Text = ""
HargaperKwh.Text = ""
Total_Tagihan.Text = ""
Pajak.Text = ""
pEMBAYARAN.Text = ""
End Sub

Private Sub mbi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles mbi.KeyPress
If Asc(e.KeyChar) = 13 Then
besar_Pemakaian.Text = Val(mbi.Text) - Val(mbl.Text)
Total_Tagihan.Text = Val(Biaya_Beban.Text) + Val(HargaperKwh.Text) * besar_Pemakaian.Text
Pajak.Text = 1.5 * Total_Tagihan.Text
pEMBAYARAN.Text = Val(Total_Tagihan.Text) + Val(Pajak.Text)

End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
End Class

Dan inilah tampilan hasil Program ketika dijalankan :,

Hasil Program

Jika ada yang hendak ditanyakan atau saran silahkan post di kolom komentar. Sekian dan terimakasih.

Baca Selengkapnya ....

Membuat Program Sederhana Menghitung Nilai Mahasiswa Menggunakan VB 2008

Posted by Erixon Monday, March 13, 2017 0 comments

Halo sobat blogger, kali saya akan bahas program sederhana, namun kompleks dengan berbagai eksekusi perintah program. Silahkan desain seperti pada gambar dibawah ini.

Design Form

Listing Program yang akan diketikan sebagai berikut, bila ada kesamaan nama, harap maklum. Berhubung ini tugas kampus, jadi subjek dan objek yang saya pakai yang berasal dari kampus. untuk name pada program bisa anda sesuaikan.

Public Class Form1

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

npm.Items.Add("12110935")

npm.Items.Add("12010022")

npm.Items.Add("12020023")

kode_dosen.Items.Add("D123")

kode_dosen.Items.Add("D345")

kode_dosen.Items.Add("D678")

kode_matakuliah.Items.Add("K001")

kode_matakuliah.Items.Add("K002")

kode_matakuliah.Items.Add("K003")

Dim i As Integer

Nilai_kehadiran.Items.Clear()

For i = 1 To 100

Nilai_kehadiran.Items.Add(i)

Nilai_tugas.Items.Clear()

For i = 1 To 100

Nilai_tugas.Items.Add(i)

Nilai_UTS.Items.Clear()

For i = 1 To 100

Nilai_UTS.Items.Add(i)

Nilai_UAS.Items.Clear()

For i = 1 To 100

Nilai_UAS.Items.Add(i)

End Sub

Private Sub npm_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

Select Case npm.Text

Case "12110935"

nama.Text = "Erixon Andrianus Saruksuk"

Case "12020023"

nama.Text = "Abdul Rahmad"

Case "12010022"

nama.Text = "Rinaldi Pratama"

End Select

Dim x As String

x = Strings.Mid(npm.Text, 3, 2)

If x = "11" Then

jurusan.Text = "Teknik Informatika"

ElseIf x = "02" Then

jurusan.Text = "Manajemen Informatika"

ElseIf x = "01" Then

jurusan.Text = "Teknik Komputer"

End If

x = Strings.Mid(npm.Text, 3, 2)

If x = "11" Then

Jenjang.Text = "S I"

ElseIf x = "02" Then

Jenjang.Text = "D III"

ElseIf x = "01" Then

Jenjang.Text = "D I"

End If

End Sub

Private Sub KD_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

Select Case kode_dosen.Text

Case "D123"

Nama_dosen.Text = "Mesran,S.kom, M.Kom"

Case "D345"

Nama_dosen.Text = "Rivalry K Hondro, S.Kom"

Case "D678"

Nama_dosen.Text = "Kenedi Tampubolon,S.si, M.Kom"

End Select

End Sub

Private Sub KM_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged

Select Case kode_matakuliah.Text

Case "K001"

nama_mata_kuliah.Text = "Pemrograman Visual 1"

Case "K002"

nama_mata_kuliah.Text = "Sistem Basis Data"

Case "K003"

nama_mata_kuliah.Text = "Matriks dan Transformasi Linear"

End Select

End Sub

Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

Nilai_Akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text

If Nilai_Akhir.Text >= 80 Then

Nilai_Huruf.Text = "A"

ElseIf Nilai_Akhir.Text >= 70 Then

Nilai_Huruf.Text = "B"

ElseIf Nilai_Akhir.Text >= 60 Then

Nilai_Huruf.Text = "C"

ElseIf Nilai_Akhir.Text >= 50 Then

Nilai_Huruf.Text = "D"

Else

Nilai_Huruf.Text = "E"

End If

If Nilai_Akhir.Text >= 50 Then

Keterangan.Text = "Lulus"

Else

Keterangan.Text = "Gagal"

End If

End Sub

Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click

Close()

End Sub

Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click

nama.Text = ""

npm.Text = ""

Keterangan.Text = ""

Nilai_UTS.Text = ""

Nilai_UAS.Text = ""

Nilai_tugas.Text = ""

Nilai_kehadiran.Text = ""

Nilai_Akhir.Text = ""

kode_dosen.Text = ""

kode_matakuliah.Text = ""

Nilai_Huruf.Text = ""

Nama_dosen.Text = ""

nama_mata_kuliah.Text = ""

Jenjang.Text = ""

jurusan.Text = ""

End Sub

End Class

untuk menjalankannya, silahkan klik tombol F5 pada keyboard, dan tampilannya akan muncul dilayar.

Hasil eksekusi

Apabila ada yang ingin ditanyakan, silahkan bertanya di kolom komentar. Sekian dan terimakasih.

Baca Selengkapnya ....

TEKINFOTIKA

Menilik Teknologi "Cloud Computing"

Mengatasi Koneksi Internet bermasalah

Bagaimana Cara Setting Router ASUS 12+

Penggunaan Seleksi Case Pada Pascal

Membuat Program Input Harga Foto Copy Menggunakan Bahasa Pascal

Program Sederhana Membuat Pembayaran Tagihan Rekening Listrik Menggunakan VB 2008

Membuat Program Sederhana Menghitung Nilai Mahasiswa Menggunakan VB 2008

Popular Posts

Arsip Blog

Statistik

Categories