Tuesday, 26 August 2014

Story of Malin Kundang

0 comments
In ancient times there lived a widow named Mande Rubayah. Mande Rubayah had a son named Malin Kundang. They lived in villages Sweet Water Beach, Padang - West Sumatra. Their economic condition has deteriorated after her husband went sailing and never return again. Mande Rubayah Malin Kundang had to raise his own sweat. Malin Kundang very loved by his mother, he is a smart kid but a little naughty. One day, when Malin was chasing chickens, she tripped over a rock and injured his right arm exposed stone. The wound became dilengannya trace and can not be lost.

After Malin grew up, he decided to earn a living outside the island because not bear to see his mother drudge for families turn. Originally mother disagreed considering her husband had never returned after migrating. In the end his mother allowed because Malin insisted to go wander.

Malin Kundang boarded a merchant ship. Over at Malin learn about cruise ships. Many islands have been passed by Malin, until finally boarded ship hijacked by pirates Malin. Malin hiding behind a wooden ship, all crew killed in the pirate attacks. Malin bobbing in the ocean and eventually he was stranded on an island. The island is very fertile because its members are persistent in the work. With modest effort, Malin were approaching it.

On this island Malin Kundang worked diligently, until finally he was rich and marry a woman who maketh wife. Malin has a merchant ship and a few men. Wealth Malin Kundang finally heard by the mother, Mande Rubayah. Mande very happy to hear the news that his son had succeeded. Since then Mande Rubayah always waiting at the dock to watch her ​​son home.

After a long married Malin finally decided to go sailing with his wife and his children. Sure enough, shortly Malin to the island of his birth. The mother saw from afar two men are standing on a boat and Mande Rubayah sure that the child and his wife.

Malin Kundang's mother had approached the ship in order to be sure that it was her son. At the time of approaching ships, Mande Rubayah increasingly convinced that he was Malin Kundang after seeing the scars on the boy's right arm. He approached and said, "Malin Kundang, my son, why did you go so long without giving the news about your mother?" While hugging her. But look at the old woman hugged her dressing shabby and dirty, Malin became angry, when Malin knowing that it was his mother. Malin angry embarrassment to his wife and children. Because treated as such, Mande Rubayah angry with Malin Kundang. He prayed if it is true he Malin Kundang curse him into stone.

Malin Kundang to sail back and in the middle of a big storm occurs destroys the ship, granted the mother's prayer, Malin Kundang body slowly stiff and turned to stone. Until now Malin Kundang stone can still be seen in Sweet Water beach, in the southern city of Padang, West Sumatra.

Monday, 9 June 2014

Koding Visual Basic 6 Untuk Simpan, Edit, Cari dan Hapus pada Database Mengunakan Data Control, ADODC dan ADODB

6 comments
Berikut adalah contoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.


1. DATA CONTROL




Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data


#Simpan Data :

Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh


#Pencarian Data :

Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if


#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh


#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh



2. ADODC



#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh



#Pencarian Data :


Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!namakolom1
     Text2.Text = Adodc1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if


#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh


#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh



3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini


#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"


#Pencarian Data
Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if 


#Edit Data

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
                    "',[namakolom2]='" + Text2.Text + _
                    "' WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc


#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc


 sumber: http://blacknet92.blogspot.com/2013/03/vb6-code-untuk-simpan-edit-cari-dan.html

Monday, 14 January 2013

10 tahun Bartim Membangun "We Are Bartim Blogger"

2 comments


