VB Feed: Operator pada Delphi ( Pangkat, Akar, Kali, Bagi, dll)

Ass. wr. Wb...

Pagi temen-temn semua. dah lama gk ngeblog kangen juga. kali ini saya mau ngasi tutorial tentang Operator pada delphi, mungkin temen2 delphier dah sangat menguasai tentang ini, tapi mungkin ada temen2 yang lupa ato yang baru belajar bisa gabung disini dah...

Okey sebelum kita mulai, temen mesti tau dulu jenis Operator pada Delphi, di delphi ada 3 jenis Operator yaitu : Operator Aritmatika, Operator Perbandingan dan Operator Logika;

Untuk Operator Aritmatika, ada banyak jenis antara lain :

^ : Operator pemangkatan,
* : Operator pengalian.
/ : Operator pembagian dengan hasil bilangan pecahan.
Div : Operator pembagian dengan hasil bilangan Bulat.
Mod : Operator Sisa Bagi.
+ : Operator Penjumlahan.
- : Operator pengurangan.

Okey kita langsung praktek saja, pertama-tama temen2 buat sebuah Form berisikan 2 buah Edit, 3 buah label dan 10 buah Button sepeti gambar dibawah ini.

atau bisa copy paste source dibawah ini:

object Edit1: TEdit Left = 45 Top = 13 Width = 121 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 Text = 'Edit1' end object Edit2: TEdit Left = 288 Top = 14 Width = 121 Height = 49 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Text = 'Edit2' end object Label1: TLabel Left = 16 Top = 16 Width = 23 Height = 41 Caption = 'A' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label2: TLabel Left = 261 Top = 18 Width = 24 Height = 41 Caption = 'B' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Button1: TButton Left = 16 Top = 144 Width = 75 Height = 41 Caption = '^' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button1Click end object Button2: TButton Left = 96 Top = 144 Width = 75 Height = 41 Caption = '*' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button2Click end object Label3: TLabel Left = 168 Top = 80 Width = 108 Height = 41 Caption = 'Label3' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Button3: TButton Left = 176 Top = 144 Width = 75 Height = 41 Caption = '/' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button3Click end object Button4: TButton Left = 256 Top = 144 Width = 75 Height = 41 Caption = 'Div' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button4Click end object Button5: TButton Left = 336 Top = 144 Width = 75 Height = 41 Caption = 'Mod' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = Button5Click end object Button6: TButton Left = 16 Top = 192 Width = 75 Height = 41 Caption = '+' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnClick = Button6Click end object Button7: TButton Left = 96 Top = 192 Width = 75 Height = 41 Caption = '-' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnClick = Button7Click end object Button8: TButton Left = 176 Top = 192 Width = 153 Height = 41 Caption = 'Baru' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = Button8Click end object Label4: TLabel Left = 0 Top = 260 Width = 427 Height = 16 Align = alBottom Alignment = taRightJustify Caption = 'http://andrisfaesal.blogspot.com/' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end

VB Feed

Friday, March 8, 2013

Operator pada Delphi ( Pangkat, Akar, Kali, Bagi, dll)

No comments:

Post a Comment