NOTEPAD DENGAN VB.NET 2003

ini merupakan tugas matakuliah pemrograman vb.net 2003. ini tampilan di dalam form vb.net

lihat apa saja pallete yang dibutuhkan..

inilah sourcecodenya..

program kalkulator dengan visual studio.net

program ini yang membuat tidak saya sendiri tapi saya mengetik dari modul praktikum pemrograman teknik informatika 2010 STTA Yogyakarta.

inilah tampilannya

dan ini sourcecodenya

Mulai belajar VISUAL STUDIO.NET

Disini saya akan berbagi ilmu saya tentang vs.net(VisualStudio.Net) yang saya terima dipraktikum hari jumat 13.30 Wib 9/4/10 diLab.

tulisan ini membahas tentang explorasi vs.net supaya kita lebih mengenal fitur-fiturnya dan mengetahui kemudahannya..

disini kita akan membuat dua buah form. form yang pertama memuat halaman depan yang diberi nama hello dan form kedua diberi nama message. ikuti langkah-langkahnya serta lihat gambar-gambarnya:

komponen gambar diatas:
Form1, MainMenu1, ToolTip1, ColorDialog1, Label1, Button1, Button2, Button3. Propertinya disesuakan sendiri.

dan bila dijalankan seperti ini gambarnya:

setelah itu buat form yang kedua.

komponen form diatas:
form2, MainMenu1, GroupBox1, Label1, Label2, TextBox1, RichTextbox1,GroupBox2,RadioButton1,RadioButton2,RadioButton3,
PictureBox1,Label3,Label4,CheckButton1,Button1,Button2

sebelum masuk ke script form1 dan form2 kita harus buat dulu modul
dengan cara. arahkan kursor keatas projek kuliah2 trus klik kanan–>add–>add Module. dan isi dengan syntax seperti dibawah ini.

Pemrograman .Net

senin, 08 maret 2010 10.00 wib

saya masuk kuliah terlambat tapi lumayan baru mau masuk ke topik..

Dosen : Hendro Hartanto S.Kom

SKS : 2 sks

penilian perkuliahan:

1. 40% tugas
2. 30% UTS&UAS
3. 20% Presentasi
4. 10% Absensi

software : visual studio.net 2003

pada pertemuan pertama ini dijelaskan bagaimana menggunakan algoritma dan diberikan kasus sebuah perkalian 2×2=4 dan disuruh membuat algoritmanya

banyak yang menjawab..

• pertama menentukan variabel
• kedua tipe data
• ketiga proses
• keempat hasil dan output
• kelima ujicoba

setelah itu diberikan konsep pemrograman gui:

1. perumusan masalah
2. membuat alur
   • algoritma
   • flowchart
3. implementasi
4. ujicoba

setelah itu mahasiswa disuruh membuat form gui untuk perkalian dan pengisian biodata ktp:

pertemuan pertama cukup sekian.

program konversi suhu (procedure)

Saya mencoba membuat program konversi suhu menggunakan procedure.
Didalam program ini terdapat percabangan case of else dan perulangan repeat until. Coba pahami kegunaannya.

Program Konversi_Suhu;
Uses WinCrt;

var f,c,r : real;
     a,ul  : char;
procedure farein_celcius;
begin
   Writeln('Program Konversi Fareinheit Ke Celcius');
   Writeln('======================================');
   Writeln;
   Write('Masukan Suhu dalam Farenheit: ');readln(f);
   c:=5/9*(f-32);
   Writeln;
   Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end;

procedure farein_reamur;
begin
   Writeln('Program Konversi Fareinheit Ke Reamur');
   Writeln('=====================================');
   Writeln;
   Write('Masukan Suhu dalam Farenheit: ');readln(f);
   r:=4/9*(f-32);
   Writeln;
   Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2);
end;

procedure celcius_farein;
begin
   Writeln('Program Konversi Celcius Ke Fareinheit');
   Writeln('======================================');
   Writeln;
   Write('Masukan Suhu dalam Celcius: ');readln(c);
   f:=(9/5)*c+32;
   Writeln;
   Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2);
end;

procedure celcius_reamur;
begin
   Writeln('Program Konversi Celcius ke Reamur');
   Writeln('==================================');
   Writeln;
   Write('Masukan Suhu dalam Celcius: ');readln(c);
   r:=(4/5)*c;
   Writeln;
   Writeln('Jadi Suhu Dalam Reamur Adalah: ',r:4:2);
end;

procedure reamur_celcius;
begin
   writeln('Program Konversi Reamur ke Celcius');
   Writeln('==================================');
   Writeln;
   Write('Masukan Suhu dalam Reamur: ');readln(r);
   c:=(5/4)*r;
   Writeln;
   Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end;

procedure reamur_farein;
begin
   writeln('Program Konversi Reamur ke Fareinheit');
   Writeln('=====================================');
   Writeln;
   Write('Masukan Suhu dalam Reamur: ');readln(r);
   f:= (9/4)*r+32;
   Writeln;
   Writeln('Jadi Suhu Dalam Fareinheit Adalah: ',f:4:2);
end;

begin
  repeat
  clrscr;
    writeln ('Program konversi suhu');
    writeln;
    writeln ('1. fareinheit - celcius');
    writeln ('2. fareinheit - reamur');
    writeln ('3. celcius -  reamur');
    writeln ('4. celcius - fareinheit');
    writeln ('5. reamur - celcius');
    writeln ('6. reamur - farenheit');
    writeln;

    write ('pilih nomor konversi : '); read (a);
    writeln;
 
case a of
   '1' : farein_celcius;
   '2' : farein_reamur;
   '3' : celcius_reamur;
   '4' : celcius_farein;
   '5' : reamur_celcius;
   '6' : reamur_farein;
else
   writeln ('Nomor yang anda masukkan salah');
end;

   Writeln;Writeln;
   Write('Mau Coba Lagi [Y/T]: ');Readln(ul);
  Until Upcase(ul)'Y';
End.