5 Modus Operandi Pembajakan Software, Beserta Hukumanny

Menurut survei yang dilakukan Business Software Alliance dan Ipsos Public Affairs pada tahun 2010, Indonesia berada di peringkat ketujuh dari 32 negara yang menggunakan software komputer bajakan paling banyak.

Beragam cara dilakukan oleh pelaku pembajakan untuk memalsukan dan memperbanyak software. Menurut Kepolisian Negara Republik Indonesia (Polri), setidaknya ada 5 modus operandi yang sering dilakukan untuk membajak sebuah software.

1. Hard disk loading
Pembajakan software terjadi ketika sebuah toko komputer menawarkan instalasi sistem operasi atau software bajakan kepada pelanggan yang ingin membeli perangkat komputer. 

Biasanya, penawaran ini diajukan sebagai layanan tambahan kepada pelanggan yang membeli laptop atau merakit komputer tanpa sistem operasi.

2. Counterfeiting (pemalsuan)
Jenis pemalsuan software yang biasanya dilakukan secara "serius." Kepingan CD software tidak dibungkus dengan plastik biasa. Di sini, pelaku pembajakan juga membuat dus kemasan seperti yang asli, lengkap dengan manual book dan kepingan CD yang meyakinkan.

3. Internet/online piracy
Jenis pembajakan yang dilakukan melalui koneksi jaringan internet. Selama ini banyak situs web yang menyediakan software bajakan secara gratis. Seseorang yang membutuhkannya bisa mengunduh kapan saja.

4. Mischanneling
Pembajakan software yang biasanya dilakukan oleh sebuah institusi untuk mencari keuntungan tertentu. Sebagai contoh, ada sebuah kampus yang membeli 50 lisensi akademik (academic licence) dari Microsoft. Lisensi ini memang dijual lebih murah oleh Microsoft. 

Namun pada suatu saat, kampus tersebut malah menjual lisensinya kepada pihak lain yang tidak berhak mendapatkan lisensi akademik.

5. Corporate Piracy
Dalam lingkup perusahaan, pembajakan yang paling sering dilakukan ialah ketika perusahaan membeli software untuk 10 lisensi, namun pada praktiknya, software tersebut digunakan pada 15 komputer atau lebih. Menurut Polri, penggunaan software tanpa lisensi untuk kepentingan komersial merupakan tindak pidana.

Menurut Kombes Polisi Dharma Pongrekum, Kasubdit Industri dan Perdagangan Direktorat Tindak Pidana Ekonomi Khusus Bareskrim Polri, ada beberapa pasal dalam UU No.19 tahun 2002 tentang Hak Cipta, yang bisa digunakan untuk menjerat pelaku pembajakan software. Berikut isi pokok pasal dan sanksi hukumnya.

1. Pasal 25 ayat (1)
Informasi elektronik tentang informasi manajemen hak Pencipta tidak boleh ditiadakan atau diubah (hukuman penjara 2 tahun atau denda Rp150.000.0000).

2. Pasal 27
Kecuali atas ijin Pencipta, sarana kontrol teknologi sebagai pengaman hak Pencipta tdk diperbolehkan dirusak, ditiadakan / dibuat tidak berfungsi (hukuman penjara 2 tahun atau denda Rp150.000.000)

3. Pasal 72 ayat 1
Dengan sengaja & tanpa hak memperbanyak Hak Cipta (hukuman penjara maksimal 7 tahun atau denda maksimal Rp 5 Milyar)

4. Pasal 72 ayat 3
Dengan sengaja & tanpa hak memperbanyak penggunaan untuk kepentingan komersial suatu Program Komputer (hukuman penjara maksimal 5 tahun atau denda Rp 500 juta).

Diposting oleh Nias Pulau Tercinta 07.19 0 komentar

