Kamis, 22 Desember 2011


7 Penemuan Benda Purbakala Yang Belum Terungkap Misterinya

Quote:
1. The Grooved Spheres

Spoiler for 

Selama beberapa dekade terakhir, penambang di Afrika Selatan telah menggali bola2 logam misterius. Asalnya tidak diketahui, bola2 ini berdiameter sekitar satu inci atau lebih, dan ada beberapa yang terukir dgn 3 alur paralel disepanjang diameter bola. Dua jenis bola telah ditemukan: yg satu terdiri dari logam padat kebiruan dgn bintik2 putih, yg lain terdapat cekungan dan berisi zat putih kenyal. Hebatnya adalah bahwa batu dimana bola2 tsb ditemukan ini berasal dari era Prakambrium - dan berumur 2,8 miliar tahun! Siapa yg membuat bola-bola tsb dan untuk apa tujuannya tidak diketahui hingga kini.
Quote:
2. The Dropa Stones

Spoiler for 

Pada tahun 1938, sebuah ekspedisi arkeologi dipimpin oleh Dr Chi Pu Tei ke pegunungan Baian-Kara-Ula, China membuat penemuan yang mengejutkan di beberapa gua yang tampaknya telah dihuni oleh beberapa kebudayaan kuno. Terkubur oleh zaman di lantai gua terdapat ratusan piringan batu(disk stones). Berdiameter sekitar sembilan inci, masing-masing memiliki lingkaran ditengah dan terukir dengan alur spiral, terlihat oleh seluruh dunia seperti piringan hitam kuno(piringan musik) berumur 10.000-12.000 tahun. Alur spiral tsb, ternyata, terdiri dari huruf hieroglif kecil yang menceritakan kisah yang menakjubkan tentang pesawat ruang angkasa dari dunia yg jauh yang jatuh di pegunungan tsb. Pesawat luar angkasa tsb dikemudikan oleh orang-orang yang menyebut diri mereka Dropa, dan sisa keturunan mereka, mungkin, ditemukan di gua tsb.
Quote:
3. The Ica Stones

Spoiler for 

Pada awal tahun 1930-an, ayah dari Dr Javier Cabrera, Antropolog Kebudayaan Ica, Peru, menemukan ratusan batu utk upacara pemakaman di makam suku Inca kuno. Dr Cabrera, melanjutkan pekerjaan ayahnya, telah mengumpulkan lebih dari 1.100 batu andesit tsb, yang diperkirakan berumur 500-1.500 tahun dan telah dikenal luas sebagai Ica Stones. Batu-batu tsb berukiran, kebanyakan bergambar/bergrafis seksual (yang umum bagi kebudayaan), patung berhala dan yang lain menggambarkan praktek-praktek kedokteran seperti operasi jantung dan transplantasi otak. Ukiran yang paling menakjubkan, bagaimanapun, jelas menggambarkan dinosaurus seperti Brontosaurus, Triceratops (lihat foto), Stegosaurus dan Pterosaurus. Walaupun ada yg beranggapan Ica Stones hoax/tipuan, keasliannya belum tersangkalkan atau terbukti hingga saat ini.
Quote:
4. Giant Stone Balls of Costa Rica

Spoiler for 

Para pekerja mencangkul dan membakar melalui lebatnya hutan Kosta Rika guna membersihkan area untuk perkebunan pisang di tahun 1930-an terhambat oleh beberapa obyek yang luar biasa: puluhan bola batu, kebanyakan bola tsb bahkan bulat sempurna. Ukuran mereka bervariasi dari yang kecil seperti bola tenis sampai yang berdiameter 8 kaki (2,4 m) dengan berat 16 ton! Meskipun bola batu besar tsb jelas buatan manusia, tidak diketahui siapa yang membuat dan untuk tujuan apa, dan yang paling membingungkan, bagaimana mereka mencapai presisi lingkaran bola tersebut (bulat sempurna).
Quote:
5. Oera Linda Book

