Jejak Coretan Anak Manusia: 2011

Sabtu, 24 September 2011

Calculator Sederhana

Public Class Form1
    Dim angkasatu As Decimal
    Dim angkadua As Decimal
    Dim hasil As Decimal
    Dim status As Integer = 1
    Dim statuskoma As Integer = 0
    Dim statusminus As Integer = 0
    Dim hitung As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "1"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "1"
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "2"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "2"
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "3"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "3"
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "4"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "4"
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "5"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "5"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "6"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "6"
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "7"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "7"
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "8"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "8"
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "9"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "9"
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If TextBox1.Text = "0" Or status = 0 Then
            TextBox1.Text = "0"
            status = 1
        Else
            TextBox1.Text = TextBox1.Text & "0"
        End If
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "+"
        status = 0
        statuskoma = 0
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "-"
        status = 0
        statuskoma = 0
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "*"
        status = 0
        statuskoma = 0
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "/"
        status = 0
        statuskoma = 0
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        angkadua = Val(TextBox1.Text)
        hasil = angkasatu
        If hitung = "+" Then
            hasil = hasil + angkadua
        End If
        If hitung = "-" Then
            hasil = hasil - angkadua
        End If
        If hitung = "^" Then
            hasil = hasil * hasil
        End If
        If hitung = "√" Then
            hasil = Math.Sqrt(hasil)
        End If
        If hitung = "*" Then
            hasil = hasil * angkadua
        End If
        If hitung = "/" Then
            If angkadua = "0" Then
                MessageBox.Show("You Can't Devide by 0", "Warning")
            Else
                hasil = hasil / angkadua
            End If
        End If
        angkasatu = hasil
        TextBox1.Text = angkasatu
        status = 0
        statuskoma = 0
        statusminus = 0
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If angkasatu <> 0 Or angkadua <> 0 Or hasil <> 0 Then
            angkasatu = 0
            angkadua = 0
            hasil = 0
        End If
        TextBox1.Text = "0"
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If statusminus = 0 Then
            If status <> 0 And TextBox1.Text <> "0" Then
                TextBox1.Text = "-" & TextBox1.Text
                statusminus = 1
            End If
        ElseIf statusminus = 1 Then
            If status <> 0 Then
                TextBox1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, Len(TextBox1.Text) - 1)
                statusminus = 0
            End If
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If statuskoma = 0 Then
            If status <> 0 Then
                TextBox1.Text = TextBox1.Text & "."
                statuskoma = 1
            End If
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If TextBox1.Text <> "0" Then
            TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
            If Len(TextBox1.Text) = 0 Then
                TextBox1.Text = "0"
            End If
        End If
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "^"
        status = 0
        statuskoma = 0
    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If TextBox1.Text <> "0" Then
            TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
            If Len(TextBox1.Text) = 0 Then
                TextBox1.Text = "0"
            End If
        End If
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        angkasatu = Val(TextBox1.Text)
        hitung = "√"
        status = 0
        statuskoma = 0
    End Sub
End Class

KOTAK SILANG BINTANG

<html>
<head>
<title>KOTAK SILANG BINTANG</title>
</head>

<body>
<script type="text/javascript">
var n = prompt("masukkan bilangan");
var i = 1;
var j = 1;
for(i = 1 ; i <= n ; i ++){
for(j = 1 ; j <= n ; j ++)
{
if (i == 1 || i == n || j == 1 || j == n){
if (i <= n){
document.write("*  ");
}
}
else if(( i == j ) || (j == n - i+1 )){
document.write("*  ");
}
else
{
document.write("    ");
}

}
document.write("<br/>");
}
</script>
</body>
</html>

Selasa, 23 Agustus 2011

Immortal

PERKUMPULAN CINTA DAMAI ,TAPI TAK MAU DI USIK .

"PEACE , LOVE , N RESPECT" .
camkan itu kawan .

salam IMMORTAL !!

ATTITUDE

Attitude itu adalah perilaku atau sikap yang kita tunjukan dengan cara kita masing-masing dan bagaimana kita mengartikan sikap dan perilaku itu karena setiap manusia memiliki cara masing-masing untuk mengartikan dan menunjukkan bagaimana arti sikap dan perilaku orang itu masing-masing.

Jumat, 22 Juli 2011

JAVA

