Contoh sederhana program foxpro
Berikut adalah contoh program untuk menghitung Luas Segitiga dengan Event InteractiveChange.

Komponen  Properties  Nilai
Label1-Label4  Caption  Sesuaikan dengan tampilan
Text1  Name     TINGGI
           Value     0
Text2  Name     ALAS
           Value     0
Text3  Name     LUAS
           Value     0
           Enabled  .F.
Command2  Name  BERSIH
                    Caption  \<Bersih
Command3  Name  KELUAR
                   Caption  \<Keluar

Listing Program

TINGGI - InteractiveChange
WITH THISFORM.LUAS.VALUE = 0.5 * .ALAS.VALUE * .TINGGI.VALUE
ENDWITH
ALAS- InteractiveChange
WITH THISFORM.LUAS.VALUE = 0.5 * .ALAS.VALUE * .TINGGI.VALUE
ENDWITH

BERSIH - Click
WITH THISFORM
.TINGGI.VALUE=0
.ALAS.VALUE=0
.LUAS.VALUE=0
.TINGGI.SETFOCUS
ENDWITH

KELUAR - Click
PESAN=MESSAGEBOX ("Apakah benar anda akan keluar ???",4 + 64,"Foxpro")
IF PESAN = 6
  THISFORM.RELEASE()
ENDIF

Program Sederhana dengan Vb 6.0

Contoh Program Sederhana Membuat Aplikasi Stopwatch 

komponen yang diperlukan :
1. label 3 : Menit
                Detik
                Milidetik
2. textbox 3 : xmili
                    xdetik
                    xmenit
3. Timer : pengaturan kecepatan terletak pada propertis interval

4. button 2 : cmdstart
                  cmdstop

kemudian pelajari listing codenya dibawah ini :

Private Sub CmdStart_Click()
Xmili.Caption = “00″
xdetik.Caption = “00″
xmenit.Caption = “00″
Timer1.Enabled = True
CmdStart.Enabled = False
CmdStop.Enabled = True
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
CmdStart.Enabled = True
CmdStop.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
CmdStop.Enabled = False
End Sub

Private Sub Timer1_Timer()
Xmili.Caption = Val(Xmili.Caption) + 1
If Len(Xmili.Caption) = 1 Then Xmili.Caption = “0″ & Xmili.Caption
If Xmili.Caption = “60″ Then
Xmili.Caption = “00″
xdetik.Caption = Val(xdetik.Caption) + 1
If Len(xdetik.Caption) = 1 Then xdetik.Caption = “0″ & xdetik.Caption
End If
If xdetik.Caption = “60″ Then
xdetik.Caption = “00″
xmenit.Caption = Val(xmenit.Caption) + 1
If Len(xmenit.Caption) = 1 Then xmenit.Caption = “0″ & xmenit.Caption
End If
End Sub

semoga bermanfaat.........

Jalur Pendakian Gunung Merapi via Selo

              Jalur Selo adalah jalur yang sering dipakai pendaki untuk mendaki di gunung merapi. Karena jalur ini pendek dan lebih aman. Untuk mencapai desa selo dari Semarang naik bus jurusan salatiga ( Rp. 10.000), turun diterminal salatiga, naik bus lagi jurusan pasar cepogo ( Rp. 7000), pasar cepogo - selo (Rp. 4000 ). selanjutnya dari selo menuju basecamp dapat di tempuh dengan waktu 30 menit. basecamp berada di desa plalangan, desa lencoh, kecamatan selo, kabupaten boyolali. perjalanan dari plalangan menuju pondok pendaki ditempuh selama 15 menit, melalui jalan aspal.

Pondok Pendaki - Pos 1

dapat ditempuh dengan waktu 35 menit, melalui perkebunan tembakau dan kol untuk kemudian memasuki hutan pinus.Mendekati Pos 1 kita akan melewati batu - batu besar.

Pos 1 - Pos 2

Dengan waktu tempuh 1 jam, dengan medan bebatuan yang terjal, dengan angin yang kencang. Dari pos 2 kita dapat menikmati pemandangan kota boyolali.

Pos 2 - Watu Gajah

dengan waktu tempuh 15 menit, dengan medan bebatuan. Disebut dengan watu gajah karena, batu besar menyerupai bentuk gajah.

Watu Gajah - Pasar Bubrah

dari watu gajah kepasar bubrah waktu tempuh 15 menit, dengan jalur yang datar dan berbatu. Dipasar bubrah biasanya dibuat tempat camp para pendaki sebelum mencapai puncak. biasanya para pendaki naek ke puncak pada waktu dini akhir, untuk dapat melihat matahari terbit dari puncak merapi.

Pasar Bubrah - Puncak

dapat ditempuh dengan waktu 1 jam, dengan medan yang menanjak dan berbatu. Di jalur ini diharuskan pendaki pintar memilih batu yang digunakan pijakan, karena kalau salah pijakan, batu tersebut bisa longsor.

 

 

Contoh Aplikasi Sederhana Mencari Zodiak dengan VB 6.0

Untuk pencarian zodiak biasanya dapat kita lihat di majalah dan surat kabar lainya, dalam hal ini kita dapat membuatnya dengan menggunakan Aplikasi  VB, berikut saya akan memberikan langkah-langkah dan besertakan scriptnya untuk membuat aplikasi sederhana mencari zodiak yang mungkin anda dapat kembangkan lagi logikanya dan dapat menjadi referensi dalam pembuatan aplikasi / program yang anda buat.

Pertama anda letakan 3 komponen textbox dan 1 commandbutton pada form anda, setelah itu masukan script yang ada di bawah ini.

Private Sub Form_Load()
Command1.Enabled = False
End Sub


Private Sub Text1_Change()
If IsDate(Text1) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub


Private Sub Command1_Click()
'MENCARI HARI LAHIR
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(Text1)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
Text2 = Hari


'MENCARI BINTANG
Dim Tg, Bl As Byte
Dim Btg As String
Tg = Day(Text1): Bl = Month(Text1)
If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES" If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS" If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI" If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER" If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO" If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO" If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA" If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO" If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS" If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN" If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS" If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"
Text3 = Btg
End Sub

Membuat Tanggal Dengan Delphi

Membuat tanggal dengan fungsi di delphi

Tutorial berikut ini akan menjelaskan bagaimana membuat Format Tanggal dengan delphi mengunakan sebuah fungsi, fungsi wajib diketahui oleh seorang perogrammer baik itu programmer Delphi, Visual Basic, WEB dengan PHP, Develover 2000 (Oracle) dan lain-lain. Atas dasar pemikiran diatas saya mencoba membuat fungsi untuk mengnampilkan tanggal yang hasil akhirnya adalah (Hari, Tanggal Bulan Tahun [ Rabu, 27 Agustus 1986]), tapi tanggal yang akan ditampilkan adalah tanggal pada hari yang aktif.

Sediakan sebuah aplikasi baru di delphi lalu simpan dech aplikasi-nya ya. Setelah aplikasi anda buat jangan lupa implementasikan dibagian Public declarations fungsi dibawah ini :

function genTanggal(vDate: TDateTime): String;

Lalu dibagian implementation ketikan listing berikut (untuk deklarasi sebuah fungsi tadi)

function TForm1.genTanggal(vDate: TDateTime): String;

var Counter: byte;

const

NamaHari : Array[1..7] of string = (‘Minggu’, ‘Senin’, ‘Selasa’,‘Rabu’, ‘Kamin’, ‘Jum”at’, ‘Sabtu’);

NamaBulan: Array[1..12] of String = (‘Januari’, ‘Februari’, ‘Maret’,‘April’, ‘Mei’, ‘Juni’, ‘Juli’, ‘Agustus’,‘September’, ‘Oktober’, ‘November’, ‘Desember’);

begin

For Counter := 1 to 7 do

LongDayNames[Counter]:=NamaHari[Counter];

For Counter := 1 to 12 do

LongMonthNames[Counter]:=NamaBulan[Counter];

Result := FormatdateTime(‘dddd, d mmmm yyyy’, vDate);

end;

Setelah fungsi anda buat tambahkan komponent DateTimePicker1 dan Edit1.Text, lalu dibagian FormCreate (klik 2x dulu form-NYA ya) ketikan listing dibawah ini :

Edit1.Text:=genTanggal(DateTimePicker1.Date);

Jalankan aplikasi-NYA, anda dapat melihat hasil-NYA.

Isi Tri Dharma Perguruan Tinggi

Tri dharma perguruan tinggi adalah salah satu dasar tanggung jawab mahasiswa yang harus dikembangkan secara simultan dan bersama-sama, serta harus disadari betul oleh semua mahasiswa agar dapat tercipta mahasiswa yang sadar akan Tri Dharma Perguruan Tinggi.

Adapun isi dari Tri Dharma Perguruan Tinggi adalah:

1. PENDIDIKAN DAN PENGAJARAN

Pengertian pendidikan dan pengajaran disini adalah dalam rangka menerusakan pengetahuan atau dengan kata lain dalam rangka transfer of knowledge ilmu pengetahuan yang telah dikembangkan melaui penelitian oleh mahasiswa di perguruan tinggi. Dalam pendidikan tinggi dinegara kita dikenal dengan istialh strata, mulai dari strata satu(S-1) yaitu merupakan pendidikan program sarjana, strata dua(S-2) merupakan program magister dan strata tiga (S-3) yaitu pendidikan doktor dalam sutau disiplin ilmu,serta pendidikan jalur vokasional/non gelar(diploma).

2. PENELITIAN DAN PENGEMBANGAN

Kegiatan penelitain dan pengembangan mempunyai peranan yang sangat penting dalam rangka kemajuan ilmu pengetahuan dan teknologi. Tanpa penelitain,m aka pengembangan ilmu pengetahuan dan teknologi akan menjadi terhambat. Penelitian ini tidaklah berdiri sendiri, akan tetapi harus dilihat keterkaitannya dalam pembangunan dalam arti luas. artinya penelitain tidak semata-mata hanya untuk hal yang diperlukan atau langsung dapat digunakan oleh masyarakat pada saat itu saja,akan tetapi harus dilihat dengan proyeksi kemasa depan. Dengan kata lain penelitian dipergurun tinggi tidak hanya diarahkan untuk penelitian terapan saja,tetapi juga sekaligus melaksanakn penelitian ilmu-ilmu dasar yang manfaatnya baru terasa penting artinya jauh dimasa yang akan datang.

3. PENGABDIAN PADA MASYARAKAT

Dharma pengabdian pada masyarakat harus diartiakan dalam rangka penerapan ilmu pengetahuan dan teknologi yang telah dikembangkan di perguruan tinggi, khususnya sebagi hasil dari berbagai penelitian.Pengabdian pada masyarakat merupakan serangkaian aktivitas dalam rangka kontribusi perguruan tinggi terhadap masyarakat yang bersiafat konkrit dan langsung dirasakan manfaatnya dalam waktu yang relatif pendek. Aktivitas ini dapat dilakukan atas inisiatif individu atau kelompok anggota civitas akademika perguruan tinggi terhadap masyarakat maupun terhadap inisiatif perguruan tinggi yang bersangkutan yang bersifat nonprofit(Tidak mencari keuntungan). Dengan aktivitas ini diharapkan adanya umpan balik dari masyarakat ke perguruan tinggi, yang selanjutnya dapat digunakan sebagai bahan pengembangan ilmu pengetahuan dan teknologi lebih lanjut.

Ketiga faktor ini erat hubungannya, sebab penelitian harus menjunjung tinggi kedua dharma yang lain. Penelitian diperlukan untuk mengembangkan ilmu pengetahuan dan penerapan teknologi. Untuk dapat melakukan penelitian diperlukan adanya tenaga-tenaga ahli yang dihasilkan melalui proses pendidikan. Ilmu pengetahuan yang dikembangkan sebagi hasil pendidikan dan penelitian itu hendaknya diterapkan melalui Pengabdian pada masyarakat sehingga masyarakat dapat memanfaatkan dan menikmati kemajuan-kemajuan ilmu pengetahuan dan teknologi tersebut.

Cara Mudah Membuat Blog Gratis Paling Baru 2012

Tahun 2012 ini memang ada beberapa perubahan baik fitur maupun tampilan yang dimiliki oleh Produk Google, seperti halnya Gmail, Jejaring Sosial Google+, termasuk juga perubahan tampilan bloggernya. Untuk itu agar pembaca mudah memahami tutorial ini bisa lebih bersahabat saya akan menjelaskan cara membuat blog terbaru dengan sangat mudah. 

Menjadi Blogger Pemula seperti saya memang awalnya terasa sangat sulit untuk membuat blog, namun ternyata rasa ingin tau yang besar akan membantu memudahkan calon blogger untuk membuat blog.

Membuat Blog di Blogspot Gratis

Benar sekali untuk membuat blog di blogspot, kita tidak dikenakan biaya apapun, selain itu fitur di yang dimiliki blogger sangat mudah untuk dipahami, untuk seorang pemula yang ingin bikin blog tidak akan mengalami kesulitan yang berarti, tentu saja situs kita akan memiliki format domain seperti 

Langkah Membuat Blog Gratis di Blogspot

1. Buat Email di Gmail

Gmail.com adalah produk Google , untuk membuat blog dari blogger sudah barang tentu Wajib memiliki akun Gmail, selain itu Google juga memberikan kemudahan-kemudahan bagi pemilik akun blogger dan Google+ untuk langsung Login dari Gmail.com ini. Jika belum memiliki akun Gmail silahkan daftarkan di www.gmail.com dan klik Create New Akun  pada bagian sudut kanan atas dan kemudian isikan semua data yang diperlukan termasuk juga Pasword anda.

2. Mendaftar di Blogger.com
Ini adalah langkah inti membuat blog gratis di blogspot, Masuk kewww.blogger.com dan Klik Sign Up atau Daftar dan isikan data yang dibutuhkan di Formulir Blogger.


Keterangan :

• Email : isikan dengan alamat email Gmail yang baru anda daftarkan
• Pasword : Masukkan Pasword anda minimal 8 karakter
• Retype Pasword : Masukkan pasword yang sama sekali lagi, untuk memastikan anda mengingat dengan baik pasword tersebut.
• Display Name : Masukkan nama yang ingin anda tampilkan sebagai penulis di blog, misalkan anda menggunakan nama "Toha Arapatigenah" maka di artikel yang anda posting nanti akan muncul posted by  Toha Arapatigenah
• Gender : Masukkan jenis kelamin anda, pilih Male = Jika Laki - laki, Female = Jika Perempuan, atau bisa pula memilih Other atau lainya
• Birthday : Masukkan tanggal lahir anda sesuai dengan format yang diminta misalkan 07 desember 1991 maka dibuat 07/12/1991, jika di dalam Inggris strukturnya adalah Month/Day/Year (Bulan/Tanggal/Tahun) maka anda buat 12/02/1991
• Word Verifications : Isikan dengan kode yang terdiri dari angka maupun huruf yang muncul di kotak dialog Gmail
• Centang Accept the term of service, Saran saya baca dahulu persyaratan pendaftaran dengan baik
• Klik Continue jika anda memutuskan untuk membuat blog

3. Membuat Blog

Nah, Akun blogger sobat sudah jadi, sekarang saat nya membuat blog. Klik "Blog Baru" pada bagian Kiri atas. dan akan muncul tampilan seperti di bawah ini.

Keterangan :

• Pada Kolom "Title" Isikan Judul Blog yang sobat ingin buat, misalkan My Personal Blog, My Story atau apalah yang sobat inginkan
• Pada kolom alamat isikan nama situs sobat, misalkan Arapatigenah08.blogspot.com,  pilihlah alamat yang sesuai dengan nama dan tema blog dan cari yang simple saja agar mudah diingat 
• Pilih Template yang sederhana saja, saya rekomendasikan pilih Awesome, karena lebih sederhana.
• Blog Sobat sudah jadi, untuk mengecek coba ketikan alamat yang anda daftarkan tadi di url browser anda misalkan hadhara.blogspot.com (kalau tidak di cek juga tak masalah)

Selamat sekarang sobat sudah memiliki blog, dan sudah mulai bisa menulis apa yang ingin sahabat tulis dengan mengklik new post di halaman depan (dasbor) blog sobat.

Motivasi :
Jangan lelah untuk mencoba, karena setiap manusia telah diberikan jatah kegagalan. Tugas kita adalah secepat mungkin menghabiskan jatah gagal tersebut hingga keberhasilan akan diraih.