Selamat mencari informasi menarik dari blog saya

Program Pembayaran Tagihan Rekening Listrik

Posted by Unknown Sunday, December 8, 2013 1 comments

Public Class Form_Pembayaran_Rekening_Listrik

    Private Sub Form_Pembayaran_Rekening_Listrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("TOK-MED-001")
        kode.Items.Add("RUM-BEL-002")
        kode.Items.Add("SWA-TEM-003")
        kode.Items.Add("PAB-MAR-004")
        kode.Items.Add("TOK-BIN-005")
        kode.Items.Add("TOK-PAK-006")
        Rancangan_Table()
        Biaya_Beban.ReadOnly = True
        HargaperKwh.ReadOnly = True
        Total_Tagihan.ReadOnly = True
        besar_Pemakaian.ReadOnly = True
        Pajak.ReadOnly = True
        pEMBAYARAN.ReadOnly = True
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        Select Case x
            Case "001"
                nama.Text = "ERIXON A S"
                no.Text = x
            Case "002"
                nama.Text = "RINALDI PRATAMA"
                no.Text = x
            Case "003"
                nama.Text = "ABDUL RAHMAD"
                no.Text = x
            Case "004"
                nama.Text = "SUHENDRIK"
                no.Text = x
            Case "005"
                nama.Text = "ROHIMAN"
                no.Text = x
            Case "006"
                nama.Text = "ARIFIN S P"
                no.Text = x
        End Select
        x = Microsoft.VisualBasic.Left(kode.Text, 3)
        Select Case x
            Case "PAB"
                HargaperKwh.Text = 10000
                Biaya_Beban.Text = 1000000
                tipe.Text = "PABRIK"
            Case "RUM"
                HargaperKwh.Text = 200
                Biaya_Beban.Text = 50000
                tipe.Text = "RUMAH"
            Case "SWA"
                HargaperKwh.Text = 1500
                Biaya_Beban.Text = 400000
                tipe.Text = "SWALAYAN"
            Case "TOK"
                HargaperKwh.Text = 500
                Biaya_Beban.Text = 150000
                tipe.Text = "TOKO"
        End Select
        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "MEDAN"
            Case "BEL" : daerah.Text = "BELAWAN"
            Case "TEM" : daerah.Text = "AKSARA"
            Case "MAR" : daerah.Text = "MARENDAL"
            Case "BIN" : daerah.Text = "BINJAI"
            Case "PAK" : daerah.Text = "LUBUK PAKAM"
        End Select
    End Sub
    Sub Rancangan_Table()
        With lv
            .Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Center)
            .Columns.Add("Nama Pelanggan", 100, HorizontalAlignment.Left)
            .Columns.Add("No Urut", 100, HorizontalAlignment.Left)
            .Columns.Add("Tipe", 100, HorizontalAlignment.Left)
            .Columns.Add("Daerah", 100, HorizontalAlignment.Left)
            .Columns.Add("Meter Bulan Lalu", 100, HorizontalAlignment.Left)
            .Columns.Add("Meter Bulan Ini", 100, HorizontalAlignment.Left)
            .Columns.Add("Besar Pemakaian", 100, HorizontalAlignment.Left)
            .Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
            .Columns.Add("Harga Per KWH", 100, HorizontalAlignment.Left)
            .Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
            .Columns.Add("Pajak", 100, HorizontalAlignment.Left)
            .Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub isi_table()
        Dim lst As New ListViewItem
        With lst
            .Text = kode.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(no.Text)
            .SubItems.Add(tipe.Text)
            .SubItems.Add(daerah.Text)
            .SubItems.Add(mbl.Text)
            .SubItems.Add(mbi.Text)
            .SubItems.Add(besar_Pemakaian.Text)
            .SubItems.Add(Biaya_Beban.Text)
            .SubItems.Add(HargaperKwh.Text)
            .SubItems.Add(Total_Tagihan.Text)
            .SubItems.Add(Pajak.Text)
            .SubItems.Add(pEMBAYARAN.Text)
            lv.Items.Add(lst)
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        isi_table()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bersih(Me)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub
    Sub bersih()
        kode.Text = ""
        nama.Text = ""
        no.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        mbi.Text = ""
        mbl.Text = ""
        Biaya_Beban.Text = ""
        besar_Pemakaian.Text = ""
        Biaya_Beban.Text = ""
        HargaperKwh.Text = ""
        Total_Tagihan.Text = ""
        Pajak.Text = ""
        pEMBAYARAN.Text = ""
    End Sub

    Private Sub mbi_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles mbi.KeyPress
        If Asc(e.KeyChar) = 13 Then
            besar_Pemakaian.Text = Val(mbi.Text) - Val(mbl.Text)
            Total_Tagihan.Text = Val(Biaya_Beban.Text) + Val(HargaperKwh.Text) * besar_Pemakaian.Text
            Pajak.Text = 1.5 * Total_Tagihan.Text
            pEMBAYARAN.Text = Val(Total_Tagihan.Text) + Val(Pajak.Text)

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lv.Items.Clear()
    End Sub
End Class
Read More..

Membuat Program Form Nilai Mahasiswa menggunakan VB.Net 2008

