Pengumuman dari Dosen Alpro Kelas B dan C

Dear Mahasiswa AlPro kelas B dan C,

Sekedar “reminder“, pada pertemuan minggu ke-5 (pertemuan pertama setelah libur lebaran) akan diadakan Quiz 1.

Spesifikasi Quiz 1 adalah sbb:
Bentuk quiz: tes tulis
Sifat: individual, closed-book
Jadwal:
Kelas C: tanggal 29 September 2009
Kelas B: tanggal 01 Oktober 2009

So guys, prepare yourself for the test… but don’t forget to enjoy your holiday

sumber : http://noorifada.wordpress.com

Operasi Matematika pada VB

Operator Bilangan

Operator
Gunanya
Format
Contoh
^
Pangkat
x ^ y
3 ^ 2 =9
Negatif
– y
– 9
*
Perkalian
x * y
3 * 2 = 6
/
Pembagi real
x / y
5 /2 = 2.5
\
Pembagi Integer
x \ y
5 / 2 = 2
mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1
+
Tambah
x +y
2 + 4 = 6
Kurang
x – y
4 -2 = 2

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) ‘a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x) fix(3.2) = 3

fix(-3.2) = -3

mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x) int(5.4) = 5

int(-5.4) =-6

Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x) 0 <= hasil random <1

nilai x menentukan hasil random

sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x) menghasilkan :

1 bila x > 0

0 bila x = 0

-1 bilaa x < 0

Sin(x) A = SQR(16) ‘A=4

A = SQR(-16) ‘error

nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) ‘Q=1 nilai tangent x dalam radian

phi=3.141592653589732

Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) – Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) – Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X – 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X – 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)

Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713

Validasi Inputan Angka pada VB

Untuk menghindari inputan berupa huruf dari user maka kita perlu melakukan validasi terhadap inputan tersebut. Di sini saya akan menerangkan bagaimana metode validasi bekerja.

Pertama buatlah Project Baru. Kemudian buatlah textbox pada sebuah form dan beri nama textbox itu text1.

Selanjutnya click dua kali textbox tersebut, maka akan muncul tampilan view code. Kemudian isilah script sebagai berikut :

Private Sub Text1_Change()
Dim betul As Boolean
betul = True
If Text1.Text <> “” Then
jumlah = Len(Text1.Text)
For i = 1 To jumlah
If Asc(Right(Text1.Text, i)) < 48 Or Asc(Right(Text1.Text, i)) > 57 Then
betul = False
End If
Next i
If betul = False Then
MsgBox “harus angka”
Text1.Text = “”
Text1.SetFocus
End If
End If
End Sub

Penjelasan :
Pengecekan angka terjadi pada baris ke-7, yaitu pengecekan code ASCII dari inputan, jika kurang dari 48 dan lebih dari 57 maka inputan bukan angka.

Aplikasi Kalkulator Sederhana


kalkulator

Berikut ini adalah penjelasan coding dari program kalkulator sangat sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

kalkulator

Text

Kalkulator Sederhana

2

Textbox1

Name

Angka1

Text

0

3

Textbox2

Name

Angka2

Text

0

4

Textbox2

Name

txthasil

Text

0

6

Button1

Name

cmdhasil

Text

&Hasil

Berikut ini adalah penjelasan coding dari program kalkulator sangat sederhana buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

kalkulator

Text

Kalkulator Sederhana

2

Textbox1

Name

Angka1

Text

0

3

Textbox2

Name

Angka2

Text

0

4

Textbox2

Name

txthasil

Text

0

6

Button1

Name

cmdhasil

Text

&Hasil

'Kode Program
Public Class kalkulator
Private Sub cmdhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdhitung.Click
If rbtambah.Checked Then
txthasil.Text = Val(angka1.Text) + Val(angka2.Text)
ElseIf rbkurang.Checked Then
txthasil.Text = Val(angka1.Text) - Val(angka2.Text)
ElseIf rbkali.Checked Then
txthasil.Text = Val(angka1.Text) * Val(angka2.Text)
ElseIf rbbagi.Checked Then
txthasil.Text = Val(angka1.Text) / Val(angka2.Text)
ElseIf rdpangkat.Checked Then
txthasil.Text = Val(angka1.Text) ^ 2
ElseIf rdakar.Checked Then
txthasil.Text = Math.Sqrt(Val(angka1.Text))
End If
End Sub
End Class

Untuk mendownload laporan dan program serta source kodenya dapat di download di link di bawah ini

NAMA_NRP_KELOMPOK_Kalkulator_Sederhana
Source Kode dan Aplikasi Kalkulator Sederhana

Tugas Pemrograman Visual Unijoyo

baru saja mendapat tugas pemrograman visual dari Pak Latif

Tugas Individu!

Silahkan Buat Makalah (Seperti Tugas Pertama) dengan topik dibawah ini;
1. Komponen Pemrograman Visual, Property dan Event
2. Variabel, Tipe Data
3. Kondisi
4. Perulangan

Dikumpulkan terakhir Senin 28 September 2009 Jam 15:00 melalui komting Kelas C (atau koordinator) berupa Softcopy.

Selamat Mengerjakan!