Tutorial Membuat Form Transparan dengan VB.Net

Pada posting kali ini kami akan memberikan sebuah tutorial mengenai bagaimana membuat sebuah form dapat menjadi transparan dengan menggunakan bahasa pemrograman VB.Net . Pada tutorial ini kami menggunakan framework 4 dan menggunakan IDE Visual Studio 2012 . Pembaca dapat menggunakan  framework yang di bawah / atas dari kami dan IDE Visual Studio versi berapa pun karena pada tutorial kali ini tidak di batasin penggunaan framework tingkat berapa dan IDE Visual Studio versi berapa.

Berikut Tutorialnya :

1. Buka IDE Visual Studio pembaca , seperti terlihat pada gambar di bawah ini :













2. Klik 2 kali pada Form1 untuk membuka tab source code dan berikut source code pada aplikasi tersebut

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure margins
        Public cxleftwidth As Integer
        Public cxrightwitdh As Integer
        Public cytopheight As Integer
        Public cybuttomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As margins) As Integer

    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
        Dim mg As margins = New margins
        mg.cxleftwidth = -1
        mg.cxrightwitdh = -1
        mg.cytopheight = -1
        mg.cybuttomheight = -1
        Try
            DwmExtendFrameIntoClientArea(Me.Handle, mg)
        Catch ex As Exception

        End Try

    End Sub
End Class

3. Klik run untuk menguji apakah program yag di buat telah berhasil dengan baik .Jika benar maka akan sama seperti pada gambar di bawah ini













Untuk mendapatkan contoh dari program yang di pelajarin pembaca pada mendowloadnya melalui link di bawah ini

  - DropBox -


The Sun in Soeryatama Group
Tidak ada komentar:

Tutorial IF Borlan Delphi 7

Pada postingan kali ini , kami akan memberika beberapa contoh penggunaan IF untuk melakukan pengecekan terhadap suatu kondisi yang dimana akan menampilkan nilai tertentu . Berikut contohnya :

1. Buka Brolan Delphi 7 dan Design seperti pada gambar di bawah ini










2. Berikut script codenya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lblMenu: TLabel;
    grpBox1: TGroupBox;
    rbMerah: TRadioButton;
    rbHijau: TRadioButton;
    rbKuning: TRadioButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    cb1: TCheckBox;
    cb2: TCheckBox;
    cb3: TCheckBox;
    cb4: TCheckBox;
    cb5: TCheckBox;
    Label3: TLabel;
    lblnilai: TLabel; // label untuk menampilkan hasil tambah dari event clik CheckBox

    procedure PilihClick(Sender: TObject); //Membuat prosedur secara manual untuk event radio button
    procedure ComboBox1Change(Sender: TObject);
    procedure cb1Click(Sender: TObject);
    procedure cb2Click(Sender: TObject);
    procedure cb3Click(Sender: TObject);
    procedure cb4Click(Sender: TObject);
    procedure cb5Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nilai : integer; // membuat sebuah variabel nilai sebagai type integer
 
implementation

{$R *.dfm}
procedure TForm1.PilihClick(Sender:TObject);
{ Note : ganti event di 3 Radio Button dengan prosedur PilihClick }
begin
if rbHijau.Checked=true  then
    Label1.Caption:='Jalan'
else if rbMerah.Checked=true then
    Label1.Caption:='Berhenti'
else if rbKuning.Checked =true then
    Label1.Caption:='Bersiap';

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Merah' then
Label2.Color:= clRed
else if ComboBox1.Text = 'Hijau' then
Label2.Color:= clGreen
else if ComboBox1.Text = 'Kuning' then
Label2.Color:= clYellow;
end;

procedure TForm1.cb1Click(Sender: TObject);
begin
if cb1.Checked = true then
begin
nilai := nilai + 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end
else
begin
nilai := nilai - 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end;
end;

procedure TForm1.cb2Click(Sender: TObject);
begin
if cb2.Checked = true then
begin
nilai := nilai + 30000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 30000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb3Click(Sender: TObject);
begin
if cb3.Checked = true then
begin
nilai := nilai + 40000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 40000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb4Click(Sender: TObject);
begin
if cb4.Checked = true then
begin
nilai := nilai + 60000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 60000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb5Click(Sender: TObject);
begin
if cb5.Checked = true then
begin
nilai := nilai + 100000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 100000;
lblnilai.Caption := inttostr(nilai);
end
end;

end.

4. Uji program yang pembaca buat jika benar maka akan sama seperti ini dan tanpa adanya error.










Pembaca juga dapat mendowload contoh dari program yang di buat . Untuk mendowloadnya silakan klik link di bawah ini


 - Drop Box -

https://www.dropbox.com/s/2086nv8p3ufd8qf/Latihan%20IF.rar

THE SUN IN SOERYATAMA GROUP
Tidak ada komentar:

Tutorial Kalkulator Dengan Delphi

Pada postingan kali ini kami akan memberikan tutorial bagaimana membuat kalkulator dengan menggunakan bahasa delphi dan kami juga menggunakan IDE Borlan Delphi 7 . Ikutin cara pembuatannya secara step by step agar pembaca dapat mengertikan bagaimana membuat aplikasi kalkulator pada tutorial ini .

1. Buka IDE Brolan Delphi 7 kalian seperti pada gambar di bawah ini .














2. Gunakan beberapa object agar sama seperti gambar di bawah ini :














Property :
 Form :  Caption : Latihan Kalkulator , BorderStyle : bsDialog
 Button : Caption : Isi dengan angka seperti gambar di atas , Name : tmbl(no)
 Label : Caption : Dapat seperti pada gambar / nama pembaca
 GroupBox : Caption : Kosongkan
 Edit : Text : Kosongkan , Name : txtangka