Posted by Unknown Friday, November 15, 2013 0 comments
'Designlah seperti pada gambar'



 'Berikut listing program yang akan anda inputkan'


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110935")
        npm.Items.Add("12010022")
        npm.Items.Add("12020023")
        kode_dosen.Items.Add("D123")
        kode_dosen.Items.Add("D345")
        kode_dosen.Items.Add("D678")
        kode_matakuliah.Items.Add("K001")
        kode_matakuliah.Items.Add("K002")
        kode_matakuliah.Items.Add("K003")
        Dim i As Integer
        Nilai_kehadiran.Items.Clear()
        For i = 1 To 100
            Nilai_kehadiran.Items.Add(i)
        Next
        Nilai_tugas.Items.Clear()
        For i = 1 To 100
            Nilai_tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110935"
                nama.Text = "Erixon Andrianus Saruksuk"

            Case "12020023"
                nama.Text = "Abdul Rahmad"

            Case "12010022"
                nama.Text = "Rinaldi Pratama"


        End Select
        Dim x As String
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "02" Then
            jurusan.Text = "Manajemen Informatika"
        ElseIf x = "01" Then
            jurusan.Text = "Teknik Komputer"
        End If
        x = Strings.Mid(npm.Text, 3, 2)
        If x = "11" Then
            Jenjang.Text = "S I"
        ElseIf x = "02" Then
            Jenjang.Text = "D III"
        ElseIf x = "01" Then
            Jenjang.Text = "D I"
        End If
    End Sub

    Private Sub KD_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        Select Case kode_dosen.Text
            Case "D123"
                Nama_dosen.Text = "Mesran,S.kom, M.Kom"
            Case "D345"
                Nama_dosen.Text = "Rivalry K Hondro, S.Kom"
            Case "D678"
                Nama_dosen.Text = "Kenedi Tampubolon,S.si, M.Kom"

        End Select
    End Sub

    Private Sub KM_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
        Select Case kode_matakuliah.Text
            Case "K001"
                nama_mata_kuliah.Text = "Pemrograman Visual 1"
            Case "K002"
                nama_mata_kuliah.Text = "Sistem Basis Data"
            Case "K003"
                nama_mata_kuliah.Text = "Matriks dan Transformasi Linear"
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        Nilai_Akhir.Text = 0.1 * Nilai_kehadiran.Text + 0.15 * Nilai_tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= 50 Then
            Keterangan.Text = "Lulus"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub


    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Close()
    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
        nama.Text = ""
        npm.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_tugas.Text = ""
        Nilai_kehadiran.Text = ""
        Nilai_Akhir.Text = ""
        kode_dosen.Text = ""
        kode_matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_dosen.Text = ""
        nama_mata_kuliah.Text = ""
        Jenjang.Text = ""
        jurusan.Text = ""
    End Sub
End Class

'Jalankan Program dengan menekan tombol F5 pada keyboard'

'contoh hasil tampilan program ketika dijalankan'

Read More..

Merubah Format CDR ke JPG

Posted by Unknown Saturday, August 31, 2013 0 comments
Halo Sobat Blogger, kali ini saya akan membagikan info yang baru saja saya dapat, Pernahkan Sobat Blogger membuat banner di Corel Draw??? mungkin, tapi file save nya kan nggak format JPG. Ya sudah saya bantu agan yang lagi kebingungan cara ubah Format CDR ke JPG. Berikut saya uraikan langkahnya
Langkah 1
Buka file CDR anda yang akan mau di rubah ke JPG. Kalau gatau caranya, gampang,! Disini saya akan jelaskan langkah – langkah nya.
Klik menu file - open (Ctrl+o)
Collection





Langkah 2
Klik Bitmaps – Convert to Bitmap maka akan muncul kotak dialog kurang lebih seperti ini :

Jangan takut anda bisa langsung pilih ukuran Resolution nya, untuk resolution bisa anda pilih yang standart saja yaitu 300 dpi, jika file yang mau anda rubah dengan ukuruan besar maka kurangi ukuran Resolutionny.
Setelah itu beri tanda centang pada kotak Apply ICC Profile dan kotak Transparent Background nya. lalu klik OK

Maka dengan secara otomatis file anda yang tadinya .cdr sudah menjadi sebuah Bitmap (gambar).
Langkah 3
Di sini anda tinggal mengeksportnya ke dalam bentuk JPG
adapun caranya klik menu file – Eksport (Ctrl+E)


Kemudian anda pilih lokasi diamana anda mau menyimpan file tersebut – beri nama di kotak File name dan pilih format JPG Bitmap di dalam kotak Save as type :



Kemudian klik tombol Export yang ada di bawah kotak dialog
Berikutnya anda akan di suguhi lagi dengan kotak dialog seperti ini :



Untuk pengaturannya biasanya corel secara otomatis telah mengaturnya, jika corel anda tidak mengatur dengan otomatis anda bisa mengaturnya sendiri , yaitu
Pada kolom Image Size terdapat kotak Width, Height, Format Resolution, Resolution, Maintain aspect ratio dan Maintain original size
Dalam kotak width dan height isi dengan 100 %
Di kotak Format Resolution pilih pixels
Di kotak Resolution isi dengan 300 dpi
Sedangkan di kotak Maintain aspect ratio di beri tanda Centang dan untuk kotak Maintain original size tidak usah di sentuh .. hehe
Contoh Hasilnya pengaturanya bisa di lihat di bawah ini :



 Berikutnya anda akan di hadapi dengan kotak dialog .. tapi kali ini berbeda, anda cukup klik Option pada kotak dialog tersebut lalu isi angka 100 di kolom Dither Intensity, lalu klik OK.
Jika sudah maka akan muncul kotak dialog seperti ini :
Langsung saja anda beri centang pada kotak Optimize kemudian di kolom Sub Format pilih Standard (4:4:4) lalu di bagian Compression tarik hingga angka 18, Sedangkan di Smoothing nya tarik hingga angka 93, kurang lebih seperti ini :
kemudian klik OK.
SELESAI
Kalo berhasil Agan sudah mendapatkan object dengan format JPG, kalo belum coba ulangi lagi langkah-langkahnya  secara Logis.
 
 Terimakasih sudah berkunjung. Silahkan Tinggalkan komentar dibawah :)
 