Buah Untyuk Kesehatan Mata

         Mata merupakan jendela hati. Demikian kata pepatah mengatakan. Memang benar, dari mata kita dapat mewakili semua rasa yang ada. Sorot mata memiliki arti bahkan manusia dapat berkomunikasi hanya melalui tatap mata. Mata juga tak mampu menyembunyikan sebuah kebohongan. Betapa dahsyat fungsi mata selain mampu menunjukkan kepada kita akan indahnya dunia. Namun tahukah Anda apa yang baik untuk mata? Ya, mata perlu sehat dan kita akan membicarakan tentang manfaat buah untuk kesehatan mata.

        Buah selain enak dimakan, menyegarkan tubuh sekaligus menyehatakan tubuh, juga memiliki berjuta manfaat lain. Salah satunya adalah untuk meningkatkan kesehatan mata. Bagaimana bisa? Ya, di dalam berbagai jenis buah terkandung suatu komponen zat warna yang disebut sebagai beta karoten. Beta karoten ini dapat mengaktifkan pro vitamin A menjadi vitamin A yang baik untuk kesehatan mata dan meningkatkan daya akomodasi. Beta karoten terdapat di dalam buah-buahan khususnya yang berwarna kuning, jingga atau kemerahan. Sebagai contoh adalah buah mangga, papaya, jeruk, apel, semangka, melon. Kalau buah berwanra merah, kunging, jingga, oranye sudah Nampak jelas mengandung karoten, buah apel berwarna hijau serta pir ternyata juga mengandung beta karoten dalam kadar cukup tinggi.

       Selain meningkatkan daya akomodasi, adanya beta karoten di dalam buah mampu mengobati katarak bahkan glaucoma. Khasiat buah untuk kesehatan mata juga diperankan oleh adanya kadar lutein tinggi seperti terdapat pada buah kiwi, pisang, jambu juga dapat mengobati katarak. Kadar vitamin C yang tinggi pada buah juga dapat menguatkan jaringan ikat pada area mata serta memperlancar peredaran darah. Vitamin C juga membantu meningkatkan daya tahan tubuh sehingga membantu tubuh mengurangi terjadinya infeksi pada mata.

Beberapa buah yang mengandung minyak esensial seperti buah zaitun, buah strawberry bagus untuk mata, khususnya dalam proses membersihkan mata serta mengobati mata radang. Juga dapat mengobati katarak. Kandungan folat, kalsium serta kalium di dalam beberapa jenis jeruk, pisang, salak. Betapa besar manfaat buah untuk kesehatan mata.

Diposting oleh Nias Pulau Tercinta 07.14 0 komentar

pengantar Array Pada Java

               ARRAY adalah adalah Tipe terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe yang sama. Sebelum digunakan, variabel array perlu dideklarasikan terlebih dahulu. Cara mendeklarasikan variabel array sama seperti deklarasi variabel yang lainnya, hanya saja diikuti oleh suatu indek yang menunjukan jumlah maksimum data yang disediakan.

Array pada pemrogramman Java, dapat dibagi menjadi 2 bagian besar, yaitu Array Berdimensi Satu dan Array Multidimensi.

A. Array Berdimensi Satu

Bentuk pendekarasian Array Berdimensi Satu pada pemrograman Java, seperti dibawah ini:

tipe_data[] nama_var_array;

nama_var_array = new tipe_data[ukuran];

Contoh pendeklarasian :

int[] nilai;

nilai = new int[10];

a. Memasukan Nilai ke Array

Untuk memasukan nilai kedalam elemen array, dengan cara menyebutkan index untuk elemen array tersebut. Index dimulai dari index ke 0, bukan dari index ke 1.

nilai[0] = 70;

nilai[1] = 60;

nilai[2] = 80;

b. Mengambil Nilai dari Array

Untuk mengambil nilai dari dalam elemen array, dengan cara yang sama seperti memasukan kedalam elemen array, yaitu dengan menyebutkan index dari elemen array tersebut.

nilai[0];

nilai[1];

System.out.println("Nilai Elemen : " + nilai[0]);

Berikut contoh program array untuk menghitung total nilai dan nilai rata-rata elemen array.

/* ----------------------------
Nama File : Array_D1_01.java

----------------------
Author    : Frieyadie
------
--- */

