Iqbal's Blog ( Coretan Ku Sebatas Catatan Ku )

Form Login Visual Basic Berdatabase

noreply@blogger.com (Iqbal-poenya-blog) — Thu, 05 Jan 2012 00:44:00 +0000

Membuat Form Login dengan tampilan sesuai anda

Baca selengkapnya »

Membuat Tampilan Form Visual Basic Menjadi Transparant

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 10 Dec 2011 09:21:00 +0000

Buat Sebuah Form , standart EXE jja ....

teruz masukin coding ni nih

Baca selengkapnya »

OCX tambahan Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 10 Dec 2011 09:19:00 +0000

Ni Tambahan OCX visual basic 6.0

download di sini : Klik Disini

Membuat Form Login Delphi dengan Database

noreply@blogger.com (Iqbal-poenya-blog) — Tue, 06 Dec 2011 13:19:00 +0000

Step 1

Buat Database di Access dulu , pke yang 2003 gpp , yg formatnya *.mdb

Buat Juga Tablenya n isi datanya ni contohnya ky di bawah.

Step 2

Buat Form Login Sederhana aja dulu
Kaya gini nih ...

Teruz properties namenya di ganti ,
Euser --> buat username
Epass --> buat password

Ya itu mah biar gampang ajja , disave dulu tu form ....

Baca selengkapnya »

Membuat Form Buku Alamat Sederhana di Web Bagian 3

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 17:15:00 +0000

Mendesain Menu Utama, File Master, dan File Transaksi(edit data)

Tampilan Sederhana Web :

ni script - scriptnya

Untuk File index.php scriptnya :

Baca selengkapnya »

Membuat Form Buku Alamat Sederhana di Web Bagian 2

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 14:12:00 +0000

Pembuatan Database dan File - File

setelah terinstal localhost , buka browser dan ketik http://localhost dan pilih phpmyadmin

Kemudian Buat database baru

Baca selengkapnya »

Membuat Form Buku Alamat Sederhana di Web Bagian 1

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 11:04:00 +0000

Perkenalan Software yang di butuhkan

Membuat Web Sederhana untuk mengetahui bagaimana menggabungkan antara HTML , PHP , dan MySql , dan di baca di localhost , merupakan dasar dari pembuatan web dinamis.

Sebelumnya Software yang mungkin sedikit di butuhkan yaitu :

WampServer / Xampp / appServer
Komodo Edit
Dreamweaver

WampServer bisa di download langsung dari webnya : Klik Disini

Xampp bisa di download langsung dari webnya : Klik Disini

AppServer bisa di download langsung dari webnya : Klik Disini

Komodo Edit Bisa di Download di : Klik Disini

Baca selengkapnya »

Latihan 5 - Hitung Tanggal Akhir - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 10:38:00 +0000

Desain Seperti ini :

dan masukan script di bawah ini :

Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then
MsgBox "harap isikan type interval", , "Konfirmasi"
Combo1.SetFocus
Else
If Combo1.ListIndex = 0 Then
interval = "yyyy"
ElseIf Combo1.ListIndex = 1 Then
interval = "m"
ElseIf Combo1.ListIndex = 2 Then
interval = "d"
End If
Text3.Text = DateAdd(interval, Val(Text2.Text), CDate(Text1.Text))
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem "Tahun"
Combo1.AddItem "Bulan"
Combo1.AddItem "Hari"
End Sub

Latihan 5 - Hitung Interval Tanggal - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 10:36:00 +0000

Desain seperti ini :

Masukan Scriptnya di bawah ini :

Private Sub Command1_Click()
Text3.Text = DateDiff("d", CDate(Text1.Text), CDate(Text2.Text))
End Sub

Latihan 5 - Fungsi String - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 10:27:00 +0000

Buat Desainnya seperti ini :

dan ni scriptnya ::

' klo lower berarti untuk comand yang menjadi kecil

' klo upper berarti untuk comand yang menjadi besar

' klo proper berarti untuk comand yang awalnya aja menjadi besar

Private Sub Command1_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbUpperCase)
End Sub

Private Sub Command2_Click()
Text2.Text = ""
Text2.Text = StrConv(Text1.Text, vbLowerCase)
End Sub
Baca selengkapnya »

Latihan 4 - Looping (For to || Do While || Do Until ) - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 08:46:00 +0000

Buat Desain Seperti Ini

Dan Ini Scriptnya ::

'Buat Frame1 , List1 , dan commandnya Urut dari 1-6 ke bawah

'Teruz copy frame , n pilih no teruz , Frame 3 pun tinggal paste jja n no lagi ....

' ni scriptnya ,, moga jja ga ribet ...

Dim bilangan As Integer
Private Sub Command1_Click()
List1.Clear
For bilangan = 1 To 20
List1.AddItem bilangan
Next bilangan
End Sub

Private Sub Command10_Click()
List2.Clear
bilangan = 2
Do While bilangan <= 40
List2.AddItem bilangan
bilangan = bilangan + 2
Loop
End Sub

Baca selengkapnya »

Latihan 3 - Pertambahan Waktu - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 07:32:00 +0000

Buat Desain Seperti ini :

dan masukan script ini sesuai dengan procedurenya masing2 :

Private Sub Command1_Click()

If Command1.Caption = "Mulai" Then

Timer1.Enabled = True

Command2.Enabled = False

Command1.Caption = "Selesai"

ElseIf Command1.Caption = "Selesai" Then

Timer1.Enabled = False

Command2.Enabled = True

End If

End Sub

Baca selengkapnya »

Latihan 3 - Rumah Makan Serba Ayam - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 07:28:00 +0000

Buat Desain Seperti ini :

dan masukan script dibawah ini sesuai procedurenya :

'text1 --> Total Tagihan

'text2-text5 (berurut ke bawah) --> Harga Perporsi - Total Biaya Minuman

'option1-option3 --> Ayam Bakar - Ayam Panggang

'check1 -> Es Kelapa , check2-> Es Buah

Private Sub Check1_Click()
If Check1.Value = 1 And Check2.Value = 1 Then
Text5.Text = "12500"
ElseIf Check1.Value = 0 And Check2.Value = 0 Then
Text5.Text = "0"
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Text5.Text = "7500"
ElseIf Check1.Value = 1 And Check2.Value = 0 Then
Text5.Text = "5000"
End If
End Sub

Baca selengkapnya »

Latihan 3 - Menghitung Rata Rata Nilai - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 07:22:00 +0000

Buat Desain Seperti ini :

masukan script di bawah ini sesuai dengan procedurenya :

Dim rata As Double

Dim hasil As String

Private Sub Command1_Click()

If Command1.Caption = "Baru" Then

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text1.SetFocus

Command1.Caption = "Proses"

ElseIf Command1.Caption = "Proses" Then

Baca selengkapnya »

Latihan 3 - Program Hotel - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sun, 04 Dec 2011 01:15:00 +0000

Desain seperti di bawah ini :

Kemudian masukan script di bawah ni sesuai dengan procedurenya masing masing :

'Text1 -- > Nama Penyewa
'Combo1 --> Kode Kamar
'Text2 --> Jenis Kamar
'Option1-->Superior
'Option2 --> Deluxe
'Option3 --> Suite
'check1 --> internet
'check2 --> TV cable
'Text3 --> Biaya Sewa
'Text4 --> Fasilitas Tambahan
'Text5 --> Total Sewa
'Text6 --> Bayar
'Text7 --> Kembali

Baca selengkapnya »

Latihan 3 - Selisih Jam - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 12:47:00 +0000

Desain form seperti di bawah ini :

Kemudian script di bawah ini sesuai dengan procedurenya :

'di command Mulai/selesai
Private Sub Command1_Click()
If Command1.Caption = "Mulai" Then
Label4.Caption = Format(Time(), "hh:mm:ss")
Command1.Caption = "Selesai"
Command2.Enabled = False
ElseIf Command1.Caption = "Selesai" Then
Label5.Caption = Format(Time(), "hh:mm:ss")
Command1.Caption = "Mulai"
Label6.Caption = Format((CDate(Label5.Caption) - CDate(Label4.Caption)), "hh:mm:ss")
Command1.Enabled = False
Command2.Enabled = True
End If
End Sub

Baca selengkapnya »

Latihan 3 - Ganti warna form dengan comboBox - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 11:09:00 +0000

Desain form seperti ini :

dan masukan script di bawah ini sesuai tempatnya :

Dim warna As String
Dim pesan As String

Baca selengkapnya »

Latihan 3 - Menampilkan Jam dan Tanggal - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 10:18:00 +0000

buat desain seperti di bawah ini :

Dan beri timer 1 dengan interval 1000 .
dan masukan script di bawah ini :

'untuk checkbox yang bercaption tampikan tanggal
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Visible = True
Label1.Caption = FormatDateTime(Date, vbLongDate)
Else
Label1.Visible = False
Label1.Caption = ""
End If
End Sub
'untuk checkbox yang bercaption stop jam
Private Sub Check2_Click()
If Check2.Value = 1 Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

'untuk di timer
Private Sub Timer1_Timer()
Form1.Caption = "Sekarang Jam : " & FormatDateTime(Time(), vbLongTime)
End Sub

Latihan 2 - Ganti Warna Form - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 09:13:00 +0000

Buat desain tampilan seperti ni :

Kemudian masukan script di bawah ini sesuai dengan warnanya :

Dim warna As String
Dim pesan As String

Private Sub Command1_Click()
warna = "Default"
pesan = MsgBox("Apakah anda ingin mengganti warna default " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = &H8000000F
Else
Cancel = True
End If
End Sub

Baca selengkapnya »

Latihan 2 - Form Nilai - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 08:04:00 +0000

Buat desain seperti ini :

klik 2x di form dan masukan script ini :

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Combo1.Enabled = False

Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Komputer Akutansi"
Combo1.AddItem "Desain Grafis"
End Sub

Baca selengkapnya »

Latihan 1- InputBox dan MessageBox - Visual Basic

noreply@blogger.com (Iqbal-poenya-blog) — Sat, 03 Dec 2011 07:07:00 +0000

Buatlah tampilan form seperti ini :

dan klik 2x mulai hitung dan masukan script di bawah ini :

Private Sub Command1_Click()
Dim pesan As String
Dim inputan As String
Dim nilai As Integer
Dim huruf As String

'memasukan nilai untuk perhitungan
inputan = InputBox("Masukan Nilai yang akan di hitung ?? ", "Perhitungan Nilai", nilai)

'mengecek apakan inputan kosong
If inputan = "" Then
MsgBox "Masukan Nilai untuk melakukan perhitungan", , "konfirmasi"

Baca selengkapnya »

Array Delphi

noreply@blogger.com (Iqbal-poenya-blog) — Thu, 24 Nov 2011 10:57:00 +0000

Array Menggunakan Delphi

ARRAY

1. Materi Array

Pengenalan Array

Array adalah sekumpulan data yang memiliki data yang banyak dengan tipe data sama, Kegunaan array sangatlah banyak, dengan sifatnya yang dinamis array mampu digunakan sebagai object penyimpanan data yang sangat bagus dan stabil meskipun ketika program ditutup data yang tersimpan akan hilang semua.

Array memerintahkan koleksi data dari satu jenis. Setiap item data disebut elemen, dan diakses oleh posisinya (indeks) dalam array. Mereka sangat berguna untuk menyimpan daftar data, seperti pelanggan, atau baris teks. Ada beberapa jenis array, array bisa tunggal atau multidimensi (daftar daftar berlaku).

Baca selengkapnya »

Flowchart Sistem Informasi Poliklinik

noreply@blogger.com (Iqbal-poenya-blog) — Wed, 23 Nov 2011 15:08:00 +0000

Sistem Informasi Poliklinik

Dibagi menjadi 4 Procedure :

1. Procedure Pendaftaran Pasien

2. Procedure Pemeriksaan Pasien Oleh Dokter

3. Procedure Administrasi Pasien

4. Procedure Pembuatan Laporan

Baca selengkapnya »

Borland Turbo Prolog

noreply@blogger.com (Iqbal-poenya-blog) — Thu, 17 Nov 2011 22:20:00 +0000

Download Borland Turbo Prolog 2.0 (Tampilannya masih DOS sayangnya ...)

Bahasa Pemograman untuk Sistem Pakar : Klik Disini

Step By Step Penjadwalan Akses Bagian 2

noreply@blogger.com (Iqbal-poenya-blog) — Wed, 16 Nov 2011 08:23:00 +0000

Penjadwalan Akses Bagian 2

3. Proses Terpendek Dipertamakan Premsi
4. Rasio Pinalti Tertinggi Dipertamakan
5. Putar Gelang

Download File Wordnya 2007 nya update : Klik Di Sini