Referensi : dari sini 
Read More..

Lowongan Kerja Yang Selalu Ada

Posted by Unknown Wednesday, July 24, 2013 0 comments
Halo sobat BLogger, kali ini saya akan membagikan satu informasi mengenai Pekerjaan. Bagi kaum muda yang berada pada posisi menengah kebawah pasti sulit dan tak mampu untuk melanjutkan kuliah, ingin bekerja tapi gelar tidak ada. Hanya sebatas ijasah SMA yang kini tidak banyak terpakai lagi untuk melamar pekerjaan. Saya ingin berbagi informasi ini pada teman-teman semua, bahwasannya kita generasi muda masih dapat mempunyai peluang untuk dapat duduk di bangku kuliah...

Artikel ini mungkin relevan pada golongan menengah kebawah, karena saya sudah jamin anda yang masih memiliki orang tua yang berkelebihan dapat dengan mudah hidup di zaman abad ke 20 ini.

Saya menyarankan kepada teman-teman yang masih mempunyai harapan dan semangat tinggi untuk sukses tidak ada salahnya mencoba mengajukan diri untuk bekerja di PT.ISS INDONESIA,

Jika kalian hidup dalam gengsi yang tinggi saya jamin hidup anda tidak akan nyaman, tapi cobalah jalani semuanya dengan ikhlas..

sobat bisa cari infonya di google untuk mengetahui letak alamat sesuai posisi anda berada,

untuk daerah Medan

Sobat bisa berkunjung ke daerah Jalan SM. Raja, tepatnya di Jalan Bahagia by Pass/Simpang Sempurna Ujung.


Waktu kita, dapat kita gunakan lebih efisien lagi jika kita bekerja dan belajar.

Berbagai Posisi jasa Pelayanan dapat anda coba.

^^ Syarat  berkas yang dibutuhkan tidak lah sulit,
1. FC Ijasah min SMP/sederajat ( nb: Ijasah bisa lebih tinggi lagi tergantung posisi yang dikehendaki)
2. FC KTP
3. Surat Lamaran
4. CV
5. Pas Photo 3x4 warna

semua di satukan dalam amplop besar warna coklat, dan dikirm ke alamat kantor ISS berada. untuk info selanjutnya dapat menghubungi saya 081360380827(SMS Saja)

Ok, semoga artikel ini dapat membantu teman-teman yang sedang sulit dalam mencari pekerjaan.

Read More..

Cara Menampilkan Tab Earrning di Dashboard Blogger

Posted by Unknown 0 comments
 photo gbr_zpsda46ec07.jpgKetika SObat sedang ngeblog dan merasa banyak memiliki artikel pasti ada hasrat ingin menjadikan blog kita menjadi lahan penghasilan, namun tab uangkan yang kita cari untuk mendaftar nya tidak ada. Bagaimana?? apa kendalanya?? Jangan khawatir, dari pengalaman kita belajar, dan saya akan berbagi pengalaman yang saya coba ini, meskipun saya sendiri belum diterima oleh adsense. tapi Lumayan satu jalan terbuka, untuk mencoba blog kita di uji diterima atau tidak oleh Google Adsense, berikut langkah cara menampilkan Tab Uangkan/Earnnings pada Dashboard sobat.

Saya mencoba ini dengan tampilan Dashboard baru blogger

 photo earning_zpscc4c39a1.jpg


Tampilan Gambar ini akan memudahkan sobat tanpa harus saya terangkan panjang lebar. ketika sobat sudah memilih bahasannya jangan lupa di save, dan reload atau refresh halamannya.

Selamat Mencoba.. jika ada kendala jangan sungkan untuk bertanya...



Read More..

Beberapa Syntax Kesamaan fungsi Input/Output dalam 3 Bahasa ini

Posted by Unknown Tuesday, July 23, 2013 0 comments


Selamat malam semuanya, kali ini saya akan mencoba membantu teman semua dalam mengenal lebih dalam lagi ketiga bahasa yakni  pascal, c, dan c++.

sobat tentu penasaran ketika melihat program yang tampilannya sama, namun bahasa nya berbeda. sebenarnya itu dapat kita analisa dari pemakaian Menampilkan dan Menulis yang ada pada bahasa tersebut.

Berikut beberapa hal yang dapat anda pelajari dari kesamaan fungsi didalam ketiga bahasa ini



*Menulis/ Input Data


Pascal

untuk Menulis sebuah data baik itu huruf ataupun angka kita menggunakan read didalam bahasa Pascal, contoh


nilai : byte;

Read(nilai);

C

int nilai;

scanf("%d",&nilai);

C++

int nilai;

Cin>>nilai;

Menampilkan/Output Data

Dalam Menampilkan sebuah statement kita tidak perlu mengetikannya lagi dari keyboard ketika menjalankan program tersebut.

Pascal

write('Bahasa Pemrograman');

C

printf('Bahasa Pemrograman');

C++

Cout<<"Bahasa Pemrograman";

Ok, sobat BLogger,, semoga penjelasan yang singkat ini dapat membantu anda dalam mempelajari Bahasa Pemrograman, mana tahu anda memiliki cita-cita jadi seorang Programmer... :D 

Pembelajaran ini disambung lagi esok hari, Selamat Malam.









Read More..

Program Menampilkan Nilai Huruf Menggunakan Bahasa Pascal

Posted by Unknown 0 comments


