Rabu, 07 November 2012

Borland Delphi 7 .0 Full Version


_"Borlan

Borland Delphi 7 .0 Full Version

Borland Delphi 7, dirilis pada bulan Agustus 2002, menjadi versi standar yang digunakan oleh pengembang Delphi lebih daripada versi tunggal lainnya. Ini adalah salah satu IDE yang paling sukses dibuat oleh Borland karena, kecepatan stabilitas dan persyaratan perangkat keras rendah, dan tetap digunakan aktif sebagai tahun 2011. [7] Delphi 7 menambahkan dukungan untuk Windows XP Tema, dan menambahkan lebih banyak dukungan untuk membangun web aplikasi. Ini adalah versi terakhir dari Delphi yang dapat digunakan tanpa aktivasi perangkat lunak.

Fitur Dan Kelebihan Borland Delphi 7 :
Berbasis Objek Orientid programming, seperti bagian yang ada pada program dipandang sebagai suatu objek yang mempunyai sifat-sifat yang dapat diubah dan diatur , sehingga kita dapat membuat tampilan sebuah program dengan desain kita sendiri tanpa harus membuat codding yang panjang.
Suatu file EXE, setelah anda merancang program pada IDE Delphi akan mengkomplikasinya pada sebuah file executable tunggal. Program yang anda buat dapat langsung didistribusikan dan dijalankan pada komputer lain tanpa perlu menyertakan file lain, kecuali file yang beretensi *.exe atau Applikasi tersebut membutuhkan file lain seperti database, koneksi atau file pendukung lainnya, ini merupakan kelebihan yang sangat berarti.
Borland delphi 7.0 hadir bersama borland Kylix 3 yang berbasis Linux, bila ingin berganti flattform dari Windows ke Linux maka aplikasi yang dibuat di Delphi dapat dijalankan di Kylix 3 yang dikarenakan kedua produk tersebut merupakan produk Borland.


Download  Part1Part2 Part3

Selasa, 06 November 2012

Program Aplikasi Kasir Excel

Program Aplikasi Kasir Excel


Penjualan barang pada perusahaan jual beli barang memang sudah saatnya menggunakan teknologi komputer untuk membantu pekerjaan secara maksimal agar pekerjaan lebih cepat dan mengurangi tingkat kesalahan. Pada kesempatan kali ini ilmuexcel akan berbagi sebuah software aplikasi kasir secara gratis menggunakan Ms. Excel dilengkapi dengan macro VBA.

Aplikasi kasir gratis seperti apa yang akan dibuat? Baiklah saya akan uraikan step by step bagaimana cara membuat aplikasi kasir menggunakan macro VBA. ikuti langkahnya dibawah ini



  • Masuk Ms. Excel dan buat 3 buah sheet dengan masing masing nama sheet "Utama, Main, Stock, dan Laba". Untuk sheet utama jangan diisi data apapun namun beri warna background agar lebih menarik.


  • Pada sheet Main, buat tabel transaksi seperti terlihat pada gambar berikut

          


  • Pada cells F7 ketika

n =IF(C7="","",VLOOKUP(C7,stock!$B$4:$C$23,2,FALSE)) pada cell G7 ketikan =IF(D7="","",VLOOKUP(C7,stock!$B$4:$F$24,3,FALSE)) pada cells H7 ketikkan =IF(E7="","",VLOOKUP(C7,stock!$B$4:$E$23,4,FALSE)) pada cells I7 ketikkan =IF(D7="","",G7*D7+H7*E7) pada cells J7 ketikan =IF( E7="","",IF(K7-D7-E7*L7<0 ada="ada" cell="cell" cells="cells" dan="dan" i20="i20" i22="i22" ketikkan="IF(I20=" kurang="kurang" p="p" pada="pada" stock="stock">

  • Pada sheets Stock buat database barang seperti berikut
  • Pada sheet Laba buat tabel seperti pada gambar berikut

  • Setelah tabel laba terbuat ketikan rumus di cell C3 berikut =IF(main!C7="","",VLOOKUP(main!C7,stock!$B$4:$H$23,7,FALSE)) dan di cells D3 ketikan =IF(main!I7="","",(main!I7-((main!D7)+(main!E7*main!L7))*C3))



  • Agar program aplikasi kasir lebih menarik Anda harus sedikit membuat macro VBA untuk membuat tombol pada sheet Main. Buat tombol Barang, Laba, dan Hapus Data dan buat macro copykan script berikut : Sub DeleteStuff()

Dim c As Range
For Each c In Range("C7:E19")
If Not IsNumeric(c) Then c.ClearContents
Next c
End Sub

Sub barang()
Sheets("stock").Select
End Sub
Sub laba()
Sheets("laba").Select
End Sub
Sub Auto_Open()
UserForm1.Show
End Sub

  • langkah berikutnya Anda harus membuat menu agar ketika membuka file aplikasi kasir ini tampilan pertama yang muncul adalah menu utama dengan cara klik menu developer kemudian view code dan buat form seperti biasa, tampilannya kira-kira seperti berikut



  • Buat script VBA seperti berikut Private Sub CommandButton1_Click()

Sheets("main").Select
Range("A1").Select
End Sub

Private Sub CommandButton2_Click()
Sheets("stock").Select
Range("A1").Select
End Sub

Private Sub CommandButton3_Click()
Sheets("laba").Select
Range("A1").Select
End Sub

Private Sub CommandButton4_Click()
Me.Hide
End Sub


  • Langkah terkhir coba Anda isikan data penjualan transaksi kira-kira seperti berikut,


Demikian tutorial bagaimana cara membuat program aplikasi kasir dengan excel. Semoga bermanfaat...