RSS

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis

Skrip Program Pascal


program jum_bil2; 
uses wincrt;
var
i, n: integer;
jum, bil: real;
begin
write(‘Banyak bilangan :  ’);read(n);
jum := 0;
For i:= 1 to n do
begin
write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil);
jum := jum+bil;
end;
writeln(‘Jum = ‘,jum:0:2);
end.

 Output Program

Banyak bilangan : 3 
Masukkan Bilangan 1 = 12
Masukkan Bilangan 2 = 13
Masukkan Bilangan 3 = 14
Jum = 39.00

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis

Skrip Program Pascal

program jum_bil; 
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.

Output Program

Masukkan Bilangan = 12 
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60



  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Mengenal Apa Itu Bahasa BASIC !

BASIC, adalah singkatan dari Beginners’ All-purpose Symbolic Instruction Code adalah sebuah kelompok bahasa pemrograman tingkat tinggi. Secara harfiah, BASIC memiliki arti "kode instruksi simbolis semua tujuan yang dapat digunakan oleh para pemula". Memang, istilah "Bahasa BASIC" di sini juga bisa diartikan menjadi bahasa untuk pemula, atau dengan kata lain, disebut sebagai bahasa dasar, tapi hal tersebut dirasa kurang tepat, mengingat BASIC dapat juga digunakan oleh para pemrogram ahli.
BASIC pertama kali dikembangkan pada tahun 1963 oleh John George Kemeny dan Thomas Eugene Kurtz yang berasal dari Dartmouth College, untuk mengizinkan akses terhadap komputer bagi para mahasiswa jurusan selain jurusan ilmu eksakta. Pada waktu itu, hampir semua komputer membutuhkan perangkat lunak, dan waktu itu belum ada perangkat lunak yang dijual secara bebas, sehingga hanya orang-orang tertentulah yang dapat menggunakan komputer, yakni para matematikawan dan ilmuwan, karena mereka dapat membangun perangkat lunak sendiri. Bahasa BASIC, setelah diciptakan menjadi menjamur dan banyak dimodifikasi. Bahasa BASIC menjadi bahasa yang paling populer digunakan pada komputer mikro pada akhir tahun 1970-an dan komputer rumahan pada tahun 1980-an. Dan hingga saat ini, menjadi bahasa yang dialeknya beberapa kali berevolusi.

Berikut ini adalah contoh program yang ditulis dalam bahasa Visual BASIC

Private Sub Command1_Click()
    Dim a, b As Integer
    a = txt1.Text
    b = txt2.Text
    txt3.Text = a + b
    txt4.Text = a / b
    txt5.Text = a - b
    txt6.Text = a * b
    txt7.Text = a ^ b
 End Sub
 
 Private Sub Command2_Click()
    txt1.Text = ""
    txt2.Text = ""
    txt3.Text = ""
    txt4.Text = ""
    txt5.Text = ""
    txt6.Text = ""
    txt7.Text = ""
 End Sub
 
 Private Sub Command3_Click()
    End
 End Sub 
 
Sumber : http://id.wikipedia.org/wiki/Pascal_%28bahasa_pemrograman%29  

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Mengenal Apa Itu Bahasa PASCAL !

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Kelebihan dari bahasa pemrograman Pascal adalah:

  • Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,
  • User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.
  • Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.
  • Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.
  • Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.
Bahasa PASCAL juga merupakan bahasa yang digunakan sebagai standar bahasa pemrograman bagi tim nasional Olimpiade Komputer Indonesia (TOKI). Selain itu, Bahasa PASCAL masih digunakan dalam IOI (International Olympiad in Informatics).

Dalam bahasa Pascal terdapat beberapa jenis tipe data yang bisa digunakan untuk sebuah variabel atau konstanta pada program. Tipe Data tersebut antara lain adalah
Tipe Data Deskripsi (range variabel)
Byte angka dari 0 sampai 255
Integer angka dari -32768 to 32767
Real semua nilai pecahan dari 1E-38 to 1E+38
Boolean nilai TRUE atau FALSE
Char semua karakter dari tabel ASCII
String semua huruf, spasi, frase

Contoh Singkat Source Koding :

Contoh program Hello World menggunakan bahasa pascal adalah sebagai berikut:
Program HelloWorld;
begin
   writeln('Hello world');
 
end
 
Sumber : http://id.wikipedia.org/wiki/Pascal_%28bahasa_pemrograman%29 

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Membuat Kalender Sederhana Dengan Variasi Tulisan

Contoh Program dibawah ini merupakan program sederhana membuat calender dengan perpaduan membuat animasi tulisan  .
berikut Kodingnya :

Option Explicit

Dim Transparan As Integer
Dim mulai As Boolean