Hello sobat Programmer, sebelumnya kita telah mencoba membuat Program Menampilkan Nilai Huruf Menggunakan Bahasa C, nah kali ini sobat bisa mencoba nya dengan Bahasa Pascal, sekaligus sobat dapat mencoba menganalisa perbedaan keduanya.

yuk mari dicoba,

Uses Crt;
Var
   Na :byte;
   Nh :char;

Begin
     Clrscr;
     Writeln('Mencari Nilai Huruf');
     Writeln('-------------------------');
     Write  ('Inputkan Nilai Angka:'); Readln(na);
     Case na of
          80..100  :Nh:='A';
          70..79   :Nh:='B';
          60..69   :Nh:='C';
          50..59   :Nh:='D';
          0..49    :Nh:='E';
     End;
     Writeln('Nilai Huruf :', Nh);
     Readln;
End.
Read More..

Program Penambahan Matriks

Posted by Unknown 0 comments



#include"iostream.h"
void main()
{
    int a[3][3], b[3][3],c[3][3];
    int i,j;
    cout<<"Program Penambahan Matrik\n";
    cout<<"\n Input Matrik A:";
    for(i=0;i<=2;i++)
        for(j=0;j<=2;j++)
        {
            cout<<"Nilai a["<            cin>>a[i][j];
        }
    cout<<"\n Input Matrik B:";
    for (i=0;i<=2;i++)
        for(j=0;j<=2;j++)
        {
            cout<<"Nilai b["<            cin>>b[i][j];
        }
            for(i=0;i<=2;i++)
                for(j=0;j<=2;j++)
                    c[i][j]=a[i][j]+b[i][j];
                    cout<<"Matrik C";
                    for(i=0;i<=2;i++)
                        for(j=0;j<=2;j++)
                            cout<<"\nc["<}
Read More..

Program Menampilkan Nilai Huruf menggunakan Bahasa C

Posted by Unknown 0 comments


Berikut contoh Program Menampilkan Nilai Huruf menggunakan Bahasa C

#include"conio.h"
#include"stdio.h"

main()
{
    int na;
    char nh;
    clrscr();
    printf("Mencari Nilai Huruf \n------\n");
    printf("Inputkan Nilai Angka :");
    scanf("%d",&na);
    if(na>=80 && na<=100)
        nh='A';
    else if(na>=70 && na<=79)
        nh='B';
    else if(na>=60 && na<=69)
        nh='C';
    else if(na>=50 && na<=59)
        nh='D';
    else if(na>=0 && na<=49)
        nh='E';
    printf("Nilai Huruf:%c",nh);
}
Read More..

Program Pemakaian Seleksi Case pada Pascal

Posted by Unknown Saturday, July 20, 2013 0 comments



Bahasa pemrograman PASCAL menyediakan 2 jenis seleksi dalam pemroses suatu data, yaitu IF dan CASE. Pada artikel ini akan dibahas pemakaian seleksi case of pada PASCAL.

Berikut contoh program pemakaian seleksi case of pada pascal.

uses crt ;
var
   Matakuliah    : string[30];
   nilai  : byte ;
   ket,Nh    : string[10];
Begin
     clrscr ;
     Write('Mata Kuliah   : '); readln(matakuliah) ;
     Write('Nilai         : '); readln(nilai) ;
     Case nilai of
    80..100: Nh:='A' ;
    70..79 : Nh:='B' ;
    60..69 : Nh:='C' ;
    50..59 : Nh:='D' ;
    0..49  : Nh:='E' ;
    end;
    if nilai >49 then Ket:='lulus' else ket:='Gagal';
     Writeln('Nilai Huruf   : ', Nh);
     Writeln('Keterangan    : ', ket);
     readln;
end.

Selamat Mencoba.


Read More..

Thomas Suarez, Programmer Cilik Pengganti Steve Jobs

Posted by Unknown Tuesday, July 2, 2013 0 comments
Dilihat dari tampangnya, sedikit mirip dengan saya, tapi amat sangat jauh lebih imut dia. Betul tidak ? hehe...
Siapakah dia ? Ya, namanya Thomas Suarez. Anda mungkin tidak kenal......apalagi saya....tidak kenal sama sekali. Hehe... Lalu apa hubungannya dengan Steve Jobs dan Apple ??


Begini, setelah meninggalnya Visioner dan Founder CEO Apple, Steve Jobs, beberapa waktu lalu, semua orang bertanya-tanya, siapakah yang mampu menggantikannya. Bukan untuk menggantikannya sebagai CEO Apple, karena Apple telah menunjuk Tim Cook untuk ini.
Steve Jobs terkenal dengan kejeniusan, pesona, dan visi masa depannya. Karakter dan sifat Jobs inilah yang menjadi fokus semua orang, sehingga memunculkan pertanyaan siapa "The Next Steve Jobs". Dan yang pasti bukan saya. Hehe...

Pertanyaan tersebut sepertinya akan segera terjawab. Dalam sebuah acara sharing teknologi TEDx ManhattanBeach, seorang anak yang masih duduk dibangku kelas 6 SD tampil memukau saat mempresentasikan produk ciptaan dan perusahaan startup-nya ke audience, dengan penuh percaya diri dan bahasa tubuh yang mengingatkan publik akan mendiang Steve Jobs.
Anak ini bernama Thomas Suarez, seorang anak berusia 12 tahun berasal dari California, AS. Dia adalah pendiri sebuah perusahaan startup CarrotCorp yang saat ini sedang mengembangkan aplikasi untuk sistem operasi Apple iOS.


