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)
:) :) :)
Featured Posts
Kamis, 05 Maret 2015
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;
}
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
Langganan:
Postingan (Atom)