Private Sub Form_Activate()
If lblnumber.Caption = "6" Then
MsgBox "heee"
lblultah.Caption = "Happy Birtsday Mas Japik, Semoga Panjang Umur"
ElseIf lblnumber.Caption = "15" Then
lblultah.Caption = "Happy Birtsday Mas Jefri, Semoga Panjang Umur"
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If lblnumber.Caption = "6" Then
lblultah.Caption = "Happy Birtsday Mas Japik, Semoga Panjang Umur"
ElseIf lblnumber.Caption = "15" Then
lblultah.Caption = "Happy Birtsday Mas Jefri, Semoga Panjang Umur"
End If
End Sub

Private Sub Form_Load()

    Call FungsiTanggal
  mulai = True
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Cancel = True: mulai = False
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If mulai Then
  Transparan = Transparan + 5
  If Transparan > 255 Then Transparan = 255: Timer1.Enabled = False
Else
  Transparan = Transparan - 5
  If Transparan < 0 Then Transparan = 0: End
End If
SetTransparan frmcalender.hwnd, Transparan
End Sub



Private Sub Image1_Click()
 Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"

End Sub

Private Sub Label1_Click()
 Shell "EXPLORER.EXE " & "http://ujexs09.blogspot.com/"
End Sub

Private Sub Timer4_Timer()
Dim Today As Variant
Today = Now
'lblday.Caption = Format(Today, "dddd")
'lblmonth.Caption = Format(Today, "mmmm")
lblyear.Caption = Format(Today, "yyyy")
lblnumber.Caption = Format(Today, "d")
lbltime.Caption = Format(Today, "h:mm:ss ampm")

End Sub
Sub FungsiTanggal()
    'untuk menampilkan hari kedalam bhs indonesia
    Dim KHari, Hari, KBulan, Bulan As String
        KHari = Weekday(Now, vbSunday)
        Select Case KHari
        Case 1
            Hari = "\M\I\G\G\G\U =="
        Case 2
            Hari = "\S\E\N\I\N =="
        Case 3
            Hari = "\S\E\L\A\S\A =="
        Case 4
            Hari = "\R\A\B\U =="
        Case 5
            Hari = "\K\A\M\I\S =="
        Case 6
            Hari = "\J\U\M\A\T =="
        Case 7
            Hari = "\S\A\B\T\U =="
        End Select
       
        ' mengganti nama kedalam bhs indonesia
        KBulan = Month(Now)
        Select Case KBulan
        Case 1
            Bulan = "\J\a\n\u\a\r\i"
        Case 2
            Bulan = "\F\e\b\r\u\a\r\i"
        Case 3
            Bulan = "\M\a\r\e\t"
        Case 4
            Bulan = "\A\P\R\I\L"
        Case 5
            Bulan = "\M\e\i"
        Case 6
            Bulan = "\J\u\n\i"
        Case 7
            Bulan = "\J\u\l\i"
        Case 8
            Bulan = "\A\g\u\s\t\u\s"
        Case 9
            Bulan = "\S\e\p\t\e\m\b\e\r"
        Case 10
            Bulan = "\O\k\t\o\b\e\r"
        Case 11
            Bulan = "\N\o\v\e\m\b\e\r"
        Case 12
            Bulan = "\D\e\s\e\m\b\e\r"
        End Select
    lblday.Caption = Format(Now, Hari) '& Bulan & " yyyy ")
    lblmonth.Caption = Format(Now, Bulan)

End Sub


    'memanggil fungsi tanggal saat form aktif


Private Sub Timer2_Timer()
lblday.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub

Private Sub Timer3_Timer()
lblnumber.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
lblultah.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

End Sub


Layout Setelah Program di jalan-kan :


Silahkan download project vbnya , agar bisa dipelajari dan dikembangkan.


== VBMANDIRI PROJECT DOWNLOAD ==

PASSWORD UNTUK MEMBUKA WINRAR yaitu : ujexsvbmandiri ( di copy saja )

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Bagaimana Menjalankan Visual Basic 6.0 di komputer / neetbokk ?

Sangat penting sekali untuk mengetahui artikel ini sebelum terjun ke dunia programing visual basic 6.0 ,
dimana untuk mendalami ilmu pemograman harus disiapkan dengan sebaiknya , baik niat dari calon programing VB (saya singkat saja menjadi P-VB) maupun perangkat pendukungnya , seperti : hardware dan software komputer .

Hardware meliputi : komputer , Neetbook , mouse , keyboard , dll ( Minimal P 4(pentium 4 ) lah ya
Software                 : usahakan sebelum menginstal visual basic 6.0 telah terinstal SO (system operasi ) komputer menggunakan Windows Xp Sp2 -  Xp 3, agar plugin VB 6.0 gampang untuk dimasukkan di system 32 Windows Xp.

Selanjutnya jika telah dilengkapi baru mulai ber aclerasi  unutk calon P-VB.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS