Install Programming Delphi di Ubuntu / Linux Mint

Ubuntu merupakan salah satu Sistem Operasi berbasis open source dengan dukungan repository paling lengkap sepanjang sejarah Open Source, dari Game hingga programming tersedia di Linux walaupun kadang memang tidak selengkap program-program berbayar yang berjalan di Windows, namun kekurangan tersebut bisa dilengkapi dengan berbagai macam cara jika kita kreatif dan bersedia mencari tahu. saya penggemar programming RAD di Windows, salah satu program yang menjadi favorit saya adalah Borland Delphi versi 7.0. ketika saya migrasi di Linux saya sempat bingung untuk mencari alat untuk programming hingga akhirnya saya menemukan sebuah program yang sangat mirip bahkan bisa dibilang sama dengan delphi, program tersebut adalah Lazarus. ya...lazarus memiliki interface yang tidak jauh berbeda dari delphi, tampilan tidak begitu penting untuk programming namun yang perlu di lihat adalah code yang digunakan pun sama tidak ada perbedaan. hmm,,jika kamu penggemar delphi dan baru saja bermigrasi ke linux silahkan mencoba Lazarus. jika tertarik dengan lazarus lebih jauh silahkan langsung saja klik link ini untuk mempelajari lebih jauh. cara installnya sangat mudah, terutama jika Anda terkoneksi dengan internet, cukup jalankan saja perintah berikut:

• sudo apt-get install lazarus

tunggu hingga selesai. Anda akan menunggu lumayan lama karena banyak paket yang akan didownload kira-kira total besar paket yang didownload sebesar 304 MB.

Berikut Screenshoot lazarus:

Semoga bermanfaat dan selamat mencoba

Cara Menginstall Borland Delphi 7

Selamat malam Sobat sarang kali ini ane kan shareng tentan cara instal Delphi bagi agan" yang sudah tau mohon maap dan bagi agan" yang belum tau semoga bisa membatu oke langsung saja simak baik" ya sob...
Langkah-Langkah Menginstal Borland Delphi 7 di Windows 7

 

Windows 7 akan memberikan Konfirmasi Proteksi pada program ini, tak perlu ditakutkan tetap jalankan Pilih  -> Run Program

Pilih Link Install Delphi 7

Tinggal Pilih -> Next

Masukkan Serial Number Delphi 7 yg terletak di dalam folder crack

Pilih Option Agreement -> I Agree the Terms in the license Agrement

Pilih -> Next

Pilih Option Type Yang Typical

Check List Option VisiBroker Kemudian Pilih -> Next

Pilihan Office Kita gunakan Office XP

Hilangkan Check list Instalasi InterBase Client

Pilih Folder Instalasi Program / Biarkan Secara Default

Check List Kotak recomended save instalasi to hard drive

Pilih -> Install

Saat Proses Instalasi Selesai biasanya akan muncul Recomended Install VisiBroker 4.5, Berikut :

Kalau mau installasi tinggal pilih ok saja dan lanjut saja di setiap pemberitahuan nanti. Jika Proses Instalasi selesai maka muncul Tampilan Berikut :

Klick Finish 

Sebelum Menjalankan Program ini ada beberapa Settingan yang perlu diperhatikan agar kinerja Delphi tidak terganggu dengan super proteksi dari Windows 7 :

1. Pastikan Kita MenJalankan langkah berikut dengan user Administrator ya.

2. Buka Properties Direktory Borland Di ‘C:/Program File/Borland‘ klik kanan properties.

3. Pada Tab Awalnya Hilangkan Checklist Read Only Pada baris Attribute kemudian Pilih Apply Untuk Menjalankan Perintahnya.

4. Buka Tab Security -> Tab Ketiga berada di atas Form properties. Kemudian berikan hak akses penuh di Administrator -> Pilih Edit -> Allow Full Controll. begitu Juga dengan Users(User-PC). Kemudian Ok . . .

Borland Delphi Studio 7 Enterprise + Serial Number