Seperti yang di kutip dari Daily Mail, Thomas Suarez ternyata memang seorang pengagum Steve Jobs, telah tertarik membuat program komputer sejak taman kanak-kanak dan belajar secara otodidak beberapa bahasa pemrograman seperti Phyton, C, dan Java. Tidak seperti saya yang membuat blog saja masih acak-acakan seperti sarang penyamun. Hehe..

Karya pertamanya, yaitu Earth Fortune, hadir di akhir tahun 2010 lalu, sebuah program yang memungkinkan perubahan warna bumi berdasarkan peruntungan penggunanya.

Saat ini Thomas tetap fokus menimba ilmu di sekolah formal sambil tetap mengelola perusahaan startupnya, CarrotCorp.

Presentasinya di TEDx ini juga sedang memaparkan produk-produk yang dihasilkan oleh perusahaan startupnya itu. Selain memukau seluruh audience yang hadir, Thomas membuat penasaran dengan memamerkan sebuah tagline yang berbunyi "Uploading pictures will never be the. Coming soon."

Apakah Thomas Suarez dapat menggantikan idolanya itu, Steve Jobs ? Setidaknya dia mempunyai potensi untuk menuju ke arah sana.





source
Read More..

Mengenal bahasa pemrograman HTML

Posted by Unknown Sunday, June 30, 2013 0 comments
Bahasa pemrograman HTML
 
pengertian pemrograman htmlBahasa mark up HTML merupakan bahasa program utama yang digunakan dalam pembuatan website atau blog. Kode ini memiliki arti penting dalam desain web karena merupakan pembentuk struktur dalam website, baik garis, huruf, warna, tampilan latar belakang, kerangka halaman dan elemen-elemen lainnya dalam sebauh halaman website.
Hingga saat ini HTML telah meluncurkan HTML 5 yang merupakan versi terbaru dari bahasa ini. Pengembangan in bertujuan untuk memperkuat dukungan terhadap sistem multimedia terbaru, supaya dapat mudah dibaca dan dipahami oleh komputer dan pendukungnya seperti browser. Meskipun terjadi pengembangan dan penambahan elemen-elemen baru dalam HTML, namun tidak banyak yang berubah, semua masih sama seperti HTML versi sebelumnya.

Sejarah bahasa HTML

Anda mungkin bertanya-tanya tentang sejak kapan bahasa HTML digunakan. Pada tahun 1980, IBM mengembangkan sebuah sistem yang diberi nama Generalized Markup Language atau GML. Lalu pada tahun 1986, ISO atau badan standardisasi dunia menyatakan GML sebagai bahasa standar yang digunakan dalam pembuatan dokumen. IBM lalu mengubah nama GML menjadi SGML dengan tambahan S sebagai singkatan dari Standarized.
sejarah pemrograman html
HTML sendiri merupakan Subnet atau bagian dari SDML yang dapat juga digunakan untuk menjelajahi internet, terutama yang menggunakan protokol WWW atau Web. Dokumen HTML pada dasarnya tidak jauh berbeda dengan dokumen yang lain, yakni berisi teks dan kode untuk memformat tampilan teks tersebut. Perbedaan yang adalah penggunaan tag tertentu. Misalnya adalah jika ingin memiringkan teks, harus ditambahkan tag di awal teks dan tag diakhir teks supaya dapat menutup perintah sebelumnya.
Empat elemen pada bahasa HTML pada umumnya adalah:
  1. Link
Link adalah pranala atau tautan yang digunakan untuk merujuk pada satu bagian dokumen atau halaman di luar dokumen yang ada. Misalnya jika anda ingin menambahkan link situs tertentu ke dokumen anda, maka anda bisa menggunakan link yang ditautkan pada suatu teks. Link ini akan ditampilkan berbeda, umumnya dengan garis dibawah teks yang bisa diklik untuk menuju ke halaman tertentu.
  1. Style teks
Kode ini digunakan untuk menambahkan style atau format pada teks seperti menebalkan, memiringkan, memberi garis bawah serta juga dapat membesarkan dan mengecilkan teks. Dapat juga membuat daftar yang diiringi dengan garis bawah dan format yang standar.
  1. Pembuatan obyek
Kode ini dapat digunakan untuk membuat obyek pendukung pada sebuah dokumen seperti membuat tombol, daftar atau garis horizontal.
  1. Struktur teks
HTML mengenal struktur teks seperti heading 1, heading 2, paragraf, body atau hal-hal lain seperti dalam format dokumen pada umumnya.
Belajar HTML ini sangat mudah. Anda tinggal menyiapkan waktu dan pikiran yang tenang untuk belajar. Lalu anda dapat membuka situs w3school.org untuk memulai pelajaran anda tentang HTML. Selamat mencoba!
Read More..

Mengenal bahasa Komputer atau bahasa pemrograman

Posted by Unknown 0 comments

Pengertian Bahasa Pemrograman

Pengertian Bahasa Pemrograman
Bahasa komputer adalah merupakan suatu set pemrograman yang digunakan untuk membuat suatu program komputer. Bahasa komputer biasa dikenal dengan nama bahasa pemrograman. Program komputer atau software sendiri adalah suatu set instruksi yang harus dijalankan oleh komputer pada saat komputer dihidupkan atau ketika diperintahkan oleh pengguna komputer. Bahasa pemograman menggunakan kata-kata unik yang menjadi kode untuk menjalankan perintah tertentu pada komputer. Contoh bahasa pemrograman antara lain adalah Pascal, Fortran, Clipper, dBase, Delphi, Basic, Cobol, C++, C#, Java dan lain-lain.
Sebuah CPU komputer, dalam hal ini prosesor memiliki sejumlah perintah terbatas dan dikenal dengan nama kode mesin. Kode ini adalah bahasa yang digunakan untuk mengkomunikasikan data dalam komputer. CPU dalam komputer hanya mengenal bahasa ini, tidak dengan bahasa lainnya. Semua bahasa pemrograman harus diubah menjadi kode mesin terlebih dahulu supaya CPU dapat mengolah dan menjalankan perintah yang diberikan oleh program yang dibuat.