Spoiler for 

Buku Oera Linda adalah naskah Frisian yg kontroversial mencakup tema sejarah, mitologi, dan religius yg pertama kali muncul di abad ke-19. Tema didalam Buku Oera Linda termasuk katastrofisme, nasionalisme, matrilineal, dan mitologi. Buku tsb menyatakan bahwa Eropa dan daratan lainnya, dalam sejarah mereka, diperintah oleh serangkaian ibu rakyat yg terpimpin dalam hirarkisme pendeta-pendeta perempuan (perawan) yg mempersembahkan diri untuk dewi Frya, putri dari dewa tertinggi Wr-Alda dan Irtha,sang ibu bumi. Dan menyatakan bahwa peradaban Frisian tsb menguasai alfabet yang merupakan leluhur dari abjad Yunani dan Fenisia. Naskah tsb bertanggalkan tahun 1256. Diklaim bahwa buku tsb adalah salinan dari naskah yg lebih tua, dan jika asli, ditulis oleh orang-orang diantara tahun 2194 SM - 803 M.
Quote:
6. Impossible Fossils

Spoiler for 

Fosil, seperti yang kita pelajari di sekolah dasar, muncul dalam batuan yang terbentuk ribuan tahun yg lalu. Namun ada sejumlah fosil yg tidak masuk akal baik secara geologi maupun sejarah. Sebuah fosil jejak tangan manusia misalnya, ditemukan di batu kapur yg diperkirakan berumur 110 juta tahun. Sebuah fosil jari manusia yg ditemukan di Kutub Utara Kanada juga berumur 100-110 juta tahun. Dan terdapat fosil jejak kaki manusia, kemungkinan memakai sandal, ditemukan dekat Delta, Utah dalam endapan serpih diperkirakan berumur 300 jt - 600 jt tahun.
Quote:
7. Out-of-Place Metal Objects

Spoiler for 

Manusia bahkan belum ada 65 juta tahun yg lalu, apalagi orang-orang yg bisa membuat logam. Jadi bagaimana ilmu pengetahuan menjelaskan tabung logam semi-bulat digali dari batu Kapur berusia 65 juta-tahun di Prancis? Pada tahun 1885, sebuah bongkahan batubara pecah dan ditemukan sebuah logam berbentuk kubus yg jelas dibuat oleh tangan yg cerdas. Pada tahun 1912, karyawan di sebuah pabrik listrik memecahkan sebuah bongkahan besar batubara dan kemudian sebuah panci besi jatuh dari dalamnya! Sebuah paku ditemukan tertanam dlm sebuah bongkahan batu pasir dari Era Mesozoic. Dan masih banyak lagi, anomali/keanehan seperti diatas.

ngetest otak...


#include<stdio.h>
#define MAX 5

typedef struct node{
int isi[MAX];
};
node queue;
int head,tail,outdisplay;

void inisialisasi(){
head = 1;
tail = MAX;
}
void insert(){
int data;
printf("Enter a Value : ");scanf("%d",&data);
int x;
x =(tail%MAX)+1;
if((x%MAX)+1!=head){
tail=(tail%MAX)+1;
queue.isi[tail]=data;
outdisplay++;
}else{
printf("QUEUE is FULL");
}
}
void deleted(){
if((tail%MAX)+1!=head){
for(int i=head; i<=outdisplay; i++){
queue.isi[i]=queue.isi[i+1];
}
outdisplay--;
}else{
printf("QUEUE is Empty");
}
}
void display(){
if((tail%MAX)+1==head){
printf("QUEUE is Empty");
}else{
for(int i=head; i<=outdisplay; i++){
printf("[%d] ",queue.isi[i]);
}
}
printf("\n");
}

