Nonton TV Online

- Cara Memasang TV online di blog at: http://dzickies.blogspot.com/2012/04/cara-memasang-tv-online-di-blog.html

Read More

Fungsi Dan Cara Pengulangan (Looping) Pada Java

Fungsi loop di gunakan untuk melakukan perulangan terhadap pernyataan selama kondisi bernilai true. Terdapat 3 fungsi loop pada java :

1. Fungsi For

fungsi for mengijinkan tanda koma “,” dalam menginisialisasi sebuah kondisi. Perhatikan potongan script berikut :

for(i=0;i<10;i++){

System.out.println(i);

}

Atau

For(i=0,j=0;j<10;i++,j++){

System.out.println(i+” dan “+j);

}

Contoh :

public class FungsiFor{

public static void main(String[] args){

int a,b,c;

for(a = 1,b = 1; b<=10;a++,b++){

c = a * b;

System.out.println( a +“ X “+ b +” = “+ c);

}

}

}

Hasil keluaran :

1 X 1 = 1

2 X 2 = 4

3 X 3 = 9

4 X 4 =16

5 X 5 = 25

6 X 6 = 36

7 X 7 = 49

8 X 8 = 64

9 X 9 = 81

10 X 10 = 100

2. Fungsi While

Selama kondisi belum terpenuhi fungsi while akan mengerjakan pernyataan, perhitungan / penambahan nilai kondisi dilakukan setelah mengerjakan pernyataan. Penambahan nilai kondisi dilakikan setelah pengecekan kondisi.

Contoh :

public class FungsiWhile{

public static void main(String[] args){

int a = 0;

while(a<=5){

System.out.println(“Belum Selesai?”+a);

a++;

}

System.out.println(“Selesai”);

}

}

Hasil keluaran :

Belum Selesai?0

Belum Selesai?1

Belum Selesai?2

Belum Selesai?3

Belum Selesai?4

Belum Selesai?5

Selesai

3. Fungsi DO…..While

Berbeda dengan while fungsi Do…while akan mengerjakan pernyataan sampai kondisi terpenuhi. Penambahan nilai kondisi sebelum pengecekan kondisi.

Contoh :

public class FungsiWhile{

public static void main(String[] args){

int a = 0;

do{

System.out.println(“Belum Selesai?”);

a++;

}while();

System.out.println(“Selesai”);

}

}

Menghasilkan hall yang sama dengan output fungsi while.

Read More

Download Game PC Ringan Family Farm Indowebster

Download Game PC Ringan Family Farm Indowebster | 99 MB

Requirements:

OS: Windows XP / Vista / 7

CPU: 1.6 GHz Pentium 4 / AthlonT XP 2000+

RAM: 512 MB

Video Card: 128 MB DirectX 9 / OpenGL 2.0 Compatible - Pixel & Vertex Shader 2.0 required

Hard Drive: 133 Mb

Screenshots:

Download Game PC Ringan Family Farm Indowebster

-CLICK HERE-

pass: cybergomez

Sumber : http://cybergomez.blogspot.com/2013/05/download-game-pc-ringan-family-farm.html

Read More

Cara Membuat Penomoran Otomatis Di VB.6

Jika anda ingin membuat suatu program pendaftaran misalkan, pasti di awal ada label Nomor,Nama,Tlp,dll
Nah saya akan mengasih tutorial kepada anda" bagaimana cara membuat Nomor Otomatis di VB.
ok langsung saja kita praktekan :
-Pertama" Kita Masukan Textbox & Comman Button ke Form

-Kedua kita masukan componen Microsoft ADO Data Control 6.0 & Microsoft Windows Common      Control 6.0 ( tekan CTRL + E di keyboard )

-Ketiga Masukan Adodc & Listview ke Form

-Keempat kita tambah Module ke dalam project kita.

• Klik Project -> Add Module -> Open
• Masukan Syntak di bawah ke dalam Module
• Klik show untuk melihat syntak

  Option Explicit Public db As New ADODB.Connection Public rs As New ADODB.Recordset Dim b As Integer Public sql As String 'Public Function koneksi_database() As Boolean = BERGUNA UNTUK MENGHUBUNGKAN/MENGKONEKSIKAN DATABASE KE VB Public Function koneksi_database() As Boolean On Error GoTo pesan If db.State = adStateOpen Then db.Close End If 'INI MERUPAKAN SYNTAK YG KITA DAPAT DARI ADODC YG TELAH SUDAH DI KONEKSIKAN KE DATABASE db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=penomoran.mdb;" & _ "Persist Security Info=False" db.CursorLocation = adUseClient koneksi_database = True Exit Function pesan: koneksi_database = False MsgBox "koneksi ke server tidak berhasil", 16, "error" End Function

-Kelima Masukan semua Syntak di bawah di view code

Klik show untuk melihat Syntak

Private Sub Command1_Click() Call koneksi_database With rs sql = "insert into contoh1(nomor) values('" & Text1.Text & "')" db.Execute (sql) End With Text1.Text = Val(Text1.Text) + 1 End Sub Private Sub Command2_Click() Call menampilkan_contoh End Sub Private Sub Form_Load() Call contoh Call menampilkan_contoh Dim a As Integer Call koneksi_database sql = "select nomor from contoh1 " rs.Open sql, db If rs.EOF = True Then a = 1 Text1.Text = a Else rs.MoveLast a = rs.Fields("nomor") a = a + 1 b = a Text1.Text = a End If End Sub Sub contoh() With ListView1 .View = lvwReport .GridLines = True .FullRowSelect = True With .ColumnHeaders .Add , , "Nomor", 1500 .Add , , "Keterangan", 1500 End With End With End Sub Sub menampilkan_contoh() Call koneksi_database sql = "select nomor,keterangan from contoh1 " rs.Open sql, db If rs.EOF = False Then ListView1.ListItems.Clear rs.MoveFirst Do While Not rs.EOF Set List = ListView1.ListItems.Add(, , rs.Fields("nomor")) ' List.SubItems(1) = rs.Fields("keterangan") rs.MoveNext Loop Else ListView1.ListItems.Clear End If End Sub Sub menampilkan_contoh3() Call koneksi_database sql = "select nomor,keterangan from contoh1 where nomor='" & Text2.Text & "'" rs.Open sql, db If rs.EOF = False Then ListView1.ListItems.Clear rs.MoveFirst Do While Not rs.EOF Set List = ListView1.ListItems.Add(, , rs.Fields("nomor")) List.SubItems(1) = rs.Fields("keterangan") rs.MoveNext Loop Else ListView1.ListItems.Clear End If End Sub

Coba Anda Jalankan ( F5 )

Anda Bisa Download Source Code ya :
 -Via MF Di Sini
 -Via SB Di Sini 
 

Read More