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

Iklan

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!

Pengetahuan Tentang Robot

Sedikit menulis apa yang saya ketahui tentang robot,,,

Istilah robot berasal dari rusia, yaitu dari kata robota yang berarti tenaga kerja / buruh. Kemudian diawal abad ke 20 ilmuwan cekoslowakia, Karel Capek (1890 – 1938) memperkenalakan istilah robot dengan membuat seperangkat mesin yang diberi nama Rosum’s Universal Robots (RUR). Menurut National bureu of Standar robot adalah Aplikasi robot sebagian besar pada bidang industri bertujuan untuk meningkatkan produktivitas produksi. Robot dapat digunakan secara rutin terus menerus tanpa merasakah kebosan atau digunakan pada lingkungan yang sangat berbahaya. Sebagai contoh dalam industri nuklir, robot harus digunakan karena radiasi nuklis sangat berbahaya bagi manusia. Robot digunakan pada industri perakitan, pengelasan, peleburan, pengecatan dan telah digunakan pada bidang militer sebagai peralatan penjinak bom, bidang kedokteran sebagai peralatan operasi otomatis Pada bidang social robot banyak membantu sebagai pengganti bagian tubuh yang mengalami kecacatan.

robot operasi

Gambar 1. robot operasi

ISTILAH ROBOT

Sebagai pemahaman awal maka perlu diketahui beberapa istilah dasar dari robot.  Sehingga untuk mempelajari bagian selanjutnya kita tidak akan menemukan kesuilitan untuk mendefinisikan.

Robot :   Peralatan yang dapat dprogram ulang, memilki banyak fungsi yang didesain untuk memindahkan material, part, peralatan atau peralatan khusus

Kontroler     :    suatu peralatan yang bertugas sebagai penendali dari gerakan robot. Kontroler membentuk sistem kontrol yang akan menentukan input dan output suatu robot.

Manipulator :  lengan yang memberikan gerakan robot untuk memutar, melipat, menjangkau objek. Gerakan ini di sebut dengan derajat kebebasan robot atau jumlah sumbu yang ada pada robot. manipulator terdiri dari beberapa segmen dan sambungan (joint).

Joint           :    joint atau sambungan merupakan hubungan antara lengan (arm) dengan lengan yang lain sehinga dipisahkan oleh sumbu (axis)

Open loop    :    lup terbuka adalah suatu sistem kontrol yang tidak memiliki feedback atau umpan balik, sehingga suatu peralatan tidak dapat mengenali kesalahan sebgai pembanding kerja selanjutnya. Feedback digunakan pada close loop (lup tertutup)

KOMPONEN DASAR

Sistem robot memiliki memiliki tiga komponen dasar, yaitu : Manipulator, kontroler, dan Power (daya). Efektor sering ditemukan pada beberapa sistem robot, tetapi sifatnya tidak harus ada.

MANIPULATOR

Manipulator memiliki dua bagian, yaitu bagian dasar dan bagian tambahan. Gambar 1 memberikan gambaran tentang bagian dasar dan bagian tambahan.

manipulator

Bagian dasar manipulator bisa kaku terpasang pada lantai area kerja ataupun terpasang pada rel. rel berfungsi sebagai path atau alur sehinga memungkinkan robot untuk bergerak dari satu lokasi ke lokasi lainnya dalam satu area kerja. Bagian tambahan merupakan perluasan dari bagian dasar, bisa disebut juga lengan /arm. Bagian ujungnya terpasang Efektor yang berfungsi untuk fungsi kerja dari robot.

Manipuator digerakan oleh actuator atau disebut sistem drive. Actuatuator atau sistem drive menyebabkan gerakan yang bervariasi dari manipulator. Actuator bisa menggunakan elektrik, hidrolik ataupun pneumatik. Bagian actuator ini akan dijelaskan pada selanjutnya.

KONTROLER

Kontroler merupakan jantung dari sistem robot sehingga keberadaanya sangat penting. Kontroler menyimpan informasi yang berkaitan dengan data data robot, dalam hal ini data gerakan robot yang telah deprogram sebelumnya.

kontroller

Gambar 2. memberikan gambaran sebuah kontroler dan manipulator robot. Kontroler berfungsi untuk mengontrol pergerakan dari manipulator. Kontroler sendiri diatur oleh sebuah informasi atau program yang diisikan dengan menggunakan bahasa pemgrograman tertentu. Informasi tersebut kemudian disimpan didalam memori. Data dalam memori dapat di keluarkan atau di edit sesuai dengan yang dibutuhkan.

Dahulu kontroler dibuat dari drum mekanik yang bekerja step by step secara sequential. dan sangat sederhana. Dimasa sekarang kontroler menggunakan PLC (programmable logic kontrol) yang dapat bekerja dengan pergerakan yang sangat kompek dari sistem robot.

POWER SUPLY (CATU DAYA)

Power supply adalah sebuah unit yang menyediakan tenaga pada kontroler dan manipulator sehingga dapat bekerja. Power supply dalam suatu sistem robot dibagi menjadi dua bagian, yaitu bagian untuk kontroler dan bagian untuk  manipulator. Bagian kontroler menggunakan elektrik sedangkan bagian manipulator bisa menggunakan elektrik, pneumatik, hidrolik ataupun ketiganya. Gambar 1.4 memberikan keterangan tentang power supply.

catudaya

Gambar 7. konsep penggerak jenis hidrolik

EFEKTOR

Efektor dapat ditemukan hampir semua aplikasi robot, walaupun keadaannya bukan merupakan komponen dasar dari sistem robot. Efektor berfungsi sebagai bagian terakhit yang menghubungkan antara manipulator dengan objek yang akan dijadikan kerja dari robot. Sebagai contoh efektor dapat berupa peralatan las, penyemprot cat ataupun hanya berupa penjempit objek. Gambar 1.5 memberikan gambaran tentang efektor.

efektor

Aplikasi Converter Suhu dengan VB2008

suhuconverter

Berikut ini adalah penjelasan coding dari program Konversi Suhu buatan saya dengan menggunakan Visual Basic 2008 Express Edition

No

Komponen

Properties

Nilai

1

Form

Name

Konversi

Text

Aplikasi Konversi Suhu Dunia

2

Label

Text

Konversi Desimal dan Biner

Text

Nilai

3

Textbox1

Name

txtsuhu

Text

4

Textbox2

Name

txtcelcius

Text

3

Textbox3

Name

txtreamur

Text

4

Textbox4

Name

txtfahrenheit

Text

4

Textbox5

Name

txtkelvin

Text

5

RadioButton1

Name

rbcelcius

Text

Celcius

6

RadioButton2

Name

rbreamur

Text

Reamur

5

RadioButton3

Name

rbfahrenheit

Text

Fahrenheit

6

RadioButton4

Name

rbkelvin

Text

Kelvin

7

Button1

Name

Cmdconvert

Text

&Convert

8

Button2

Name

Cmdexit

Text

&Exit

Public Class Konversi
Dim response As MsgBoxResult
'tipe data tidak dideklarasikan dan otomatis menjadi tipe data variant

Private Sub cmdconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdconvert.Click
If rbcelcius.Checked Then
txtcelcius.Text = txtsuhu.Text * 1
txtreamur.Text = 4 / 5 * txtsuhu.Text
txtkelvin.Text = 273 + txtsuhu.Text
txtfahrenheit.Text = 32 + (9 / 5 * txtsuhu.Text)
ElseIf rbreamur.Checked Then
txtcelcius.Text = 5 / 4 * txtsuhu.Text
txtreamur.Text = txtsuhu.Text * 1
txtkelvin.Text = 273 + (5 / 4 * txtsuhu.Text)
txtfahrenheit.Text = 32 + (9 / 4 * txtsuhu.Text)
ElseIf rbkelvin.Checked Then
txtcelcius.Text = txtsuhu.Text – 273
txtreamur.Text = 4 / 5 * (txtsuhu.Text – 273)
txtkelvin.Text = txtsuhu.Text * 1
txtfahrenheit.Text = 32 + (9 / 5 * (txtsuhu.Text – 273))
ElseIf rbfahrenheit.Checked Then
txtcelcius.Text = 5 / 9 * (txtsuhu.Text – 32)
txtreamur.Text = 4 / 9 * (txtsuhu.Text – 32)
txtkelvin.Text = 273 + (5 / 9 * (txtsuhu.Text – 32))
txtfahrenheit.Text = txtsuhu.Text * 1
End If
End Sub

Private Sub cmdexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdexit.Click
response = MsgBox(“Apakah Anda yakin ingin keluar”, MsgBoxStyle.OkCancel, “Konfirmasi Keluar”)
If response = MsgBoxResult.Ok Then
End
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_Aplikasi Konverter_suhul
Aplikasi Konverter Suhu