Algoritma dan Pemrograman 2


Pengertian Algoritma yaitu urutan langkah-langkah logis suatu penyelesaian masalah yang disusun secara sistematis. Sedangkan pengertian Pemrograman yaitu segala kegiatan pembuatan program komputer.

Program ini sendiri ada banyak sekali, tetapi untuk kuliah diperkenalkan dua program, yaitu program Turbo Pascal Wind dan Visual Basics. Visual Basic merupakan software pemrograman yang diciptakan oleh Microsoft, orientasi VB digunakan untuk pemrograman database.

Selain itu Visual Basic adalah sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.

Jika belom punya software TPW dan Visual Basic, anda bisa download di sini:

TPW : http://www.mediafire.com/download/nut6z646141eb6d/TPW+1.5.zip

Visual Basic : http://www.4shared.com/rar/IaLMkUiY/VB60-EnterpriseEditionFull.html

Contoh program TPW:

a. Mencari koordinat titik tengah dari kedua titik yang diketahui
Program Koordinat_Titik_Tengah;
uses wincrt;
var
x1, x2, y1, y2, a, b, titik_tengah_x, titik_tengah_y:real;
begin
write(‘masukkan nilai x1 =’);readln(x1);
write(‘masukkan nilai x2 =’);readln(x2);
write(‘masukkan nilai y1 =’);readln(y1);
write(‘masukkan nilai y2 =’);readln(y2);
titik_tengah_x:=((x1+x2)/2);
titik_tengah_y:=((y1+y2)/2);
writeln(‘titik_tengah_x=’,titik_tengah_x:10:2);
writeln(‘titik_tengah_y=’,titik_tengah_y:10:2);
end.
b. Mencari Luas Permukaan Tabung dan Kerucut
uses wincrt;
const
phi=3.142857;
var
r, t, s, luas_permukaan_tabung, luas_permukaan_kerucut:real;
begin
write(‘masukkan jari-jari =’);readln(r);
write(‘masukkan tinggi =’);readln(t);
write(‘masukkan selimut_kerucut =’);readln(s);
luas_permukaan_tabung:=((2*phi*r*r)+(2*phi*r*t));
luas_permukaan_kerucut:=((phi*r*r)+(phi*r*s));
writeln(‘luas_permukaan_tabung=’,luas_permukaan_tabung:5:2);
writeln(‘luas_permukaan_kerucut=’,luas_permukaan_kerucut:5:2);
end.
Contoh program Visual Basic:
a. Kalkulator Sederhana
Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

Private Sub cmdOperator_Click(Index As Integer)
Command15_Click
Operator = Index
NilaiBaru = True
End Sub

Private Sub cmdKoma_Click()
If InStr(Text1.Text, “,”) Then
Beep
Else
If NilaiBaru Then
Text1.Text = “,”
NilaiBaru = True
Else
Text1.Text = Text1.Text & “,”
End If
End If
End Sub

Private Sub Command1_Click()
Form1.Visible = True
Formkal.Visible = False
Formpk.Visible = False
End Sub

Private Sub Command15_Click()
Dim HasilBaru As Double
If Text1.Text = “” Then
HasilBaru = 0
Else
HasilBaru = CDbl(Text1.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil – HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi

If HasilBaru = 0 Then
MsgBox “Tidak bisa dibagi 0”, vbOKOnly + vbCritical, “Perhatian”
Call Command18_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
Text1.Text = Format(Hasil)
End Sub

Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
Text1.Text = Format(Index)
NilaiBaru = False
Else
Text1.Text = _
Text1.Text & Format(Index)
End If
End Sub

Private Sub Command18_Click()
Text1.Text = “”
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub text1_GotFocus()
text1_Change
End Sub

Private Sub Tutup_Click()
End
End Sub
Hasil Output :
Untitled
Untuk lebih lanjut, silahkan pelajari buku panduan tentang visual basic di bawah ini:
visual-basic-6-0

algoritma pemrograman 2 menggunakan visual basic 6

Semoga bermanfaat 🙂

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Mastro ! :)

Master Trigonometry. Lets enjoy to learn about trigonometry and be a master trigonometry :)

Math on Journey

PMRI Blog: mathematics is all around us

Yeni Widiastuti

Smile! You’re at the best Mathematics site ever

Rawa_Math

Always Think in Math

Rindi Antika Sari

Selamat Datang di Blog Pendidikan

Math Zone

Merangkai Matematika Mengubah Dunia

Zulkardi's Weblog

Just another WordPress.com weblog

ImamYupicayee

IT Information,Download Anime Bersub Indo,Theme Anime,Games,Software and other

BERMATEMATUALANG ( Belajar Matematika Unik, Asyik, Lucu, dan Menyenangkan)

Mathematics as a human activity (Freudhental : 1991)

Math Problem Cases

How mathematics should be learned

CATATAN SIMET (Si Math)

SIMET DAN PERMASALAHAN MATEMATIKA-NYA

xy - Math

Source and Share About Mathematics

Rumahtematika

riapuspitasariii.wordpress.com

Math's Rainbow

When you can see the beauty of mathematics

Super SoulMath

All about Education,Mathematics in ICT

Mathematics and Mathematics Education

Push yourself to realize your dreams

%d bloggers like this: