Selasa, 06 Desember 2011

Membuat Form Login Delphi dengan Database

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 ....

Senin, 05 Desember 2011

Membuat Form Buku Alamat Sederhana di Web Bagian 3

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


Tampilan Sederhana Web :



ni script - scriptnya 


Untuk File index.php scriptnya :

Minggu, 04 Desember 2011

Membuat Form Buku Alamat Sederhana di Web Bagian 2

Pembuatan Database dan File - File

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


Kemudian Buat database baru

Membuat Form Buku Alamat Sederhana di Web Bagian 1

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

Latihan 5 - Hitung Tanggal Akhir - Visual Basic

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

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

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

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

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

Latihan 3 - Pertambahan Waktu - Visual Basic

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

Latihan 3 - Rumah Makan Serba Ayam - Visual Basic

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

Latihan 3 - Menghitung Rata Rata Nilai - Visual Basic

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

Latihan 3 - Program Hotel - Visual Basic

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


Sabtu, 03 Desember 2011

Latihan 3 - Selisih Jam - Visual Basic

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

Latihan 3 - Ganti warna form dengan comboBox - Visual Basic

Desain form seperti ini :


dan masukan script di bawah ini sesuai tempatnya :

Dim warna As String
Dim pesan As String

Latihan 3 - Menampilkan Jam dan Tanggal - Visual Basic

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

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

Latihan 2 - Form Nilai - Visual Basic

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

Latihan 1- InputBox dan MessageBox - Visual Basic

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"

Kamis, 24 November 2011

Array Delphi

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).

Rabu, 23 November 2011

Flowchart Sistem Informasi Poliklinik

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


Jumat, 18 November 2011

Borland Turbo Prolog

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

Bahasa Pemograman untuk Sistem Pakar : Klik Disini

Rabu, 16 November 2011

Step By Step Penjadwalan Akses Bagian 2

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

Selasa, 15 November 2011

Step By Step Penjadwalan Akses Bagian 1

Penjadwalan Akses

1. Pertama Tiba Pertama Dilayani (PTPD)
2. Proses Terpendek Dilayani (PTD)

Selengkapnya Download File Word 2007 update  : Klik Disini

Untuk 3 Penjadwalan Akses lainnya ada pada Bagian 2

Minggu, 13 November 2011

Formatting Date and Time

FormatDateTime

Format untuk Tanggal dan Jam

Di Delphi maupun Visual Basic biasa di kenal dengan FormatDateTime

FormatDateTime('formatnya',date/time) ---> untuk Delphi

FormatDateTime(Date/Time,formatnya)---->untuk Visual Basic
atau Format(Date/Time,"Formatnya")

Random Warna Visual Basic

Ni di visual basic -- > mo bikin random warna dasar form

butuh timer ....

klik 2x timernya truz masukin script ini :


Random Warna Delphi

Mo bikin Form Warna Dasarnya nya warna warni nih ...

Butuh Timer dulu gan ....

terus klik 2x timernya ....

masukin deh skrip ini :


Timer -> Delphi & Visual Basic

Timer berfungsi untuk memanipulasi waktu ...

misal untuk membuat gambar bergerak , jam , progressbar , dll

delphi dan visual basic dalam pembuatan Timer hampir sama saja , cuma beda bahasa doank koq ...


Sabtu, 12 November 2011

Membuat Like Button Di Posting Blog

Edit HTML blog mu teruss cari deh dengank tekan f3 -- cari code <data:post.body>

kemudian masukin di bawahnya script ini :

Jumat, 11 November 2011

Daya Tampung Tipe Data di Visual Basic




Visual Basic Belajar Code




Contohnya :



 Private Sub Command1_click   

    Label1.Visible=false 


    Label2.Visible=True


    Text1.Text=”Ini Lable 2"

End sub



Private Sub - End Sub --> awal dan penutup prosedure


Kamis, 10 November 2011

Program Jahat Komputer

  1. Virus adalah sebuah program komputer yang memiliki kemampuan untuk mengcopy kode programnya pada program lain apabila program tersebut diaktifkan, serta memiliki kemampuan untuk mengambil alih kontrol terhadap komputer yang ditularinya atau melakukan perubahan atas program yang ada didalamnya.
  2. Logic Bomb, adalah program komputer yang berada dalam sebuah komputer yang akan aktif apabila beberapa kondisi terpenuhi (biasanya berkaitan dengan waktu; jam, tanggal, dsb).
  3. Trojan Horse, adalah sebuah program komputer yang dibalik fungsinya/kegunaan yang terlihat juga memiliki fungsi tambahan tersembunyi (sengaja disembunyikan oleh pembuatnya) yang akan mengeksploitasi komputer yang menggunakannya serta secara signifikan akan menurunkan tingkat keamanan komputer.
  4. Worm adalah sebuah program kecil yang memiliki rutin program untuk memperbanyak diri sendiri dan menularkan dirinya pada komputer-komputer dalam jaringan, serta memiliki kemampuan untuk melakukan hal-hal yang diinginkan oleh pembuat program, biasanya berupa pencurian informasi dari komputer yang ditularinya kemudian mengirimkannya pada alamat tertentu yang diinginkankan oleh pembuatnya melalui internet.

Macam Macam Virus