import java.util.*;
class Array_D1_01
{

a, n, jml_nil=0;
 double nil_rata=0;
 i
public static void main(String[] args)
 {
 int
 nt[] nilai;         // deklarasi variabel array

anner input = new Scanner(System.in);

 Syst
nilai = new int[10]; // membuat objek array

 S
cem.out.print("Masukkan Banyak Data = ");
 n = input.nextInt();

 System.out.println("");


ke " + a + " = ");
 nilai[a] = in
//Memasukan Data ke Elemen Array
 for(a=0; a<n; a++)
 {
 System.out.print("Masukkan Array
 put.nextInt();
 }

 //Menampilkan Data ke Elemen Array

 System.out.println("\n\nData Yang Diinput ke Elemen Array \n");


ilai[a];
 }

 nil_r
for(a=0; a<n; a++)
 {
 System.out.print("Nilai ke - " + a );
 System.out.println(" = " + nilai[a]);
 jml_nil = jml_nil + 
nata = jml_nil / n;

 System.out.println("\n---------------------------------------");

ilai Rata-Rata Array Nilai = " + nil_rata);
 }
}
System.out.println("Jumlah Array Nilai          = " + jml_nil);
 System.out.println("

N

Diposting oleh Nias Pulau Tercinta 07.00 0 komentar

KUMPULAN DAFTAR PERINTAH COMMAND PROMPT

Command Prompt adalah sebuah perintah dos yang terdapat pada OS windows yang dapat memudahkan user dalam menjelajahi windows baik secara online maupun offline, dan aplikasi ini bisa juga disalahgunakan oleh seorang cracker untuk menjalankan aksi-aksinya hanya dengan menggunakan command prompt.

Maka dari itu sebagai langkah antisipasi bagi anda sebagai user adalah dengan mengenal lebih jauh tentang seluk beluk dari command prompt agar bisa memahami cara kerja dan manfaatnya,  salah satu dari sekian banyak manfaat dari command prompt adalah kemampuannya untuk mendeteksi adanya virus, memisahkan virus dengan file yang diinfeksinya, mencari file induk virus hanya dengan perintah ATTRIB . Berikut dibawah ini merupakan daftar perintah-perintah yang ada pada command prompt dari A-X :

a

ADDUSERS : Tambah  daftar pengguna untuk / dari file CSV
ARP : Address Resolution Protocol
Assoc : Ubah ekstensi file  asosiasi
ASSOCIAT : Salah satu langkah asosiasi file
Attrib : Ubah atribut berkas

b
Bootcfg : Edit Windows boot settings
BROWSTAT : Dapatkan domain, info browser dan PDC

c
CACLS : Ubah file permissions
CALL : Panggil satu program batch yang lain
CD : Mengganti Directory – pindah ke Folder tertentu
Change : Ganti Terminal Server Session properties
CHKDSK : Check Disk – memeriksa dan memperbaiki masalah disk
CHKNTFS : Periksa sistem file NTFS
CHOICE : Menerima input keyboard ke sebuah file batch
CIPHER : Encrypt atau Decrypt file / folder
CleanMgr : Ototmatis membersihkan Temperatur file, recycle bin
CLEARMEM : Hapus kebocoran memori
CLIP : Salin STDIN ke Windows clipboard.
CLS : Menghapus layar (Clear The Screen)
CLUSTER : Windows Clustering
CMD : Start a new CMD shell
COLOR : Mengubah warna dari jendela CMD
COMP : Membandingkan isi dari dua file atau set file
COMPACT : Compress file atau folder pada partisi NTFS
Compress : Compress tunggal file pada partisi NTFS
CON2PRT : Menghubungkan atau memutuskan sambungan dengan Printer
CONVERT : Konversi FAT ke drive NTFS
COPY : Menyalin satu atau lebih file ke lokasi lain
CSCcmd : clien-side caching (Offline Files)
CSVDE : Impor atau Ekspor  Active Directory data

d
DATE : Display atau mengatur tanggal
Defrag : Defragment hard drive
DEL : Menghapus satu atau lebih file
DELPROF : Hapus  profil pengguna NT
DELTREE : Menghapus folder dan semua subfolder
DevCon : Device Manager Command Line Utility
DIR : Menampilkan daftar file dan folder
DIRUSE : Tampilkan penggunaan disk
DISKCOMP : Bandingkan  isi dua floppy disk
Diskcopy : Salin isi dari satu disket ke yang lain
DISKPART : Disk Administrasi
DNSSTAT : DNS Statistik
DOSKEY : Edit baris perintah, ingat perintah, dan membuat macro
DSADD : Tambah User (komputer, group ..) ke direktori aktif
DSQUERY : Daftar item dalam direktori aktif
DSMOD : Ubah user (computer, group ..) di direktori aktif
DSRM : Hapus item dari Active Directory

e
ECHO : Menampilkan pesan di layar
ENDLOCAL : Akhir localisation  perubahan lingkungan dalam file batch
ERASE : Menghapus satu atau lebih file
EVENTCREATE : Tambahkan pesan ke Windows event log
EXIT : Keluar dari skrip arus / rutin dan menetapkan errorlevel
EXPAND : uncompress file
Ekstrak : uncompress file CAB

f
FC : Bandingkan dua file
FIND : Mencari string teks dalam sebuah file
FINDSTR : Cari  string dalam file
FOR / F : pengulangan perintah terhadap satu set file
FOR / F : pengulangan perintah terhadap hasil perintah lain
FOR : pengulangan perintah terhadap semua options Files, Directory, List
FORFILES : Proses Batch beberapa file
FORMAT : Format disk
FREEDISK : Periksa free disk space/disk yang tersisa (dalam bytes)
FSUTIL : File dan Volume utilitas
FTP : File Transfer Protocol
FTYPE : Tampilkan atau memodifikasi jenis file yang digunakan dalam asosiasi ekstensi file

g
GLOBAL : Display keanggotaan kelompok global
GOTO : Direct a batch program untuk melompat ke baris berlabel
GPUPDATE : Update pengaturan Kebijakan Grup

h
HELP : Online Help

i
ICACLS : Ubah file dan folder permissions
IF : kondisional melakukan perintah
IFMEMBER : Apakah pengguna saat ini dalam sebuah NT Workgroup
IPCONFIG : Configure IP

k
KILL : Remove program dari memori

l
LABEL : Edit disk label
LOCAL : Display keanggotaan kelompok-kelompok lokal
LOGEVENT : Menulis teks ke NT event viewer
Logoff : user log off
LOGTIME : log tanggal dan waktu dalam file

m
MAPISEND : Kirim email dari baris perintah
MBSAcli : Baseline Security Analyzer
MEM : Display penggunaan memori
MD : Buat folder baru
MKLINK : Buat link simbolik (linkd)
MODE : Mengkonfigurasi perangkat sistem
MORE : Display output, satu layar pada satu waktu
MOUNTVOL : mengelola volume mount point
MOVE : Pindahkan file dari satu folder ke yang lain
MOVEUSER : Pindahkan pengguna dari satu domain ke domain lainnya
MSG : mengirim pesan atau message
MSIEXEC : Microsoft Windows Installer
MSINFO : Windows NT diagnostics
MSTSC : Terminal Server Connection (Remote Desktop Protocol)
MUNGE : Cari dan Ganti teks dalam file (s)
MV : Copy in-menggunakan file

n
NET : Kelola sumber daya jaringan
NETDOM : Domain Manager
Netsh : Configure Network Interfaces, Windows Firewall & Remote akses
NETSVC : Command-line Service Controller
NBTSTAT : Tampilkan statistik jaringan (NetBIOS over TCP / IP)
NETSTAT : Display networking statistics (TCP / IP)
NOW : Tampilan  saat ini Tanggal dan Waktu
NSLOOKUP : Nama server lookup
NTBACKUP : Backup  folder ke tape
NTRIGHTS : Edit hak user account

p
PATH : Menampilkan atau menetapkan path pencarian untuk file executable
PATHPING : jejak jalur jaringan ditambah paket latensi dan kerugian
PAUSE : memenjarakan(suspend) pengolahan file batch dan menampilkan pesan
perms : Tampilkan izin untuk pengguna
PERFMON : Kinerja Monitor
PING : Menguji koneksi jaringan
POPD : Mengembalikan nilai sebelumnya dari direktori sekarang yang disimpan oleh PUSHD
PORTQRY : Tampilan status ports dan services
Powercfg : Mengkonfigurasi pengaturan daya
PRINT : Mencetak file teks
PRNCNFG : Display, mengkonfigurasi atau mengubah nama printer
PRNMNGR : Tambah, menghapus, daftar printer menetapkan printer default
PROMPT : Mengubah command prompt
PsExec : Proses Execute jarak jauh
PsFile : menampilkan file dibuka dari jarak jauh (remote)
PsGetSid : Menampilkan SID sebuah komputer atau pengguna
PsInfo : Daftar informasi tentang sistem
PsKill : proses mematikan berdasarkan nama atau ID proses
PsList : Daftar informasi rinci tentang proses-proses
PsLoggedOn : siapa saja yang log on (lokal atau melalui resource sharing)
PsLogList : catatan kejadian log
PsPasswd : Ubah sandi account
PsService : Melihat dan mengatur layanan
PsShutdown : Shutdown atau reboot komputer
PsSuspend : proses Suspend
PUSHD : Simpan dan kemudian mengubah direktori sekarang

q
QGREP : Cari file(s) untuk baris yang cocok dengan pola tertentu

r
RASDIAL : Mengelola koneksi RAS
RASPHONE : Mengelola koneksi RAS
Recover : perbaikan file yang rusak dari disk yang rusak
REG : Registry = Read, Set, Export, Hapus kunci dan nilai-nilai
REGEDIT : Impor atau ekspor  pengaturan registry
Regsvr32 : Register atau unregister sebuah DLL
REGINI : Ubah Registry Permissions
REM : Record comments (komentar) di sebuah file batch
REN : Mengubah nama file atau file
REPLACE : Ganti atau memperbarui satu file dengan yang lain
RD : Hapus folder (s)
RMTSHARE : Share folder atau printer
Robocopy : Copy File dan Folder secara sempurna
RUTE : Memanipulasi tabel routing jaringan
RUNAS : Jalankan program di bawah account pengguna yang berbeda
RUNDLL32 : Jalankan perintah DLL (add / remove print connections)

s
SC : Control Layanan
SCHTASKS : Jadwal perintah untuk dijalankan pada waktu tertentu
SCLIST : Tampilkan Layanan NT
SET : Display, set, atau menghapus variabel environment
SETLOCAL : Pengendalian environment visibilitas variabel
SETX : Set variabel environment secara permanen
SFC : Pemeriksa Berkas Sistem
SHARE :  Daftar atau mengedit file share atau share print
SHIFT : Shift posisi digantikan parameter dalam sebuah file batch
SHORTCUT : jendela Buat shortcut (. LNK file)
SHOWGRPS : Daftar NT Workgroups seorang pengguna telah bergabung
SHOWMBRS : Daftar Pengguna yang menjadi anggota dari sebuah Workgroup
SHUTDOWN : Shutdown komputer
SLEEP : Tunggu untuk x detik
SLMGR : Software Licensing Management (Vista/2008)
SOON : Jadwal perintah untuk menjalankan dalam waktu dekat
SORT : Sort input
START : memulai sebuah program atau perintah dalam jendela terpisah
SU : Switch User
SUBINACL : Edit file dan folder Permissions, Kepemilikan dan Domain
SUBST : Associate jalan dengan huruf drive
Systeminfo : Daftar konfigurasi sistem

t
TASKLIST : Daftar menjalankan aplikasi dan services
TASKKILL : Hapus proses yang berjalan dari memori
TIME : Menampilkan atau mengatur waktu sistem
TIMEOUT : penundaan pemrosesan dari sebuah batch file
TITLE : Mengatur judul window untuk sesi cmd.exe
TLIST : daftar tugas dengan path lengkap
TOUCH : mengganti file timestamps
Tracert : Trace route ke sebuah remote host
TREE : tampilan grafis struktur folder
TYPE : Menampilkan isi dari file teks

u
USRSTAT : Daftar domain nama pengguna dan terakhir login

v
VER : Tampilkan versi informasi
VERIFY : Pastikan bahwa file sudah disimpan
VOL : Menampilkan sebuah label disk

w
WHERE : Menempatkan dan menampilkan file dalam sebuah pohon direktori
wHOAMI : Output UserName saat ini dan manajemen domain
WINDIFF : Bandingkan isi dua file atau set file
WINMSD : Sistem Windows diagnostik
WINMSDP : Sistem Windows diagnostik II
WMIC : Perintah WMI

x
XCACLS : Ubah file dan folder permissions
XCOPY : Menyalin file dan folder

Sumber : http://www.ss64.com

Diposting oleh Nias Pulau Tercinta 09.49 0 komentar

program pemakaian Listrik

desain sebelum_Nya :

listing program =====

Public Class Form1

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

        RancangTabel()

        kode.Items.Add("0001")

        kode.Items.Add("0002")

        kode.Items.Add("0003")

        kode.Items.Add("0004")

    End Sub

    Sub RancangTabel()

        With LV

            .Columns.Add("Kode", 80, HorizontalAlignment.Center)

            .Columns.Add("Nama", 100, HorizontalAlignment.Center)

            .Columns.Add("ALamat", 140, HorizontalAlignment.Center)

            .Columns.Add("Telp", 100, HorizontalAlignment.Center)

            .Columns.Add("Harga KWatt", 100, HorizontalAlignment.Center)

            .Columns.Add("Pemakaaian", 80, HorizontalAlignment.Center)

            .Columns.Add("Total Bayar", 100, HorizontalAlignment.Center)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

    End Sub

    Sub masukTabel()

        Dim polinus As New ListViewItem

        With polinus

            .Text = kode.Text

            .SubItems.Add(nama.Text)

            .SubItems.Add(alamat.Text)

            .SubItems.Add(telp.Text)

            .SubItems.Add(Harga.Text)

            .SubItems.Add(banyak.Text)

            .SubItems.Add(total.Text)

            LV.Items.Add(polinus)

        End With

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "0001" Then

            nama.Text = "Prof. POLINUS LAIA, S.Kom"

            alamat.Text = "Jl. SM. Raja Gang DAME No. 3"

            telp.Text = "0813 9622 9549"

        ElseIf kode.Text = "0002" Then

            nama.Text = "RIker"

            alamat.Text = "Jalan Mawar "

            telp.Text = "56435325423"

        ElseIf kode.Text = "0003" Then

            nama.Text = "Difan"

            alamat.Text = "Jalan Ke Nereka"

            telp.Text = "42342354354"

        Else

            nama.Text = "Dika"

            alamat.Text = "Jl. Ke Surga"

            telp.Text = "534534645"

        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total.Text = Harga.Text * banyak.Text

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        masukTabel()

    End Sub

    Private Sub alamat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat.TextChanged

    End Sub

    Private Sub hapus_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_1.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        LV.Items.Clear()

    End Sub

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

        End

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        kode.Text = ""

        nama.Text = ""

        telp.Text = ""

        alamat.Text = ""

        total.Text = ""

        Harga.Text = ""

        banyak.Text = ""

    End Sub

End Class

hasil jadinya ======

Diposting oleh Nias Pulau Tercinta 06.50 0 komentar

Fungsi Mid, Left, Right

Menggunakan Fungsi Mid, Left, Right

     Postingan kita hari ini, membuat sebuah program sederhana tentang penggunaan fungsi Mid, Left, Right dalam bahasa pemograman Visual basic 2008. Yang perlu anda ingat adalah di dalam leptop atau komputer milik saudara sudah terinstal Program atau perangkat lunak Visual Basic 2008

            Buatlah sebuah form/TUGAS di sebuah lembar kerja baru dan cari sebuah icons atau menu toolbox lalu aktifkan, setelah itu cari tulisan “LEBEL” double click sebanyak 5 kali dan ubah “TEXT” seperti gambar berikut :

Selanjut_Nya aktifkan juga TextBox dengan double click sebnyak 5 kali yang ada dalam Toolbox dan ubah “NAME” sesuaikan dengan nama “LEBEL” untuk pemanggilan dalam Running program nanti, ingat “NAME” yang diubah bukan “Text”. Untuk Lebih jelasnya perhatikan gambar yang telah di buat:

Selanjut_Nya aktifkan juga BUTTON dengan double click sebnyak 1 kali yang ada dalam Toolbox dan ubah “TEXT” Menjadi “Proses”dan begitu juga dengan  “NAME” ubah menjadi “btnproses”. Untuk Lebih jelasnya perhatikan gambar :

Untuk membuat listing program double click Button yang telah di ubah text_nya “Proses” lalu ikutin perintah berikut:

Public Class Tugas_POLINUS

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim p As String

        Dim l As String

        tamasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        p = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)

        If p = "1" Then

            jestudi.Text = "Strata I"

        ElseIf p = "0" Then

            jestudi.Text = "Diploma III"

        ElseIf p = "2" Then

            jestudi.Text = "Diploma I"

        End If

        l = Microsoft.VisualBasic.left(npm.Text, 3, 2)

        If l = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf l = "12" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf l = "10" Then

            jurusan.Text = "Manajemen Informatika"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(npm.Text, 3)

    End Sub

End Class

Setelah perintah diatas di ketik coba anda jalankan dengan menekan F5 lalu isikan NPM dengan : 12110841 dan klick Button “Proses” lihat apa yang terjadi pada program yang di buat, untuk lebih jelas_nya perhatikan gambar berikut :

Sampai disini Postingan kita hari ini. Sampai jumpa kembali di program VB selanjut_Nya
Terima Kasih telah berkunjung” SALAM ANAK NIAS

=YA”AHOWU=

Diposting oleh Nias Pulau Tercinta 22.49 0 komentar