ShutDown,Resart,dan Log Off di VB.NET

Kali ini saya akan menjelaskan cara membuat program ShutDown,Resart,dan Log Off dengan VB.NET, caranya sangat mudah. Buka Vb.Net, tambahkan 3 Button ke dalam form.

Masukkan coding berikut ini :

Public Class Form1

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

        'untuk shutdown

        Shell("Shutdown -s")

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        'untuk resart

        Shell("Shutdown -r")

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        'untuk Log Off

        Shell("Shutdown -l")

    End Sub

End Class

 

Membuat Komputer Berbicara Di VB.NET

• Pilih File - > New Project - > Windows Form Application - > beri nama komputer berbicara

• tambahkan 1 buah textbox,1 buah trackbar,1buah button,dan 2 buah label

• ubah tampilan seperti ini atau sesuai keinginan anda :
  
  

Metode Bubble Sort

Metode pengurutan buble sort/ gelembung, prosedur atau algorimatnya adalah sbb:

• pengecekan dimulai dari data ke-1 sampai dengan data ke-n.

• bandingkan data ke-n dengan data sebelumnya (n-1),jika lebih kecil maka tukar bilangan tersebut dengan data yang ada didepanya satu persatu (n-1,n-2,n-3,..dst).

• lakukan langkah ke 2 sampai mendapatkan urutan yang maksimal.

        Berikut ini kita akan mencoba membuat sebuah program pengurutan data atau Sorting dengan metode Bubble Sort. kita akan memasukan 15 data yang int Data[15 {8,1,45,2,5,2,9,6,12,7,8,6,10,11,44};  yang tidak berurutan. pemrogramanya, serta kita akan meghitung berapa banyak proses pertukaran posisi data, dan berapa banyak proses perbandingan data. contoh codingnya adalah sebagai berikut :

Contoh Program Metode Bubble Sort :

int tmp,TK, FB:

void main ()

 {

int Data[15]:{8,1,45,2,5,2,9,6,12,7,8,6,10,11,44};

cout<<">>> Sorting dengan Metode Bubble <<<\n’’;

cout<<"_______________________________________\n":

cout<<"\n\nData sebelum di Urutkan >> ";

for (int i=0: i<15; i--)

{

cout<Data[i]<<" ";

}

                for (int h=0; h<15; h++)

{

                 for (int i=0; i<15; i--)

              {

                 FB++;

                if (Data[i] > Data[i+1])

{

Perkalian di Vb.net Dengan Menggunakan Listbox & ComboBox

Yang diperlukan :

• 1 buah textbox

• 1 buah listbox

• 1 buah combobox

Desain Form seperti dibawah ini :

Coding Programnya :

Pemrograman C++ : Statement FOR

Statement FOR digunakan untuk menyatakan perulangan (seperti PASCAL).

Sintaksnya:

for (ungkapan1; ungkapan2; ungkapan3)

  {

    .

    .

  }

-           Ungkapan1 merupakan statement awal (inisialisasi)

-           Ungkapan2 merupakan kondisi/syarat perulangan dilakukan

-           Ungkapan3 merupakan statement control untuk perulangan

Contoh:

Di bawah ini adalah program untuk mencetak bilangan genap yang kurang dari n

(n diperoleh dari input).

Pemrograman C++ : Statement SWITCH

Statement   SWITCH   juga   berfungsi   sama   dengan   IF.   Perintah   SWITCH   sama dengan perintah CASE OF dalam PASCAL.

Sintaks:

switch (variabel) 

{ 

   case value1 : statement1;

     break;

   case value2 : statement2;

     break;

     .

     .

   Default : statement;

    break;

}

Pemrograman C++ : ARRAY

Array adalah kumpulan data yang bertipe sama yang menggunakan nama yangsama. Dengan menggunakan array, sejumlah variabel dapat memakai nama yangsama.   Antara   satu   variabel   dengan   variabel   lain   di   dalam   array   dibedakan berdasarkan nomor elemen (subscript).

Contoh 1. Penggunaan array dalam C++:

Program di bawah ini untuk membaca data kemudian menampilkannya.

#include<iostream.h>

#include<conio.h>

void main()

{

int data[10];

int elemen;

clrscr();

// entri 10 data

// array dengan 10 elemen bertipe integer

 

}

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “;

cin >> data[elemen];

}

// tampilkan data setelah entri

for (elemen=0;elemen <= 9;elemen++)

{

cout << “Data ke – “ << elemen << “: “ << data[elemen];

}

 Contoh 2. Program untuk menampilkan data array dari hasil inisialisasi:

#include<iostream.h>

#include<conio.h>

void main()

{

int data[5] = {4, 1, 0, -9, 8};

int elemen;

clrscr();

// tampilkan data

for (elemen=0;elemen <= 4;elemen++)

{

cout << “Data ke – “ << elemen << “: “ << data[elemen];

}

}

Pemrograman C++ : STATEMENT IF

Seperti halnya Pascal, perintah IF dalam C++ juga digunakan untuk menyatakan

pernyataan kondisional (bersyarat).

Sintaks sederhana IF adalah

if (kondisi)

statement;

Statement   pada   sintaks   di   atas   akan   dilakukan   jika   kondisinya   bernilai   TRUE

(tidak sama dengan nol).

Apabila statement yang akan dilakukan lebih dari satu, maka sintaksnya menjadi

if (kondisi)

{

statement1;

statement2;

.

.

}

Contoh   sederhana   penggunaan   IF   adalah   untuk   menentukan   boleh   tidaknya

seseorang melihat film bioskop. Seseorang diperbolehkan menonton jika usianya

17 tahun ke atas. Berikut ini program C++ nya:

#include <iostream.h>

#include <conio.h>

void main()

{

int usia;

clrscr();

cout << “Berapa usia Anda : “;

cin >> usia;

if (usia < 17)

cout << “Anda tidak boleh menonton bioskop”;

}

Statement IF juga dapat ditambahkan ELSE sebagai konsekuensi alternatif jika

kondisi tidak dipenuhi (FALSE). Sintaksnya:

Mencari Gaji Karyawan Dengan Pascal

uses crt;

var

 nopeg,nama : array [1..10] of string;

 gol,JJL : array [1..10] of integer;

 Lembur_jam, gapok, tunjangan: array [1..10] of longint;

 UangLembur, gaji_bersih : array [1..10] of real;

 i, p : integer;

begin

 clrscr;

 write('masukkan jumlah pegawai: '); readln(p);

 writeln('-----------------------------------------------------------');

 for i:= 1 to p do

 begin

 write('masukkan nomer pegawai[',i,']: '); readln(nopeg[i]);

 write('masukkan nama pegawai[',i,']: '); readln(nama[i]);

 write('masukkan jumlah jam lembur[',i,']: '); readln(JJL[i]);

 write('masukkan golongan[',i,']: '); readln(gol[i]);

 if(gol[i]=1) then

  begin

   gapok[i] := 100000;

   tunjangan[i]:= 50000;

   Lembur_jam[i]:= 3500;

  end

 else if(gol[i]=2) then

  begin

   gapok[i]:= 200000;

   tunjangan[i] := 100000;

   lembur_jam[i] := 4500;

  end

 else if(gol[i]=3) then

  begin

   gapok[i]:= 350000;

   tunjangan[i] := 200000;

   lembur_jam[i] := 6000;

  end

 else if(gol[i]=4) then

  begin

   gapok[i]:= 500000;

   tunjangan[i] := 350000;

   lembur_jam[i] := 0;

  end

 else

  begin

   write('masukkan gaji pokok[',i,']: '); readln(gapok[i]);

   write('masukkan tunjangan[',i,']: '); readln(tunjangan[i]);

   write('masukkan Uang lembur per jam[',i,']: '); readln(lembur_jam[i]);

  end;

Contoh For Bersarang Dengan Pascal

uses crt;

var i,y, x :byte;

begin

clrscr;

writeln('================================================================');

writeln('||                                 for bersarang                             ||');

writeln('================================================================');

x:=9;

     for i:=9 downto 1 do

     begin

     write(' ':x);

     for y:=9 downto i do

     write('*' :2);

     writeln;

     x:=x-1;

     end;

      x:=2;

      for i:= 1 to 8 do

      begin

      write(' ':x);

      for y:=8 downto i do

      write('*':2);

      writeln;

      x:=x+1;

      end;

writeln('================================================================');

readln;

end.

Hasil  :