Jumat, 19 April 2013

Perulangan Dengan Repeat Until Menggunakan Turbo Pascal

Berikut ini adalah Program untuk menghitung nilai rata-rata dari sejumlah bilangan, yang menggunakan Perulangan Repeat Until.

Lihat Output Programnya :







Lihat Source codenya :

Program Perulangan1;
Uses wincrt;
Var
i,jum,bil,n : Integer;
rata : Real;

Begin
i:= 1;
jum:= 0;
writeln('***************************************');
writeln(' Program Menghitung Rata-rata Bilangan');
writeln('***************************************');
writeln;
write('Isikan Banyaknya Data : '); Readln(n);
writeln;
  Begin
    Repeat
    write('Isikan Bilangan ke ',i,' = '); Readln(bil);
    i:= i + 1;
    jum:= jum + bil;
    Until n < i;
  End;
writeln;
rata:= jum / n;
writeln('Nilai Rata-rata Bilangan = ',rata:0:2);
writeln('Jumlah Bilangan          = ',jum);
End.

Read More »
00.49 | 0 komentar

Menghitung Bilangan Ganjil dan Genap Menggunakan Turbo Pascal

Berikut ini adalah program untuk menghitung bilangan ganjil dan genap, yang dimasukkan dalam bentuk tabel.

Lihat Output programnya:






Lihat Source codenya :

program Rojear;
uses wincrt;
var
j_ganjil, j_genap, b_ganjil, b_genap : integer;
jum, bil, b, x: integer;

begin
writeln('***************************************************************');
writeln('     Program Menghitung Bilangan Ganjil dan Bilangan Genap     ');
writeln('       Proses Akan Berhenti Jika Bilangan sama dengan 10       ');
writeln('***************************************************************');
writeln;
writeln('[-------][------------][------------][-----------][-----------]');
writeln('[  Bil  ][  J.Ganjil  ][  B.Ganjil  ][  J.Genap  ][  B.Genap  ]');
writeln('[-------][------------][------------][-----------][-----------]');
gotoxy(4,9);readln(bil);
        writeln;
	
	    if bil mod 2 <> 0 then
	    b:= bil;
	    if bil mod 2 <> 0 then
	    jum:=1;
	    if bil mod 2 = 0 then
	    b:=0;
	    if bil mod 2 = 0 then
            jum:=0;

	    j_ganjil:= b + j_ganjil;
	    b_ganjil:= jum + b_ganjil;

	    gotoxy(17,9);write(b);
	    gotoxy(30,9);write(jum);
	
	    if bil mod 2 = 0 then
	    b:= bil;
	    if bil mod 2 = 0 then
	    jum:=1;
	    if bil mod 2 <> 0 then
            b:=0;
	    if bil mod 2 <> 0 then
	    jum:=0;

	    j_genap:= b + j_genap;
	    b_genap:= jum + b_genap;

	    gotoxy(44,9);write(b);
	    gotoxy(57,9);write(jum);

	    gotoxy(1,9);write('[');
	    gotoxy(9,9);write(']');
	    gotoxy(10,9);write('[');
	    gotoxy(23,9);write(']');
	    gotoxy(24,9);write('[');
	    gotoxy(37,9);write(']');
	    gotoxy(38,9);write('[');
	    gotoxy(50,9);write(']');
	    gotoxy(51,9);write('[');
	    gotoxy(63,9);writeln(']');


    while bil <> 10 do
    begin
        x:=x+1;
	gotoxy(4,9+x);readln(bil);
        
	begin
	    if bil mod 2 <> 0 then
	    b:= bil;
	    if bil mod 2 <> 0 then
	    jum:=1;
	    if bil mod 2 = 0 then
	    b:=0;
	    if bil mod 2 = 0 then
            jum:=0;

	    j_ganjil:= b + j_ganjil;
	    b_ganjil:= jum + b_ganjil;

	    gotoxy(17,9+x);write(b);
	    gotoxy(30,9+x);write(jum);
	end;

        begin
	    if bil mod 2 = 0 then
	    b:= bil;
	    if bil mod 2 = 0 then
	    jum:=1;
	    if bil mod 2 <> 0 then
            b:=0;
	    if bil mod 2 <> 0 then
	    jum:=0;

	    j_genap:= b + j_genap;
	    b_genap:= jum + b_genap;

	    gotoxy(44,9+x);write(b);
	    gotoxy(57,9+x);write(jum);
	end;
	    gotoxy(1,9+x);write('[');
	    gotoxy(9,9+x);write(']');
	    gotoxy(10,9+x);write('[');
	    gotoxy(23,9+x);write(']');
	    gotoxy(24,9+x);write('[');
	    gotoxy(37,9+x);write(']');
	    gotoxy(38,9+x);write('[');
	    gotoxy(50,9+x);write(']');
	    gotoxy(51,9+x);write('[');
	    gotoxy(63,9+x);writeln(']');
     end;
