Sondag 08 Desember 2013

quiss no 1

Penggunaan LISTVIEW






Public Class Form1

   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RancangTabel()
        K_barang.Items.Add("TS001")
        K_barang.Items.Add("TS002")
        K_barang.Items.Add("VG001")
        K_barang.Items.Add("VG002")
        N_pembelian.Focus()
    End Sub
    Sub RancangTabel()
        Lv.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Harga", 90, HorizontalAlignment.Center)
        Lv.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
        Lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub
    Sub hapus()
        N_pembelian.text = ""
        K_barang.text = ""
        N_barang.text = ""
        Merk.text = ""
        Harga.text = ""
        J_beli.text = ""
        T_harga.text = ""
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = N_pembelian.Text
        Lst.SubItems.Add(K_barang.Text)
        Lst.SubItems.Add(N_barang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(J_beli.Text)
        Lst.SubItems.Add(T_harga.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub K_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(K_barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "TOSHIBA"
        ElseIf x = "VG" Then
            Merk.Text = "V-GEN"
        End If

        Dim y As String
        y = Microsoft.VisualBasic.Mid(K_barang.Text, 3)
        If y = "001" Then
            N_barang.Text = "FLASHDISK 4GB"
        ElseIf y = "002" Then
            N_barang.Text = "FLASHDISK 2GB"
        End If

        Dim z As String
        z = Microsoft.VisualBasic.Left(K_barang.Text, 5)
        If z = "TS001" Then
            Harga.Text = "105000"
        ElseIf z = "TS002" Then
            Harga.Text = "75000"
        ElseIf z = "VG001" Then
            Harga.Text = "90000"
        ElseIf z = "VG002" Then
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub J_beli_Keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles J_beli.KeyPress
        If e.KeyChar = Chr(13) Then
            T_harga.Text = Val(Harga.Text) * J_beli.Text
        End If
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        RancangTabel()
        IsiTabel()
        N_pembelian.Focus()
    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        N_pembelian.Text = ""
        K_barang.Text = ""
        N_barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        J_beli.Text = ""
        T_harga.Text = ""
    End Sub

    Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class







Nama : dewi jelita Hutasoit
Npm  : 12110594
kelas : TI-P1206

Vrydag 15 November 2013

contoh program matakuliah

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("13111000")
        npm.Items.Add("13111011")
        npm.Items.Add("13112011")
        For x = 1 To 3
            kode_dosen.Items.Add("KD0" & x)
        Next
        For x = 11 To 13
            kode_matkul.Items.Add("KM" & x)
        Next
        Dim i As Integer
        For i = 0 To 100 Step +5
            nilai_tugas.Items.Add(i)
            nilai_uts.Items.Add(i)
            nilai_uas.Items.Add(i)
        Next i
        Dim j As Integer
        For j = 0 To 100
            nilai_hadir.Items.Add(j)
        Next j

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Right(npm.Text, 1)
        If x = "0" Then
            jenjang.Text = "S1"
        ElseIf x = "1" Then
            jenjang.Text = "D3"
        Else
            jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
        If x = "10" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "11" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "12" Then
            jurusan.Text = "Manajemen"
        Else
            jurusan.Text = "-"
        End If
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Doni M"
            Case "13111011"
                nama.Text = "Hendra S"
            Case "13112011"
                nama.Text = "Atika"
            Case Else
                nama.Text = "-"
        End Select

    End Sub

    Private Sub kode_matkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matkul.SelectedIndexChanged

        Dim y As String
        y = Microsoft.VisualBasic.Right(kode_matkul.Text, 2)
        If y = "11" Then
            nama_matkul.Text = "Pemograman Visual"
        ElseIf y = "12" Then
            nama_matkul.Text = "Arsitektur Informasi"
        ElseIf y = "13" Then
            nama_matkul.Text = "Struktur Data"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        Dim z As String
        z = Microsoft.VisualBasic.Right(kode_dosen.Text, 2)
        If z = "01" Then
            nama_dosen.Text = "Mesran S.Kom, M.Kom"
        ElseIf z = "02" Then
            nama_dosen.Text = "Sony Bahagia S.Kom"
        ElseIf z = "03" Then
            nama_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
        End If

    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_hadir.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
        If nilai_akhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
        Select Case nilai_akhir.Text
            Case Is >= 80
                nilai_hurf.Text = "A"
            Case 70 To 79
                nilai_hurf.Text = "B"
            Case 60 To 69
                nilai_hurf.Text = "C"
            Case 50 To 59
                nilai_hurf.Text = "D"
            Case Is <= 49
                nilai_hurf.Text = "E"
        End Select

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click

        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matkul.Text = ""
        nama_matkul.Text = ""
        nilai_hadir.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_hurf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        Me.Close()

    End Sub

End Class





Hasil Programnya adalah :



Dinsdag 08 Oktober 2013

tak mau pergi

Lirik Lagu Rija Abbas (Ex Rumor) - Tak Mau Pergi

Aku tak ingin menyesal lagi
Seperti dulu yang pernah ku alami
Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini

Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan kekasih yang tulus mencintaiku

Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu
Seperti manusia lemah yang berharap
Kau terima cintanya

Aku tak mau sakit hati lagi
Yang sakitnya ku rasakan sampai detik ini

Oh Tuhan beri petunjuk-Mu
Untuk mendapatkan wanita yang tulus mencintaiku

Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah

Aku disini tetap menanti
Tak mau pergi tak mau pergi
Aku disini tetap menunggu seperti manusia lemah
Seperti manusia lemah yang berharap


Kau terima cintanya


Sondag 16 Junie 2013

Membuat program Informasi penjualan Produk



Berikut cara membuat Informasi Penjualan Produk, menggunakan Bahasa C:

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

void main(){
    int i, kode[15], jumlah[15], jumdata=5;
    char*produk;
    float harga, total, disc, bayar;

    printf("\Input Data Penjualan");
    for(i=0;i<jumdata;i++){
        printf ("\nKode Produk :"); scanf("%d",&kode[i]);
        printf ("Jumlah Produk :"); scanf("%d",&jumlah[i]);
    }
    clrscr();
    printf ("\n                            Informasi Penjualan Produk");
    printf ("\n --------------------------------------------------------------------------------------");
    printf ("\n No Kode Produk                  Harga  Jumlah   Total    Discount    Bayar");
    printf ("\n --------------------------------------------------------------------------------------");
    for(i=0;i<jumdata; 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<2000000){
            disc=0.1*total;
        }else if (total<4000000){
            disc=0.15*total;
        }else if (total>4000000){
            disc=0.2*total;
        }else{
            disc=0;
        }
        bayar = 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, bayar);
    }
    printf("\n --------------------------------------------------------------------------------------------");
}








HASIL TAMPILAN DARI PROGRAM:




Sondag 02 Junie 2013

Kumpulan Resep Masakan Minangkabau

Hidangan Khas Minangkabau Dipelosok Nusatara

Hidangan khas Sumatera Barat ini tersedia di seluruh pelosok nusantara. Hampir bisa dipastikan setiap orang pernah mencicipinya. Variasi bahan baku untuk masakan asal Sumatera Barat ini sungguh banyak. Cita rasa yang utama di temui pada masakan khas Minang adalah gurih dan pedas. Rasa gurih dan pedas tersebut diperoleh dari santan dan cabai merah yang memang banyak di konsumsi orang Minang.
Itu bila bicara soal cita rasanya, sedangkan bahan bakunya bisa menggunakan daging sapi, jerohan sapi, otak, ayam, bebek, ikan mas, gurami dan telur ayam. Sementara sayurannya lebih banyak menggunakan kacang panjang, daun singkong, pakis, nangka, buncis, serta petai dan jengkol.
Bumbu dalam masakan Minang memegang peranan penting. Orang Minang tidak pernah pelit bumbu. Selalu bumbunya kental dan terasa pekat. Bumbu yang selalu dipakai adalah cabai merah, bawang putih, jahe, lengkuas, kunyit dan daun kunyit, daun mangkokan.
Orang Minang juga tidak pernah menggunakan gula dalam memasak, baik gula merah maupun gula putih. Gula hanya digunakan untuk membuat kue saja.
Untuk bawang putih, perbandingan yang digunakan adalah 1 : 2 dengan bawang merah. Bahkan ada yang menulis bahwa perbandingan bumbu dan isi dalam masakan minang adalah 3 : 8. Jadi, bisa dipastikan, betapa gurihnya masakan Minang ini.

Masakan yang mewakili Indonesia

Pengakuan international terhadap kelezatan masakan khas Minangkabau ini dibuktikan dengan terpilihnya rendang khas Minangkabau ini sebagai makanan yang wajib dicicipi bila berkunjung ke Indonesia. Dalam majalah ASIA WEEK dalam rubrik ASIA’S BEST pada edisi tanggal 18 Agustus 2000 disebut rendang khas Minangkabau sebagai salah satu makanan terbaik di asia dan juga sebagai masakan yang paling diingat oleh orang-orang asing dari mancanegara bila teringat akan Indonesia.
Restaurant yang mendapat kehormatan sebagai penyaji masakan minang ini dalam ASIA’S BEST adalah Sabana Nasi Kapau di
Jalan Melawai Raya No. 21-A, Blok M, Jakarta Selatan. Jadi silakan mencoba.
Restoran Masakan Padang Sabana Nasi Kapau
Restoran Masakan Padang Sabana Nasi Kapau

LUHUR DAN INDAHNYA BUDAYA JAWA


Didalam masyarakat Indonesia, masih ada sebagian orang yang percaya bahwa gamelan tertentu memiliki kekuatan gaib. Suara yang dikeluarkan dari alat musik gamelan seringkali dianggap mempunyai daya magis yang bisa mempengaruhi aura kehidupan manusia. Gamelan seperti ini biasanya bukan lagi sekedar alat musik tapi sudah dianggap sebagai pusaka, dan hanya dimainkan pada saat yang sangat istimewa. Oleh karena keistimewaan itu, gamelan demikian mendapat penghormatan sama halnya seperti menghormati leluhur. Sebenarnya, penghormatan seperti kepada leluhur itu tidaklah berlebihan jika kita melihat dari rasa (roso) dan energi yang terlibat saat sang empu menempa dan membentuk gamelan itu hingga menghasilkan nada yang begitu indah hingga terkesan magis; atau saat sang pemilik gamelan itu dahulu sering menumpahkan perasaan dan pikiran dengan memainkan gamelannya seperti halnya seorang pianis meresap dalam permainan pianonya.
Sebagai alat musik yang dipandang memiliki daya magis, gamelan pusaka seringkali digunakan untuk mengiringi gendhing-gendhing Jawa yang memiliki makna sangat “khusus”, yang seolah mengandung misteri seperti misalnya gendhing Tunggul Kawung yang konon untuk “menahan/memindahkan” hujan, atau sebaliknya gendhing Mego Mendhung yang untuk mendatangkan hujan lebat. Meskipun semua itu tidak dapat dibuktikan secara ilmiah, para pemain gamelan (karawitan) bisa membuktikannya dengan “rasa” yang mereka miliki.
Masyarakat Jawa adalah representasi dari harmonisasi dan pencapaian ekstase untuk sadar kosmis. Gamelan tidak sekadar perkara musik tapi menjadi pertaruhan orang Jawa mengolah rasa dan mengabdikan diri untuk sensibiltas kosmis (alam, manusia, dan Tuhan). Hakikat gamelan adalah hakikat kehidupan manusia lahir dan batin. Kesadaran atas gamelan bagi masyarakat Jawa ini mengarah pada kecenderungan mistik atau sakralisasi. Dan gamelan tidak sekadar urusan melodi, harmoni, dan dinamik. Keharmonisan dan keteraturan dalam gamelan merupakan representasi dari perjalanan suci menuju Tuhan. Ketukan gong bisa diartikan simbol pencapaian tingkat (maqam) tertentu setelah orang beralih dari suasana dzikir dan sunyi secara bergantian.
Dengan simbolisasi atas alam kerohanian Jawa maka sakralisasi terjadi dengan kesadaran batin dan laku. Pandangan mistik terhadap gamelan itu diterjemahkan oleh penguasa dan ahli agama dalam pelbagai ritus di keraton. Gamelan menjadi perangkat musik dengan nafas tradisi dan keagamaan. Ritus gamelan menjadi ritus dengan permainan jagad simbol dan anutan kepercayaan terhadap nilai-nilai kejawaan dan religiositas.
Selain itu gamelan merupakan salah satu jenis musik yang terdiri dari berbagai alat musik, diantaranya kendang, rebab, celempung, gambang, gong, dan seruling bambu. Komponen utama yang menyusun alat-alat musik gamelan adalah bambu, logam, dan kayu. Masing-masing alat mempunyai fungsi tersendiri dalam pagelaran musik gamelan. Misalnya, gong berperan menutup sebuah irama yang panjang dan memberi keseimbangan setelah sebelumnya musik dihiasi oleh irama gending. Pandangan hidup Jawa yang diungkapkan dalam musik gamelan merupakan keselarasan dalam berbicara dan bertindak sehingga tidak memunculkan ekspresi yang meledak-ledak serta mewujudkan toleransi antar sesama. Wujud nyata dalam musiknya adalah tarikan rebab yang sedang, paduan seimbang bunyi kenong, saron kendang dan gambang serta suara gong pada setiap penutup irama. Irama yang khas yang dihasilkan merupakan perpaduan jenis suara dari masing-masing unit peralatan gamelan. Secara filosofis gamelan Jawa merupakan satu bagian yang tak terpisahkan dari kehidupan masyarakat Jawa.
Sekar macapat ADI LUHUNGE KAGUNAN JAWI yang terangkum dalam pupuh dhanngula dan pupuh sinom, yang berisikan tentang piwulang mengenai falsafah gamelan Jawa. Semoga bait-baik macapat dibawah ini bisa untuk menambah wawasan serta merubah cara pandang kita terhadap budaya Jawa yang semakin hari semakin tersisih dengan budaya manca.
DHANDHANGGULA
Kang cinakup seni budya Jawi, rupa-rupa kalamun pinetang, basa lan sastra Jawane, sarta macapatipun, krawitan gamelan ugi, tuhu ngandhut falsafah, ingkang nyata agung, tumrap jejering manungsa, dadi tepa palupi ala lan becik, ing kauripanira.
Dene seni gamelan puniki, yasan dalem Sunan Kalijaga, kang kebak tuladhane, becik dadi panuntun, kanggo nggayuh urip utami, ingkang wus manjing dadya, kapribaden luhur, tumanduk mring bangsa kita, mangga sami ngleluri budaya Jawi, mamrih teguh santosa.
Jeneng GAMBANG ingkang mengku werdi, mbanyu mili kentir aneng sendhang, ngregengi tetabuhane, lir angin kang tumiyup, saya ngrangin rinenggeng gendhing, lamun bahan wilahan, asal saking kayu, mrih manggih hayu raharja, wit jatining urip mung ngudi basuki, donya prapteng delahan.
KEMPUL lumrah ingaran alit, mengku tetapsiran pirang-pirang, saka pakem sayektine, gandheng lan tembung kumpul, werdine gya samya nyawiji, manunggal cipta karsa, nut ugeranipun, iku tumraping agama, pranatan kang dadi wewatoning urip, ingudi mrih raharja.
Kalamun GONG kang araneki, wujud gamelan kang paling harda, memper kempul ingkang gedhe, dumadi saking prunggu, tinabuh ing panutup gendhing, tandha mungkasi pada, mangka werdinipun, yen gesang sampun pinungkas, dhawah ing gong wangsul ing kasidan jati, sepuh tanapi mudha.
S I N O M
DEMUNG sinebut balungan, saya greget mahanani, pindha jumbuhing tatabuhan, kang dadi peran utami, mligining wayang kulit, ateges andhamane mung, siji ra neka-neka, mantep manembah ing Gusti, kanthi manut miturut  reh parentah-Nya.
Bebasan bojone dhalang, nenggih GENDER araneki, baku ing babagan bawa, aneng pagelaran ringgit, mligine aninthingi, bawa wiraswaranipun, nambah ngrangin swasana, mengku falsafah kang inggil, aywa gampang tumandang nir sambekala.
Mangka jangkeping tabuhan, yeku SITER den wastani, saya gayeng nggo jineman, banget ngresepake ati, mungal swara thing-thing-thing, sinartan gender binarung, ingkang ngemu surasa, sing pinter weh sukeng galih, amemangun karyenak tyasing sasama.
Nora kleru byola Jawa, ya REBAB araneki, munggah kanthi sinenggrengan, nganyut rumesep ing galih, anggambar raos sedhih, mligining swasana tlutur, den samya ngrembag ing bab, sagung karya den rampungi, mrih sembada sadaya ingkang sinedya.
Minangka purnaning sekar, mangga sami anyawiji, angleluri kabudayan, budaya kang edi peni, wus dadi jati dhiri, langkung becik den sengkuyung, tan lirwa nembah muja, konjuk mring Hyang Maha Suci, kabudayan dimen lestari ngrembaka.
Terjemahan :
DHANDHANGGULA
Yang termasuk budaya Jawa, beraneka macam kalau dihitung, bahasa dan sastra Jawanya, serta tembang macapatnya, dan juga krawitan serta gamelan, semua mengandung falsafah, yang sangat luhur, terhadap penampilan manusia, menjadi tauladan baik dan buruk, pada kehidupan kita.
Sedangkan seni gamelan itu, hasil karya Sunan Kalijaga, yang penuh dengan contoh/teladan, baik untuk dijadikan petunjuk, untuk mencapai hidup yang baik, yang telah masuk menjadi, kepribadian yang luhur, sebagai pelindung terhadap bangsa kita, marilah sama-sama melestarikan budaya Jawa, agar  teguh dan sentosa.
Yang disebut GAMBANG itu mengandung maksud, air yang mengalir hanyut di sendang, memeriahkan alunan musik, ibarat angin yang berhembus, bertambah merdu alunan gending/lagu, kalau bahannya dari wilahan (kayu yang belah), berasal dari kayu, agar menemukan selamat dan sejahtera, hidup yang sesunggunya hannya mencari keselamatan, di dunia sampai dengan akhirat.
KEMPUL biasanya disebut kecil, mengandung penafsiran yang bermacam-macam, dari pedoman yang baku sesungguhnya, berhubungan dengan kata kumpul (bersatu), artinya segaralah bersatu, bersatu cipta dan karsanya, menurut peraturannya, itu apabila menurut agama, aturan yang menjadi pedomannya hidup, yang dicari agar selamat dan sejahtera.
Kalau yang namanya GONG, berupa gamelan yang paling besar, mirip dengan kempul yang besar, yang berasal dari bahan perunggu, ditabuh pada pada saat penutupan gending/lagu, sabagai tanda mengahiri pada (syair), padahal maksudnya, jika hidup itu telah diakhiri, jatuh pada gong kembali pada kesempurnaan sejati, tua atuapun muda.
S I N O M
DEMUNG disebut juga balungan, semakin bertambah semangat, ibarat telah sesuai dengan iramanya, yang menjadi peran utama, khususnya dalam wayang kulit, berarti hanya sebagai tokoh, hanya satu dan tidak bermacam-macam, mantab manembah pada tuhan, dengan patuh sesuai dengan perintah-Nya.
Ibarat itrinya dalang, yaitu GENDER namanya, sudah baku tentang bawa (pembukaan gending), pada pertunjukan wayang kulit, khususnya membunyikan (mengetuk), bawa wiraswaranya (penyanyi laki-laki), menambah merdu suasananya, mengandung falsafah yang sangat tinggi, janganlah mudah bertindak agar terhindar dari cobaan.
Padahal sempurnanya tetabuhan (irama), yaitu disebut SITER, bertambah nikmat dibuat jineman (irama lagu), sangat menarih hati, bunyi suara thing-thing-thing, seiring dengan suara gender, yang mengandung maksud, yang pandai memberi kedamaian, berbuat untuk menyenangkan hati sesama.
Tidak salah biola Jawa, yaitu REBAB namanya, meningkat dengan suara yang mengalun, hanyut meresap didalam hati, menggambarkan perasaan yang sedih, khususnya swasana tlutur (irama sedih), semua membahas pada bab (permasalahan), semua pekerjaan di selesaikan, agar semua yang diinginkan dapat terkabul.
Dan sebagai penutupnya lagu, marilah kita semua bersatu, melestarikan kebudayaan, budaya yang sangat indah, yang telah menjadi jati diri, lebih baik kita mendukung, tidak lupa kita untuk berdoa, kepada tuhan yang maha suci, agar kebudayaan kita lestari dan berkembang.

Program penjualan dengan menggunakan bahasa C


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

main()
{
int kode,jumlah;
float harga,total,disc,bersih;
char*nama;

printf ("Input Harga Penjualan \n.................................\n");
printf ("\n Kode : "); scanf ("%d",&Kode);
if (Kode==1){
nama="televisi";harga=1750000;
}else if (Kode==2){
nama="dvd";harga=650000;
}else if (Kode==3){
nama="cd room";harga=450000;
}else{
nama="-";harga=0;
}

printf("Nama ; %s",nama);
printf("\nHarga :%.2f",harga);
printf("\nJumlah Beli ; "); scanf("%d",&jumlah);
total=harga*jumlah;
printf("Total Harga : %.2f",total);
if (total>2000000){
disc=0.1*total;
bersih=total-disc;
}else{
disc=0;
besih=total;
}
printf("\nDiskon : %.2f",disc);
printf("\nTotal Harga Bersih : %.2f",bersih);
}




tampilan outputnya:

Woensdag 15 Mei 2013

Program Java

Pada posting kali ini Belajar Pagi akan mengupas tentang Belajar Bahasa Pemrograman Java Dasardimana untuk memulainya di perlukan beberapa persiapan antara lain :
1. Java Development Kit versi 1.6 keatas. 
Java Development Kit merupakan perangkat lunak yang digunakan untuk melakukan proses kompilasi dari kode java menjadi bytecode yang dapat dimengerti dan dapat dijalankan oleh java runtime environtment.
2. Java Runtime Environtment
Java Runtime Environtment merupakan perangkat lunak yang digunakan untuk menjalankan aplikasi yang dibangun menggunakan java. Versi JRE harus sama atau lebih tinggi dari JDK yang digunakan

Belajar Bahasa Pemograman Turbo Pascal

Didalam tulisan ini saya memberikan cara mudah anda dalam belajar bahasa pemrograman Turbo Pascal, dan disertai gambar-gambarnya agar anda paham. Tulisan ini cocok bagi yang baru mau belajar bahasa pemrograman langsung aja ni pada materinya. Program komputer pada dasarnya adalah proses merancang dan membuat urutan instruksi untuk menyelesaikan  suatu masalah yang diimplementasikan kedalam komputer. karena yang menjalnkan intruksi itu adalah komputer maka intruksi  harus dinyatakan  dalam  bahasa yang “dimengerti” oleh  komputer yaitu bahasa mesin (assembly language) atau dikenal juga dengan  bahasa  pemrograman  tingkat  rendah.  Bahasa mesin ini menggunakan simbol 0 (on) dan i (of) untuk dalam mendefinisikan intruksinya.

Flowchart

Pernah mendengar kata Flowchart.? Tahu apa itu flowchart dan bagaimana cara membuat flowchart? Flowchart atau yang bisa di sebut juga diagram alur adalah jenis diagram , yang mewakili suatu algoritma atau proses , menunjukkan langkah-langkah sebagai kotak dari berbagai jenis. Diagram ini di gunakan untuk menampilkan solusi dari suatu masalah dengan langkah-langkah yang tertulis dalam sebuah kotak-kotak yang dihubungkan oleh panah-panah penghubung.


                       Gambar Flowchart



Flowchart digunakan dalam merancang, menganalisis, mendokumentasikan atau mengelola suatu

Belajar Bahasa C++

Bahasa pemrograman C++ merupakan superset dari bahasa pendahulunya yaitu bahasa pemrograman C. Bahasa pemrograman C dikembangkan oleh Dennis Ritchie pada tahun 1972 di Laboratorium Bell. Bahasa pemrograman C adalah bahasa pemrograman yang dapat dikatakan berada antara bahasa tingkat rendah (berorientase mesin) dan bahasa tingkat tinggi (bahasa berorientase pada manusia). Bahasa pemrograman C berada satu tingkat di atas bahasa yang berorientasi pada mesin, namun tetap satu tingkat dibawah sebagian besar bahasa yang berorientasi persoalan. Bahasa pemrograman C cukup dekat dengan komputer untuk memberikan kendali yang besar terhadap detil implementasi pemakaian, namun cukup jauh untuk mengabaikan detil hardware

Maandag 08 April 2013

Belajar HTML Bagi Pemula


Jika anda baru terjun di dunia maya alias pemula (newbie) dan tertarik ingin belajar HTML untuk membuat website sendiri maka anda tidak salah datang ke blog ini, karena disini anda akan mendapatkan tutorial, tips, triks dan artikel-artikel tentang bagaimana cara belajar HTML untuk membuat website.
Di Internet sebenarnya kita bisa saja mendapatkan banyak template baik yang gratis maupun yang berbayar, namun kadang tidak sesuai dengan keinginan (selera) kita. Maka kita harus meng-edit dan melakukan perubahan-perubahan. Di dalam mengedit dan melakukan perubahan inilah kita harus mengerti dan memahami bahasa HTML.
Di blog ini anda akan mendapatkan tutorial belajar HTML yang disertai dengan contoh-contoh mulai dari dasar, sehingga akan mudah dipahami dan sangat cocok bagi anda yang masih pemula. Dan bagi anda yang mengedit atau membuat suatu halaman web bisa melangkah ke halaman-halaman berikutnya sesuai