Yuk! Belajar Pemograman Visual Basic dot Net Di Mesran.Net

Public Class Form1

  Private Sub Form1_Load(...)
lv.Columns.Add("Kode", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
lv.Columns.Add("Beban Biaya", 90, HorizontalAlignment.Left)
lv.Columns.Add("Harga", 90, HorizontalAlignment.Left)
lv.Columns.Add("jumlah Pemakaian", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total tagihan", 150, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True


Kode_p.Items.Add("001")
Kode_p.Items.Add("002")
Kode_p.Items.Add("003")

Tipe.Items.Add("Toko")
Tipe.Items.Add("Swalayan")
Tipe.Items.Add("Rumah")
Tipe.Items.Add("Pabrik")
End Sub

  Private Sub Kode_p_SelectedIndexChanged(...)
Select Kode_p.Text
Case "001" : Nama.Text = "Jhoni"
Case "002" : Nama.Text = "Eko"
Case "003" : Nama.Text = "Dian"
End Select
End Sub

  Private Sub Tipe_SelectedIndexChanged(...)
Select Case Tipe.Text
Case "Toko"
biaya.Text = "25000"
harga.Text = "300"
Case "Rumah"
biaya.Text = "15000"
harga.Text = "100"
Case "Swalayan"
biaya.Text = "100000"
harga.Text = "200"
Case "Pabrik"
biaya.Text = "250000"
harga.Text = "500"
End Select
End Sub

  Private Sub btnproses_Click(...)
total.Text = Val(biaya.Text) + Val(harga.Text) * (jumlah.Text)
pajak.Text = 0.01 * total.Text
pembayaran.Text = Val(total.Text) + Val(pajak.Text)
Dim lst As New ListViewItem
lst.Text = Kode_p.Text
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
lv.Items.Add(lst)
End Sub

  Private Sub btnhapus_Click(...)
Kode_p.Text = ""
Nama.Text = ""
Tipe.Text = ""
biaya.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub

  Private Sub jumlah_KeyPress(...)
If Asc(e.KeyChar) = 13 Then
btnproses_Click(sender, e)
End If
End Sub

  Private Sub btnkeluar_Click(...)
End
End Sub

  Private Sub btnhapuslist_Click(...)
lv.Items.Clear()
End Sub
End Class

Tampilan yang dihasilkan:



 





 

Cara Input Gambar di Form Delphi

Delphi merupakan sebuah Bahasa Pemrograman yang menarik untuk dibahas karena menurut saya paling enak di pelajari dan mudah dalam hal pengoprasiannya. Ditambah lagi kompatibel ke semua jenis Os Windows.

Dalam Pemrograman Delphi pastinya anda ingin melakukan Input Gambar di Form Delphi tersebut. Dengan begitu anda dapat Mempercantik Tampilan Aplikasi Delphi agar seorang user dapat betah belama-lama dengan program yang telah anda buat. Gambar yang anda masukkan harus berekstensi JPEG / JPG saja.

Contohnya anda akan memasukkan gambar seperti dibawah ini

Contoh hasil input gambar

Cara Input Gambar di Form Delphi

1. Buka Delphi anda dan buat sebuah Project baru (tidak perlu dilakukan jika anda sedang membuat sebuah program tinggal ikuti langkah 2 - 5)

2. Untuk memasukkan gambar klik pada Toolbar dan pilih Additional lalu klik icon Image dan tempatkan dalam Form1 (seperti gambar dibawah ini)

3. Klik (komponen image yang telah anda tempatkan dalam Form1 tadi nampak pada langkah 1) dan dalam Object Inspector klik Propertis dan klik pada Picture

4. Klik tombol Load( lingkaran 1) setelah terbuka jendela baru cari gambar yang akan anda tampilkan dalam Form1 tadi dan klik Open terakhir klik OK( lingkaran 2) pada Picture Editor

5. Simpan / Save dan Run

Input Gambar di Form Delphi sangatlah mudah karena dalam komponen delphi tersedia secara default, karena ini merupakan komponen bawaan dari delphi itu sendiri hanya dapat memasukkan jenis gambar yang berektensi JPEG saja. Terkecuali jika anda ingin menambahkan jenis gambar yang lain seperti Menampilkan Gambar *.Gif di Delphi dapat dilakukan dengan menambahkan komponen tambahan yang benama TGifImage.

QIUS KONSEP PEMOGRAMAN

Kode :
uses crt;
var
   kode:integer;
   jnsplg:string;
   beban:real;
   hargakwh:integer;
   pembayaran:real;
   pemakaian:real;
   no:integer;
   q:integer;
label
     ulang;

begin
      clrscr;
      no:=1;
      writeln('Informasi Pembayaran Rekening Listrik');
      writeln('-----------------------------------------------------------------');
      gotoxy(0,3);write('No');
      gotoxy(5,3);write('Kode');
      gotoxy(13,3);write('Jenis Pelanggan');
      gotoxy(30,3);write('Beban');
      gotoxy(40,3);write('Pemakaian');
      gotoxy(55,3);write('Pembayaran');
      writeln;
      writeln('-----------------------------------------------------------------');
ulang:
     gotoxy(0,3+no+1);write(no);
     gotoxy(5,3+no+1);read(kode);
     if (kode=1) then
     begin
          jnsplg:='RUMAH';
          beban:=25000;
          hargakwh:=3000;
     end
     else if(kode=2) then
     begin
          jnsplg:='TOKO';
          beban:=50000;
          hargakwh:=5000;
     end
     else if(kode=3) then
     begin
          jnsplg:='PABRIK';
          beban:=10000;
          hargakwh:=10000;
     end;
     gotoxy(13,3+no+1);write(jnsplg);
     gotoxy(30,3+no+1);write(beban:0:0);
     gotoxy(40,3+no+1);read(pemakaian);
     pembayaran:=beban+hargakwh*pemakaian;
     gotoxy(55,3+no+1);write(pembayaran:0:0);

     gotoxy(63,3+no+1);
     write('Lagi?');
     readln(q);
     no:=no+1;
     if(q=1) then goto ulang;

readkey;
end.
 
Hasil : 

PERULANGAN (LOOP)

Contoh Perulangan

 Suatu program untuk menampilkan angka dari 1 sampai dengan 5:

#include <stdio.h>
#include <conio.h>
main()
{

printf(“1\n”); printf(“2\n”); printf(“3\n”); printf(“4\n”); printf(“5\n”); getch(); return 0;

}

Penggunaan input/output dengan bahasa C 

#include <stdio.h>

int main()

{

printf(“Selamat Belajar Algortima dan Pemrograman \n”);

return 0;

}

Contoh 2 : Penggunaan input/output dengan bahasa C

#include <stdio.h>

void main()

{

printf(“Selamat Belajar Algortima dan Pemrograman \n”);

}

Bahasa Pemograman C

Pertukaran Dua Buah Variabel 

#include
main()

{

int bejanaA,bejanaB,bejanaC;

clrscr();

bejanaA=90;bejanaB=85;

printf("isi bejana sebelum ditukarkan\n");

printf("isi bejanaA = %d\n",bejanaA);

printf("isi bejanaB = %d\n",bejanaB);

bejanaC=bejanaA;

bejanaA=0;

bejanaA=bejanaB;

bejanaB=0;

bejanaB=bejanaC;

/*clrscr();*/

printf("isi bejana setelah ditukarkan\n");

printf("isi bejanaA = %d\n",bejanaA);

printf("isi bejanaB = %d\n",bejanaB);

getch();
}

Menghitung keliling dan luas lingkaran

/* File program : lingkaran.c */

#include

main()

{

float radius,keliling,luas;

clrscr();

printf("masukkan jari-jari lingkaran : ");

scanf("%f",&radius);

keliling=2*3.14f*radius;

luas=0.5f*3.14f*radius*radius;

printf("\nData lingkaran\n");

printf("jari-jari = %8.2f\n",radius);

printf("keliling = %8.2f\n",keliling);

printf("Luas=%8.2f\n",luas);

getch();

}

·  

Menghitung Nilai Akhir MataKuliah

#include

main()

{

float absen,tugas,mid,uas,na;

clrscr();

printf("input nilai kehadiran:");

scanf("%f",&absen);

printf("input nilai tugas:");

scanf("%f",&tugas);

printf("input nilai mid:");

scanf("%f",&mid);

printf("input nilai uas:");

scanf("%f",&uas);

na=0.1*absen+0.2*tugas+0.3*mid+0.4*uas;

printf("nilai akhir = %f",na);

getch();

}

· Mencari luas segitiga

#include

main()

{

int alas,tinggi;

float luas;

clrscr();

printf("inputkan alas segitiga:");

scanf("%d",&alas);

printf("inputkan tinggi segitiga:");

scanf("%d",&tinggi);

luas=alas*tinggi*0.5;

printf("luas segitiga=%.2f\n",luas);

getch();

}

ulasan mesran.net

Mesran.net adalah suatu media informatika yang memberikan pembelajar pemograman, pemograman yang diberikan cukup banyak yaitu : C#, C++, PASCAL, VISUAL BASIC NET, VB6, E-BOOK, DOWNLOAD, BLOG, SEO.
kami dari salah satu mahasiswa STMIK BUDIDARMA merasa sangat terbantu dengan adanya mesran.blogspot.com ini dimana kami dapat mempelajari dengan gratis, selain mahasiswa STMIK BUDIDARMA baik itu mahasiswa lain, programer, ataupun orang yang hendak mau belajar program juga bisa mengakses mesran.net ataupun mesran.blogspot.com

sangat bermanfaat bukan, bila kita membutuhkan.... :)

Program Pascal

1.Program membandingkan 3 variabel

Uses CRT;
Var a, b, c : Integer;
Begin
write(‘Masukkan bilangan A :’); readln(A);
write(‘Masukkan bilangan B :’); readln(B);
write(‘Masukkan bilangan C :’); readln(C);
if (a>b) then
if (a>c) then
Writeln(‘Bilangan A terbesar’)
else
Writeln(‘Bilangan C terbesar’)
else
if (b>c) then
Writeln(‘Bilangan B terbesar’)
else
Writeln(‘Bilangan C terbesar’);
End.

2. Program bagi pemula dengan struktur biasa
Program ContohInteger;
Uses CRT;
Var y : Integer;
p : Real;
X : Real;
Begin
y := 5;
p := 6;
x := y + p;
Writeln(‘Nilai X adalah :’,x:4:1);
End.

3. Program untuk menginput sejumlah variabel dan menampilkannya
Program Contoh_Variabel;
Uses crt;
Var
Nama : string[15];
Jumlah,harga : Longint;
Nilai : real;
Begin
ClrScr;
{Memasukkan data}
Nama:=’Semen';
jumlah:=10;
harga :=250000;
Nilai :=Harga * Jumlah ;
{Menampilkan Data yang Telah Diproses}
writeln(‘Nama Barang:’,Nama);
writeln(‘Jumlah:’,Jumlah);
writeln(‘Harga:’,Harga);
writeln(‘Nilai Barang:’,Nilai);
Readln;
end.