Bahasa pemrograman Java pertama lahir dari The Green Project, yang berjalan selama 18 bulan, dari awal tahun 1991 hingga musim panas 1992. Proyek tersebut belum menggunakan versi yang dinamakan Oak. Proyek ini dimotori oleh Patrick Naughton, Mike Sheridan, James Gosling dan Bill Joy, beserta sembilan pemrogram lainnya dari Sun Microsystems. Salah satu hasil proyek ini adalah maskot Duke yang dibuat oleh Joe Palrang.

Pertemuan proyek berlangsung di sebuah gedung perkantoran Sand Hill Road di Menlo Park. Sekitar musim panas 1992 proyek ini ditutup dengan menghasilkan sebuah program Java Oak pertama, yang ditujukan sebagai pengendali sebuah peralatan dengan teknologi layar sentuh (touch screen), seperti pada PDA sekarang ini. Teknologi baru ini dinamai "*7" (Star Seven).

Setelah era Star Seven selesai, sebuah anak perusahaan Tv kabel tertarik ditambah beberapa orang dari proyek The Green Project. Mereka memusatkan kegiatannya pada sebuah ruangan kantor di 100 Hamilton Avenue, Palo Alto.

Perusahaan baru ini bertambah maju: jumlah karyawan meningkat dalam waktu singkat dari 13 menjadi 70 orang. Pada rentang waktu ini juga ditetapkan pemakaian Internet sebagai medium yang menjembatani kerja dan ide di antara mereka. Pada awal tahun 1990-an, Internet masih merupakan rintisan, yang dipakai hanya di kalangan akademisi dan militer.

Mereka menjadikan perambah (browser) Mosaic sebagai landasan awal untuk membuat perambah Java pertama yang dinamai Web Runner, terinsipirasi dari film 1980-an, Blade Runner. Pada perkembangan rilis pertama, Web Runner berganti nama menjadi Hot Java.

Pada sekitar bulan Maret 1995, untuk pertama kali kode sumber Java versi 1.0a2 dibuka. Kesuksesan mereka diikuti dengan untuk pemberitaan pertama kali pada surat kabar San Jose Mercury News pada tanggal 23 Mei 1995.

Sayang terjadi perpecahan di antara mereka suatu hari pada pukul 04.00 di sebuah ruangan hotel Sheraton Palace. Tiga dari pimpinan utama proyek, Eric Schmidt dan George Paolini dari Sun Microsystems bersama Marc Andreessen, membentuk Netscape.

Nama Oak, diambil dari pohon oak yang tumbuh di depan jendela ruangan kerja "Bapak Java", James Gosling. Nama Oak ini tidak dipakai untuk versi release Java karena sebuah perangkat lunak lain sudah terdaftar dengan merek dagang tersebut, sehingga diambil nama penggantinya menjadi "Java". Nama ini diambil dari kopi murni yang digiling langsung dari biji (kopi tubruk) kesukaan Gosling. Konon kopi ini berasal dari Pulau Jawa. Jadi nama bahasa pemrograman Java tidak lain berasal dari kata Jawa (bahasa Inggris untuk Jawa adalah Java).

Pengertian JAVA

JAVA adalah bahasa pemrograman yang dapat dijalankan di berbagai komputer termasuk telepon genggam. Bahasa ini awalnya dibuat oleh James Gosling saat masih bergabung di Sun Microsystems saat ini merupakan bagian dari Oracle dan dirilis tahun 1995. Bahasa ini banyak mengadopsi sintaksis yang terdapat pada C dan C++ namun dengan sintaksis model objek yang lebih sederhana serta dukungan rutin-rutin aras bawah yang minimal. Aplikasi-aplikasi berbasis java umumnya dikompilasi ke dalam p-code (bytecode) dan dapat dijalankan pada berbagai Mesin Virtual Java (JVM). Java merupakan bahasa pemrograman yang bersifat umum/non-spesifik (general purpose), dan secara khusus didisain untuk memanfaatkan dependensi implementasi seminimal mungkin. Karena fungsionalitasnya yang memungkinkan aplikasi java mampu berjalan di beberapa platform sistem operasi yang berbeda, java dikenal pula dengan slogannya, "Tulis sekali, jalankan di mana pun". Saat ini java merupakan bahasa pemrograman yang paling populer digunakan, dan secara luas dimanfaatkan dalam pengembangan berbagai jenis perangkat lunak aplikasi ataupun aplikasi berbasis web.