.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Membuat navigasi breadcrumb versi 2

0 komentar
Trik blogging - Sebagai kelanjutan dari posting sebelumnya yaitu  membuat navigasi breadcrumb versi 1,  kali ini ane akan share versi ke 2 nya.

Sebelum kita mulai, pernahkah sobat mengalami hal ini?

1. Template eror ketika memasang breadcrumb
2. Template tidak eror tapi breadcrumbnya tidak muncul.

Oke! mari kita lanjut.
Dalam memasang breadcrumb, poin yang pertama umumnya sangat jarang terjadi, penyebabnya hanyalah salah meletakkan kode atau tidak menuliskan kode secara lengkap ( terutama tag pembuka dan penutup  )
Poin yang kedua, umumnya terjadi pada blog dengan template MINIMA /modifikasi minima. Mengapa?
saya sendiri juga tidak tahu.. maklum, ane masih belajar. hehehe

Bagi anda pecinta template minima yang ingin buat breadcrumb navigasi akan ane kasi tutorialnya. karna itu tanpa berlambat waktu kita langsung saja.. Oke!!

1. Pertama log in dulu ke akun blog sobat.
2. Klik rancangan --> edit html --> centang kotak expand template widget.
3. Klik download template lengkap untuk mencegah terjadinya eror pada template.
4. Letakkan kode berikut di atas kode ]]></b:skin>.
.breadcrumbs {
padding:10px;
margin: 10px;
border:1px solid #000000;
font-size:95%;
line-height: 1.4em;
border-bottom:3px double #e6e4e3;
}
5. Cari kode  <b:includable id='post' var='post'> ( Gunakan Ctrl + F untuk memudahkan pencarian )
6. Letakkan kode berikut tepat di BAWAHNYA.
<b:if cond='data:blog.homepageUrl == data:blog.url'>
<b:else/>
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<div class='breadcrumbs'>

Browse &#187; <a expr:href='data:blog.homepageUrl' rel='tag'>Home</a>
<b:loop values='data:posts' var='post'>
<b:if cond='data:post.labels'>
<b:loop values='data:post.labels' var='label'>
<b:if cond='data:label.isLast == &quot;true&quot;'> &#187;
<a expr:href='data:label.url' rel='tag'><data:label.name/></a>
</b:if>
&#187; <span><data:post.title/></span>
</b:loop>
</b:if>
</b:loop>

</div>
</b:if>
<b:else/>
<b:if cond='data:blog.pageType == &quot;archive&quot;'>
<div class='breadcrumbs'>
Browse &#187; <a expr:href='data:blog.homepageUrl'>Home</a> &#187; Archives for <data:blog.pageName/>
</div>
</b:if>
<b:else/>
<b:if cond='data:navMessage'>
<div class='breadcrumbs'>
<data:navMessage/>
</div>
</b:if>
</b:if>
7. Dan yang terakhir simpan template.


Semoga bermanfaat.

Suni

Cara Membuat Tabel Dengan HTML

0 komentar
Membuat tabel dengan html adalah salah satu hal yang sangat penting dalam pembuatan sebuah web. Untuk membuat sebuah design web, yang diperlukan sekali adalah mendesign halaman dengan menguasai cara membuat tabel dengan html. Berikut ini akan di jelaskan artikel mengenai cara membuat tabel dengan html, tips membuat tabel dengan html, mengedit tabel dengan html, mengubah ukuran tabel html, dan lain-lain yang berhubungan dengan cara, tips dan trik mengolah tabel dengan html.

Copy kode berikut ke postingan anda.

<table border="1" width="300">
<tr bgcolor="#E0F8E0"><td align="center"><b>Nama Temanku</b></td><td align="center"><b>Kelas</b></td><td align="center"><b>Hobby</b></td></tr>
<tr><td align="center">A</td><td align="center">6</td><td align="left">Makan bakso</td></tr>
<tr><td align="center">B</td><td align="center">6</td><td align="left">Makan bakso</td></tr>
<tr><td align="center">C</td><td align="center">4</td><td align="left">Sepak bola</td></tr>
<tr><td align="center">D</td><td align="center">5</td><td align="left">Tidur</td></tr>
</table>

Maka akan menghasilkan tampilan tabel seperti ini :
Nama TemankuKelasHobby
A6Makan bakso
B6Makan bakso
C4Sepak bola
D5Tidur

Catatan : Untuk memodifikasi tabel, silahkan di edit coding nya ;-) heheh :-D kebetulan lagi males ngomong panjang lebar... wkwk
Suni

Jquery Recipes

0 komentar
Judul : JQuery Recipes
Bahasa : English
Penulis : B.M. Harwani
Jumlah halaman : 455 halaman
Format : PDF
Size : 4.69 MB

Klik Here To Download



Suni

Program Visual Jakarta Travel Agent

0 komentar

Sintaknya :

Sub bersih()
txtnama.Text = " "
txtalamat.Text = " "
cmbkode.Text = "--Pilih Paket--"
txttema.Text = " "
List1.Text = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
txtharga.Text = " "
txtjumlah.Text = " "
txttotal.Text = " "
txtcash.Text = " "
txtstatus.Text = " "
End Sub

Sub nonaktif()
txtnama.Enabled = False
txtalamat.Enabled = False
cmbkode.Enabled = False
txttema.Enabled = False
List1.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
txtharga.Enabled = False
txtjumlah.Enabled = False
txttotal.Enabled = False
txtcash.Enabled = False
txtstatus.Enabled = False
End Sub

Sub aktif()
txtnama.Enabled = True
txtalamat.Enabled = True
cmbkode.Enabled = True
txttema.Enabled = True
List1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
txtharga.Enabled = True
txtjumlah.Enabled = True
txttotal.Enabled = True
txtcash.Enabled = True
txtstatus.Enabled = True
txtnama.SetFocus
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Format(date, "dddd,d mmmm yyyy")
waktu.Caption = Format(time, "hh:mm:ss")
End Sub

Private Sub cmdproses_Click()
aktif
bersih
End Sub

Private Sub Form_Activate()
nonaktif
cmbkode.Text = "--Pilih Paket--"
cmbkode.AddItem "Paket 1"
cmbkode.AddItem "Paket 2"
cmbkode.AddItem "Paket 3"
List1.AddItem "Bandung"
List1.AddItem "Semarang"
List1.AddItem "Surabaya"
End Sub

Private Sub cmbkode_Click()
If cmbkode.Text = "Paket 1" Then
txttema.Text = "Family Holiday"
ElseIf cmbkode.Text = "Paket 2" Then
txttema.Text = "Etnic Holiday"
Else
txttema.Text = "Mount Holiday"
End If
End Sub

Private Sub Option1_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 750000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 750000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 850000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 900000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 350000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 500000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 1000000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 850000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 550000
End If
End If
End Sub

