yuk! Belajar Pemrograman Visual Basic dot net Di Mesran.Net

Selesaikanlah Kasus Berikut :
Latihan Form Nilai Mahasiswa

Public Class Form3

    Sub buattabel()
        LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 80, HorizontalAlignment.Left)

    End Sub




    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110328")
        npm.Items.Add("12020328")
        npm.Items.Add("12030328")
        kode_dosen.Items.Add("D01")
        kode_dosen.Items.Add("D02")
        kode_dosen.Items.Add("D03")
        kode_matakuliah.Items.Add("M01")
        kode_matakuliah.Items.Add("M02")
        kode_matakuliah.Items.Add("M03")
        Dim i As Integer
        For i = 1 To 100
            nilai_kehadiran.Items.Add(i)
        Next i
        i = 1
        Do While i <= 100
            nilaitugas.Items.Add(i)
            i = i + 1
        Loop
        i = 100
        Do Until i = 0
            nilaiuts.Items.Add(i)
            i = i - 1
        Loop
        i = 100

        While i >= 1
            nilaiuas.Items.Add(i)
            i = i - 1
        End While




    End Sub



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


    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subproses.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_matakuliah.Text = ""
        namamatakuliah.Text = ""
        nilai_kehadiran.Text = ""
        nilaitugas.Text = ""
        nilaiakhir.Text = ""
        nilaiuas.Text = ""
        nilaiuts.Text = ""
        nilaihuruf.Text = ""
        keterangan.Text = ""
        npm.Focus()



    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110555"
                nama.Text = "RAUDATUL HASANAH"
            Case "12020328"
                nama.Text = "FITRI"
            Case "12110666"
                nama.Text = "HERNI"
        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        Select Case x
            Case "11"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem Informasi"
            Case "02"
                jenjang.Text = "D3"
                jurusan.Text = "Teknik Informatika"
            Case Else
                jenjang.Text = "D1"
                jurusan.Text = "Desain Grafis"
        End Select


    End Sub

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

        Select Case kode_dosen.Text
            Case "D01"
                nama_dosen.Text = "M Syahrizal, S.Kom"
            Case "D02"
                nama_dosen.Text = "Mesran, M.Kom"
            Case "D03"
                nama_dosen.Text = "Sony Sinaga, S.Kom,"
        End Select


    End Sub

    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged

        Select Case kode_matakuliah.Text
            Case "M01"
                namamatakuliah.Text = "Sistem Operasi"
            Case "M02"
                namamatakuliah.Text = "Pemograman Visual"
            Case "M03"
                namamatakuliah.Text = "Sistem Basis Data"
        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles subhapussemua.Click
        nilaiakhir.Text = 0.1 * Val(nilai_kehadiran.Text) + 0.15 * Val(nilaitugas.Text) + 0.35 * Val(nilaiuts.Text) + 0.4 * Val(nilaiuas.Text)
        Select Case nilaiakhir.Text
            Case 100 To 80
                nilaihuruf.Text = "A"
                keterangan.Text = "Lulus"
            Case 70 To 79
                nilaihuruf.Text = "B"
                keterangan.Text = "Lulus"
            Case 60 To 69
                nilaihuruf.Text = "C"
                keterangan.Text = "Lulus"
            Case 50 To 59
                nilaihuruf.Text = "D"
                keterangan.Text = "Gagal"
            Case 0 To 49
                nilaihuruf.Text = "E"
                keterangan.Text = "Gagal"
        End Select



    End Sub



    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
End Class

from nilai mahasiswa

ASS

NAMA    : RAUDATUL HASANAH NST
NPM       : 12110555
KLS        : SIM-1206

HMMM DAH LAMA NE gk buka blog ne
semoga bermanfaat ya (:







Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If MsgBox("Yakin Anda Ingin Keluar", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi") = MsgBoxResult.No Then e.Cancel = True

    End Sub        

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

        npm.Items.Add("12110328")

        npm.Items.Add("12020328")   

        npm.Items.Add("12030328")

        kode_dosen.Items.Add("D01")

        kode_dosen.Items.Add("D02")

        kode_dosen.Items.Add("D03")

        kode_matakuliah.Items.Add("M01")

        kode_matakuliah.Items.Add("M02")

        kode_matakuliah.Items.Add("M03")

        Dim i As Integer

        For i = 1 To 100

            nilai_kehadiran.Items.Add(i)

        Next i

        i = 1

        Do While i <= 100

            Nilai_tugas.Items.Add(i)

            i = i + 1

        Loop

        i = 100

        Do Until i = 0

            Nilai_UTS.Items.Add(i)

            i = i - 1

        Loop

        i = 100

        While i >= 1

            Nilai_Uas.Items.Add(i)

            i = i - 1

        End While

    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

    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_matakuliah.Text = ""

        Nama_matakuliah.Text = ""

        nilai_kehadiran.Text = ""

        Nilai_tugas.Text = ""

        Nilai_Akhir.Text = ""

        Nilai_Uas.Text = ""

        Nilai_UTS.Text = ""

        Nilai_huruf.Text = ""

        Keterangan.Text = ""

        npm.Focus()

    End Sub

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

        Select Case npm.Text

            Case "12110328"

                nama.Text = "James Hillery Sitohang"

            Case "12020328"

                nama.Text = "Fernando"

            Case "12030328"

                nama.Text = "Natal S"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        Select x

            Case "11"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem Informasi"

            Case "02"

                jenjang.Text = "D3"

                jurusan.Text = "Teknik Informatika"

            Case Else

                jenjang.Text = "D1"

                jurusan.Text = "Desain Grafis"

        End Select

    End Sub

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

        Select Case kode_dosen.Text

            Case "D01"

                nama_dosen.Text = "M Syahrizal, S.Kom"

            Case "D02"

                nama_dosen.Text = "Mesran, M.Kom"

            Case "D03"

                nama_dosen.Text = "Sony Sinaga, S.Kom,"

        End Select

    End Sub

    Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged

        Select Case kode_matakuliah.Text

            Case "M01"

                Nama_matakuliah.Text = "Sistem Operasi"

            Case "M02"

                Nama_matakuliah.Text = "Pemograman Visual"

            Case "M03"

                Nama_matakuliah.Text = "Sistem Basis Data"

        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 * Val(nilai_kehadiran.Text) + 0.15 * Val(Nilai_tugas.Text) + 0.35 * Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_Uas.Text)

        Select Case Nilai_Akhir.Text

            Case 100 To 80

                Nilai_huruf.Text = "A"

                Keterangan.Text = "Lulus"

            Case 70 To 79

                Nilai_huruf.Text = "B"

                Keterangan.Text = "Lulus"

            Case 60 To 69

                Nilai_huruf.Text = "C"

                Keterangan.Text = "Lulus"

            Case 50 To 59

                Nilai_huruf.Text = "D"

                Keterangan.Text = "Gagal"

            Case 0 To 49

                Nilai_huruf.Text = "E"

                Keterangan.Text = "Gagal"

        End Select

    End Sub

    Private Sub nilai_kehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_kehadiran.SelectedIndexChanged

    End Sub

End Class

cara setting mikroting dasar

metode enkripsi untuk pemrograman web

Metode dan Cara kerja Enkripsi Pemrograman Web

Enkripsi adalah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus.
Keuntungan dari enkripsi adalah kode asli kita tidak dapat dibaca oleh orang lain.

Berikut ada beberapa macam metode enkripsi yang dapat anda digunakan pada pemrograman website seperti PHP, ASP dan yang lainnya.

1. Metode Enkripsi MD2
Message-Digest algortihm 2 (MD2) adalah fungsi hash cryptographic yang dikembangkan oleh Ronald Rivest pada tahun 1989.Algoritma dioptimalkan untuk komputer 8-bit. MD2 yang ditetapkan dalam RFC 1319.
Meskipun algoritma lainnya telah diusulkan sejak dulu, seperti MD4, MD5 dan SHA, bahkan sampai dengan 2004 [update] MD2 tetap digunakan dalam infrastruktur kunci publik sebagai bagian dari sertifikat yang dihasilkan dengan MD2 dan RSA.

2. Metode Enkripsi MD4
Message-Digest algortihm 4(seri ke-4) yang dirancang oleh Profesor Ronald Rivest dari MIT pada tahun 1990.
Panjangnya adalah 128 bit.
MD4 juga digunakan untuk menghitung NT-hash ringkasan password pada Microsoft Windows NT, XP dan Vista.

3. Metode Enkripsi MD5
MD5 adalah salah satu dari serangkaian algortima message digest yang didesain oleh Profesor Ronald Rivest dari MIT (Rivest, 1994).
Saat kerja analitik menunjukkan bahwa pendahulu MD5 yaitu MD4 mulai tidak aman, MD5 kemudian didesain pada tahun 1991 sebagai pengganti dari MD4 (kelemahan MD4 ditemukan oleh Hans Dobbertin).
Dalam kriptografi, MD5 (Message-Digest algortihm 5) ialah fungsi hash kriptografik yang digunakan secara luas dengan hash value 128-bit.
Pada standart Internet (RFC 1321), MD5 telah dimanfaatkan secara bermacam-macam pada aplikasi keamanan, dan MD5 juga umum digunakan untuk melakukan pengujian integritas sebuah file.

4. Metode Enkripsi SHA
SHA adalah serangkaian fungsi cryptographic hash yang dirancang oleh National Security Agency (NSA) dan diterbitkan oleh NIST sebagai US Federal Information Processing Standard.
SHA adalah Secure Hash Algoritma. Jenis-jenis SHA yaitu SHA-0, SHA-1, dan SHA-2.
Untuk SHA-2 menggunakan algoritma yang identik dengan ringkasan ukuran variabel yang terkenal sebagai SHA-224, SHA-256, SHA-384, dan SHA-512.

5. Metode Enkripsi RC4
RC4 merupakan salah satu jenis stream cipher, yaitu memproses unit atau input data pada satu saat. Unit atau data pada umumnya sebuah byte atau bahkan kadang kadang bit (byte dalam hal RC4).
Dengan cara ini enkripsi atau dekripsi dapat dilaksanakan pada panjang yang variabel.
RC4 adalah penyandian stream cipher yang dibuat oleh Ron Riverst pada tahun 1987 untuk pengamanan RSA.
Algoritmanya didasarkan pada permutasi acak.

6. Metode Enkripsi Base64
Base64 adalah sistem untuk mewakili data mentah byte sebagai karakter ASCII.
Base64 menyediakan 6-bit encoding 8-bit ASCII karakter.
Base64 merupakan format yang dicetak menggunakan karakter, memungkinkan binari data yang akan dikirim dalam bentuk dan email, dan akan disimpan di database atau file.

Menampilkan Informasi Penjualan Dengan Bahasa C

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

     printf ("\n 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     Diskon   Pembayaran") ;
     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 ;
          }

          gotoxy(1,6+i) ; printf("  %i   %d     %s", i+1, kode[i], produk) ;
          gotoxy(30,6+i) ; printf("%10.0f    %i %10.0f", harga, jumlah[i], tohar) ;
          tohar = harga * jumlah[i] ;
          if (tohar>=4000000)
          diskon=0.2*tohar;
             else if (tohar <4000000 && tohar>=2000000)
          diskon=0.15*tohar;
          else if (tohar <2000000 && tohar>=1000000)
          diskon=0.1*tohar;
          else
          diskon=0;
          bayar=tohar-diskon;
          gotoxy(54,6+i) ; printf("%10.0f", diskon) ;
          gotoxy(65,6+i) ; printf("%10.0f", bayar) ;

     }
     printf ("\n---------------------------------------------------------------------------") ;


}

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :
JUDUL SOAL http://hidedoor.com/servlet/redirect.srv/sruj/scyaetcar/sftlnaj/svwx/p1/2013/06/coba-selesaikan-kasus-berikut-ini.html

Berikut Jawaban Program :

#include<stdio.h>
#include<conio.h>
void main()
{
      int i,masukkan,hasil=1;
      printf("Input Nilai : ");scanf("%d",&masukkan);
     printf("Hasil : ");
           for(i=1;i<=masukkan;i++)
              {
                if(i==masukkan)
                     printf("%d",i);
        else
                           printf("%d*",i);

                     hasil=hasil*i;
           }
              printf(" = %d",hasil);


}

Demikilahlah postingan saya  Nama : Raudatul Hasanah  NPM : 12110555

 Selamat http://mesran.blogspot.com/