3. Jika pada tahap ke 2 pembaca telah selesai maka untuk selanjuta kita mulai dengan penulisan
script code pada setiap button untuk menampilakan angka , operator yang di gunakan , dan hasil.
Sebelum kita mengetikan script codenya lebih baik kita save Project yang di buat . Jika pembaca sangat pemula kami menyarankan untuk tidak mengubah nama untuk di save agar pembaca tidak mengalami kesulitan dalam menyamakan script code kami.

Berikut script code :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    txtangka: TEdit;
    GroupBox1: TGroupBox;
    tmbl1: TButton;
    tmbl2: TButton;
    tmbl3: TButton;
    tmbl4: TButton;
    tmbl5: TButton;
    tmbl6: TButton;
    tmbl7: TButton;
    tmbl8: TButton;
    tmbl9: TButton;
    tmbl0: TButton;
    tambah: TButton;
    kurang: TButton;
    Label1: TLabel;
    bagi: TButton;
    kali: TButton;
    samadengan: TButton;
    c: TButton;
    procedure tmbl1Click(Sender: TObject);
    procedure tmbl2Click(Sender: TObject);
    procedure tmbl3Click(Sender: TObject);
    procedure tmbl4Click(Sender: TObject);
    procedure tmbl5Click(Sender: TObject);
    procedure tmbl6Click(Sender: TObject);
    procedure tmbl7Click(Sender: TObject);
    procedure tmbl8Click(Sender: TObject);
    procedure tmbl9Click(Sender: TObject);
    procedure tmbl0Click(Sender: TObject);
    procedure tambahClick(Sender: TObject);
    procedure kurangClick(Sender: TObject);
    procedure bagiClick(Sender: TObject);
    procedure kaliClick(Sender: TObject);
    procedure samadenganClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  tampung_nilai : String;
  tampung_nilai1 : Integer;
  nilai : Integer ;
  nilai1 : Integer;
  hitung : Integer;
  hitung1 : Double;

implementation

uses StrUtils;
{$R *.dfm}



procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;

procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;

end;

procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;

procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;

procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;

procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;


end.unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    txtangka: TEdit;
    GroupBox1: TGroupBox;
    tmbl1: TButton;
    tmbl2: TButton;
    tmbl3: TButton;
    tmbl4: TButton;
    tmbl5: TButton;
    tmbl6: TButton;
    tmbl7: TButton;
    tmbl8: TButton;
    tmbl9: TButton;
    tmbl0: TButton;
    tambah: TButton;
    kurang: TButton;
    Label1: TLabel;
    bagi: TButton;
    kali: TButton;
    samadengan: TButton;
    c: TButton;
    procedure tmbl1Click(Sender: TObject);
    procedure tmbl2Click(Sender: TObject);
    procedure tmbl3Click(Sender: TObject);
    procedure tmbl4Click(Sender: TObject);
    procedure tmbl5Click(Sender: TObject);
    procedure tmbl6Click(Sender: TObject);
    procedure tmbl7Click(Sender: TObject);
    procedure tmbl8Click(Sender: TObject);
    procedure tmbl9Click(Sender: TObject);
    procedure tmbl0Click(Sender: TObject);
    procedure tambahClick(Sender: TObject);
    procedure kurangClick(Sender: TObject);
    procedure bagiClick(Sender: TObject);
    procedure kaliClick(Sender: TObject);
    procedure samadenganClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  tampung_nilai : String;
  tampung_nilai1 : Integer;
  nilai : Integer ;
  nilai1 : Integer;
  hitung : Integer;
  hitung1 : Double;

implementation

uses StrUtils;
{$R *.dfm}



procedure TForm1.tmbl1Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '1';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl2Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '2';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl3Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '3';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl4Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '4';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl5Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '5';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl6Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '6';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl7Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '7';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl8Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '8';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl9Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '9';
txtangka.Text:= tampung_nilai
end;

procedure TForm1.tmbl0Click(Sender: TObject);
begin
tampung_nilai:= tampung_nilai + '0';
txtangka.Text:= tampung_nilai ;
end;

procedure TForm1.tambahClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai ;
nilai:= 0;

end;

procedure TForm1.kurangClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 1;
end;

procedure TForm1.bagiClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 2;
end;

procedure TForm1.kaliClick(Sender: TObject);
begin
tampung_nilai1 := StrtoInt(tampung_nilai);
tampung_nilai:= '';
txtangka.Text:= tampung_nilai;
nilai:= 3;
end;

procedure TForm1.samadenganClick(Sender: TObject);
begin
nilai1:= StrtoInt(txtangka.Text);
case nilai of
0: hitung1:= tampung_nilai1 + nilai1;
1: hitung1:= tampung_nilai1 - nilai1;
2: hitung1:= tampung_nilai1 / nilai1;
3: hitung1:= tampung_nilai1 * nilai1;
end;
txtangka.Text:= FloattoStr(hitung1);
end;
end.

4. Jika selesai , jalankan peroject yang barusan d buat dan lakukan percobaan untuk melakukan pengimputan ke edit dengan mengklik tombol.

Kami juga memberikan contoh dari aplikasi yang sedang di buat untuk di jadikan sebagai referensi pembaca dalam mempelajarin bahasa delphi.

  :: DropBox ::

https://www.dropbox.com/s/y5tilx1xtmgj3s8/Latihan%20Kalkulator.rar

  :: 4Shared ::

http://www.4shared.com/rar/PImiVCigce/Latihan_Kalkulator.html

Terima Kasih
Tidak ada komentar:
Langganan: Postingan (Atom)