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 :

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 🙂