terdidik®VSC

Dibawah ini merupakan contoh Sistem Pendukung Keputusan secara sederhana, dalam hal sandi morse yaitu dengan mempersempit jawaban kode morse (dengan memfilternya).
Buat terlebih dahulu formnya.

Properties untuk txtInput :
- name : txtInput
Properties untuk txtOutput :
- name : txtOutput
- locked : true
- multiline : true
- scrollbars : 2-vertical
Adodc1 Properties (klik kanan-ADODC Properties) :
- Use Connection String->Build->Use data source name->(pilih)->OK
- visible : false
Kemudian buatlah event on change pada txtInput (dapat langsung didouble klik txtInput) :

1 Private Sub txtInput_Change()
2 If txtInput.Text <> "" Then
3 Adodc1.RecordSource = "SELECT kode,huruf FROM morse WHERE kode LIKE '" & txtInput.Text & "%'"
4 Adodc1.Refresh
5 txtOutput.Text = ""
6 If Adodc1.Recordset.RecordCount > 0 Then
7 For i = 1 To Adodc1.Recordset.RecordCount
8 txtOutput.Text = txtOutput.Text + Adodc1.Recordset.Fields.Item(0).Value + vbTab + Adodc1.Recordset.Fields.Item(1).Value + vbNewLine
9 Adodc1.Recordset.Move (1)
10 Next i
11 End If
12 End If
13 End Sub


Keterangan untuk kode :
1, 13 Method txtInput saat data berubah/diedit
2,12 Data hanya akan diproses jika txtInput terdapat data, jika tidak ada data (kosong) maka tidak akan diproses (efisien/tidak mubazir)
3 Menulis perintah SQL ke dalam Adodc1. Hal yang penting yaitu “WHERE kode LIKE … % “ (ingat, persen terakhir tidak boleh ada spasi, terutama antara persen dengan petik didepannya) sehingga misal txtInput berisi data “.-“ maka perintah SQLnya : “WHERE kode LIKE ‘.-%’” yang menandakan bahwa kita melakukan pengambilan data kode morse yang memiliki pattern didepannya “.-“, jadi dapat berupa “.-“, “.-.”, “.--.”, dan seterusnya.
4 Mengexecute perintah SQL
5 Mengkosongkan txtOutput
6,11 Data hanya ditampilkan jika hasil queri memberikan data minimal 1 data. (efisiensi)
7,10 Perintah looping untuk menuliskan data satu persatu ke dalam txtOutput
8 txtOutput akan diisi dengan data txtOutput sebelumnya (add, bukan replace) ditambah dengan data “kode”<tab>”huruf”. Perintah vbTab untuk menambah karakter tab dan vbNewLine untuk mengganti baris
9 Melanjutkan data selanjutnya.

Karena keterbatasan, untuk lebih jelas, lengkap dan pastinya dapat anda buka di http://terdidik.com/ Disitu juga anda dapat mendownload queri database dari program ini..

Ini hasil perubahan dari Pseudo Code yang lalu.. Silakan gunakan dengan hati2 dan be carefull

public class tgs2 {

	public static void main(String[] args) {

		int choise;

		do {

			choise= bacaInput("1.Proses Tegangan\n"+

					"2.Proses Arus\n"+

					"3.Proses Resistor");

		} while((choise>3) || (choise<1));

		switch(choise) {

		case 1:

			prosesTegangan();

			break;

		case 2:

			prosesArus();

			break;

		case 3:

			prosesResistor();

			break;

		}

	}



	public static void prosesTegangan() {

		int r=bacaInput("Resistor?");

		int i=bacaInput("Arus?");

		int v=hitungTegangan(i,r);

		tampilkan(v);

	}

	

	public static void prosesArus() {

		int r=bacaInput("Resistor?");

		int v=bacaInput("Tegangan?");

		int i=hitungArus(v,r);

		tampilkan(i);

	}



	public static void prosesResistor() {

		int i=bacaInput("Arus?");

		int v=bacaInput("Tegangan?");

		int r=hitungResistor(v,i);

		tampilkan(r);

	}



	public static int bacaInput(String pilihan) {

		return Integer.parseInt(javax.swing.JOptionPane.showInputDialog(pilihan));

	}



	public static int hitungTegangan(int i, int r) {

		return i*r;

	}



	public static int hitungArus(int v, int r) {

		return v/r;

	}



	public static int hitungResistor(int v, int i) {

		return v/i;

	}

		

	public static void tampilkan(float out) {

		String teks=garis('=',15);

		teks+="Hasilnya adalah "+out+"\n";

		teks+=garis('=',15);

		javax.swing.JOptionPane.showMessageDialog(null, teks);

	}



	public static String garis(char pattern, int count) {

		String patterns="";

		for(int i=1;i<=count;i++) {

			patterns+=pattern;

		};

		return patterns+"\n";

	}

}

Bagi penggemar terdidik(r)VSC hingga akhir ini..akan mendapatkan source ini juga plus COMMENTnya... so, besok2 bagi yang mau..jadi penggemar donk...

Daripada langsung jadinya, ni ku dah buat pseudo codenya... Silakan temen2 kembangkan sendiri source codenya, bisa pake Java atau C++

main() {

  int pilih;

  ulangi {

    pilih=bacaInput("1.Tegangan,2.Arus,3.Resistor");

  } ketika (pilih>3) atau (pilih<1);

  pemilihan(pilih) {

    jika 1: prosesTegangan();

    jika 2: prosesArus();

    jika 3: prosesResistor();

  }

}

	

void prosesTegangan() {

  int r=bacaInput("Resistor");

  int i=bacaInput("Arus");

  int v=hitungTegangan(i,r);

  tampilkan(v);

}

	

void prosesArus() {

  int r=bacaInput("Resistor");

  int v=bacaInput("Tegangan");

  int i=hitungArus(v,r);

  tampilkan(i);

}



void prosesResistor() {

  int i=bacaInput("Arus");

  int v=bacaInput("Tegangan");

  int r=hitungResistor(v,i);

  tampilkan(r);

}



int bacaInput(String pilihan) {

  cetak(pilihan);

  return nilai_masukan;

}

	

int hitungTegangan(int i, r) {

  return i*r;

}



int hitungArus(int v, r) {

  return v/r;

}



int hitungResistor(int v, i) {

  return v/i;

}

	

void tampilkan(int out) {

  garis('=',15);

  cetak(out);

  garis('=',15);

}

	

void garis(char pattern, int count) {

  perulangan_dari 1 sampai count(i++) {

    cetak(pattern);

  }

}

Nah,kalo mau yang source code yang dah jadi silakan ini dikerjakan dahulu,klo dah mentoq, temn2 boleh request dech source code yang dah jadi..
Selamat mengerjakan..!!!!