-->

Pages

Subscribe:

Ads 468x60px

Featured Posts

Kamis, 05 Maret 2015

Stress

Stress = Tekanan
Tekanan = Memacu emosional
hidup tanpa stress tidak akan seimbang(stress positif), jadi buatku dan teman-temanku mahasiswa/i semester akhir jangan takut/menghindari stress.
Semakin tinggi stress(tekanan)akan semakin memacu emosional kita dalam berfikir untuk cepat melakukannya/mengerjakannya(Skripsi)
:) :) :)

Selasa, 18 November 2014

Fungsi if dan swicth dalam program C++

#include<iostream.h>
int main()
{
int nilai;
cout<<"Masukan Nilai : ";
cin>>nilai;

          int data_mhs;
          cout<<"Masukan NPM   : ";
          cin>>data_mhs;
          switch(data_mhs)
          {
          case 1111901:
                     cout<<"NAMA          : ENDANG RISMAWATI HALAWA"<<endl;
                     cout<<"KELAS         : TI_M1115"<<endl;
                     cout<<"JURUSAN       : TEKNIK INFORMATIKA"<<endl;
                     cout<<"M.KULIAH      : PEMOGRAMAN BERORIENTASI OBJEK"<<endl;
                     cout<<"KAMPUS        : STMIK BUDIDARMA MEDAN "<<endl;
          }
if(nilai>=0 && nilai<=44)
cout<<"Nilai E"<<endl;
else if(nilai>=45 && nilai<=55)
cout<<"Nilai D"<<endl;
else if (nilai>=56 && nilai<=67)
cout<<"Nilai C"<<endl;
else if (nilai>=68 && nilai<=79)
cout<<"Nilai B"<<endl;
else if (nilai>=80 && nilai<=100)
cout<<"Nilai A"<<endl;
else
cout<<"Masukan nilai [0-100]"<<endl;
}

Rabu, 26 Juni 2013

kriptografi caesar chiper






Public Class Form1

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            x = Mid(plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        chiper.Text = xkalimat

    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            x = Mid(chiper.Text, i, i)
            x = Chr(Asc(x) - 3)
            xkalimat = xkalimat + x
        Next
        plain.Text = xkalimat
    End Sub
End Class