Fungsi Looping For Next

Fungsi Looping/Perulangan For Next adalah fungsi untuk mengeksekusi kode sampai batas perulangannya,berbeda dengan timer fungsi ini tidak mempunyai interval jadi peng-eksekusi-an kode nya begitu cepat hampir sesuai dengan kecepatan processor. Fungsi Looping/perulangan ini kerap di jumpai pada program yang di buat dalam visual basic.
Algoritmanya seperti ini :

For <Variabel = BatasMinimum> to <BatasMaksimum> Step <BerapaLangkah> 
<Kode yang ingin di eksekusi> 
Next <Variabel>  

Atau seperti ini :

For Usia = Muda to Tua Step 1 
UmurKu = Usia
Next Usia

• Percobaan 

Buatlah :
1. 1 Buah ListBox

• Name = List1

2. 1 Buah CommanButton

• Name = Command1
• Caption = "Generate"

Sehinggan menjadi seperti ini : <Klik untuk memperbesar>

Tulis Kode ini di bagian Command1_Click()

 Dim i As Integer 
List1.Clear
List1.AddItem "Naik 1 angka, 0 sampai 10" 
For i = 0 To 10 Step 1 
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 1 angka, 10 sampai 0" 
For i = 10 To 0 Step -1
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Naik 2 angka, 0 sampai 10" 
For i = 0 To 10 Step 2
         List1.AddItem "Angka " & i 
Next i 
List1.AddItem "Turun 2 angka, 10 sampai 0" 
For i = 10 To 0 Step -2
         List1.AddItem "Angka " & i 
Next i

 Download Projectnya disini 

Fungsi IIF

Fungsi IIF adalah fungsi untuk menyatakan suatu keputusan hampir mirip dengan fungsi IF THEN ELSE namun berbeda,boleh di bilang serupa namun tak sama :D
Algoritmanya seperti ini :
Ekspresi = IIF(<Ekspressi>,<Pernyataan Benar>,<Pernyataan Salah>)
atau seperti ini :
Aku = IIF(Aku = Lelah , Istirahat , Lanjut )

• Percobaan

Buatlah :
1. 1 Buah Label

• Name = Label1

2. 1 Buah Timer

• Name = Timer1
• Interval = 1000

Sehingga menjadi seperti ini : <Klik untuk memperbesar>

Lalu tulis kode ini di bagian Timer1_Timer()

Static nilai As Integer

nilai = nilai + 1

Me.BackColor = IIf(nilai Mod 2 = 0, vbRed, vbBlue)

Label1.Caption = IIf(Me.BackColor = vbBlue, "Warna Biru", "Warna Merah")

nilai = IIf(nilai > 3, 0, nilai)

Download Projectnya disini

Fungsi Select Case

Select Case merupakan fungsi pengambilan keputusan hampir sama dengan If  Then Else.
Contoh :
Select case Variabel
Case <Kondisi 1>
<Keputusan 1>
Case <Kondisi 2>,<Kodisi 3>,<Kondisi 4>
<Keputusan 2>
End Select

• Percobaan

Buatlah 1 buah Timer dengan interval = 1000 dan 1 buah Label dengan nama Label1.

Sehingga menjadi seperti ini : <Klik untuk memperbesar>

Dan tulis kode berikut pada timer :

Static nilai As Integer

nilai = nilai + 1

Select Case nilai

    Case Is < 10

        Label1.Caption = "Angka " & nilai & " Kurang Dari 10"

    Case 10

        Label1.Caption = "Angka " & nilai & " berjumlah 10"

    Case 11, 12, 13, 14, 15

        If nilai Mod 2 = 0 Then

            Label1.Caption = "Angka " & nilai & " Adalah Genap"

        Else

            Label1.Caption = "Angka " & nilai & " Adalah Ganjil"

        End If

    Case Is > 15

        Label1.Caption = "Angka " & nilai & " Lebih Dari 15"

    Case 20

        nilai = 0

End Select

Lalu jalankan aplikasi denga  menekan tombol F5.

Download Projectnya Disini

Fungsi IF..THEN...ELSEIF...ELSE