main()
{
int choise; char ch='o';
inisialisasi();
while(ch != 'n'){
printf("=================\n");
printf("    QUEUE\n");
printf("=================\n");
printf(" 1. InsertQueue\n");
printf(" 2. DeleteQueue\n");
printf(" 3. Display\n");
printf(" 0. End Program\n");
printf("=================\n");
printf(" Choise : ");scanf("%d",&choise);
switch(choise){
case 1: {insert();} break;
case 2: {deleted();} break;
case 3: {display();} break;
case 0: default: {ch='n';} break;
}
}
printf("\nEnd Program\n");

return 0;
}

Senin, 28 November 2011

tic tac toe

games tic tac toe

Public Class frmMain
Private strPlayer As String = "" ‘ Proses ini Digunakan untuk melacak yang mendapat giliran
Deklarasi variabel yang mewakili sel papan permainan’
    Private strpbxA1 As String = "Open"
    Private strpbxA2 As String = "Open"
    Private strpbxA3 As String = "Open"
    Private strpbxB1 As String = "Open"
    Private strpbxB2 As String = "Open"
    Private strpbxB3 As String = "Open"
    Private strpbxC1 As String = "Open"
    Private strpbxC2 As String = "Open"
    Private strpbxC3 As String = "Open"
   
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetGameDefaults() Proses ini Digunakan untuk pemanggilan prosedur yang menetapkan standar tugas
        ClearBoard()’ Proses ini Digunakan untuk pemanggilan prosedur yang membersihkan papan permainan
    End Sub

Private Sub SetGameDefaults()
        txtOutput.Text = "Click on Play to begin" Proses ini Digunakan untuk menampilkan pesan awal’
        strPlayer = "Player X" Proses ini Digunakan untuk mengatur pemain X untuk pergi pertama
    End Sub

    Private Sub ClearBoard()
        ‘Proses ini Digunakan untuk memuat gambar yang kosong ke setiap sel papan permainan
        pbxA1.Image = imlSquares.Images(2)
        pbxA2.Image = imlSquares.Images(2)
        pbxA3.Image = imlSquares.Images(2)
        pbxB1.Image = imlSquares.Images(2)
        pbxB2.Image = imlSquares.Images(2)
        pbxB3.Image = imlSquares.Images(2)
        pbxC1.Image = imlSquares.Images(2)
        pbxC2.Image = imlSquares.Images(2)
        pbxC3.Image = imlSquares.Images(2)
        Proses ini Digunakan untuk menandai setiap sel papan permainan sebagai pembuka dan yang tersedia untuk seleksi
        strpbxA1 = "Open"
        strpbxA2 = "Open"
        strpbxA3 = "Open"
        strpbxB1 = "Open"
        strpbxB2 = "Open"
        strpbxB3 = "Open"
        strpbxC1 = "Open"
        strpbxC2 = "Open"
        strpbxC3 = "Open"
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        ClearBoard() Proses ini Digunakan untuk pemanggilan prosedur yang membersihkan keluar papan permainan
        PlayGame()’ Proses ini Digunakan untuk pemanggilan prosedur untuk memulai bermain game’
    End Sub

    Private Sub PlayGame()
        Proses ini Digunakan untuk Posting pesan yang mengidentifikasi siapa yang mendapat giliran
        txtOutput.Text = strPlayer & "'s turn."
        ‘Proses ini Digunakan untuk mengaktifkan semua sel papan permainan
        pbxA1.Enabled = True
        pbxA2.Enabled = True
        pbxA3.Enabled = True
        pbxB1.Enabled = True
        pbxB2.Enabled = True
        pbxB3.Enabled = True
        pbxC1.Enabled = True
        pbxC2.Enabled = True
        pbxC3.Enabled = True
        btnPlay.Enabled = False ‘Proses ini Digunakan untuk menonaktifkan akses tombol Play’
    End Sub

     Prosedur ini mengeksekusi ketika seorang pemain klik pada sel pertama pada baris pertama
    Private Sub pbxA1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxA1.Click
        Dim strGameOver As String = "" ‘Proses ini Digunakan untuk untuk melacak status permainan
        ‘Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxA1 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxA1.Image = imlSquares.Images(1)
            strpbxA1 = "Player X"
        Else
            pbxA1.Image = imlSquares.Images(0)
            strpbxA1 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’
        strGameOver = CheckForWinner()
  ' Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
    End Sub
    
Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel kedua pada baris pertama’
    Private Sub pbxA2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxA2.Click
        Dim strGameOver As String = "" ‘Proses ini Digunakan untuk untuk melacak status permainan
        ‘Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxA2 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return ‘Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxA2.Image = imlSquares.Images(1)
            strpbxA2 = "Player X"
        Else
            pbxA2.Image = imlSquares.Images(0)
            strpbxA2 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’
        strGameOver = CheckForWinner()
        ' Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
    End Sub
    
     Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel ketiga pada baris pertama’
    Private Sub pbxA3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxA3.Click
        Dim strGameOver As String = "" Proses ini Digunakan untuk melacak status permainan
        Beritahu pemain jika sel telah dipilih
        If strpbxA3 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return ‘Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxA3.Image = imlSquares.Images(1)
            strpbxA3 = "Player X"
        Else
            pbxA3.Image = imlSquares.Images(0)
            strpbxA3 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’
        strGameOver = CheckForWinner()
        Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
    End Sub

     ‘Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel pertama pada baris kedua’
    Private Sub pbxB1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxB1.Click
        Dim strGameOver As String = "" Proses ini Digunakan untuk melacak status permainan
        ‘Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxB1 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return ‘Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxB1.Image = imlSquares.Images(1)
            strpbxB1 = "Player X"
        Else
            pbxB1.Image = imlSquares.Images(0)
            strpbxB1 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’
        strGameOver = CheckForWinner()
        Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