Jenis-jenis bahasa komputer

Bahasa komputer dapat dikelompokkan dalam tiga kelompok besar berdasarkan jenisnya, yakni bahasa mesin (machine language), assembly language dan high level language. Mari kita bahas satu persatu sebagai berikut:
  1. Machine language adalah seperangkat perintah yang dinyatakan dalam bentuk bilangan biner (hanya angka 0 dan 1) yang berfungsi untuk memberikan data dan instruksi bagaimana mengolah data kepada CPU.
  2. Assembly Language adalah bahasa komputer tingkat rendah yang memiliki banyak kode yang membantu memori untuk “mengingat data (informasi). Assembly language juga mengandung seperangkat simbolis yang berhubungan dengan perintah tertentu pada bahasa mesin.
  3. High level language disebut sebagai bahasa komputer tingkat tinggi karena berisi perintah yang dirancang mendekati bahasa manusia. Bahasa ini lebih mudah dipahami dan dipelajari oleh manusia dan digunakan untuk pembuatan program komputer tertentu. Macam bahasa pemrograman sudah kami sebutkan diatas.
Pembuat program atau programmer dewasa ini banyak yang menggunakan bahasa komputer tingkat tinggi untuk membuat program-program yang diinginkan karena sangat mudah dipahami. Namun sebelum bisa dijalankan di komputer, program tersebut haruslah diterjemahkan menjadi bahasa mesin terlebih dahulu. Maka dari itu pada perangkat pembuatan program dengan bahasa tingkat tinggi ada bagian yang bernama compiler. Tugas bagian ini adalah menerjemahkan perintah pada bahasa tingkat tinggi menjadi bahasa mesin, sehingga CPU dapat mengolah data berdasarkan perintah tersebut.

Sejarah singkat bahasa komputer

        Perkembangan bahasa komputer tentu tak lepas dari perkembangan komputer itu sendiri. Bahasa komputer mulai dikembangkan pada saat penemuan komputer digital pertama, sekitar tahun 1940-an.Bahasa komputer yang termasuk dalam assembly language dikembangkan pada tahun 1950-an karena komputer mulai merambah ranah komersial. Contoh bahasa yang termasuk dalam golongan Assembly ini adalah ForTran (Formula Translation) yang dibuat oleh John Backus pada sekitar 1950-an hingga 1960-an. Kemudian bahasa komputer dengan banyak penyempurnaan mulai dikembangkan seperti COBOL (Common Business Oriented Language) oleh Grace Hopper, LISP (List Proccesing) oleh John McCarthy.
Pada akhir tahun 1960-an muncul sebuah bahasa komputer yang diberi nama SIMULA dan setelah itu perkembangan bahasa komputer semakin pesat. Pada tahun 1970-an muncul banyak bahasa pemrograman yang terkenal, yakni ALOGOL, BASIC, PASCAL, C dan ADA. Perkembangan bahasa komputer semakin berkembang pesat seiring berkembangnya ilmu pengetahuan dan teknologi. Bahasa yang berkembang adalah BASIC, JAVA, C++ dan PASCAL. Pada awal 1990-an, diperkenalkan istilah IDE (Integrated Development Environment) yang menyatukan bahasa pemrograman dan GUI sehingga membuat program menjadi lebih mudah. Beberapa IDE yang terkenal adalah Visual Basic (bahasa BASIC), Borland Delphi (bahasa PASCAL) dan Eclipse (Bahasa Java).
Read More..

Program Informasi Penjualan Produk Menggunakan Bahasa C

Posted by Unknown Friday, June 14, 2013 0 comments

Mari kita mencoba sedikit program dengan bahasa C, dengan tampilan yang agak berbeda.
silahkan dicoba,

#include"stdio.h"
#include"conio.h"
void main()
{
int i,kode[15],jumlah[15],jumdata=5;
char*produk;
float harga,total,disc,pembayaran;

printf("\nInput Data Penjualan");
for(i=0;i    printf("\nKode Produk :"); scanf("%d",&kode[i]);
    printf("\nJumlah Produk :"); scanf("%d",&jumlah[i]);
}
clrscr();
printf("\nInformasi Penjualan Produk");
printf("\n-------------------------------------------------------------------------------");
printf("\nNo Kode  Produk                  Harga   Jumlah    Total    Discount Pembayaran");
printf("\n-------------------------------------------------------------------------------");
for(i=0; i    if(kode[i]==1){
        produk="TV"; harga=2000000;
    }else if(kode[i]==2){
        produk="DVD"; harga=650000;
    }else if(kode[i]==3){
        produk="CD ROOM"; harga=450000;
    }
    total=harga*jumlah[i];
    if(total> 4000000)disc=0.1*total; else
    if(total< 4000000)disc=0;
    pembayaran=total-disc;
    gotoxy(1,6+i);printf( "%i   %d     %s  ",i+1,kode[i],produk);
    gotoxy(30,6+i);printf("%10.0f   %i   %10.0f%10.0f%10.0f"  ,harga,jumlah[i],total,disc,pembayaran);
    }
    printf("\n--------------------------------------------------------------------------------");
}


Contoh Hasil Tampilan

 photo c_zps7170f978.jpg
Read More..

Program Input Harga Photo Copy Menggunakan Bahasa Pascal

Posted by Unknown Monday, June 3, 2013 0 comments

 

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com 
______________________________________________________

Contoh Program Input Harga Foto Copy

uses crt;

var

Jumlahlembar : longint;

Totharga     : longint;

Pembayaran   : real;

hpl          : byte;

discount     : real;

begin

clrscr;

writeln('PROGRAM INPUT HARGA FOTO COPY');

writeln('-----------------------------------');

write('Jumlah Lembar :');readln(jumlahlembar);

if Jumlahlembar >=200 then hpl:=90 else

if jumlahlembar <=200 then hpl:=100;

writeln('Harga per Lembar:',hpl);

totharga :=hpl*jumlahlembar;

writeln('Total Harga:',totharga);

if totharga > 500000 then discount:=0.15 else

if totharga < 500000 then discount:=0;

discount:=totharga*discount;

writeln('Discount:',Discount:3:0);

pembayaran:= totharga-discount;

writeln('Pembayaran:',Pembayaran:3:0);

readln;

end.

------------------------------------------------------------------------------------
tampilan hasil

 photo pascal1_zps733cafd2.jpg

 photo pascal_zpsfabfc96e.jpg

tampilan hasil ketika mendapatkan discount

 photo pascal2_zps72c23836.jpg

 photo pascal3_zps3f3612c1.jpg

Demikilahlah postingan saya  
Nama : Erixon Andrianus Saruksuk
NPM   :  12110935
Selamat Belajar Bahasa Pemrograman 

Read More..

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Posted by Unknown 0 comments



Selesaikanlah Kasus Berikut ini : Program Perulangan Perkalian Input angka 5 Menggunakan Bahasa Pascal

Berikut jawabannya terlihat seperti dibawah ini :


uses crt;
var
i,hasil,n : integer;

begin
clrscr;
write('Input Nilai:');readln(n);
for i:= 1 to n do
begin
if (i=1)then
write('hasil:',i)
else write('*',i)
end;
hasil:= i*n*i-5
write('=',hasil);
readln;
end.

Lihat Hasil Program

 photo pascal5_zpsc49dec22.jpg


Demikilahlah postingan saya  Nama : Erixon Andrianus Saruksuk  NPM : 12110935

Selamat Belajar Bahasa Pemrograman 


Read More..

Tugas Konsep Pemrograman

Posted by Unknown Tuesday, May 28, 2013 0 comments


Kali ini saya akan mempostingkan tugas dari Pak Mesran, yah... berhubung TI,M 1222 belum mendapat tugas dan nilai UTS nya pada anjlok, giliran kami aktif untuk memperbaikinya , jikalau ada artikel ini yang hampir sama, ya harap dimaklum. Tugas ini sifatnya pribadi, namun kesempatan copy paste terbuka lebar.
Sebelumnya beliau telah membuat program ini di dalam bahasa C++, dan kali ini kami diberi kesempatan untuk merubahnya kedalam bahasa Pascal. Berikut penulisannya dalam bahasa Pascal.

uses CRT;
Var
kode          : byte;
harga,jumlah  : longint;
th            : longint;
nama          : string;


begin
 clrscr;
 Writeln('Inputkan Kode Penjualan');
 writeln('---------------------------');
 write('kode:');readln(kode);
 case kode of
    1 : Begin
          clrscr;
          nama:='Televisi';
          Writeln('Nama:',nama);
          harga:=1750000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th :=harga*jumlah;
          writeln('---------------');
          writeln('Total Harga:',th);
        end;
   2 : Begin
          clrscr;
          nama:='DVD';
          writeln('Nama:',nama);
          harga:=650000;
          writeln('Harga:',harga);
          write('Jumlah Beli:');readln(jumlah);
          th:= jumlah*harga;
          writeln('---------------');
          writeln('Total Harga:',th);
       end;
   3 : Begin
         clrscr;
         nama:='CD ROOM';
         writeln('Nama:',nama);
         harga:=450000;
         writeln('Harga:',harga);
         write('Jumlah Beli:');readln(jumlah);
         th := jumlah*harga;
         writeln('---------------');
         writeln('Total Harga:',th);
       end;
    end;
 readln;
 end.

Jika anda sudah sesuai mengetikkan script diatas pada Aplikasi Turbo Pascal anda, kemudian tekan CTRL+F9, maka akan muncul tampilan gambar dibawah ini,



 photo Kode_zps36276231.jpg

Namun jika belum tampil ataupun gagal, silahkan periksa kembali letak kesalahan anda.

Untuk memulai langkah selanjutnya, anda diberikan 3 pilihan untuk menginput kode produknya yaitu 1,2, dan 3. contoh ketikkan angka 1, maka akan tampil gambar seperti dibawah ini.

 photo jumlah_zps570d238a.jpg
lalu ketikkan nominal jumlah belinya, misalnya 5.


 photo hasil_zpsd685e0a6.jpg

pada akhirnya total harga dari produk yang anda ingin beli akan tampil,

dan itulah hasil akhir dari program ini, mudah bukan??. Semoga Artikel ini bermanfaat dan dapat membantu teman-teman semua. 

anda dipersilahkan Copas artikel ini dengan menyertakan sumber link saya pada blog anda.
Read More..

Cara Memasang Favicon Bergerak/Animasi di Blog

Posted by Unknown Sunday, May 19, 2013 0 comments

Sedikit Penjelasan tentang Favicon, Favicon adalah icon utama yang muncul pada address bar suatu blog atau website dan merupakan logo dari blog tersebut, favicon bisa disebut juga sebagai identitas dari suatu blog agar tidak sama dengan blog lain, nah itu tadi sedikit penjelasan tentang favicon, tapi bagaimana supaya favicon kita berbeda dengan blog lain? Salah satu caranya adalah menggunakan favicon bergerak atau animasi,

favicon tersebut dapat kita peroleh dengan cara membuatnya atau pun mencari animasi gif di google.
dan berikut ini Cara memasang favicon bergerak/animasi di blog :
* Masuk ke Dashboard lalu pilih Template
* Edit Html  jangan lupa centang Expand Template Widget untuk jaga-jaga
* Cari kode <![CDATA[/* 
  
kemudian pastekan kode di bawah ini tepat di atas kode <![CDATA[/*






Kemudian simpan.

Keterangan : link  yang https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghpH0OjLeusiNuAMnSSn_wHEGjGJ0pN4cWoIWGEGwTtofhQWxpw3PvETeUU4McbAKn1LS_lmX5z0SDMlTogX-2MFnSe46kMlZ4IAartWrkKH0dNwmqiu2Ow7ShKc9RxISgi8WSXBTWnAiy/s1600/131.gif  adalah favicon yang akan menjadi favicon di blog anda
untuk mengganti favicon tersebut tinggal diganti dengan link favicon gambar animasi untuk blog anda.

Semoga Berhasil...
Read More..

Tips Trik Menurunkan/ Mengecilkan Alexa Rank.

Posted by Unknown 0 comments

Cara Menurunkan Alexa Rank Super Cepat
Alexa.com mendefinisikan mereka sebagai informasi perusahaan web. Alexa membuat peringkat setiap situs web dan blog berdasarkan lalu lintas dan beberapa faktor lainnya .Alexa Rank ini akan diperbarui bila artikel selalu uptade tiap hari ini akan dinyatakan alexa baik.

Bagaimana cara menurunkan Alexa Rank?

Anda juga akan menanyakan hal demikian untuk memperbaiki alexa rank blog anda agar tetap baik.

Alexa.com merupakan mengukur lalu lintas setiap situs Web Anda/orang lain sebagai salah satu survei yang paling adil di sekitar. Kenapa? karena mereka hanya mencatat hits stastik visitor today yang melewati sistem. Apabila pengunjung juga memiliki blog dan datang mengunjungi blog Anda maka disarankan mengInstal Alexa Toolbar pada browser mereka atau Anda harus menempatkan widget Alexa / plugin dipasang di blog Anda.

Ada baiknya blog dengan Blogging niche ( sama ), akan lebih baik dibandingkan dengan blog yang tidak berhubungan sama sekali, karena Teknologi yang dimiliki Alexa Rank akan memeriksa dan membuat rank.

Inilah 10 Cara Menurunkan Alexa Rank Super Cepat atau Tips trik menurunkan/mengecilkan Alexa rank dari hasil para master SEO:

1. Install Alexa Tool Bar

Instal Alexa Toolbar pada browser Anda dan juga meminta teman-teman Anda, pengunjung untuk menginstal toolbar pada browser mereka, SEPERTI di blog MILANISTI | Expression Blog dan blog sobatku lainnya yang sudah hebat - hebat semua alexa rank-nya.

Disini >> Download untuk browser Anda.

2. Claim situs Anda

Untuk mendapatkan kontrol penuh atas situs Anda, ada baiknya melakukan Claim site Anda pada Alexa.com. Ini akan membantu orang lain untuk mengetahui siapa yang memiliki situs dan membantu Anda dalam peringkat yang lebih baik di Alexa.

3. Meletakkan Widget Alexa di blog

Seperti cara yang diatas bahwa Alexa akan menghitung data hits yang berada di bawah sistemnya. Oleh karena, alangkah sempurna bila cara menurunkan alexa super cepat kita tempatkan widget Alexa di blog Anda.

4. Mendapatkan Lalu Lintas Dari Blogger lain ( Blogwalking )

Ini adalah faktor yang paling penting yang Anda ketahui dari efek alexa Rank. Jika Anda mendapatkan pengunjung lebih banyak dari blog orang lain atau pengunjung unik ini akan berpengaruh cepat pada penurunan alexa rank karena semua Blogger dan orang lainpun akan menginstal widget alexa pada browser mereka.

5. Write review tentang Alexa di blog Anda

Menulis review tentang Alexa Ranking dan linkkan kembali ke Alexa.com.

6. Saling berbagi review Alexa.

tujuannya untuk meninjau blog Anda di Alexa:

7. Commenting dan Backlinking

Cara ini memang sangat membantu sekali. Dengan berkomentar di blog lain yang masih berada Blogging niche sama. Cara ini dapat membangun link lebih dari blog dan lalu lintas akan lebih baik karena backlink merupakan hal penting.

8. Update blog Anda secara teratur

Hal ini sangat dianjurkan untuk menulis sering untuk menrunkan alexa rank anda atau yang lain Anda alexa rank akan turun dan itu menjadi sulit untuk membawa kembali Anda alexa lagi.

9. Tulisan posting berkualitas

Jika kualitas menulis posting anda berkualitas maka orang lain akan secara otomatis berkunjung kembali kepada situs Anda dan dengan demikian dapat meningkatkan backlink dan lalu lintas akan didapat.

10. Share posting Anda di situs Jaringan Sosial:

Berbagi posting Anda di jaringan sosial seperti Facebook, Stumble situs Digg dan lain sebagainya. Tentunya ini tidak hanya membawa lalu lintas besar, tetapi juga dapat membantu dalam menurunkan Alexa Rank dan backlink alexa Anda.
Read More..

Online Visitor

bloggersumut.net

Kategori

Blogumulus by Roy Tanck and Amanda Fazani

Statistik Pengunjung

Sahabat Erixon

Site Info



Flag Counter