Fungsi IF..THEN...ELSEIF...ELSE merupakan suatu fungsi untuk pengambilan suatu keputusan,
contoh :
If <Kondisi 1> Then 
<Keputusan 1>
ElseIf  <Kondisi 2> Then 
<Keputusan 2>
Else <Kondisi 3> Then
<Keputusan 3>
End If

• Percobaan

Buatlah 1 CommandButton dengan nama Command1 Dan 2 buah Texbox dengan nama masing-masing Text1 dan Text2.

sehingga menjadi seperti ini

tulis kode berikut ini pada command1_Click
If IsNumeric(Text1.Text) = False Then
    Text2.Text = "Bukan Bilangan"
ElseIf Val(Text1.Text) Mod 2 = 0 Then
    Text2.Text = "Bilangan Genap"
Else
    Text2.Text = "Bilangan Ganjil"
End If

Jalankan Aplikasi nya dengan menekan tombol F5 dan coba masukan nilai apa saja pada text1 lalu coba klik tombol cek.

Download project nya disini

Variabel dan tipe data

Pada kesempatan kali ini saya akan membahas apa itu variabel dan tipe data,

hampir semua koding di VB membutuh kan variabel dan variabel itu memiliki jenis tipe data sesuai dengan kebutuhannya...

lalu apa itu variabel ??

Variabel merupakan tempat penampungan data sementara selama program sedang berjalan. Misalnya data nama barang, data harga barang, atau data tanggal penjualan. Data tersebut perlu disimpan dalam sebuah variabel, yang sesuai dengan jenis datanya.

Sudah tahukan variabel itu apa...
oh ya variabel memiliki jenis tipe data,dan apa sih jenis-jenis tipe data yang ada pada VB...??

Oke lihat tabel di bawah ini...

Tipe	Jangkauan
Integer	-32.768 s/d 32.768
Long	-2.147.483.648 s/d 2.147.483.648
Single	-3.403823 e38 s/d -1.401298 e-45 1.401298 e-45 s/d 3.403823 e38 ( positif)
Double	4,9406564584127 e324 s / d 1.797,9313486232 e308 ( positif )
Currency	922.337,203,685,477.5807 s/d 922.337,203,685,477.5808
String	0 s/d 65.500 karakter ( win31) 0 s/d 232 Karakter ( Win95/NT)
Boolean	True atau False
Date	1 Januari 100 s/d 31 Desember 9999
Object	Referensi Obyek
Byte	0 s/d 255
Variant	Null, Error, numeric dengan tipe double,karakter teks,obyek atau array

Kita tidak bisa menyamakan antara variabel untuk menampung tanggal, dan variabel untuk menampung NamaBarang. Operasi antara kedua jenis variabel tersebut berbeda. Sintaks untuk menugaskan sebuah variabel, agar dapat menampung data yang sesuai adalah:

Dim Namavariabel  as jenisVariabel

Misalnya untuk mendeklarasikan sebuah variabel agar dapat menampung angka yang dengan jenis Integer, perintahnya adalah:

Dim Nilai as Integer

‘untuk memberi nilai  dapat diberikan perintah:

Nilai  =54

Percobaan

 Buatlah sebuah commandbutton pada form dan isikan Kode ini Pada Event Click :

Dim DataInteger As Integer, DataString As String DataString = "55" MsgBox DataString + DataString DataLong = "55" MsgBox DataInteger + DataInteger

• Variabel Lokal dan Variabel Global

Suatu variabel memiliki ruang lingkup yang bisa berbeda,ada variabel yang selalu tersedia saat program di jalankan,dan ada juga variabel yang baru dibuat saat subrutin (misal pada saat MouseDown) dijalankan dan di buang begitu keluar dari subrutin tersebut.

Deklarasi Pada suatu Variabel

Deklarasi	Keterangan
Public	Mendeklarasikan variabel bersifat global.
Dim	mendeklarasikan variabel bersifat Lokal.
Static	Mendeklarasikan variabel bersifat Lokal namun variabel tersebut tidak di buang begitu keluar dari subrutin.

• Percobaan 1 

Buatlah 1 commandButton baru pada form dan 1 module baru.
Tulis kode berikut pada module :

Public VariabelPublic As String
Dim VariabelLokal As String 

Tulis Kode berikut pada commandButton :