DetermineGameStatus(strGameOver)
    End Sub

     Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel kedua pada baris kedua’
    Private Sub pbxB2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxB2.Click
        Dim strGameOver As String = "" Proses ini Digunakan untuk melacak status permainan
  ‘Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxB2 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxB2.Image = imlSquares.Images(1)
            strpbxB2 = "Player X"
        Else
            pbxB2.Image = imlSquares.Images(0)
            strpbxB2 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’       
strGameOver = CheckForWinner()
        Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
    End Sub

     Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel ketiga pada baris kedua’
    Private Sub pbxB3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxB3.Click
        Dim strGameOver As String = "" Proses ini Digunakan untuk melacak status permainan
        Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxB3 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxB3.Image = imlSquares.Images(1)
            strpbxB3 = "Player X"
        Else
            pbxB3.Image = imlSquares.Images(0)
            strpbxB3 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’
strGameOver = CheckForWinner()
        Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
     End Sub

     ‘Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel pertama di baris ketiga’
    Private Sub pbxC1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxC1.Click
        Dim strGameOver As String = "" Proses ini Digunakan untuk melacak status permainan
        ‘Proses ini Digunakan untuk memberitahu pemain jika sel telah dipilih
        If strpbxC1 <> "Open" Then
            txtOutput.Text = "The square has already been taken." & _
            ControlChars.CrLf & strPlayer & "'s turn."
            Return ‘Proses ini Digunakan untuk meninggalkan prosedur Sub’
        End If
        If strPlayer = "Player X" Then
            pbxC1.Image = imlSquares.Images(1)
            strpbxC1 = "Player X"
        Else
            pbxC1.Image = imlSquares.Images(0)
            strpbxC1 = "Player O"
        End If
        Proses ini Digunakan untuk pemanggilan prosedur yang memeriksa apakah permainan telah dimenangkan’       
strGameOver = CheckForWinner()
        Proses ini Digunakan untuk pemanggilan prosedur yang menyatakan pemain diaktifkan atau menampilkan pesan yang menyatakan pemenang
        DetermineGameStatus(strGameOver)
    End Sub
    
     ‘Proses ini Digunakan untuk mengeksekusi ketika seorang pemain klik pada sel kedua di baris ketiga’
    Private Sub pbxC2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbxC2.Click