Rendy Eko Prasetio: April 2013

Saturday, April 27, 2013

Source Code Deret Angka Descending Menggunakan Visual Foxpro

Selamat malam temen-temen.. apa kabarnya nih?? hmm.. setelah kemarin ane share Source Code Menentukan Bilangan Ganjil dan Genap di Visual Foxpro. kali ini ane ingin share tentang Source Code Deret Angka Descending.

Sinopsis dari aplikasi ini (seperti trailer film aje nih) jika nilai awal diberi angka 1 dan nilai akhir diberi angka 10, lalu kita klik tombol proses maka tampilan di listbox adalah 10, 9, 8, 7, 6, 5, 4, 3, 2, 1.

bagi temen-temen yang ingin lihat screenshootnya, nih uda ane sertain.

Nah, uda lihatkan SSnya.. bagi yang ingin mengotak-atik sourcenya bisa langsung download di bawah ini..

Download :

Source Code Deret Angka Descending

Rendy Eko Prasetio Pada 5:41 AM Komentar

Thursday, April 18, 2013

Source Code Menentukan Bilangan Ganjil dan Genap dengan Visual Foxpro

Visual Foxpro

Selamat pagi teman - teman... pagi ini ane akan meng-share sebuah source code lagi, kali ini ane akan membuat aplikasi di Microsoft Visual Foxpro dengan nama aplikasinya "Menentukan Bilangan Genap dan Ganjil" jika temen - temen pada berminat, langsung saja ya kita praktekkan.
Buatlah sebuah form di Foxpro lalu rancang sebagai berikut :

Tampilan Form

Setelah temen - temen merancang, lalu masukkan listing programnya di bawah ini :

Object : cmdproses     Procedure : Click
genap=""
ganjil=""
FOR a=1 TO LEN(Thisform.txtbil.value)
    IF MOD(VAL(SUBSTR(thisform.txtbil.Value,a,1)),2)=0 then
        ganjil= ganjil + SUBSTR(thisform.txtbil.Value,a,1)
    ELSE
        genap = genap + SUBSTR(thisform.txtbil.Value,a,1)
    ENDIF
NEXT a

thisform.txtganjil.Value = ganjil
thisform.txtgenap.Value = genap

Object : cmdkeluar     Procedure : Click
thisform.Release

nah, jika temen - temen sudah memasukkan listing program diatas maka tinggal di jalankan saja.
jika temen - temen ingin project jadinya, nih sudah ane sertain :

Download :

Source Code Bilangan Ganjil dan Genap

Rendy Eko Prasetio Pada 6:44 PM Komentar

Source Code Boarding Pesawat Sederhana Menggunakan VB 6.0

Visual Basic

Selamat sore temen - temen, kali ini ane ingin berbagi ilmu kepada temen - temen tentang membuat aplikasi sederhana boarding pesawat. nih aplikasi adalah tugas dari dosen ane dengan matakuliah OOP, jadi buat temen - temen yang udah gak sabaran, langsung aja kie tekape... rancanglah sebuah form pada visual basic seperti pada tampilan dibawah ini


Tampilan Form

setelah merancang form, isi pada jendela code. tulis sintaks di bawah ini :

Private Sub keluar_Click()
End
End Sub

Private Sub kodepenerbangan_click()
If kodepenerbangan = "GIA" Then
pesawat = "GARUDA"
ElseIf kodepenerbangan = "MDA" Then
pesawat = "MANDALA"
ElseIf kodepenerbangan = "MNA" Then
pesawat = "MERPATI"
ElseIf kodepenerbangan = "BTV" Then
pesawat = "BATAVIA"
End If
End Sub

Private Sub form_load()
kodepenerbangan.AddItem "GIA"
kodepenerbangan.AddItem "MDA"
kodepenerbangan.AddItem "MNA"
kodepenerbangan.AddItem "BTV"
kodetujuan.AddItem "JKT"
kodetujuan.AddItem "PDG"
kodetujuan.AddItem "MDN"
kodetujuan.AddItem "SNY"
End Sub

Private Sub kodetujuan_click()
If kodetujuan = "JKT" Then
tujuan = "JAKARTA"
ElseIf kodetujuan = "PDG" Then
tujuan = "PADANG"
ElseIf kodetujuan = "MDN" Then
tujuan = "MEDAN"
ElseIf kodetujuan = "SNY" Then
tujuan = "SURABAYA"
End If
End Sub

Private Sub opt1_Click()
If opt1 = True Then
jamberangkat = "08.00 WIB"
End If
End Sub

Private Sub opt2_Click()
If opt2 = True Then
jamberangkat = "09.30 WIB"
End If
End Sub

Private Sub opt3_Click()
If opt3 = True Then
jamberangkat = "10.10 WIB"
End If
End Sub

Private Sub opt4_Click()
If opt4 = True Then
jamberangkat = "12.00 WIB"
End If
End Sub

jika sudah, cob dijalankan dan bagi yang mau file jadinya nih sudah ane sertain..

Download

Aplikasi Pesawat

Rendy Eko Prasetio Pada 3:45 AM Komentar

Sunday, April 14, 2013

Nitro PDF Pro Enterprise 8.5.1.10 Full

Software

Selamat pagi temen - temen.. kali ini ane ingin membagi suatu software yang berguna bagi kita yaitu Nitro PDF.
apa itu Nitro PDF? aplikasi ini berguna untuk membuka file yang berformat .pdf, selain itu di aplikasi ini uda tersedia file converter, seperti word, powerpoint, excel, image, dll.

nih penampakan dari leppy ane :

How to Install :

Install Nitro PDF seperti biasa.
Buka Nitro, Masukkan License.
Enjoy

Jadi tunggu apa lagi, silakan sedott gan..

Download :

Rendy Eko Prasetio Pada 7:38 PM Komentar

Saturday, April 13, 2013

Jual Jaket Levis keren

Jaket

SELAMAT DATANG DI BLOG ANE GAN.

KALI INI ANE INGIN MENJUAL JAKET LEVIS UNTUNG-UNTUNG BISA NAMBAH UANG JAJAN HEHEHE, DIJAMIN PUAS DEH..
HARGA KANTONG MAHASISWA KUALITAS BINTANG 5

PENAMPAKAN JAKET LEVIS :

LEVIS BIRU MUDA

LEVIS BIRU GARMENT

LEVIS BIRU TUA

LEVIS HITAM PEKAT

HARGA JAKET :

M, L, XL : Rp. 140.000,-

UKURAN JAKET :

M = 61 x 47 x 60 cm

L = 62 x 50 x 61 cm

XL = 63 x 52 x 64 cm

(tinggi x lebar x panjang tangan)

CARA PEMESANAN :

Cara pemesanan dapat dilakukan dengan SMS / We Chat dengan format :

- Nama Lengkap :

- Alamat Lengkap :

- Pesanan (size & warna) :

- Jumlah Pesanan :

KIRIM KE :

085765651990

We Chat id :

rendy_123

SETELAH ITU SAYA AKAN KONFIRMASI TOTAL BIAYA TERMASUK ONGKIR.

CARA PEMBAYARAN :

109-00-7132627-6

a.n Rendy Eko Prasetio

JASA PENGIRIM :

Rendy Eko Prasetio Pada 10:33 PM Komentar

Source Code Kalkulator Sederhana Menggunakan VB 6.0

Visual Basic

Setelah kemarin ane posting Membuat Kalkulator Sederhana Menggunakan Visual Foxpro, kali ini ane share source code yang menggunakan pemrograman Visual Basic 6.0 Visual Basic 6.0 disebut juga sebagai OOP (Object Oriented Programming). atau disebut juga Pemtograman Berorientasi Objek, kenapa disebut begitu?? mungkin membuatnya udah tinggal klik - klik objek lalu tinggal masukin aja codingnya heheheh..

untuk tidak memperpanjang waktu nih ane kasih tampilan kalkulatornya dari leppy ane :