Selamat Sore sobat sarang pada sore hari ini saya akan memberikan sebuah software Pemprograman gratis untuk kalian semua. software Bernama Borland Delphi Studio 7 Enterprise.

bahasa Delphi ini merupakan Bahasa Tingkat Tinggi dan sama dengan bahasa pemprograman Visual Basic, Delphi sebenarnya dulu berasal dari bahasa Pascal yang merupakan bahasa Tingkat Tinggi yang mudah dipelajari dan mudah digunakan (Katanya)

sebenarnya apa sih Bahasa Pemprograman Delphi itu? Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan pengembangan perangkat lunak. Produk ini dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat lunak milik Embarcadero, divisi tersebut sebelumnya adalah milik Borland. Bahasa Delphi, atau dikenal pula sebagai object pascal (pascal dengan ekstensi pemrograman berorientasi objek (PBO/OOP)) pada mulanya ditujukan hanya untuk Microsoft Windows, namun saat ini telah mampu digunakan untuk mengembangkan aplikasi untuk Linux dan Microsoft .NET framework (lihat di bawah). Dengan menggunakan Free Pascal yang merupakan proyek opensource, bahasa ini dapat pula digunakan untuk membuat program yang berjalan di sistem operasi Mac OS X dan Windows CE

Pada tanggal 8 Februari 2006, Borland mengumumkan akan melepas seluruh jajaran produk pengembangan aplikasi komputernya termasuk di antaranya Delphi. [1]. Saat ini Delphi menjadi bagian dari jajaran IDE milik Embarcadero Technologies setelah Embarcadero Technologies mengakuisisi CodeGear, anak perusahaan Borland yang menangani tool pengembangan aplikasi.

SREENSHOOT :

Software ini sudah saya coba di windows Xp dan Berhasil
Semoga bermanfaat dan selamat mencoba..
cayoooooo...

DOwnload :

Putlocker Part 1

Putlocker Part 2

Putlocker Part 3

Putlocker Part 4

Putlocker Part 5

Serial + Cara Install

PENGUNJUNG YANG BAEK SELALU MENINGALKAN KOMENTAR DAN FOLLOW,JOIN DI BLOG

cara Latihan membuat program sederhana menggunakan listbox

Pada kesempatan kali ini Sm tutorian akan membahas tentang cara Latihan membuat program sederhana menggunakan listbox.
sebalum nya buat dlu sebuah Form baru dengan tampilan seperti di bawah ini
1.buat tamplikan seperti gambar dibawah ini
2.Sebelum memasukan kode program ganti dulu file name combo1 (cmbmenu), combo2 (cmbpaket) List1 (menu) text1 (harga) option1 (delivery) option2 (ditempat)
text2 (hrgfasilitas) checkbox1 (teh) chextbox2 (air) text3 (hrgminuman) text4 (jumlah) text5 (total) text6 (bayar)
text7 (kembalian)
3. dobel klik pada Form1. Masukan kode rumusan dibawah ini

Private Sub Form_Load()
cmbmenu = ""
cmbpaket = ""
menu.Clear
harga = ""
delivery = False
ditempat = False
hrgfasilitas = ""
teh = False
air = False
hrgminuman = ""
jumlah = ""
total = ""
bayar = ""
kembali = ""
cmbmenu.AddItem ("Sarapan Pagi")
cmbmenu.AddItem ("Makan Siang")
cmbpaket.AddItem ("Paket 1")
cmbpaket.AddItem ("Paket 2")
End Sub

3.trus klik dobel pada Command1 dan masukan kode di bawah ini

Private Sub Command1_Click()
cmbmenu = ""
cmbpaket = ""
menu.Clear
harga = ""
delivery = False
ditempat = False
hrgfasilitas = ""
teh = False
air = False
hrgminuman = ""
jumlah = ""
total = ""
bayar = ""
kembali = ""
End Sub