Sudah lama saya tidak menulis nih karena hal-hal akademik yang harus saya selesaikan. Saya dapat informasi dari http://www.ha-za.info menyelengarakan lomba menulis yang bertemakan ”10 tahun Bartim Membangun” dan untuk ketentuan lomba saya lihat di http://www.ha-za.info/ketentuan-lomba/. Setelah saya teliti dan cermati, saya langsung menuangkan rangkain-rangkain kata demi kata ke dalam blog saya http://www.hendrapostel.wordpress.com, http://www.hendra-postel.blogspot.com.
10 tahun bartim yah… mmm…saya rasa dalam 10 tahun ini kemajuan Bartim sangatlah pesat apalagi dalam segi teknologi dan informasi, maklum karena saya berkecimpung di dunia IT. Dalam kurun waktu 10 tahun saja Bartim telah melahirkan banyak IT-IT yang kompetitif, para muda-muda yang berbakat yang mampu berkompetisi di dalam dunia IT.
Semuanya itu bisa kita lihat banyaknya bermunculan blogger-blogger muda yang dengan lantang menyerukan “We Are Bartim Blogger”, Istilah itulah adalah semangat bagi mereka yang terpatri di dalam hati mereka masing-masing. Saya masing teringat kata-kata yang dilontarkan Ir. Soekarno:
“Berikan aku 1000 orang tua, niscaya akan kucabut semeru dari akarnya, berikan aku 1 pemuda, niscaya akan kuguncangkan dunia” . (Bung Karno).
Oh iya, ada satu lagi yang saya lihat Bartim mencetuskan sebuah trobosan Maha Karya yaitu Website http://www.ha-za.info  dibuat untuk memberikan informasi dan mencatat kejadian-kejadian penting selama kepemimpinan Drs. H Zain Alkim yang telah membawa Barito Timur sejajar dengan kabupaten-kabupaten lain di Wilayah Negara Kesatuan Republik Indonesia. Berbagai prestasi baik di tingkat provinsi maupun tingkat nasional telah dicapai selama kepemimpinan Drs. H. Zain Alkim. Informasi yang diberikan dari website http://www.ha-za.info diharapkan bisa menjadi pemacu semangat bagi generasi muda untuk mencintai pemimpinnya dan bangga akan daerahnya.
Maju terus IT-IT Bartim, Tunjukkan Kinerjamu….!!

 

My Inspiration:

Saturday, 10 November 2012

Bilangan Desimal, Biner, Hexa dan Octal

0 comments

Qbasic

2 comments
Qbasic adalah sebuah bahasa pemograman tingkat tinggi yang merupakan
salah satu versi dari bahasa BASIC (kependekan dari Beginner’s All-Purpose
Symbolic Instruction Code, merupakan bahasa yang biasa dipakai untuk belajar
memprogram). Qbasic dibuat oleh Microsoft Corporation dan tersedia pertama
kali mulai pada DOS 5.0.
Qbasic merupakan bahasa pemrograman tingkiat tinggi karena pemrograman Qbasic menggunakan bahasa yang mendekati bahasa manusia(english).
Dalam pemrograman Qbasic sangat syarat sekali mengenai algoritma karena sebelum membuat suiatu program seharusnya kita membuat alur perumusan masalah tentang program apa yang akan kita buat.
di bawah ini adalah perintah-perintah dasar Qbasic.

        Perintah Dasar dalam QBasic :


  • INPUT : perintah untuk memasukkan variabel/ data ke dalam program.
  • DIM : perintah untuk mendeklarasikan variabel.
  • PRINT  : perintah untuk menampilkan data inputan/ teks pada layar monitor.
  • WRITE : perintah untuk menuliskan data inputan/ teks pada layar. Hampir sama dengan perintah PRINT.
  • CLS :  perintah untuk membersihkan layar (Clean Screen).
  • FOR-NEXT : salah satu bentuk perintah perulangan.
  • IF - THEN  :  perintah untuk melakukan suatu perintah apabila sesuai kondisi yang diinginkan.
TIPE DATA Dalam Qbasic

Tipe data adalah jenis data yang digunakan dalam bahasa pemrograman.
Beberapa tipe data yang sering digunakan antara lain :
a. String : tipe data untuk teks / alphabetic
b. Integer : tipe data numeric. Berisi angka-angka bulat (terbatas) kurang lebih 30.000
c. single : Tipe Data yang berisi angka pecahan(desimal)
d. double : berisi Tipe data pecahan (desimal) kurang lebih 21.000.000
e. Boolean : tipe data yang hanya berisi TRUE atau FALSE

Fungsi Pengolahan Data String

tujuan dari fungsi pengolahan data string adalah suatu kumpulan fungsi string yang digunakan unuk menyelesaikan masalah

