'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'

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.

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.

#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["<}

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);
}

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.

Bahasa 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.

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.

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:

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.

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.

Kode ini dapat digunakan untuk membuat obyek pendukung pada sebuah dokumen seperti membuat tombol, daftar atau garis horizontal.

HTML mengenal struktur teks seperti heading 1, heading 2, paragraf, body atau hal-hal lain seperti dalam format dokumen pada umumnya.

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.

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:

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.

        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.

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

 

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





tampilan hasil ketika mendapatkan discount





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

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




Demikilahlah postingan saya  Nama : Erixon Andrianus Saruksuk  NPM : 12110935

Selamat Belajar Bahasa Pemrograman