VariabelPublic = "Ini Variabel Public yang ada di Module" 
VariabelLokal = "Ini Variabel Lokal Yang ada di module" 
MsgBox VariabelPublic 
MsgBox VariabelLokal 

dan coba jalankan aplikasi dan klik commandbuttonnya lihat apa yang terjadi,lalu coba pindahkan kode  Dim VariabelLokal As String pada module ke form di bagian declaration (paling atas),dan coba jalankan ulang aplikasi tersebut.

• Percobaan 2 

Buatlah 1 timer dengan interval = 1000 dan 1 buah Label dengan nama = Label1 dan tulis kode berikut pada timer :

Static VarStatic As Integer
Dim VarNonStatic As Integer 
VarStatic = VarStatic + 1
 VarNonStatic = VarNonStatic + 1 
Label1.Caption = "VarStatic : " & VarStatic & vbCrLf & "VarNonStatic : " & VarNonStatic

Coba jalankan programnya dan lihat apa yang terjadi.

Menghitung selisih tanggal

Bila Anda membutuhkan kode untuk menghitung selisih antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :

Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )

Jenis Interval	Keterangan
d	Day (Hari)
m	Month (Bulan)
yyyy	Year (Tahun)
h	Hour (Jam)

n	Minute (Menit)
s	Second (Detik)
ww	Week (Minggu)
q	Quater (4 Bulan)

Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5

Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya : 
t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)

Fungsi-fungsi Date/Time

Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic

• Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
  d = Now , hasilnya 13/01/2012 1:22:42


• Date, digunakan untuk mendapatkan Tanggal sekarang.
  [ VB 6.0 ] d = Date , hasilnya 13/01/2012
  [ VB .NET ] d = Now.Date , hasilnya 13/01/2012


• Time, digunakan untuk mendapatkan Waktu sekarang.
  [ VB 6.0 ] d = Time , hasilnya 1:22:42
  [ VB .NET ] d = Now.ToLongTimeString , hasilnya 1:22:42


• Day(x), digunakan untuk mengambil nilai Tanggal saja dari x.
  [ VB 6.0 ] d = Day(#1/13/2012#) , hasilnya 13
  [ VB .NET ] d = #1/13/2012#.Day , hasilnya 13


• Month(x), digunakan untuk mengambil nilai Bulan saja dari x.
  [ VB 6.0 ] d = Month(#1/13/2012#) , hasilnya 1
  [ VB .NET ] d = #1/13/2012#.Month , hasilnya 1


• Year(x), digunakan untuk mengambil nilai Tahun saja dari x.
  [ VB 6.0 ] d = Year(#1/13/2012#) , hasilnya 2012
  [ VB .NET ] d = #1/13/2012#.Year , hasilnya 2012


• Hour(x), digunakan untuk mengambil nilai Jam saja dari x.
  [ VB 6.0 ] d = Hour(#1:22:42 AM#) , hasilnya 1
  [ VB .NET ] d = #1:22:42 AM#.Hour , hasilnya 1


• Minute(x), digunakan untuk mengambil nilai Menit saja dari x.
  [ VB 6.0 ] d = Minute(#1:22:42 AM#) , hasilnya 22
  [ VB .NET ] d = #1:22:42 AM#.Minute, hasilnya 22


• Second(x), digunakan untuk mengambil nilai Detik saja dari x.
  [ VB 6.0 ] d = Second(#1:22:42 AM#) , hasilnya 42
  [ VB .NET ] d = #1:22:42 AM#.Second, hasilnya 42


• DateSerial(x, y, z), digunakan untuk menghasilkan Tanggal dari kombinasi x, y, z.
  d = DateSerial(2012, 1, 13) , hasilnya 13/01/2012


• TimeSerial(x, y, z), digunakan untuk menghasilkan Waktu dari kombinasi x, y, z.
  d = TimeSerial(1, 22, 42) , hasilnya 1:22:42


• MonthName(x), digunakan untuk mendapatkan nama Bulan dari x.
  d = MonthName(2) , hasilnya Februari


• WeekdayName(x), digunakan untuk mendapatkan nama Hari dari x.
  d = WeekdayName(2, , vbSunday) , hasilnya Senin

Fungsi-fungsi String

Dalam Visual Basic terdapat banyak fungsi yang digunakan untuk mengolah data bertipe string. Berikut ini adalah penjelasan tentang fungsi-fungsi string yang sering digunakan.

• LCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi kecil semua. Contoh:
  s = LCase("Aku Bisa") , maka nilai s adalah "aku bisa"


• UCase(x) , digunakan untuk mengubah semua huruf dalam string x menjadi besar semua. Contoh:
  s = LCase("Aku Bisa") , maka nilai s adalah "AKU BISA"


• Left(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kiri sebanyak n. Contoh:
  VB 6.0, s = Left("Aku Bisa", 3)
  VB .NET, s = Strings.Left("Aku Bisa", 3)
  maka nilai s adalah "Aku"


• Right(x,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari kanan sebanyak n. Contoh:
  VB 6.0, s = Right("Aku Bisa", 3)
  VB .NET, s = Strings.Right("Aku Bisa", 3)
  maka nilai s adalah "isa"


• Mid(x,m,n) , digunakan untuk mengambil karakter dari string x yang dimulai dari karakter ke m sebanyak n. Contoh:
  s = Mid("Aku Bisa", 2, 2) , maka nilai s adalah "ku"


• LTrim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dari string x.
  Contoh: s = LTrim("     Aku Bisa     ") , maka nilai s adalah "Aku Bisa     "


• RTrim(x) , digunakan untuk menghapus karakter spasi di bagian kanan dari string x.
  Contoh: s = RTrim("     Aku Bisa     ") , maka nilai s adalah "     Aku Bisa"


• Trim(x) , digunakan untuk menghapus karakter spasi di bagian kiri dan kanan dari string x. Contoh:
  s = Trim("     Aku Bisa     ") , maka nilai s adalah "Aku Bisa"


• Len(x) , digunakan untuk menghitung jumlah karakter dari string x. Contoh:
  s = Len("Aku Bisa") , maka nilai s adalah 8.


• String(n,x) , digunakan untuk membuat karakter x sebanyak n. Contoh:
  VB 6.0,  s = String(10, "A")
  VB .NET, s = New String("A", 10)
  maka nilai s adalah "AAAAAAAAAA"


• Space(n) , digunakan untuk membuat karakter spasi sebanyak n. Contoh:
  s = Space(10) , maka nilai s adalah "          "
  
• Asc(x) , digunakan untuk mengetahui nilai ASCII dari karakter x. Contoh:
  s = Asc("A") , maka nilai s adalah 65


• Chr(x) , digunakan untuk mengetahui karakter dari nilai ASCII x. Contoh:
  s = Chr(65) , maka nilai s adalah "A"


• InStr(x,n) , digunakan untuk mengetahui posisi karakter n didalam string x. Contoh:
  s = InStr("Aku Bisa", "u") , maka nilai s adalah 3


• StrComp(x,y,n) , digunakan untuk membandingkan string x dan string y berdasarkan n. Jika n bernilai 0 maka akan dibandingkan secara case-sensitive, sedangkan jika n bernilai 1 maka akan dibandingkan secara biasa. Contoh:
  s = StrComp("Aku", "aku", 0) , maka nilai s adalah -1
  s = StrComp("Aku", "aku", 1) , maka nilai s adalah 0
  Khusus untuk fungsi ini, jika menghasilkan nilai 0 maka dianggap sebagai True, dan jika menghasilkan nilai selain 0 maka dianggap False.


• StrConv(x,n) , digunakan untuk mengubah huruf dalam string x berdasarkan nilai n. Contoh:
  s = StrConv("Aku Bisa", 1) , maka nilai s adalah "AKU BISA"
  s = StrConv("Aku Bisa", 2) , maka nilai s adalah "aku bisa"
  s = StrConv("aku bisa", 3) , maka nilai s adalah "Aku Bisa"


• StrReverse(x) , digunakan untuk membalikkan posisi huruf dalam string x. Contoh:
  s = StrReverse("Aku Bisa") , maka nilai s adalah "asiB ukA"


• Replace(x,m,n) , digunakan untuk menggantikan karakter m dalam string x dengan karakter n. Contoh:
  s = Replace("Kamu Juga Bisa", "a", "o") , maka nilai s adalah "Komu Jugo Biso"


• Split(x,n)(i) , digunakan untuk memecah string x berdasarkan karakter n dengan penomoran i. Contoh:
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(0) , maka nilai s adalah "Kuda"
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(1) , maka nilai s adalah "Kerbau"
  s = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")(4) , maka nilai s adalah "Macan"


• Join(x,n) , digunakan untuk menggabungkan rangkain string x yang dihubungkan dengan string n. Contoh:
  VB6, s = Join(Array("Hani", "Indah", "Budi", "Herman"), " & ")
  VB.NET, s = Join(New Object() {"Hani", "Indah", "Budi", "Herman"}, " & ")
  maka nilai s adalah "Hani & Indah & Budi & Herman"

Fungsi-fungsi diatas juga dapat djadikan fungsi lain diantaranya adalah :

1. Mengecek keberadaan string dalam string. Misalnya Anda ingin memeriksa ada tidaknya string "a" dalam string "anda berhasil", maka kodenya adalah :
   
   If CBool(InStr("anda berhasil", "a")) Then
   'jika ada
   Else
   'jika tidak ada
   End If
2. Menghitung karakter tertentu dalam string. Misalnya Anda ingin menghitung karakter "a" dalam string "anda berhasil", maka kodenya adalah :
   
   t = "anda berhasil"
   s = Len(t) - Len(Replace(t, "a", ""))
   maka nilai s adalah 3


3. Menghitung jumlah kata dalam string. Misalnya Anda ingin menghitung jumlah kata dalam string "anda berhasil", maka kodenya adalah :
   
   s = UBound(Split("anda berhasil", " ")) + 1
   maka nilai s adalah 2


4. Menghilangkan karakter tertentu dalam string. Misalnya Anda ingin menghilangkan karakter "a" dalam string "anda berhasil", maka kodenya adalah :
   
   s = Replace("anda berhasil", "a", "")
   maka nilai s adalah "nd berhsil"


5. Mengisi variabel array dinamis dengan string. Contoh kodenya sebagai berikut :
   
   Dim Binatang() As String
   Binatang = Split("Kuda,Kerbau,Sapi,Kambing,Macan", ",")
   maka variabel Binatang memiliki 5 index (0-4) dengan rincian:
   nilai Binatang(0) = "Kuda"
   nilai Binatang(1) = "Kerbau"
   nilai Binatang(2) = "Sapi"
   nilai Binatang(3) = "Kambing"
   nilai Binatang(4) = "Macan"

CATATAN : Dalam beberaa fungsi string, terdapat optional property 'CompareMethod'. Bila properti ini bernilai Binary, maka fungsi tersebuat melakukan metode case-sensitive terhadap string. Sedangkan bila bernilai Text, maka fungsi tersebuat tidak melakukan metode case-sensitive.

Sumber : PutraVB.blogspot.com

Fungsi-fungsi angka

Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya khusus untuk VB .NET, ketikkan kode berikut dibagian paling atas dari jendela kode dari Form.

Imports System.Math

• Abs(n), digunakan untuk mencari nilai absolut dari n. Contoh :
  a = Abs(5) , nilai a adalah 5
  a = Abs(-5) , nilai a adalah 5


• CInt(n) dan Int(n), digunakan untuk mengubah nilai n menjadi nilai bertipe integer / bulat. Perbedaannya adalah jika CInt bila desimalnya bernilai lebih besar dari 0,5 , maka nilai akan dibulatkan 1 ke atas. Sedangkan Int tidak. Contoh :
  a = CInt(3.4) , nilai a adalah 3
  a = CInt(3.6) , nilai a adalah 4
  a = Int(3.4) , nilai a adalah 3
  a = Int(3.6) , nilai a adalah 3


• CDbl(n) dan Val(n), digunakan untuk menkonversi nilai n yang bertipe string ke nilai bertipe double / angka. Perbedaannya adalah jika Val nilai n harus berformat Inggris (karakter desimal adalah tanda titik), sehingga muncul permasalahan jika settingan komputer menggunakan format Indonesia (karakter desimal adalah tanda koma) yang akan menghasilkan nilai berbeda. Sedangkan bila CDbl mampu menyesuaikan nilai sesuai dengan setting format komputer.
  Berikut contoh yang diterapkan di komputer dengan setting format Indonesia.
  a = Val("2,5") , nilai a adalah 2
  a = CDbl("2,5") , nilai a adalah 2,5


• Randomize dan Rnd() * n, kedua fungsi ini sering dikombinasikan untuk mencari angka acak antara 0 sampai dengan n. Contoh :
  
  Randomize
  a = Rnd() * 4
  nilai a bisa bernilai antara 0 sampai dengan 4
  
  Namun jika Anda ingin angka bertipe bulat saja, berikut contohnya :
  
  Randomize
  a = CInt(Rnd() * 4)
  
  Dan jika Anda menginginkan acak dalam tipe boolean (True atau False),
  berikut contohnya :
  
  Randomize
  a = CBool(CInt(Rnd() * 1))
  nilai a bisa bernilai True atau False


• Log(n), digunakan untuk mencari nilai logaritma natural dari n. Contoh :
  a = Log(5) , nilai a adalah 1,60943791243
  Jika Anda ingin mencari nilai logaritma standar dari n gunakan fungsi berikut :
  VB 6.0 a = Log(n) / Log(10)
  VB .NET a = Log10(n)


• Exp(n), merupakan fungsi kebalikan dari Log(n). Contoh :
  a = Exp(1,60943791243) , nilai a adalah 5


• Round(n, x), digunakan untuk menyesuaikan jumlah angka desimal dari n sebanyak x. Contoh :
  a = Round(5.3784, 2) , nilai a adalah 5,38


• Sgn(n), digunakan untuk mencari tanda angka dari n. Fungsi ini menghasilkan nilai 1 jika n adalah positif, nilai -1 jika n adalah negatif, dan nilai 0 jika n adalah nol. Contoh:
  VB 6.0 a = Sgn(-9)
  VB .NET a = Sign(-9)
  nilai a adalah -1


• Sqr(n), digunakan untuk mencari akar kuadrat dari n. Contoh :
  VB 6.0 a = Sqr(9)
  VB .NET a = Sqrt(9)
  nilai a adalah 3


• Sin, Cos, Tan
  VB 6.0

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Atn(n / Sqr(-n * n + 1)) / Angle
  Inv. Cosin	a = (Atn(-n / Sqr(-n * n + 1)) + 2 * Atn(1)) / Angle
  Inv. Tangen	a = Atn(n) / Angle
  Sin Hyp.	a = (Exp(n) - Exp(-n)) / 2
  Cosin Hyp.	a = (Exp(n) + Exp(-n)) / 2
  Tangen Hyp.	a = (Exp(n) - Exp(-n)) / (Exp(n) + Exp(-n))
  Inv. Sin Hyp.	a = Log(n + Sqr(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqr(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  VB NET

  Nama	Fungsi
  Sin	a = Sin(n * Angle)
  Cosin	a = Cos(n * Angle)
  Tangen	a = Tan(n * Angle)
  Inv. Sin	a = Asin(n) / Angle
  Inv. Cosin	a = Acos(n) / Angle
  Inv. Tangen	a = Atan(n) / Angle
  Sin Hyp.	a = Sinh(n)
  Cosin Hyp.	a = Cosh(n)
  Tangen Hyp.	a = Tanh(n)
  Inv. Sin Hyp.	a = Log(n + Sqrt(n * n + 1))
  Inv. Cosin Hyp.	a = Log(n + Sqrt(n * n - 1))
  Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

  
  Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :
  Degress (DEG), gantikan dengan (3.14159265358979 / 180)
  Radians (RAD), gantikan dengan 1
  Grads (GRAD), gantikan dengan (3.14159265358979 / 200)
  Contoh menghitung Sin dari 5 dengan ukuran DEG :
  a = Sin(5 * (3.14159265358979 / 180))
  
  Sumber : PutraVB.blogspot.com

Pengenalan event pada form

Hay...tutorial kali ini yaitu pengenalan event pada form...

Event di sini adalah di mana koding yang kita sisipkan di eksekusi,misal koding msgbox ("Hallo Word") di sisipkan pada event Form_Load maka koding tesebut akan di eksekusi pada saat Aplikasi mulai.
untuk mempelajari lebih lanjut,silakan download Disini