4.Trus Klik dobel pada Combo2 (cdmpaket) dan masukan kode dibawah ini
Private Sub cmbpaket_Click()
If cmbmenu = "Sarapan Pagi" Then
If cmbpaket = "Paket 1" Then
menu.Clear
menu.AddItem ("Nasi Uduk")
menu.AddItem ("Telur")
menu.AddItem ("Telur Orek")
harga = 5000
Else
If cmbpaket = "Paket 2" Then
menu.Clear
menu.AddItem ("Nasi Goreng")
menu.AddItem ("Telur Mata Sapi")
menu.AddItem ("Telur Goreng")
harga = 7000
End If
End If
Else
If cmbmenu = "Makan Siang" Then
If cmbpaket = "Paket 1" Then
menu.Clear
menu.AddItem ("Nasi Putih")
menu.AddItem ("Ayam Bakar")
menu.AddItem ("Lalapan")
harga = 8000
Else
If cmbpaket = "Paket 2" Then
menu.Clear
menu.AddItem ("Nasi Putih")
menu.AddItem ("Rendang")
menu.AddItem ("Sambel")
harga = 10000
End If
End If
End If
End If
End Sub

5.Selanjutnya klik dobel pada option1 (delivery) masukan kode dibawah ini
Private Sub delivery_Click()
hrgfasilitas = 5000
End Sub

6.Selanjutnya klik dobel pada option2 (Ditempat) masukan kode dibawah ini
Private Sub ditempat_Click()
hrgfasilitas = 0
End Sub

7. Selanjutnya klik dobel pada checkbox1 (teh) masukan kode dibawah ini
Private Sub teh_Click()
If teh = 1 And air = 0 Then
hrgminuman = 1500
Else
If teh = 0 And air = 1 Then
hrgminuman = 500
Else
If teh = 1 And air = 1 Then
hrgminuman = 2000
Else
hrgminuman = 0
End If
End If
End If

8. Selanjutnya klik dobel pada checkbox1 (teh) masukan kode dibawah ini
Private Sub air_Click()
If teh = 1 And air = 0 Then
hrgminuman = 1500
Else
If teh = 0 And air = 1 Then
hrgminuman = 500
Else
If teh = 1 And air = 1 Then
hrgminuman = 2000
Else
hrgminuman = 0
End If
End If
End If

9. klik dobel pade text4(jumlah) dan ganti Chenge dengan keyPress dan masukan kode dibawah ini
Private Sub jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
total = (Val(harga) + Val(hrgminuman)) * Val(jumlah) + Val(hrgfasilitas)

10. Selanjutnya klik dobel pada text6(bayar) dan masukan kode dibawah ini
kembalian = Val(bayar) - Val(total)

11 Selesai dech dan jalan kan jangan lupa masukan jumlah beli trus Enter dech
maka akan muncul Total Bayar dan anda masukan juga Uang Bayar Maka Akan muncul otomatis Unga kembali
Contoh Gambar seperti dibawah ini.. :)

selamat mencoba dan semoga tutorial ini bermanfaat bagi anda semua
salam Smmania dan kembangkan trus, jangan lupa belajar ya..

Perintah Perintah SQL

*****Perintah SQL (DDL)****


=> Membuat table:
  Create table Mahasiswa(
Nim Text(8)not null primary key,
Nama text(30)not null,
Tgl_lahir date,
Alamat text(40));

=> Mengedit Table
Alter table mahasiswa
Add jkel text(10)

=> Mengedit Table dengan mengubah field
Alter table mahasiswa
Alter column NIM Number

=> Menghapus Table
Drop table mahasiswa


******Printah SQL (DML)*******

=> Menginput Data Table
Insert into
mahasiswa(nim,nama,tgl_lahir,alamat)values("20111234","Juleha","01/01/1990","Jl.Merpati No.3 Yogyakarta")

=> Menyalin table dan datanya
Select*into mahasiswa2 from mahasiswa

=> Mengedit data table
Update mahasiswa set alamat="Jl.Merdeka No.45 Jakarta"where nim="20111234"

=> Mengahpus data table
Delete from mahasiswa where nim="20111234"

Cara Menbuat Program Sederhan Dengan Vb.Net

Contoh cara membuat aplikasi kasir sebuah villa 