Private Sub Option2_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 550000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 650000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 750000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 800000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 250000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 400000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 900000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 750000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 450000
End If
End If
End Sub

Private Sub Option3_Click()
If cmbkode.Text = "Paket 1" Then
If List1.Text = "Bandung" Then
txtharga.Text = 600000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 600000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 700000
End If
ElseIf cmbkode.Text = "Paket 2" Then
If List1.Text = "Bandung" Then
txtharga.Text = 650000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 200000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 350000
End If
ElseIf cmbkode.Text = "Paket 3" Then
If List1.Text = "Bandung" Then
txtharga.Text = 850000
ElseIf List1.Text = "Semarang" Then
txtharga.Text = 700000
ElseIf List1.Text = "Surabaya" Then
txtharga.Text = 400000
End If
End If
End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)
txtcash.SetFocus
End If
txttotal.Enabled = False
End Sub

Private Sub txtcash_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtcash = Val(txttotal.Text) Then
txtstatus.Text = "LUNAS"
ElseIf txtcash > Val(txttotal.Text) Then
txtstatus.Text = "Kembali " & "Rp. " & Val(txtcash.Text) - Val(txttotal.Text)
ElseIf txtcash <= Val(txttotal.Text) Then
txtstatus.Text = "Kurang " & "Rp. " & Val(txttotal.Text) - Val(txtcash.Text)
End If
cmdproses.SetFocus
nonaktif
End If
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "INFORMASI")
If X = vbYes Then
End
End If
End Sub
Suni

Situs Keren yang Berisi Kasus-Kasus Algoritma dan Pemrograman

0 komentar
Dari seorang nara sumber diperoleh alamat situs yang berisi kasus-kasus untuk yang bisa digunakan untuk berlatih mengasah kemampuan analisa kasus, problem solving dan menyusun algoritma. Inilah link ke situs yang dimaksud. Selamat mencoba!
Suni

Function di C#, Java dan C++

0 komentar

Function
Fungsi/function adalah suatu kumpulan instruksi/perintah/program yang dikelompokkan menjadi satu, letaknya terpisah dari program yang menggunakan fungsi tersebut, memiliki nama tertentu yang unik, dan digunakan untuk mengerjakan suatu tujuan tertentu. Dalam bahasa pemrograman lain fungsi dapat disebut sebagai subrutin (basic, VB) atau procedure (pascal, Delphi)
Keuntungan Fungsi
1. Dapat melakukan pendekatan top-down dan divide-and-conquer:
2. Top-down: penelusuran program mudah
3. Divide-and-conquer: program besar dapat dipisah menjadi program-program kecil.
4. Kode program menjadi lebih pendek, mudah dibaca, dan mudah dipahami
5. Program dapat dikerjakan oleh beberapa orang sehingga program cepat selesai dengan koordinasi yang mudah.
6. Mudah dalam mencari kesalahan-kesalahan karena alur logika jelas dan sederhana Kesalahan dapat dilokalisasi dalam suatu modul tertentu saja.

7. Modifikasi program dapat dilakukan pada suatu modul tertentu saja tanpa mengganggu program keseluruhan
8. Fungsi � fungsi menjadikan program mempunyai struktur yang jelas.
9. Dengan memisahkan langkah � langkah detail ke satu atau lebih fungsi � fungsi, maka fungsi utama (main) akan menjadi lebih pendek, jelas dan mudah dimengerti.
10. Fungsi -fungsi digunakan untuk menghindari penulisan program yang sama yang ditulis secara berulang � ulang. Langkah � langkah tersebut dapat dituliskan sekali saja secara terpisah dalam bentuk fungsi. Selanjutnya bagian program yang membutuhkan langkah � langkah ini tidak perlu selalu menuliskannya, tidak cukup memanggil fungsi tersebut.
11. Mempermudah dokumentasi.
12. Reusability: Suatu fungsi dapat digunakan kembali oleh program atau fungsi lain
Sifat-sifat fungsi
1. Nilai fan-in tinggi, artinya semakin sering suatu modul dipanggil oleh pengguna semakin tinggi nilai fan-in
2. Nilai Fan-out rendah, artinya semakin spesifik fungsi suatu modul akan semakin rendah nilai fan-out
3. Memiliki Self-contained tinggi: artinya kemampuan untuk memenuhi kebutuhannnya sendiri


Untuk contoh kode Programnya  Monggo langsung di copass ni


"Csharp"


