Contoh Jawaban Tugas 4 PV

setelah pulang dari kuliah Bahasa Inggris dan Fisika,,, enaknya ngapain ya,,, eh.. ngerjakan Tugas PV aja ah,,,

saya tidak begitu mahir dalam pemrograman komputer dan juga dalam penguasaan bahasa inggris, saya cuma seorang mahasiswa biasa,  jadi apabila ada yang salah dalam mengartikan atau memahami soal tolong diperbaiki lagi ya teman-teman,,,,

oiza untuk yang nomer 6 tidak wajib dikerjakan karena berupa program / aplikasi

Teman-teman berikut contoh tugas PV yang telah saya kerjakan silahkan di download dibawah ini  :

tugasPV4

NB : untuk  tulisan yang saya blok dengan warna kuning itu jawabannya,,, dan yang tidak berarti soalnya,,,,

untuk yang mata kuliah APLRO nya Bu Noorifada jangan lupa ya handout matakuliahnya untuk pertemuan ke 6 dan ke 7 didownload di blognya bu noorifada,,, Besok materinya tentang “LOOPING [Perulangan]” dipelajari dulu za….. biar pas kuliah enak,,,,  

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

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

Aplikasi Pohon Bintang dengan Pascal

pohon

Berikut ini adalah penjelasan coding dari program Pohon Bintang buatan saya dengan menggunakan Turbo Pascal For Windows

program bintang_piramid;
uses wincrt;

var c,a,b,n : integer;
begin
write (‘masukkan angka : ‘);readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (‘ ‘);
for c := 1 to (a*2) do
write (‘*’);
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (‘ ‘);
for c := 1 to (a*2)-1 do
write (‘*’);
writeln;
end;
end.

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

NAMA_NRP_KELOMPOK_Aplikasi_Pohon_Bintang
Aplikasi Pohon Bintang