1. anda buka form seperti contoh dibawah ini...

2. Klik pada form yang telah anda buat seperti diatas tadi contoh kode source seperti ini.
Private Sub Form_Load()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Combo1.AddItem ("VIP")
Combo1.AddItem ("Kelas Menengah")
Combo1.AddItem ("Kelas Umum")

3. Untuk Menbuat tangal dan jam klik pada timer dan untuk sourenya bisa seperti ini
Private Sub Timer1_Timer()
Label12.Caption = Format(Date, "dd/mmmm/yyyy")
Label13.Caption = Time
End Sub
4.Untuk Membuat Tampilan Tipe-kamar, Fasilitas,Sewa harga kode sourcenya seperti ini Private Sub Combo1_Click()
If Combo1 = "VIP" Then
Text1 = "Kasur Empuk"
Text2 = "Kamar Mandi"
Text3 = "WC Duduk + Sower"
Text4 = "TV LCD 3D 42"
Text5 = "AC Panas + Dingin"
Text6 = 1000000
Else
If Combo1 = "Kelas Menengah" Then
Text1 = "Kasur Empuk"
Text2 = "Kamar Mandi"
Text3 = "WC Duduk + Sower"
Text4 = "TV LCD 21"
Text5 = "AC Biasa"
Text6 = 500000
Else
If Combo1 = "Kelas Umum" Then
Text1 = "Kasur Bisa"
Text2 = "Kamar Mandi"
Text3 = "WC Jongkok"
Text4 = "TV Tabung 21"
Text5 = "Kipas Bisa"
Text6 = 100000
End If
End If
End If
End Sub
5. Untuk Kode sourcenya fasilitas tambahan seperti ini Private Sub Option1_Click()
Text7 = 100000
End Sub
Private Sub Option2_Click()
Text7 = 110000
End Sub
Private Sub Option3_Click()
Text7 = 150000
End Sub
Private Sub Text7_Change()
End Sub
6. Untuk Kode Source Paket Makanan seperti ini Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 And Check3 = 1 Then
Text8 = 210000
Else
If Check1 = 1 And Check2 = 1 And Check3 = 0 Then
Text8 = 120000
Else
If Check1 = 1 And Check2 = 0 And Check3 = 1 Then
Text8 = 140000
Else
If Check1 = 1 And Check2 = 0 And Check3 = 0 Then
Text8 = 50000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
Private Sub Check2_Click()
If Check2 = 1 And Check1 = 1 And Check3 = 1 Then
Text8 = 210000
Else
If Check2 = 1 And Check1 = 1 And Check3 = 0 Then
Text8 = 120000
Else
If Check2 = 1 And Check1 = 0 And Check3 = 1 Then
Text8 = 160000
Else
If Check2 = 1 And Check1 = 0 And Check3 = 0 Then
Text8 = 70000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
Private Sub Check3_Click()
If Check3 = 1 And Check2 = 1 And Check1 = 1 Then
Text8 = 210000
Else
If Check3 = 1 And Check2 = 1 And Check1 = 0 Then
Text8 = 160000
Else
If Check3 = 1 And Check2 = 0 And Check1 = 1 Then
Text8 = 140000
Else
If Check3 = 1 And Check2 = 0 And Check1 = 0 Then
Text8 = 90000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
7. Untuk Sourcenya Hitung seperti ini
Private Sub Command1_Click()
Text10 = Val(Text6) * (Text9) + (Text7) + (Text8)
Text12 = Val(Text11) - (Text10)
End Sub
8. Untuk Source Keluar seperti ini
Private Sub Command3_Click()
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar??", vbYesNo + vbExclamation, "Konfirmasi")
If pesan = vbYes Then
End If
Unload Me
End Sub
9. Untuk Source Bersih Seperti ini
Private Sub Command2_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Option1 = False
Option2 = False
Option3 = False
Check1 = 0
Check2 = 0
Check3 = 0
Text1.SetFocus
End Sub
10 Jalan kan Progaram bila tidak ada kesalahan akan ada laporan.. selamat mencoba sukses