Skrip Program Pascal
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Dinamis
Program Menghitung Jumlah Bilangan Perulangan FOR Dengan Nilai Statis
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60
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
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.
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
Membuat Kalender Sederhana Dengan Variasi 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 )
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.
Modul Perkenalan Visual Basic # PART 5#
Berikut adalah modul-modul untuk pembelajaran visual basic , untuk pemula ..
Link Download
Password .Rar = anakmandiri
Modul Perkenalan Visual Basic # PART 4#
Berikut adalah modul-modul untuk pembelajaran visual basic , untuk pemula ..
Link Download
Password .Rar = anakmandiri
Modul Perkenalan Visual Basic # PART 3#
Berikut adalah modul-modul untuk pembelajaran visual basic , untuk pemula ..
Link Download
Password .Rar = anakmandiri
Modul Perkenalan Visual Basic # PART 2#
Berikut adalah modul-modul untuk pembelajaran visual basic , untuk pemula ..
Link Download
Password .Rar = anakmandiri
Modul Perkenalan Visual Basic # PART 1#
Berikut adalah modul-modul untuk pembelajaran visual basic , untuk pemula ..
Link Download
Password .Rar = anakmandiri
Tentang VB Karya Mandiri
Asslamualaikum Wr. Wb .
Salam kenal semuanya , Panggilan saya ujexs yang mempunyai nama lengkap Abdul Jefri , saya tertarik dengan hal-hal yang membuat saya tertantang untuk mencari tau dimana rasa penasaran tersebut , Motivasi saya membuat blog ini adalah " Karena ilmu rahasia dan yang tepatlah bisa menemukanya " .
Saya bukanlah orang yang pintar dibidang Visual Basic , tapi saya bertekat mempintarkan rekan-rekan dan sahabat yang membutuhkan bantuan saya , selagi saya bisa membantunya , maklumlah kesibukan saya yang sangat luar biasa , tapi saya tetep ingat ama si mbah kalo ada ilmu walaupun sedikit harus di bagi ( heheh .. bah saya tinggal nenek aja ) .
Saya sangat terbuka untuk semuanya dalam hal positif , silahkan save BDA saya
E-mail : ujexsbase@gmail.com
No-Pe : 085263263396
Ym : ujexs_base09
Fb : ujexs baes
" Satu untuk bersama dan bersama untuk 1 tujuan , Mandiri "