Jumat, 24 November 2017

Cara Membuat Program Sederhana

Pertama yang kita lakukan adalah buatlah folder mhs pada salah satu keseleraan anda.Siapkan sebuah data berbentuk Excel seperti berikut atau dapat menambahkan data sesuai selera,lalu taro dalam folder tersebut :
 q
Kedua,pastikan kalau kamu telah menginstal visual foxpro 9.0.(selanjutnya saya sebut Serigala) lalu buka Serigalanya,Untuk membuat sebuah project, kita klik file pilih New.Hingga muncul sebagai berikut,
 3
Selanjutnya,jika membuat sesuatu yang baru masuk window new, jangan ditutup.Lalu klik New File save project tersebut difile yang telah kita buat pada partisi yang kita buat diawal dengan nama tersebut.Maka akan muncul project manager.Untuk selanjutnya kita akan merancang Database yang akan kita buat.
Klik New Database, lalu save difile kita dengan nama Siswa.Selanjutnya kita dapat membuat table baru dengan cara membuat New Table pada database Siswadengan cara yang sama membuat new database.
Perhatikan index dan indexes,isi index dengan ascending dan isi primary key(jangan diisi dulu tetap kondisi sebagai regular) untuk noinduk pada indexes.Setelah itu,hasilnya seperti berikut ini :
Jika kita ingin mengisi datanya, anda tinggal klik Browse lalu klik menu VIEW pilih menu Append Mode.Kita tinggalkan mengisi lewat visual foxpro.Sekarang anda import data lewat excel yang anda buat tadi.Pertama buka table yang anda buat tadi,lalu klik Browse ketik sintak.Append from ? xl5,Tunjuk file xl yang anda buat tadi sehingga data tersebut terimport ke serigala anda.Sekarang anda buat Table kedua dengan nama Mata Pelajaran.Isikan table seperti berikut ini,
Lalu entry data dengan metode yang anda sukai (baik lewat Excel atau dari serigala).Sekarang kita akan membuat Local View dan QueryKlik Tab Data pada Project Manager, Klik pilihan Local view. Klik New dan New View.Klik table Data Siswa pada bagian Tables in Database. Lalu klik OK. Pada tab Field klik field yang ingin ditampilkan misal klik noinduk, nama, tempat lahir dan tangal lahir. Save.
Untuk melihat hasilnya klik RUN. Jika terjadi kesalahan terhadap import,data(data pada table tidak singkron) jika dapat merubahnya dengan Append Mode (cara input data selain mengimport dari excell).MEMBUAT QUERY
Buat New Query (cara sama dengan membuat table dan database baru). Add kedua table yang telah kita buat.Lalu isikan seperti berikut :
Maka akan terbentuk hasil seperti berikut :
Selanjutnya anda akan berkenalan dengan FORM.Klik Tab Documentation pada Project manager lalu klik New, lalu klik From Wizard. Ketika muncul select wizard, pilih FORM WIZARD. Pindahkan semua fields. Next, muncul step 2, pilih stlye Embossed, pilih button type dengan Picture Button . Next. Masuk ke Step 3, pindahkan filed noinduk. NEXT. Isi Type Tittle for your form dengan nama entri data siswa. Pilih Save and RUN FORM. Klik FINISH dan save difolder projek kita dengan nama Entri Data Nilai . SAVE Maka Tampilannya akan seperti berikut ini.
Nah sekarang anda dapat menginput data sesuka hati hehehe :P selamat mencoba ya. 


yang tidak berarti, tapi setidaknya nambah ilmu kan? Ya kalau mau buat silahkan buat. Ini hanya untuk menambah ilmu dan sekedar sharing saja tentang Cara Membuat Program Sederhana Menggunakan Visual Basic

Berikut langkah - langkahnya :

1. Masuk Visual Basic, lalu pilih standard exe, ganti nama form
2. Buat 4 Label
  • Label 1 diberi nama Angka Pertama
  • Label 2 diberi nama Angka Kedua
  • Label 3 diberi Hasil
  • Label 4 (Tidak Wajib) diisi dengan kata kalkulator

3. Buatlah 4 button command
Button command 1 diberi nama Tambah
Kodenya :
Dim a,b as integer
A = text 1.text
B = text 2.text
Text3.text = a+b
Button Command 2 diberi nama Kurang
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a-b
Button Command 3 diberi nama Kali
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a*b
Button Command 4 diberi nama Bagi
Kodenya :
Dim a,b as integer
A = text1.text
B = text2.text
Text3.text = a/b

4. Buatlah 3 Text
  • Text 1 untuk angka pertama
  • Text 2 untuk angka kedua
  • Text 3 untuk hasil penjumlahan text1 dan text2
Coba dulu program yang telah anda buat tadi dengan menekan tombol F5 atau mengklik toolbar Run - Start. Letaknya terserah anda, bila program tidak berjalan dengan baik berarti masih ada kesalahan yang harus anda perbaiki lagi. BiasanyaVisual Basic a


Notepad? Mungkin bukanlah kata yang asing buat kita, sudah pasti kita mengira itu adalah salah satu aplikasi sederhana bawaan windows yang bisa kita fungsikan untuk menyimpan catatan. Namun tahukah kamu bahwa dengan sedikit kreatifitas dan kemampuan di sisi coding, dengan aplikasi sederhana ini kita bisa membuat hal2 yang menyenangkan untuk sekedar “menjahili” sobat kita :)bahkan dengan aplikasi sederhana ini, kita bisa membuat sebuah program yang merugikan seperti sebuah virus. Tapi saya tak ingin anda berbuat begitu, disini saya hanya akan memberikan beberapa script “jahil”sederhana untuk sekedar bersenang-senang dengan aplikasi ini.

Berikut ini beberapa script sederhana yang mungkin bisa anda coba saat bermain notepad:

1. Membuka dan menutup CD/DVD Komputer
Copy script dibawah ini dan paste di notepad anda.
Set oWMP = CreateObject(“WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut

2. Menulis otomatis di notepad
Copy script dibawah ini dan paste di notepad anda.
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Tulisan ini akan menulis sendiri di notepad anda”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut

3. Membuat Pesan muncul berulang – ulang
Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:Begin
msg * hahahhaa
msg * santai boss
msg * ini hanya main-main
msg * jangan marah ya
msg * hanya bercanda
GOTO BEGIN
Simpan dengan format *.bat.
Lalu Buka File Tersebut

4. Membuat Komputer Shutdown dengan muncul pesan.
Copy script dibawah ini dan paste di notepad anda.
@echo off
msg * Hahahahhaha
shutdown -s -c “Komputer anda mati”
Simpan dengan format *.bat.
Lalu Buka File Tersebut

5. Membuat Tombol Capslock terus menyala
Copy script dibawah ini dan paste di notepad anda.
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut

6. Membuat terus – menerus menekan tombol “backspace”
Copy script dibawah ini dan paste di notepad anda.
MsgBox “Kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Simpan dengan format *.vbs.
Lalu Buka File Tersebut

7. Membuka notepad Terus – menerus
Copy script dibawah ini dan paste di notepad anda.
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Simpan dengan format *.bat.
Lalu Buka File Tersebut

Sabtu, 10 Agustus 2013

Kumpulan Pantun Nasehat Terbaru

Kayu cendana diatas batu
Sudah diikat dibawa pulang
Adat dunia memang begitu
Benda yang buruk memang terbuang

Parang ditelak berbatang sena
Belah buluh taruhlah temu
Barang dikerja takkan sempurna
Bila tak penuh menaruh ilmu

Kemuning ditengah balai
Bertumbuh terus semakin tinggi
Berunding dengan orang tak pandai
Bagaikan alu pencungkil duri

Padi Di Sawah Kuning Warnanya, Batu Di Kali Banyak Bentuknya
Turuti Saja Petuah Orang Tua, Agar Hidup Tidak Sengsara

Ada Banyak Pulau Di Indonesia, Salah Satunya Tanah Papua
Banyak Cara Agar Hidup Bahagia, Cukup Ikuti Nasehat Orang Tua

Jalan Kaki Dari Solo Ke Semarang, Mampir Dulu Di Salatiga
Jikalau Kamu Ingin Hidupnya Senang, Jangan Lupa Dengan Orangtua

Makan Jeruk Di Pasar Buah, Habis Satu Dapat Pepaya
Jangan Lupa Untuk Sedekah, Karena itu Membuatmu Kaya

Jalan-jalan ke kota Blitar
Jangan lupa membeli sukun
Jika kamu ingin pintar
belajarlah dengan tekun

Makanan tersaji dipasang lampu
lampu menyinari di atas meja
naiklah haji bagi yang mampu
memenuhi panggilan dari-NYA
PANTUN DARI FILEM-FILEM MELAYU KLASIK
Kajang Pak Malau kajang berlipat
Kajang saya mengkuang layu
Dagang Pak Malau dagang bertempat
Dagang saya musafir lalu
(Filem Seri Mersing)

Tuai padi antara masak
Esok jangan layu layuan
Intai kami antara nampak
Esok jangan rindu-rinduan
(Filem Gurindam Jiwa - 1966)

Perahu bertutup dengan daun
Penuh sara berisi lokan
Kalau hidup seratus tahun
Sepanjang hayat aku nantikan
(Filem Hang Tuah - 1956)

Kedondong batang sumpitan
Batang padi aku lurutkan
Tujuh gunung sembilan lautan
Kalau tak mati aku turutkan
(Filem Hang Tuah - 1956)

PANTUN TEKA-TEKI

Kalau tuan bawa keladi
Bawakan juga si pucuk rebung
Kalau tuan bijak bestari
Binatang apa tanduk dihidung?

Beras ladang sulung tahun
Malam malam memasak nasi
Dalam batang ada daun
Dalam daun ada isi

Terendak bentan lalu dibeli
Untuk pakaian saya turun kesawah
Kalaulah tuan bijak bestari
Apa binatang kepala di bawah?

Kalau tuan muda teruna
Pakai seluar dengan gayanya
Kalau tuan bijak laksana
Biji diluar apa buahnya?

Tugal padi jangan bertangguh
Kunyit kebun siapa galinya
Kalau tuan cerdik sungguh
Langit tergantung mana talinya?

Terbang tinggi si burung helang
Hinggap di atas pohon meranti
Anak ramai ibunya seorang
Bila bergesel berapi-rapi

Buah budi bidara mengkal
Masak sebiji di tepi pantai
Hilang budi bicara akal
Buah apa tidak bertangkai?

Budak-budak ramai di pekan
Hari raya membakar petas
Kalau adik pandai kiasan
Apakah buah gugur ke atas?

Tinggi duduk di atas sekali
Bukan bulan bukan matahari
Bila malam ia berseri
Bila siang ia berganti

Tarik pukat dari pangkalan
Gula Melaka dibuat inti
Bila diikat ia berjalan
Bila dibuka ia berhenti

Cik Limah bersama anak lelaki
Duduk makan keropok lekor
Yang mengejar tidak berkaki,
Yang dikejar tiada berekor.

Pergi umrah setiap tahun,
Moga sentiasa murah rezeki
Dalam batang ada daun,
Dalam daun ada isi.

Bila kecil boleh ditiup,
Sudah besar janganlah lagi,
Kalau tercucuk ia meletup,
Kalau terlepas terbangnya tinggi.

Mulut manis hati nak baik,
Itulah amalan turun temurun;
Benda apa yang akan naik,
Apabila saja hujan turun?

Walau dibungkus bukan kiriman,
Sudah takdir tuhan yang satu;
Meski ditanam bukan tanaman,
Cubalah teka apakah itu?

Hidup aman di dalam kota,
Ada pemimpin bernama raja;
Buruh-buruh rajin bekerja,
Askar bertugas setiap masa.

Kalau Tuan pergi ke kedai
Belikan saya buah keranji
Kalau tuan bijak pandai
Apa binatang keris di kaki?

Ada sebiji roda pedati
Bentuknya bulat daripada besi
Bila bermain diikat sekuat hati
Dilempar hidup dipegang mati?

Buah budi bedara mengkal
Masak sebiji di tepi pantai
Hilang budi bicara akal
Buah apa tidak bertangkai?

Burung nuri burung dara
Terbang ke sisi taman kayangan
Cubalah teka wahai saudara
Semakin diisi makin ringan?

Bunga orkid indah warnanya
Penyeri taman dan juga hutan
Ramai orang datang bertanya
Bintang apa hidup di lautan?

Pak Pung Pak Mustafa
Encik Dollah dirumahnya
Ada tepung ada kelapa
Gula Melaka jadi intinya

Kelip-kelip kusangka api
Kalau api mana asapnya?
Hilang ghaib disangkakan mati
Kalau mati mana kuburnya?

Budak-budak bermain batu
Batu dikira satu persatu
Badannya lurus bermata satu
Ekornya tajam apakah itu?

Jika tuan membeli tikar
Tikar anyaman dari mengkuang
Kalau Tuan bijak pintar
Ular apa membelit pinggang?

Masak tumis sambal petai
Makan kenyang sambil sendawa
Anda menziarah sahabat handai
Buah apakah yang akan dibawa?

Pokoknya bulat dan juga rendang
Masam dan hijau ketika muda
Buahnya berbentuk seperti bintang
Sudah masak, kuninglah ia

Belayar perahu dari Bentan
Menyusur tepi Selat Melaka
Lebar kepala dari badan
Apakah ikan cubalah teka?

Mak Minah menanak minyak
Kemenyan dibakar dengan setanggi
Dua peha beranak banyak
Untuk mendaki tempat yang tinggi?

Orang bekerja diberikan upah
Hidangan disaji dalam talam
Gajah putih ditengah rumah
Layar terkembang di waktu malam?

Gigi berduri tatah bersigai
Pembelah kayu ia berguna
Jika tuan orang yang pandai
Benda apakah makannya dua cara?

Jika ke kedai pergi berbelanja
Belikan saya sudu dan senduk
Jika pandai katakan ia
Semakin berisi semakin menunduk?

Kalau tuan pakai lencana
Pakailah songkok di atas kepala
Kalau Tuan bijak laksana
Binatang apakah tiada kepala?

Pisau lipat dimainnya kera
Tangannya luka lalu terjun
Makan kuat tidak terkira
Kenyangnya tidak tahi bertimbun?

Minah ketawa terjerit-jerit
Melihat koyak pada seluar
Orang putih duduk sederet
Pagar didalam tebing diluar?

Tuan puteri belajar menari
Tari diajar oleh Pak Harun
Kalau Tuan bijak bestari
Apa yang naik tak pernah turun?

PANTUN PERPISAHAN


Pucuk pauh selara pauh
Sembilu ledung ledungkan
Adik jauh kekanda jauh
Kalau rindu sama menungkan

Pucuk pauh selara pauh
Pucuk terjuntai di atas titi
Adik jauh kekanda jauh
Menaruh rindu di dalam hati

Patah pasak dalam kemudi
Patah diruang bunga kiambang
Kalaulah tidak bertemu lagi
Bulan yang terang sama dipandang

Batang selasih permainan budak
Berdaun sehelai dimakan kuda
Bercerai kasih bertalak tidak
Seribu tahun kembali juga

Batang selasih permainan budak
Tumbuhnya jarang tepi telaga
Bercerai kasih bukan kehendak
Paksaan orang dituruti juga

Sayang Semarang Gunung Merapi
Anak gelama dituba jangan
Tidak dilarang adik berlaki
Janji yang lama dilupa jangan

Ikan sepat dimasak berlada
Kuah cencaluk jadi bumbunya
Kalau tak dapat dimasa muda
Akan kutunggu sampai menjanda

Harum sungguh bunga melati
Kembang setangkai diwaktu pagi
Hancur sungguh rasa dihati
Sedang berkasih ditinggal pergi

Jauh berdagang ditengah kota
Menjual dagangan pelbagai benda
Abang pergi mencari harta
Buat meminang akan adinda

Kalau ada sumur diladang
Boleh saya menumpang mandi
Kalau ada umur yang panjang
Boleh kita berjumpa lagi

Anak tani mengutip lokan
Lokan dikutip untuk dimakan
Sayang anak tangan-tangankan
Sayang isteri tinggal-tinggalkan

Pulau Sipadan pulau Ligitan
Tempat singgah raja Bulungan
Risau dibadan galau ingatan
Ingat pungguk rindukan bulan

Serapah disembur mengubat gatal
Tok bomoh membaca jampi
Sebelum tidur ditepuk bantal
Menyeru nama dalam mimpi

Berjalan di malam kelam
Baiklah kiranya berteman
Kenapa pungguk rindukan bulan
Bunga banyak kembang ditaman

Hilir rakit berkajang kain
Dimana teluk singgah bertimba
Niatku tidak pada yang lain
Adinda seorang tiadalah dua

Berinai orang berhitam kuku
Mandi disiram si air mawar
Tuan seorang biji mataku
Racun diminum jadi penawar

Leher merah itu helang
Terbangnya tangkas perangai garang
Jangan dinda berhati walang
Kasih kanda padamu seorang

Bunga lada tingginya sama
Ambil setangkup bunga melati
Kanda berjanji terlalu lama
Manalah sanggup dinda menanti

Ambil setangkup bunga melati
Hiasan rambut puteri jelita
Kenapa dinda tak sanggup menanti
Mana perginya janji setia

Kayu mempoyan kulitnya manis
Patah galah dalam paya
Laku perempuan mulutnya manis
Cakap sepatah jangan percaya

Kerisi, Cencaru, siikan Parang
Ikan Belut siikan gerut
Tidak sangka orangnya curang
Lain dimulut lain diperut


Kerana budi Jasad Tertawan
Kain buruk jatuh di papan
Patah terkulai dahan meranti
Biarlah buruk rupamu tuan
Asal pandai mengambil hati.

Kerana Budi Jasad Tertawan
Tengah padang pasang pelita
Anyam ketupat bulan puasa
Bukan nak pandang cantiknya rupa
Hati terpikat budi bahasa.

Kalaulah jadi pergi keladang
Kain panjang cari dahulu
Kalaulah jadi pergi berdagang
Induklah semang cari dahulu

PANTUN PERIBAHASA

Kayu keras si kayu kampas
Alas tempat orang berjudi
Ada beras kerja pun deras
Ada padi kerja pun menjadi

Tinggi sungguh Gunung Daik
Mercunya nampak terang berkelium
Kalau asal benih yang baik
Jatuh ke laut menjadi pulau

Kayu bakar dibuat arang
Arang dibakar memanaskan diri
Jangan mudah menyalahkan orang
Cermin muka lihat sendiri

Pergi ke rumah Cik Mariam
Ramai orang tengah berjaga
Carik-carik si bulu ayam
Lama-lama bercantum juga

Kalau ada duit sekupang
Boleh beli cuka mentahun
Habis padi burung terbang
Bagai ulat tak kenangkan daun

Berakit-rakit kehulu
Berenang-renang ke tepian
Bersakit-sakit dahulu
Bersenang-senang kemudian

Kehulu memotong pagar
Jangan terpotong batang durian
Cari guru tempat belajar
Jangan jadi sesal kemudian

Kerat kerat kayu diladang
Hendak dibuat hulu cangkul
Berapa berat mata memandang
Barat lagi bahu memikul

Harapkan untung menggamit
Kain dibadan didedahkan
Harapkan guruh dilangit
Air tempayan dicurahkan

Pohon pepaya didalam semak
Pohon manggis sebasar lengan
Kawan tertawa memang banyak
Kawan menangis diharap jangan

Air pasang menanam bayam
Buyung diisi di dalam loyang
Jangan diambil resmi ayam
Bertelur sebiji riuh sekampung

Anak buaya pergi bertenung
Singgah ke lubuk memakan bangkai
Hendak hati memeluk gunung
Gunung dipeluk tangan tak sampai

Anak dara mengandam dahi
Rambut ditanam di tepi telaga
Anjing biasa makan tahi
Kalau tak makan cium juga

Anak haruan mudik berenam
Lumba-lumba menyusul tebing
Sama mencecah si hati kuman
Susah senang sama membimbing