STRING$    (n,x$)
fungsi: mengulang x$ sebanyak n kali
contoh: STRING$    (5,M) = MMMMM
LEN$    (x$)
fungsi : mendapatkan jumlah dari x$
contoh : LEN$    (“Opil”) = 4
INSTR    (x$,y$)
fungsi : mecari posisi string
contoh : INSTR    (“Opil”,”pil”) = 2
ASC    (x$)
fungsi : memperoleh nilai ascy
contoh : ASC    (“A”) = 65
CHR$    (n)
fungsi : memperoleh nilai karakter dengan nilai ascy n
contoh : CHR$    (65)  = A
LCASE$    (x$)
fungsi : kapital menjadi kecil
contoh : LCASE$    (“QBASIC”) = qbasic
UCASE$    (x$)
fungsi : kecil menjadi kapital
contoh : UCASE$    (“qbasic”) = QBASIC
LEFT$    (x$,n)
fungsi : memperoleh n karakter dimulai dari kiri
contoh : LEFT$    (“opil”,2) = op
RIGHT$    (x$,n)
fungsi : memperoleh n karakter dimulai dari kanan
contoh : RIGHT$    (“opil”,2) = il
MID$    (x$,m,n)
fungsi : memperoleh karakter dari m-n
contoh : MID$    (“opilgarink”,5,6) = garink
STR$    (n)
fungsi : nilai numerik jadi string
contoh : STR$    (69) = “69″
VAL$    (x$)
fungsi : string jadi numerik
contoh : VAL$    (“69″) = 69


PERULANGAN

Perulangan digunakan untuk mengulang kondisi yang memiliki kesamaan perintah.
 

FOR-NEXT
for i= … to n
perintah
next i

FOR-NEXT-STEP

for i= …to n step -x/x
perintah
next i
DO-WHILE-LOOP
i%=1
do while i% < n
perintah
loop
DO-LOOP-WHILE
i%=1
do
perintah
loop while i% < n
DO-UNTIL-LOOP
i%=1
do until i% < n
perintah
loop
DO-LOOP-UNTIL
i%=1
do
perintah
loop until i% < n
WHILE-WEND
i%=1
while i% < n
perintah
wend


Percabangan

percabangan dalam Qbasic digunakan untuk menangani kondisi/ perintah berurut.

IF kondisi THEN
perintah
ENDIF
IF kondisi THEN
perintah
ELSE
peintah
ENDIF
IF kondisi 1 THEN
perintah 1
ELSEIF kondisi 2 THEN
perintah 2
ELSEIF kondisi 3 THEN
perintah 3
ELSEIF kondisi …n… THEN
perintah …n….
ENDIF
SELECT CASE variable
CASE kondisi 1
perintah 1
CASE kondisi 2
perintah 2
CASE kondisi 3
perintah 3
CASE kondisi ..n..
perintah …n…
CASE ELSE
perintah
END SELECT



       
                               Penamaan variable 

1. Nama variable bisa mencapi 40 karakter
2. Huruf dimulai dengan Huruf
3. Sesudahnya dapat berupa angka atau huruf
4. Tanda khusus ( %$#!& ) diletakkan pada akhir variable

Jenis variabel :
 % = integer
& = long
! = single
# = double
$ = string

Operasi Aritmatika :
         ^   = pangkat
*   = perkalian
/   = pembagian pecahan
\   = pembagian bulat
      mod = sisa pembagian
+   = penjumlahan
-   = pengurangan

Operator Relasi :
>  = lebih dari
<  = kurang dari
>= = lebih dari atau sama dengan
<= = kurang dari atau sama dengan
=  = sama dengan
<> = tidak sama dengan
Operator Logika :

Not
fungsi : bukan
contoh : not 3 ( bukan tiga )
And
fungsi : menghasilkan nilai antara
contoh : (a>10) and (A<20) nilai antara 11 – 19
Or
fungsi : menghasilkan nilai tepat
contoh : (a>10) or (a<20) nilai antara 10-20

Wednesday, 4 January 2012

Cara Mengatasi Eror Tampilan pada CorelDRAW 12

15 comments
Apabila CorelDRAW 12 anda terserang penyakit yang gejalanya; tampilannya tidak bisa ditampilkan oleh CorelDRAW itu sendiri. Sebenarnya CorelDRAWnya itu masih jalan akan tetapi, hanya tidak bisa menampilkan wajahnya saja. Oke, langsung saja saya kasih resepnya:

  1. Pertama-tama Download obatnya, setelah itu instal.
  2. Klik pada Start> Run
  3. Masukkan: regsvr32 / u msxml4.dll
  4. Sekarang masukkan: regsvr32 msxml4.dll

Coba anda buka CorelDRAW 12 anda, jreng..reng, CorelDRAW 12 anda sembuh dengan seketika. Mudahkan…
Semoga bermanfaat.

Friday, 2 December 2011

modul Sistem Basis Data Menggunakan Access

4 comments
SBD Access