namespace Function
{
class Program
{
private static int Inpoet() //function mengembalikan nilai
{
int inputt = Convert.ToInt32(Console.ReadLine());
return inputt;
}

private static void Hitung(int satu,int dua) //function tidak mengembalikan nilai
{
int hasil = satu*dua;
Console.WriteLine("Luas persegi adalah = {0}",hasil);
}


public static void Main(string[] args)
{
Console.Write("Panjang persegi = ");
int satu = Inpoet(); //panggil function inpoet
Console.Write("Lebar persegi = ");
int dua = Inpoet(); //panggil function inpoet

Hitung(satu,dua); //panggil function Hitung dan mengirim data dari parameter untuk
//dihitungkan di Function Hitung


Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
}
Hasilnya



"Java"

package Function;

import java.util.Scanner;

public class Program
{
private static int Inpoet() //function mengembalikan nilai
{
Scanner baca = new Scanner(System.in);
int inputt = baca.nextInt();
return inputt;
}
private static void Hitung(int satu, int dua) //function tidak mengembalikan nilai
{
int hasil = satu*dua;
System.out.println("Luas persegi adalah "+hasil);
}
public static void main(String[] args)
{
System.out.print("panjang persegi = ");
int satu = Inpoet(); //panggil function inpoet
System.out.print("panjang persegi = ");
int dua = Inpoet(); //panggil function inpoet

Hitung(satu,dua); //panggil function Hitung dan mengirim data dari parameter untuk
//dihitungkan di Function Hitung
}

}


Hasilnya




"C++"


#include <cstdlib>
#include <iostream>

using namespace std;

int Inpoet() //function mengembalikan nilai
{
int input;
cin>>input;
return input;
}
void Hitung(int satu, int dua) //function tidak mengembalikan nilai
{
int luas = satu*dua;
cout<<"Luas persegi adalah = "<<luas;
}

int main(int argc, char *argv[])
{
int satu, dua; //deklarasi tipe data sbg penampung nilai kembalian function
cout<<"Panjang persegi = ";
satu = Inpoet(); //panggil Function Inpoet
cout<<"Lebar persegi = ";
dua = Inpoet(); //panggil Function Inpoet

Hitung(satu,dua); //panggil Function Hitung dan mengirim|
//2 nilai untuk di jumlah kan di dlm function

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}


Hasilnya





Sekian Dulu postingannya . . .
Kapan2 ane lanjutin lagi Tutorial programmingnya . . .
Suni

Array Multi Dimensi Java, C# dan C++

0 komentar
Tidak jauh berbeda dengan array satu dimensi, Array 2 dimensi Juga menyimpan data yang bertipe sama Tapi mempunyai 2 index,,Biasanya digunakan Dalam matrik,pengolahan Citra Dll . . .

Untuk struktur pendeklarasiannya

pada Csharp
     tipedata [jumlahElemen1,jumlahElemen2] namaVariabel = new namaVariabel [jumlahElemen1,jumlahElemen2];
pada Java
     tipedata [jumlahElemen1][jumlahElemen2] namaVariabel = new namaVariabel [jumlahElemen1][jumlahElemen2];

kalo di C++
     tipedata namaVariabel [jumlahElemen1][jumlahElemen2];


ini contoh Code Programnya



"Csharp"
namespace Array2Dimensi
{
class Program
{
public byte i1; //property
public byte i2; //property
public static void Main(string[] args)
{
Arr2 arre = new Arr2(); //deklarasi Class Arr2
arre.Masuk(); //panggil method Masuk dr Class Arr2

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Arr2
{
public void Masuk()
{
Program pro = new Program(); //deklarasi Class Program

Console.Write("Jumlah Baris = ");
pro.i1 = Convert.ToByte(Console.ReadLine()); //input menggunakan property Class Program
Console.Write("Jumlah Kolom = ");
pro.i2 = Convert.ToByte(Console.ReadLine()); //input menggunakan property Class Program

byte [,] matrik = new byte[pro.i1,pro.i2]; //deklarasi Array & inisialisasi

//mengisi Array
for (byte i = 0; i<pro.i1; i++)
{
for (byte j = 0; j<pro.i2; j++)
{
Console.Write("Nilai matrik ke [{0},{1}] = ",i,j);
matrik[i,j] = Convert.ToByte(Console.ReadLine());
}
}

//menampilkan Array
for (byte i = 0; i<pro.i1; i++)
{
for (byte j = 0; j<pro.i2; j++)
{
Console.WriteLine("isi matrik [{0},{1}] adalah = {2}",i,j,matrik[i,j]);
}
}
}
}
}

Hasilnya



"Java"
package array2dimensi;

import java.util.Scanner;

public class Program
{
public byte i1; //property
public byte i2; //property
public static void main(String[] args)
{
Arr2 arre = new Arr2(); //deklarasi Class Arr2
arre.Masuk(); //panggil method Masuk dr Class Arr2
}

}
class Arr2
{
public void Masuk()
{
Scanner baca = new Scanner(System.in);

Program pro = new Program(); //deklarasi Class Program

System.out.print("jumlah baris = ");
pro.i1 = baca.nextByte(); //input menggunakan property Class Program
System.out.print("jumlah kolom = ");
pro.i2 = baca.nextByte(); //input menggunakan property Class Program

byte [][] matrik = new byte [pro.i1][pro.i2]; //deklarasi Array & inisialisasi

//mengisi Array
for (byte i = 0; i<pro.i1; i++)
{
for (byte j = 0; j<pro.i2; j++)
{
System.out.print("Nilai matrik ke ["+i+","+j+"] = ");
matrik[i][j] = baca.nextByte();
}
}

//menampilkan Array
for (byte i = 0; i<pro.i1; i++)
{
for (byte j = 0; j<pro.i2; j++)
{
System.out.print("Isi matrik ke ["+i+","+j+"] adalah = "+matrik[i][j]+"\n");
}
}
}
}


Hasilnya


"C++"

#include <cstdlib>
#include <iostream>

using namespace std;

class Arr2
{
private : int i1,i2; //property
public : void Masuk()
{
cout<<"Jumlah Baris = ";
cin>>i1;
cout<<"Jumlah Kolom = ";
cin>>i2;
cout<<endl;

int matrik [i1][i2]; //deklarasi dan inisialisasi array

//mengisi array
for(int i = 0; i<i1; i++)
{
for(int j = 0; j<i2; j++)
{
cout<<"Nilai matrik ke ["<<i<<","<<j<<"] = ";
cin>>matrik [i][j];
}
}
cout<<endl;
//menampilkan isi matrik
for(int i = 0; i<i1; i++)
{
for(int j = 0; j<i2; j++)
{
cout<<"Isi matrik ke ["<<i<<","<<j<<"] adalah "<<matrik [i][j]<<endl;
}
}
}
};

int main(int argc, char *argv[])
{
Arr2 arre; //deklarasi Class Arr2
arre.Masuk(); //panggil Method Masuk dari Class Arr2

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

Hasilnya
Suni

Array di Java, C# dan C++

0 komentar
Array adalah sekelompok data sejenis yang disimpan ke dalam variabel dengan nama yang sama, dengan memberi indeks pada variabel untuk membedakan antara yang satu dengan yang lain.

Cara pendeklarasian Array setiap bahasa Program berbeda tapi semuanya memiliki karakter yang sama . . .

deklarasi di csharp dan java:
tipedata [] nama variabel = new nama variabel [jumlahElement];

kalo di C++
tipedata namaVariabel [jumlahElemen];

Dulu waktu semester 2 kata pak HadiQ Array itu seperti Laci Ganda, Di belakangnya Laci itu ada Laci lagi sejumlah elemen aray itu . . .
Hehehehehehe


Berikut contoh code Programnya . . .



"Csharp"

namespace Array1Dimensi
{
class Program
{
public byte banyak; //property

public static void Main(string[] args)
{
Arr arre = new Arr(); //deklarasi Class Arr
arre.Masuk(); //panggil method Masuk dr class Arr

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Arr
{
public void Masuk()
{
Program pro = new Program(); //deklarasi Class Program
string [] nama; //deklarasi Array

Console.Write("masukkan banyak elemen array = ");
pro.banyak = Convert.ToByte(Console.ReadLine()); //input mengunakan property Class program
Console.WriteLine();

nama = new string[pro.banyak]; //inisialisasi array

//mengisi Array
for (byte i = 0; i<pro.banyak; i++)
{
Console.Write("Masukkan nama mahasiswa ke {0} = ",i+1);
nama[i] = Console.ReadLine();
}

Console.WriteLine();

//menampilkan Array
for (byte i = 0; i<pro.banyak; i++)
{
Console.WriteLine("Nama maha siswa ke {0} adalah = {1}",i+1,nama[i]);
}
}
}
}
Hasilnya


"Java"

package array1dimensi;

import java.util.Scanner;

public class Program
{
public byte banyak; //property

public static void main(String[] args)
{
Arr arre = new Arr(); //deklarasi Class Arr
arre.Masuk(); //panggil method Masuk dr class Arr
}

}

class Arr
{
public void Masuk()
{
Scanner baca = new Scanner(System.in);
String [] nama; //deklarasi Array
Program pro = new Program(); //deklarasi Class Program

System.out.print("masukkan banyak elemen array = ");
pro.banyak = baca.nextByte(); //input mengunakan property Class program

nama = new String[pro.banyak]; //inisialisasi Array

System.out.println();

//mengisi Array
for (byte i = 0; i<pro.banyak; i++)
{
int s = i+1;
System.out.print("masukkan nama maha siswa ke "+s+" = ");
nama[i] = baca.next();
}

System.out.println();

//menampilkan Array
for (byte i = 0; i<pro.banyak; i++)
{
int s = i+1;
System.out.println("nama maha siswa ke "+s+" adalah "+nama[i]);
}
}
}

Hasilnya



"C++"

#include <cstdlib>
#include <iostream>

using namespace std;

class Arr
{
private : int banyak; //property
public : void Masuk()
{
cout<<"masukkan banyak elemen array = ";
cin>>banyak;
cout<<endl;

string nama[banyak]; //deklarasi dan inisialisasi array
//mengisi array
for (int i = 0; i<banyak; i++)
{
cout<<"Masukkan nama mahasiswa ke "<<i+1<<" = ";
cin>>nama[i];
}
cout<<endl;
//menampilkan isi array
for (int i = 0; i<banyak; i++)
{
cout<<"Nama mahasiswa ke "<<i+1<<" adalah "<<nama[i]<<endl;
}
}
};

int main(int argc, char *argv[])
{
Arr arre; //deklarasi Class Arr
arre.Masuk(); //panggil Method Masuk dari Class Arr

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

Hasilnya
Suni

Looping (perulangan) Do - While di java, C# dan C++

0 komentar
Bentuk terakhir Looping adalah mengunakan do-While . . .
Struktur do-while sebenarnya mirip dengan struktur while.perbedaanya hanya terletak pada penempatan kondisinya saja.pada struktur while,kondisi ditempatkan di awal blok perulangan , sedangkan do-while kondisinya diletakan di akhir blok.berikut ini bentuk umum penulisan do-while:

do{
//statement yang akan di ulang
}while(kondisi);

Dan berikut contoh kode Programnya



"Csharp"
namespace do_While
{
class Program
{
public string konfir="y"; //property

public static void Main(string[] args)
{
Cek cekin = new Cek(); //deklarasi Class Cek
cekin.Proses(); //panggil methode Proses

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Cek
{
public void Proses()
{
Program pro = new Program(); //deklarasi Class program

do
{
Console.Write("Masukkan nama anda = ");
string nama = Console.ReadLine();
Console.Write("Ulang ? ");
pro.konfir = Console.ReadLine(); //input memakai properti Class Program

}
while (pro.konfir == "y");
}
}
}
Hasilnya


"Java"
package do_while;

import java.util.Scanner;

public class Program
{
public String konfir="y"; //property

public static void main(String[] args)
{
Cek cekin = new Cek(); //deklarasi Class Cek
cekin.Proses(); //panggil methode Proses

}

}
class Cek
{
public void Proses()
{
Program pro = new Program(); //deklarasi Class program

do
{
Scanner baca = new Scanner(System.in);
System.out.print("Masukkan nama anda = ");
String nama = baca.next();
System.out.print("Ulang ? ");
pro.konfir = baca.next(); //input memakai properti Class Program
}
while(pro.konfir.equals("y"));

}
}

Hasilnya



"C++"

T#include <cstdlib>
#include <iostream>

using namespace std;

class Cek
{
private : char konfir; //property
public : void Proses()
{
string nama;
do
{
cout<<"Masukkan nama anda = ";
cin>>nama;
cout<<"Ulang ? ";
cin>>konfir; //property lokal
}
while(konfir == 'y');

}
};

int main(int argc, char *argv[])
{
Cek cekin; //deklarasi Class Konfir
cekin.Proses(); //panggil Method Proses dari Class Konfir

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

Hasilnya

Suni

Looping (Perulangan) While di Java, C# dan C++

0 komentar
Looping yang akan ane bahas pada postingan yang ini adalah Looping menggunakan "While" . . .
Looping dengan while akan menyebabkan program kita mengulang barisan statement seperti yang dikondisikan di awal looping. Syntax atau bentuk statement while adalah sebagai berikut :

while (kondisi)
{
  statement1;
  :
  statement_n;
}

Cara kerja looping dengan while di Csharp, Java dan C++ adalah sebagai berikut :

"Csharp"
namespace While_Loop
{
class Program
{
public byte angka=7; //property
public static void Main(string[] args)
{
Konfir masi = new Konfir(); //deklarasi Class Konfir
masi.Proses(); //memanggil method proses dari Class Konfir

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Konfir
{
public void Proses()
{
Program pro = new Program(); //deklarasi Class Program

while(pro.angka > 5)
{
Console.Write("Masukkan input = ");
pro.angka = Convert.ToByte(Console.ReadLine()); //panggil property dari Class Program

}


}
}
}

Hasilnya


"Java"

package while_Loop;

import java.util.Scanner;

public class Program
{
public byte angka=10; //property

public static void main(String[] args)
{
konfir masi = new konfir(); //deklarasi Class Konfir
masi.Proses(); //memanggil method proses dari Class Konfir

System.out.println();
System.out.print("Suksesss . . .");
}

}

class konfir
{
public void Proses()
{
Program pro = new Program(); //deklarasi Class Program

Scanner baca = new Scanner(System.in);

while (pro.angka > 5)
{
System.out.print("masukkan nilai = ");
pro.angka = baca.nextByte(); //panggil property dari Class Program

}

}
}

Hasilnya



"C++"

#include <cstdlib>
#include <iostream>

using namespace std;

class Konfir
{
private : int angka; //property
public : void Proses()
{
while (angka>5)
{
cout<<"Masukkan input = ";
cin>>angka; //input menggunakan property Class Ulang
cout<<endl;
}



}
};

int main(int argc, char *argv[])
{
Konfir masi; //deklarasi Class Konfir
masi.Proses(); //panggil Method Proses dari Class Konfir

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}

hasilnya

Suni

Looping (Perulangan) For di Java, C# dan C++

0 komentar
Loop secara bahasa artinya putaran,,
tidak juah dengan artinya secara bahasa Looping adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu.

Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.

Fungsinya memang untuk perulanganLebih efisien, terutama untuk menampilkan pernyataan yang butuh perulangan. Misalkan kita harus menampilkan baris 1-100 atau menampilkan suatu kalimat yang sama dalam jumlah yang sangat banyak.
looping dalam programing banyak macemnya, di postingan yang ini ane bahas yang pake "FOR"

struktruk codingnya seperti ini :

for ([ini sialisasi counter]; [syarat perulangan]; [update counter])
{
       <statemen2 yang di ulang>
{

oke dari pada panjang lebar langsung ke Sintaxnya saja . . .



"Csharp"

namespace LoopFor
{
class Program
{
public byte Banyak; //property
public static void Main(string[] args)
{
Ulang ulang = new Ulang(); //deklarasi Class Ulang
ulang.Putar(); //panggil Method Putar dari Class Ulang

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Ulang
{
public void Putar()
{
Program pro = new Program(); //deklarasi Class Program

Console.Write("Masukkan banyak perulangan = ");
pro.Banyak = Convert.ToByte(Console.ReadLine()); //panggil properti banyak dari class program

Console.WriteLine();
Console.WriteLine("comment akan mengulang {0} kali",pro.Banyak);
Console.WriteLine();

//melakukan perulangan
for (byte i = 0; i<pro.Banyak; i++)
{
Console.WriteLine("perulangan ke {0}",i+1);
}

}
}
}
hasilnya


"Java"

package LoopFor;

import java.util.Scanner;

public class Program
{
public byte banyak; //property

public static void main(String[] args)
{
Ulang ulang = new Ulang(); //deklarasi Class Ulang

ulang.Putar(); //panggil Method Putar dari Class Ulang
}

}

class Ulang
{
public void Putar()
{
Program pro = new Program(); //deklarasi Class Program

Scanner baca = new Scanner(System.in);

System.out.print("masukkan banyak perulangan = ");
pro.banyak = baca.nextByte(); //panggil properti banyak dari class program

System.out.println("\nComment akan mengulang "+pro.banyak+" kali\n");

//melakukan perulangan
for (byte i = 0; i<pro.banyak; i++)
{
int s = i+1;
System.out.println("perulangan ke "+s);
}
}
}

hasilnya



"C++"

#include <cstdlib>
#include <iostream>

using namespace std;

class Ulang
{
private : int banyak; //property
public : void Putar()
{
cout<<"Masukkan banyak perulangan = ";
cin>>banyak; //input menggunakan property Class Ulang
cout<<endl;
cout<<"comment akan mengulang "<<banyak<<" kali";
cout<<endl;
cout<<endl;

for (int i = 0; i<banyak; i++)
{
cout<<"perulangan ke "<<i+1<<endl;;
}

}
};

int main(int argc, char *argv[])
{
Ulang ulang; //deklarasi Class Ulang
ulang.Putar(); //panggil Method Putar dari Class Ulang

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}


hasilnya

Suni

Flow Control Switch-Case di Java, C# dan C++

0 komentar
Nah disini ni ane mau bahas Flow Control "Switch" . . .
Switch Case adalah prosedure dalam bahasa pmrograman yang fungsinya sama dengan IF (untuk melakukan sebuah proses berdasarkan Kondisi terntentu) namun dengan banyak kondisi (Multi Kondisi)

Contoh Sederhana dari Program ini adalah seperti halnya sebuah lampu lalu lintas yang dimana disana dikondisikan sebagai berikut:

- Bila Lampu Merah maka semua Kendaraan Harus Berhenti
- Bila Lampu Kuning maka Kendaraan bersiap-siap melaju
- Bila Lampu Hijau maka Kendaraan boleh melaju

Kondisi-Kondisi yang Multiple seperti ini akan sangat memakan banyak code dan memory (size file) bila menggunakan Statement IF sehingga perlu adanya sebuah Statement pengganti yang fungsinya sama dengan Statement IF namun lebih simple yaitu Switch Case.

Langsung saja Ane Kasi Sintaxnya



"Csharp"

class Program
{
public string kelas; //property
public static void Main(string[] args)
{
Pilih pil = new Pilih(); //deklarasi Class Pilih
pil.Masuk(); //panggil method masuk dari Class pilih

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Pilih
{
//method Masuk
public void Masuk()
{
Program pro = new Program(); //deklarasi Class Program

Console.Write("Masukkan Kelas = ");
pro.kelas = Console.ReadLine(); //panggil property kelas dari Class program
Console.WriteLine();

switch(pro.kelas)
{
case "A":
{
Console.WriteLine("Ahmad, Rizal, Afani");
}
break;
case "B":
{
Console.WriteLine("Rizal, Afani, Ahmad");
}
break;
case "C":
{
Console.WriteLine("Afani, Ahmad, Rizal");
}
break;
default:
{
Console.WriteLine("Dasar Malingg !!!");
}
break;
}
}
}



"Java"

package FlowControl_Switch;

import java.util.Scanner;
public class Program
{
public String kelas; //property
public static void main(String[] args)
{
Pilih pil = new Pilih(); //deklarasi Class Pilih
pil.Masuk(); //panggil method masuk dari Class pilih
}

}
class Pilih
{
//method Masuk
public void Masuk()
{
Program pro = new Program(); //deklarasi Class Program

Scanner baca = new Scanner(System.in);

System.out.print("Masukkan Kelas = ");
pro.kelas = baca.next(); //panggil property kelas dari Class program

switch(pro.kelas.charAt(0))
{
case 'A':
{
System.out.print("Ahmad, Rizal, Afani");
}
break;

case 'B':
{
System.out.print("Rizal, Afani, Ahmad");
}
break;
case 'C':
{
System.out.print("Afani, Ahmad, Rizal");
}
break;
default:
{
System.out.println("Dasar maling !!!");
}
break;
}
}
}


hasilnya


"C++"
T#include <cstdlib>
#include <iostream>

using namespace std;

class Pilih
{
private : char kelas; //property
public : void Masuk()
{
cout<<"masukkan kelas = ";
cin>>kelas; //input menggunakan property Class Pilih

switch(kelas)
{
case 'A':
cout<<"Ahmad, Rizal, Afani";
break;
case 'B':
cout<<"Rizal, Afani, Ahmad";
break;
case 'C':
cout<<"Afani, Ahmad, Rizal";
break;
default :
cout<<"Dasar Maling";
break;
}
}
};

int main(int argc, char *argv[])
{
Pilih pil; //deklarasi Class Pilih
pil.Masuk(); //panggil Method Masuk dari Class Pilih

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}
 hasilnya


Suni

Flow Control IF Java, C# dan C++

0 komentar
Flow Control dalam programming terbagi menjadi 2 (stau ane sich) . . .
Pada postingan ini ane bahas "If", kalo yang "Switch"  ntar ane bahas di postingan slanjutnya . .
Seleksi kondisi atau dalam bahasa madura programingnya "If",, adalah proses penentuan langkah berikutnya berdasarkan proses yang terjadi sebelumnya. Seleksi kondisi ini sangat penting dalam pemrograman sebab dengan adanya seleksi kondisi, program dapat menentukan proses apa yang harus dilakukan selanjutnya berdasarkan keadaan sebelumnya. Sehingga nampak seolaholah program dapat berpikir dan mengambil keputusan. Disinilah letak kekurangan komputer yaitu tidak mampu berpikir sendiri, semua hal yang dilakukan adalah berdasarkan perintah.

untuk melakukannya di Csharp, Java Dan C++ . . .
Berikut Source nya

"Csharp"

namespace FlowControl_If
{
class Program
{
//property
public byte kode;

public static void Main(string[] args)
{
//deklarasi Class Selek
Selek Cek = new Selek();

Cek.Seleksi(); //memanggil Method Seleksi dari Class Selek

Console.WriteLine();
Console.Write("Press any key to continue . . . ");
Console.ReadKey(true);
}
}
class Selek
{
public void Seleksi()
{
Program pro = new Program(); //deklarasi Class Program

Console.Write("Masukkan Kode = ");
pro.kode = Convert.ToByte(Console.ReadLine()); //memanggil property Class program Sbg Input

if (pro.kode == 1)
{
Console.WriteLine("Nama Anda Ahmad");
}
else if (pro.kode == 2)
{
Console.WriteLine("Nama Anda Rizal");
}
else if (pro.kode == 3)
{
Console.WriteLine("Nama Anda Afani");
}
else
{
Console.WriteLine("Kode Salah");
}
}
}
}

Ini hasilnya


"Java"

package FlowControl_If;

import java.util.Scanner;
public class Program
{
//property
public byte Kode;
public static void main(String[] args)
{
Selek Cek = new Selek();
Cek.Seleksi();
}

}
class Selek
{
public void Seleksi()
{
//Deklarasi Class Program
Program pro = new Program();

Scanner baca = new Scanner(System.in);

System.out.print("Masukkan kode = ");
pro.Kode = baca.nextByte(); //memanggil property dari Class program sbg input

if (pro.Kode == 1)
{
System.out.print("Nama Anda Ahmad");
}
else if (pro.Kode == 2)
{
System.out.print("Nama Anda Rizal");
}
else if (pro.Kode == 3)
{
System.out.print("Nama Anda Afani");
}
else
{
System.out.print("Kode Salah");
}
}
}


hasilnya


"C++"

#include <cstdlib>
#include <iostream>

using namespace std;

class Selek
{
private : int kode; //property
public : void Seleksi()
{
cout<<"masukkan kode = ";
cin>>kode; //input menggunakan property Class Selek

if(kode == 1)
{
cout<<"nama anda Ahmad";
}
else if (kode == 2)
{
cout<<"nama anda Rizal";
}
else if (kode == 3)
{
cout<<"nama anda Afani";
}
else
{
cout<<"kode Salah";
}

}
};

int main(int argc, char *argv[])
{
Selek Cek; //deklarasi Class Selek
Cek.Seleksi(); //Panggil Method Seleksi dr Class Selek

cout<<endl;
cout<<endl;
system("PAUSE");
return EXIT_SUCCESS;
}


Ni hasilnya

Suni

Tips menghias blog

0 komentar
Tips Menghias Blog - Hiasan adalah hal yang mutlak di perlukan dalam hal mempercantik. bayangkan aja jika artis tanpa make up,, pasti kacau kan? Kali ini ane akan kasih tips untuk sobat - sobat tentang cara menghias blog yang baik meskipun tidak selalu benar... Hehehe.

Sebelum kita menghias, terlebih dahulu kita cari tahu dulu makna kata Hias. Menghias berarti mendandani, mempercantik dan lain sebagainya yang nampak oleh indra.  Ada ungkapan yang berkata bahwa " Cantik di dalam adalah lebih baik dari pada cantik dari luar" ... Ya... memang benar, dan ungkapan tersebut juga berlaku dalam mendesain blog. Hiasan sebanyak apapun, se indah apapun takkan berarti jika tidak di dukung dengan konten yang berkualitas. (yang pasti hasil arya sendiri alias bukan COPAS)

Banyak sekali  hiasan ( widget ) yang di sediakn gratis di dunia maya.. sobat bisa memasang jam, kalender, chatbox, counter, dan lain - lain di blog sobat dengan sangat mudah. Ada pula yang di sediakan pihak blogger meski dalam tampilan yang kurang menarik.

Saran gua..

1. Gunakanlah hiasan tersebut jika sangat di perlukan.

2. Hias blog anda dengan 2 hingga 4 warna saja supaya tidak kelihatan norak. Misalnya warna background abu-abu dengan outer wrapper berwarna putih.

3. Gunakan warna background  terang di balik tulisan gelap dan jangan sebaliknya, karna konon mata manusia lebih suka yang begitu.

4.Jangan menggunakan widget yang terlalu berat.

5. Gunakan Fungsi scroll atau spoiler pada widget yang tampil terlalu tinggi. misalnya pada arsip.

6. Minimkan widget di Halaman posting. widget yang tidak ingin di tampilkan tersebut bisa di tampilkan di homepage. Caranya bisa di baca di artikel ini _menampilkan widget hanya di postingan atau homepage

7. Pasang daftar isi di dalam postingan dan bukan di sidebar.

8. Sering - sering berkunjung ke blog yang populer dan lihat widget yang di gunakan.

9. Yang terakhir, rajin - rajinlah blogwalking dan saling sharing dengan blogger - blogger lain. gunakan media   forum, jejaring sosial, social bookmark dan lain - lain  yang menjamur di dunia maya untuk wadah promosi blog kamu. ( maaf yang ini sedikit melenceng) HEHEHE
Suni

SMP N 1 TATELU

0 komentar
Menjadi manusia yang sukses di awali atas tekat yang kuat, semangat yang membara, serta skill yang menunjang. Menyimak kata di atas, membawa saya teringat akan ucapan guru saya waktu SMP.
Semasa SMP saya bersekolah di SMP N 1 TATELU, satu - satunya sekolah yang paling banyak di minati dari desa Klabat hingga Tetey dan Matungkas hingga Lumpias. Kualitas pendidikan yang baik, mengantarkan sekolah ini masuk dalam sekolah yang paling di favoritkan dan terkenal di minahasa utara.

Tujuan saya memposting artikel ini seraya berbagi pada sobat blogger, terutama yang merasa alumni dari SMP N 1 TATELU, dengan harapan "sejauh apapun dan setinggi apapun engkau meraih impianmu", jangan engkau sekali - kali melupakan apa yang pernah terjadi dan kau alami di Sekolah ini


Untuk sementara di artikel ini tidak ada foto albumnya.. Jika ada di antara teman yang memiliki album foto SMP N1 TATELU bisa sobat kirimkan di alamt FB saya di http://www.facebook.com/csnice
Suni

Ramalan Zodiak 3 Juli 2012 Terbaru [Horoskop Bintang]

0 komentar
Bintang]
Ramalan Zodiak 3 Juli 2012 | Ramalan Bintang Zodiak | Ramalan Zodiak Hari ini - ramalan horoskop hari ini 3 Juli | Sourcecode-Xkali ini akan memposting Ramalan Zodiak Terbaru Tanggal 3 Juli 2012, dan ini adalah hanya sekedar referensi hidup jangan di patokan terhadap zodiak ini, jadi jangan terlalu serius hehehe.. ini lah Ramalan Zodiak terbaru 3 Juli 2012.
 

Inilah Ramalan Zodiak Hari ini 2 Juli 2012 
Ramalan Zodiak TAURUS
Percintaan tidak akan mengalami kehancuran setelah dia mengetahui kisah masa lalu Anda, Dia cukup dewasa untuk mengerti. Ada kesempatan untuk menabung, ada pemasukan yang cukup berlebih. Sesekali sisihkan untuk memenuhi kebutuhan keluarga. Kecintaan Anda pada bidang pekerjaan sekarang ini, membuat mata Anda tertutup untuk tawaran yang lain. Hati-hati jangan sampai Anda dimanfaatkan orang lain. Ada gangguan pada tubuh, terutama di bagian belakang. Anda terlalu banyak duduk, kurang minum air putih. Sebaiknya lakukan refleksi agar otot anda normal kembali.

Cinta: Pusing
Keuangan: Perlu skala prioritas
Kesehatan: Letih
Ramalan Zodiak GEMINI
Kejenuhan melanda hubungan Anda. Sebaiknya ajak dia untuk melakukan liburan ke tempat yang romantis. Tidak perlu mahal yang penting Anda berdua menikmatinya. Pengeluaran Anda terus mengalir layaknya aliran air yang tidak dapat dibendung. Hal ini akan membuat simpanan Anda mulai berkurang, segera cari solusinya. Kepercayaan yang diberikan harus dipegang teguh, jangan mudah tergoda bujuk rayu orang lain. Hati-hati ada tawaran yang membuat Anda hampir gelap mata. Pola makan Anda akhir-akhir ini cenderung tak seimbang, sepertinya kekurangan kalori. Tidak ada salahnya konsultasi ke dokter gizi.

Cinta: Sayang
Keuangan: Ada simpanan
Kesehatan: Lelah
Ramalan Zodiak CANCER
Hati-hati Anda terlalu asyik dengan kesendirian. Ingat usia. Anda akan terlambat bila hidup dengan cara sekarang ini. Diam-diam ada yang memperhatikan. Jangan menunda kebutuhan yang penting dan harus Anda lakukan. Kondisi dana masih cukup. Jangan lupa untuk terus mencari peluang usaha. Jika ingin membuka jenis usaha baru atau pindah kerja, sekarang saatnya. Namun harus dilaksanakan dengan hati-hati, karena dapat memengaruhi masa depan. Anda kurang mengonsumsi buah-buahan, sehingga memicu penyakit, terutama di sekitar mulut. Jangan lupa vitamin.

Cinta: Jauh
Keuangan: Belum banyak                        
Kesehatan: Stres
Ramalan Zodiak LEO
Jangan curiga dengan tingkahnya akhir-akhir ini. Dia sedang merencanakan sesuatu agar Anda bahagia. Usahanya akan membuat Anda berbunga-bunga. Tabungan Anda hari ini agak sedikit terkuras karena ada pengeluaran tidak terduga. Tidak masalah, Anda akan dapat menambah tabungan lagi. Anda mudah termakan isu yang berkembang di tempat kerja. Akibatnya, tindakan Anda selalu tanpa perhitungan. Hati-hati karier Anda sedang terancam. Usahakan untuk minum air putih sebanyak mungkin. Lakukan check up rutin.

Cinta: Jatuh cinta
Keuangan: Kurang aman
Kesehatan: Cepet ngantuk
Ramalan Zodiak VIRGO
Kondisi emosi Anda sedang labil. Jangan sampai membuat Anda berburuk sangka terhadap apapun. Jangan tersinggung, dia hanya bercanda. Sebaiknya menyendiri dulu. Anda mendapat kejutan pada keuangan, tambahan uang ada di rekening tanpa terduga. Tidak usah tahu dari mana, suatu saat Anda akan tahu. Jangan membuat persoalan makin rumit, masalah Anda mudah diselesaikan namun Anda terlalu panik menghadapinya. Sebaiknya introspeksi diri. Ada bantuan dari atasan. Jangan pernah mencoba untuk melakukan sesuatu yang dilarang oleh dokter, walaupun hal itu sangat Anda inginkan. Kondisi tubuh Anda belum benar-benar sembuh.

Cinta: Selingkuh
Keuangan: Stabil
Kesehatan: Perlu olahraga
Ramalan Zodiak LIBRA
Anda akan rasakan kehampaan dalam bercinta. Kesendirian Anda jangan hanya direnungkan dan diratapi. Sebaiknya aktifkan diri lagi ke kegiatan yang bersifat sosial. Atur pengeluaran, Anda membutuhkan dana yang cukup besar untuk memenuhi ide Anda. Usaha Anda akan menguntungkan, yang penting Anda serius menjalaninya. Anda dituntut untuk lebih bekerja keras, pekerjaan Anda sangat berat untuk dikerjakan sendiri. Komunikasikan bersama rekan Anda. Kebahagiaan akan Anda rasakan. Setiap masalah pasti ada jalan keluarnya, yang penting Anda harus bersabar dan tak terlalu berat memikirkannya. Hal ini dapat berpengaruh pada kesehatan Anda.

Cinta: Sedih
Keuangan: Terkuras
Kesehatan: Bugar
Ramalan Zodiak SCORPIO
Sebaiknya berhati-hati mengatasi orang ketiga yang mengganggu hubungan. Harus bijak. Sabar meski telah yakin dengan keputusan. Saat melakukan negosiasi, apalagi bila berkaitan dengan institusi keuangan sebaiknya lebih teliti. Ini untuk menghindari salah paham. Akhirnya semua urusan pekerjaan bisa kelar. Anda cukup puas dengan hasil yang diperoleh. Sekarang tiba saatnya untuk memulai sesuatu yang baru. Sedikit gangguan di kepala, mungkin hanya kurang rileks. Cobalah istirahat sejenak, agar aktivitas tak terganggu.

Cinta: Rindu
Keuangan: Buka bisnis
Kesehatan: Tulang keropos
Ramalan Zodiak SAGITARIUS
Semestinya Anda sudah menyadarinya selama ini. Namun, Anda dibutakan cinta. Ambil keputusan yang dapat meringankan beban hidup Anda. Jangan goyah lagi. Bila Anda tak ingin kehilangan kesempatan penting, usahakan melihat sesuatu secara detail. Kondisi keuangan saat ini cukup memuaskan, lebih efisien. Pikirkan secara masak keputusan untuk berhenti. Kalau perlu minta saran pada rekan kerja lain. Kalau sudah yakin, jalani. Namun, jangan sesali keputusan yang telah dibuat. Kondisi kesehatan Anda sangat baik, perlu Anda pertahankan. Untuk sementara jangan melakukan aktivitas yang tidak jelas, agar kesehatan tak terganggu.

Cinta: Bimbang
Keuangan: Puas
Kesehatan: Bugar
Ramalan Zodiak CAPRICORN
Banyak lawan jenis yang datang silih berganti menghampiri Anda, namun tidak ada satupun yang dapat memikat Anda. Jangan terlalu ingin memiliki seseorang yang sempurna. Keberuntungan sedang tak berpihak kepada Anda. Namun, mendekati akhir pekan, ada keberuntungan yang akan meningkatkan keuangan Anda. Tak perlu khawatir. Spontanitas Anda dalam bekerja memang tinggi, namun Anda harus tetap berhati-hati. Jangan sampai melakukan tindakan tanpa memikirkan efeknya. Mood Anda sedang bagus. Setelah liburan, tubuh Anda merasa pegal-pegal. Gerakan senam ringan dipagi hari akan sangat membantu mengatasi otot yang kaku.

Cinta: Tak ada persetujuan
Keuangan: Meningkat
Kesehatan: Sakit gigi
Ramalan Zodiak AQUARIUS
Jangan Anda terlalu mengumbar rayuan dan janji. Nantinya, si dia akan menuntut semua janji itu. Hindari spekulasi bisnis, posisi Anda kurang menguntungkan. Kerugian yang akan ada jangan sampai terjadi, selesaikan dulu usaha yang belum selesai. Kehidupan karier Anda belum bisa lepas dari kungkungan masalah, Anda semakin terjepit. Anda harus bersabar mencari inti masalahnya. Mengalah mungkin lebih baik. Sakit di bagian pinggang bisa jadi ancaman serius bila Anda tak mempedulikannya. Banyak banyak minum air putih mungkin bisa mengurangi keluhan Anda selama ini

Cinta: Yakin
Keuangan: Kacau
Kesehatan: Ingat minum
Ramalan Zodiak PISCES
Ternyata percintaan jarak jauh yang Anda lakukan dapat harmonis juga. Pertahankan semuanya, jangan mudah terpancing. Anda perlu penghasilan tetap, agar kondisi keuangan Anda seimbang dan efisien. Sikap spekulasi Anda jangan dulu diterapkan, keuangan Anda belum aman. Apa yang terjadi di kantor bukanlah semata-mata kesalahan Anda. Jangan takut berterus terang. Hal ini untuk menghindari hal-hal yang tidak diinginkan. Usahakan untuk membiasakan diri bangun pagi. Ini sangat baik untuk tubuh.

Cinta: Perlu penengah
Keuangan: Tak terkontrol
Kesehatan: Butuh nutrisi lengkap

Ramalan Zodiak ARIES
Sepertinya perubahan pada cinta Anda mulai terlihat. Si dia mulai perhatian pada Anda dan semakin mengutamakan kepantingan Anda. Kondisi keuangan Anda tak seimbang, lebih besar pengeluaran daripada penghasilan. Atur pengeluaran seminim mungkin. Buat skala prioritas. Akan ada pemeriksaan mendadak, masih ada kesempatan untuk menyelesaikan sisa pekerjaan yang tertunda. Gunakan kesempatan sebaik-baiknya, jangan terlalu santai. Segera ke dokter, gangguan yang Anda rasakan jangan didiamkan berlarut-larut. Sebaiknya ketahui penyakit Anda lebih dini agar segera teratasi.

Cinta: Mesra
Keuangan: Bertambah
Kesehatan: Relaks 

Itulah semua tentang Ramalan Bintang Zodiak 3 Juli 2012, semoga kalian semua merasa terhibur.  
 

Suni

Program Visual Basic Cinema 21

0 komentar

Sintaknya :

Dim harga, total As Currency
Dim jumlah As Integer

Sub bersih()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub

Private Sub Form_Activate()
bersih
cmbjam = "--Pilih--"
Option1.SetFocus
End Sub

Private Sub Option1_Click()
Option1.Value = True
txtjudul.Text = "Iron Man 2"
cmbjam.List(0) = "14:05"
cmbjam.List(1) = "15:55"
cmbjam.List(2) = "17:45"
cmbjam.List(3) = "19:35"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option2_Click()
Option2.Value = True
txtjudul.Text = "The Book Of Eli"
cmbjam.List(0) = "14:45"
cmbjam.List(1) = "17:00"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:30"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option3_Click()
Option3.Value = True
txtjudul.Text = "Green Zone"
cmbjam.List(0) = "14:55"
cmbjam.List(1) = "17:05"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:25"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub Option4_Click()
Option4.Value = True
txtjudul.Text = "Hurt Locker"
cmbjam.List(0) = "14:25"
cmbjam.List(1) = "16:50"
cmbjam.List(2) = "19:15"
cmbjam.List(3) = "21:40"
List1.List(0) = "Senin"
List1.List(1) = "Selasa"
List1.List(2) = "Rabu"
List1.List(3) = "Kamis"
List1.List(4) = "Jum'at"
List1.List(5) = "Sabtu"
List1.List(6) = "Minggu"
List2.List(0) = "A"
List2.List(1) = "B"
List2.List(2) = "C"
List2.List(3) = "D"
List2.List(4) = "E"
List2.List(5) = "F"
List2.List(6) = "G"
List2.List(7) = "H"
List2.List(8) = "I"
List2.List(9) = "J"
For s = 1 To 10
List3.AddItem s
Next
End Sub

Private Sub cmdbeli_Click()
time.Caption = cmbjam
date.Caption = List1
judulfilm.Caption = txtjudul

jumlah = List3
Select Case List1.ListIndex
Case 0, 1, 2, 3
harga = 20000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 4
harga = 30000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
Case 5, 6
harga = 45000
total = jumlah * harga
txttotal.Text = total
price.Caption = total
End Select
txtcash.SetFocus
End Sub

Private Sub txtcash_KeyPress(keyascii As Integer)
If keyascii = 13 Then
txtkembali = Val(txtcash) - Val(txttotal)
End If
End Sub

Private Sub cmdclear_Click()
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
txtjudul.Text = " "
cmbjam.Clear
List1.Clear
List2.Clear
List3.Clear
judulfilm.Caption = " "
time.Caption = " "
date.Caption = " "
txttotal.Text = " "
txtcash.Text = " "
txtkembali.Text = " "
End Sub

Private Sub cmdexit_Click()
X = MsgBox("Are Your Sure To Exit?", vbQuestion + vbYesNoCancel, "Confrimasi")
If X = vbYes Then
End
End If
End Sub
Suni

Tawk.to