Berikut ini adalah penjelasan mengenai cara kerja berbagai jenis virus komputer.

  1. File infector virus: memiliki kemampuan untuk melekatkan diri (attach) pada sebuah file, yang biasanya merupakan file executable. Pada umumnya virus jenis ini tidakmenyerang file data. Namun dewasa ini, sebuah file data atau dokumen lainnya dapat mengandung kode executable seperti macro, yang dapat dieksploitasi oleh pencipta virus komputer, worms atau trojan horse. 
  2. Boot sector virus: memodifikasi program yang berada di dalam boot sector pada DOS-formatted disk. Pada umumnya, sebuah boot sector virus akan terlebih dahulu mengeksekusi dirinya sendiri sebelum proses bootup pada PC, sehingga seluruh floppy disk yang digunakan pada PC tersebut akan terjangkiti pula. 
  3. Multipartite virus: memiliki fitur dari kedua jenis virus di atas (baik sebagai file infector mau pun sebagai boot/system sector virus). Ketika sebuah file yang terinfeksi oleh virus jenis ini dieksekusi, maka virus akan menjangkiti boot sector dari hard disk atau partition sector dari komputer tersebut, dan sebaliknya. 
  4. Macro virus: menjangkiti program macro dari sebuah file data atau dokumen (yang biasanya digunakan untuk global setting seperti template Microsoft Word), sehingga dokumen berikutnya yang diedit oleh program aplikasi tersebut akan terinfeksi pula oleh macro yang telah terinfeksi sebelumnya. 
  5. Stealth virus: virus ini bekerja secara residensial (menetap) di dalam memori dan menyembunyikan perubahan yang telah dilakukannya terhadap file yang dijangkiti. Hal ini dilakukan dengan mengambil alih fungsi sistem jika terjadi proses pembacaan.Jika program lain meminta informasi dari bagian sistem yang telah dijangkiti virus stealth, maka virus akan memberikan informasi yang sesuai dengan keadaan sebelum terjangkiti virus, sehingga seolah-olah sistem berfungsi dalam keadaan baik tanpa gangguan dari virus komputer. 

Rabu, 09 November 2011

Materi Sistem Operasi

Materi Sistem Operasi Yang Baru 6 File ppt

Materi Kuliah ..

Download : Klik Disini

Latihan Visual Basic

Latihan 7 Soal Visual Basic . . .

Tugas Kuliah . . .

Link downloadnya : Klik Disini

Nero BurnLite

Free Software Download Nero BurnLite

Kebutuhan minimun system untuk Nero BurnLite 10:
  1. Operating sistem: Windows® XP SP3 (32-bit), Windows Vista® SP1 (32 and 64-bit), Windows® 7 Home Premium, Professional, Enterprise or Ultimate (32 and 64-bit)
  2. Processor: 2 GHz, AMD atau Intel®
  3. RAM: 512 MB atau 1 GB RAM untuk Windows Vista® or Windows® 7.
  4. Hard drive: 300 MB ruang hard drive untuk instalasi secara penuh (termasuk temporary file)


Silahkan Downlload ni Linknya : Klik Disini

Senin, 07 November 2011

Membuat Background Falshdisk

Buka Notepad Ketik script di bawah ini

[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}=
{BE098140-A513-11D0-A3A4-00C04FD706EC}

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=1
IconArea_Image=gambarbackground.jpg
IconArea_Text=0x0cbcsc0bsc0c


kemudian save dengan nama desktop.ini

Ganti gambar background dengan gambar anda ...

Tulisan Selalu Mengikuti Kursor

Langkah - Langkah :

1. Masuk ke Blogger anda
2. Pilih Rancangan --> tambah widget html/javascript
3. Masukan Skript ini

<script>
//mouse
//Circling text trail- Tim Tilton
//Website: http://www.tempermedia.com/
//Visit http://www.dynamicdrive.com for this script and more
function cursor_text_circle(){
// your message here
var msg='Ketik Teks disini !!'.split('').reverse().join('');

var font='Verdana,Arial';
var size=3; // up to seven
var color='#888888';

Visual Basic 6

Visual Basic adalah bahasa pemrograman tingkat tinggi yang berevolusi dari versi DOS sebelumnya disebut BASIC.  
Ini adalah bahasa pemrograman yang relatif mudah dipelajari. 
Kode terlihat sangat mirip Bahasa Inggris. Perusahaan perangkat lunak yang berbeda menghasilkan berbagai versi BASIC,  
seperti MicrosoftQBASIC, QuickBasic, GWBASIC, IBM BASICA dan sebagainya. Namun, orang lebih suka menggunakan Microsoft Visual Basic, karena merupakan bahasa pemrograman dikembangkan dengan baik dan sumber daya yang mendukung yang tersedia di mana-mana.  


Sekarang, ada banyak versi VB ada di pasar, salah satu yang paling populer dan masih banyak digunakan oleh banyak programmer VB tidak lain dari Visual Basic 6. 
Kami juga memiliki VB.net ,  VB2005 , VB2008  dan VB2010  terbaru.  Kedua VB2008 dan VB2010  sepenuhnya pemrograman berorientasi objek (OOP) bahasa.

Cukup 3 langkah untuk membuat suatu program itu :



Minggu, 06 November 2011

Borland Delphi

Bahasa Pemograman yang banyak di minati oleh para programmer , namun sebelum bener-bener handal delphi harus paham dulu bahasa pascalnya . Karena dasar dari Delphi adalah Pascal . bagi Pemula Seperti saya ya lumayan rumit ,, hehe
makanya saya tulis semua yang saya tau di sini .. Bia Klo Lupa Bisa buka - buka lagi ..

ini Link untuk donload Borland Delphi 7 : Klik Disini

ni bentuk tampilan awal Delphi :

Say Hai Aplikasi Delphi

Buatlah Tampilan Seperti Di Bawah ini :

Dengan 1 Label 1 editBox dan 1 Button


Klik 2x Formnya dan tulis Script berikut ;