writeln('[-------][------------][------------][-----------][-----------]');
writeln(' Jumlah',j_ganjil:11,b_ganjil:12,j_genap:15,b_genap:12);

end.

Read More »
00.22 | 0 komentar

Pengurutan Bilangan mengunakan Turbo Pascal

Berikut ini adalah program sederhana Pengurutan dari tiga bilangan yang dimasukkan secara acak..

Output Program :

 
 
Source codenya :

program swift;
uses wincrt;
var
A, B, C : Integer;
begin
write('Masukkan Nilai A : '); readln(A);
write('Masukkan Nilai B : '); readln(B);
write('Masukkan Nilai C : '); readln(C);
writeln;
if (A <= B) and (A <= C) then
     if B <= C then
     writeln(A,' ',B,' ',C)
     else
     writeln(A,' ',C,' ',B)
else
if (B <= A) and (B <= C) then
     if A <= C then
     writeln(B,' ',A,' ',C)
     else
     writeln(B,' ',C,' ',A)
else
if (C <= A) and (C <= B) then
     if A <= B then
     writeln(C,' ',A,' ',B)
     else
     writeln(C,' ',B,' ',A);
end.

Read More »
00.16 | 0 komentar

Senin, 15 April 2013

MEMBUAT APLIKASI KONVERSI BILANGAN DENGAN PROGRAM VB

Konversi bilangan adalah perubahan bilangan yang biasanya kita kenal seperti bilangan biner, hexadesimal, desimal dan oktal. Dimana sistem bilangan ini wajib kita pahami untuk seorang mahasiswa Teknik Elektro apalagi ingin menjadi seorang Programmer.
1.    Desimal
Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.
2.    Heksadesimal
Bilangan heksadesimal adalah bilangan yang mempunyai enam belas simbol angka yaitu 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.
3.    Biner
Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1
4.    Oktal
Bilangan heksadesimal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7
Berikut tabel konversi bilangan :
Desimal
Biner
Oktal
Hexadesimal
0
0
0
0
1
1
1
1
2
10
2
2
3
11
3
3
4
100
4
4
5
101
5
5
6
110
6
6
7
111
7
7
8
1000
10
8
9
1001
11
9
10
1010
12
A
11
1011
13
B
12
1100
14
C
13
1101
15
D
14
1110
16
E
15
1111
17
F
Baiklah kita akan membuat program Aplikasi Konversi Bilangan dengan VB dimana aplikasi ini akan membantu anda mengkonversikan bilangan secara cepat dan tepat :
1.    Seperti biasa buatlah New Project pada software VB anda kemudian tambahkan 11 label, 2 textbox, 2 frame, 8 optionbutton, dan 3 commandbutton.
2.    Desainlah menjadi seperti gambar dibawah ini :
Aplikasi konversi bilangan dengan VB
Gambar Form Aplikasi Konversi Bilangan dengan program VB
3.    Kemudian ketikkan kode/script/listing program dibawah ini :
Option Explicit

Private Sub command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub command3_Click()
End
End Sub
Private Sub command1_Click()
  If Option2.Value And Option5.Value Then Text2.Text = BinToDes(Text1.Text)
  If Option2.Value And Option6.Value Then Text2.Text = Text1.Text
  If Option2.Value And Option7.Value Then Text2.Text = BinToOk(Text1.Text)
  If Option2.Value And Option8.Value Then Text2.Text = BinToHex(Text1.Text)
  If Option1.Value And Option6.Value Then Text2.Text = DesToBin(Text1.Text)
  If Option1.Value And Option5.Value Then Text2.Text = Text1.Text
  If Option1.Value And Option7.Value Then Text2.Text = DesToOk(Text1.Text)
  If Option1.Value And Option8.Value Then Text2.Text = DesToHex(Text1.Text)
  If Option3.Value And Option6.Value Then Text2.Text = OkToBin(Text1.Text)
  If Option3.Value And Option8.Value Then Text2.Text = OkToHex(Text1.Text)
  If Option3.Value And Option5.Value Then Text2.Text = OkToDes(Text1.Text)
  If Option3.Value And Option7.Value Then Text2.Text = Text1.Text
  If Option4.Value And Option6.Value Then Text2.Text = HexToBin(Text1.Text)
  If Option4.Value And Option5.Value Then Text2.Text = HexToDes(Text1.Text)
  If Option4.Value And Option7.Value Then Text2.Text = HexToOk(Text1.Text)
  If Option4.Value And Option8.Value Then Text2.Text = Text1.Text

  With Text1
    .SelStart = 0
    .SelLength = Len(Text1.Text)
  End With
End Sub

Public Function BinToDes(ByVal NBiner As String) As Long
  Dim A         As Integer
  Dim B         As Long
  Dim Nilai    As Long
  On Error GoTo ErrorHandler
  B = 1
  For A = Len(NBiner) To 1 Step -1
    If Mid(NBiner, A, 1) = "1" Then Nilai = Nilai + B
    B = B * 2
  Next
  BinToDes = Nilai
  Exit Function
ErrorHandler:
  BinToDes = 0
End Function


Public Function DesToBin(ByVal NDesimal As Long) As String
  Dim C        As Byte
  Dim D        As Long
  Dim Nilai    As String
  On Error GoTo ErrorHandler
  D = (2 ^ 31) - 1
  While D > 0
    If NDesimal - D >= 0 Then
      NDesimal = NDesimal - D
      Nilai = Nilai & "1"
    Else
      If Val(Nilai) > 0 Then Nilai = Nilai & "0"
    End If
    D = D / 2
  Wend
  DesToBin = Nilai
  Exit Function
ErrorHandler:
  DesToBin = 0
End Function

Public Function DesToHex(ByVal NDesimal As Long) As String
  DesToHex = Hex(NDesimal)
End Function

Public Function HexToDes(ByVal NHexa As String) As Long
  Dim E         As Integer
  Dim Nilai     As Long
  Dim F         As Long
  Dim CharNilai As Byte
  On Error GoTo ErrorHandler
  For E = Len(NHexa) To 1 Step -1
    Select Case Mid(NHexa, E, 1)
      Case "0" To "9": CharNilai = CInt(Mid(NHexa, E, 1))
      Case Else: CharNilai = Asc(Mid(NHexa, E, 1)) - 55
    End Select
    Nilai = Nilai + ((16 ^ F) * CharNilai)
    F = F + 1
  Next E
  HexToDes = Nilai
  Exit Function
ErrorHandler:
  HexToDes = 0
End Function
Public Function DesToOk(ByVal NDesimal As Long) As String
  DesToOk = Oct(NDesimal)
End Function

Public Function OkToDes(ByVal NOktal As String) As Long
  Dim G          As Integer
  Dim H          As Long
  Dim Nilai      As Long
  On Error GoTo ErrorHandler
  For G = Len(NOktal) To 1 Step -1
    Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))
    H = H + 1
  Next G
  OkToDes = Nilai
  Exit Function
ErrorHandler:
  OkToDes = 0
End Function

Public Function BinToOk(ByVal bin As Long) As String
 BinToOk = DesToOk(BinToDes(bin))
End Function

Public Function BinToHex(ByVal NBiner As Long) As String
 BinToHex = DesToHex(BinToDes(NBiner))
End Function

Public Function OkToBin(ByVal NOktal As Double) As String
    OkToBin = DesToBin(OkToDes(NOktal))
End Function
Public Function OkToHex(ByVal NOktal As Double) As String
    OkToHex = DesToHex(OkToDes(NOktal))
End Function

Public Function HexToBin(ByVal NHexa As String) As String
    HexToBin = DesToBin(HexToDes(NHexa))
End Function
'
Public Function HexToOk(ByVal NHexa As String) As Double
    HexToOk = DesToOk(HexToDes(NHexa))
End Function

Private Sub Form_Load()
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  Text1.Text = ""
  Text2.Text = ""
End Sub
4.    Simpan dan Jalankan Program anda dengan menekan tombol F5, kemudian coba masukkan nilai 15 (terserah anda), kemudian pilih Desimal untuk masukan dan Biner untuk keluaran
5.    Hasilnya seperti berikut:
program konversi bilangan menggunakan Visual basic
Gambar Hasil Aplikasi Konversi Bilangan dengan program VB

6.    Terbukti bukan,,,Selamat mencoba teman!!!

Adapun Contoh-contoh Program yang lain Menggunakan Visual Basic, yaitu : 
MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB 



Read More »
18.18 | 7 komentar

MEMBUAT PROGRAM DATABASE MAHASISWA DENGAN VB 6.0

Dalam membuat program database cukup mudah hanya saja dalam pembuatan programnya prosedural. Yang namanya database, sekarang sudah sangat diperlukan, hampir di semua instalsi baik dipemerintahan, pendidikan maupun perusahaan. Database merupakan Kumpulan dari item data yang saling berhubungan satu dengan yang lainnya yang diorganisasikan berdasarkan sebuah skema atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melakukan manipulasi untuk kegunaan tertentu.
Mengapa Diperlukan Database alasannya antara lain :
  • Salah satu komponen penting dalam sistem informasi, karena merupakan dasar dalam menyediakan informasi
  • Menentukan kualitas informasi : akurat, tepat pada waktunya dan relevan.
·         Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya.
  • Mengurangi duplikasi data (data redudancy)
  • Hubungan data dapat ditingkatkan (data relatability)
  • Mengurangi pemborosan tempat simpanan luar

Pertama kali dalam membuat program database ini adalah dengan visual data manager :
Berikut langkah-langkah dalam membuat program database :
1.    Buka program VB 6.0 anda
2.    Pilih menu Add-Ins >> Visual Data Manager >> File >> New >> Microsoft Access >> Version 7.0 MDB
3.    Beri nama database anda lalu simpan klik kanan Properties >> New Table
4.    Beri nama Tabel database anda >> Add Field >> tambahkan satu persatu komponen data yang ingin anda tampilkan seperti, NAMA, NIM, JURUSAN, IPK dan lain-lain >> close jika sudah
5.    Kemudian Build The Table hasilnya seperti berikut :
program database dengan visual data manager
Gambar Visual Data Manager
6.    Klik Add lalu masukkan data mahasiswa  jika sudah close
7.    Sekarang buka form anda kemudian desain dan tambahkan satu buah frame, 9 label, 5 commanbutton, 8 textbox dan satu kontrol data, untuk commandbutton ubah nama pada propertinya sesuai seperti yang dibawah ini
form program database mahasiswa dengan VB 6.0
Gambar Program Database mahasiswa dengan VB 6.0
8.    Kemudian klik control data ,lihat diproperties pilih DatabaseName lalu masukkan database yang kita buat tadi, satu lagi RecordSources ganti dengan nama databasenya
9.    Kemudian atur properties masing-masing textbox seperti dibawah ini :
TextBox
DataSource
DataField
Text1
Data1
NAMA
Text2
Data1
NIM
Text3
Data1
JENIS KELAMIN
Text4
Data1
ALAMAT
Text5
Data1
JURUSAN
Text6
Data1
NO HP
Text7
Data1
IPK

10.           Ketikkan Kode/listing/script program berikut ini :
Private Sub CANCEL_Click()
End
End Sub

Private Sub CARI_Click()
Data1.Recordset.FindFirst "NIM='" + Text8 + "'"
If Data1.Recordset.NoMatch Then
MsgBox "NIM yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"
Data1.Recordset.MoveFirst
Text8.SetFocus
End If
End Sub

Private Sub Form_Load()
Call tidaktampil
End Sub
Private Sub tampil()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
End Sub
Private Sub tidaktampil()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
End Sub

Private Sub HAPUS_Click()
Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")
If Delete = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub SIMPAN_Click()
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Call tidaktampil
End Sub

Private Sub TAMBAH_Click()
Data1.Recordset.AddNew
Call tampil
Text1.SetFocus
End Sub
11.           Kemudian silahkan coba program anda dan lihat contoh seperti dibawah ini :

Gambar program membuat Database Mahasiswa dengan VB 6.0
12.           Selamat mencoba….!!!

Adapun Contoh-contoh Program yang lain Menggunakan Visual Basic, yaitu : 
MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB 

Read More »
18.13 | 2 komentar

MEMBUAT PROGRAM APLIKASI ALARM DENGAN VB 6.0

Baiklah kita akan membuat program aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :
1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :
program aplikasi alarm dengan VB 6.0
Gambar Program Aplikasi Alarm Dengan Vb 6.0
3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga
4.    kemudian ketikkan kode/listing/script program dibawah ini :
Dim alarm As Boolean
Private Sub Command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarm = False
Else
Command1.Caption = "Tidak Aktif"
alarm = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Text1.Text = Label1.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep
End Sub
5.    Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :Contoh program aplikasi alarm dengan VB 6.0
Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0
6.    Mudahkan, Selamat Mencoba…!!!

Adapun Contoh-contoh Program yang lain Menggunakan Visual Basic, yaitu : 
MEMBUAT PROGRAM PORT PARALEL LED BERJALAN DENGAN VB 

Read More »
18.09 | 3 komentar