TRIK DAN TIPS INTERNET

Kali ini saya akan coba memberikan beberapa tips dan terik internet, jadi jika teman teman pengunjung ada yang merasa trik-trik dibawah ini sudah jadul dan basi mohon maaf, dan silahkan kalian tinggalkan aja halaman ini, tapi bagi teman-teman yang masih belum mengerti dan ingin belajar silahkan di baca, pelajari dan peraktikkan, oya trik-trik berikut ini bukan tulisan saya sendiri jadi saya tidak akan memposting di halan ini namun saya akan alihkan kalian ke blog aslinya di Sini

mungkin cuma ini saja informasi pada postingan kali ini semoga bisa membantu kawan-kawan dan pergunakan sebagaimana mestinya,,,,

Read More

Mecari selisih antara tanggal sekarang dan seblumnya menggunakan delphi

untuk mengetahui selisih hari sebelumnya dengan sekarang dalam borland delphi sangat mudah kita lakuakan, sorce kode yang kita gunakan tidak terlalu banyak serta cuma membutuhkan beberapa komponenen. (maaf ini saya posting untuk pemula saja, jika ada diantara teman-teman yang sudah mahir dan menganggap ini jadul silahkan ditinggalkan saja, tapi kalau ingin membaca juga gak apa-apa.) oke kita langsung saja.  
1. buka borland delphi teman-teman melalui start=> programf files=>borland delphi 
2. buat form baru 
3. masukkan beberapa komponen seperti: 
     a. 3 edit box (propertiesnya biarkan saja setandar) 
     b. 3 label (ganti bagian propertiesnya pada bagian caption seperti gambar)
     c. 2 button (ganti bagian propertiesnya pada bagian caption seperti gambar) 
     d. 2 datetimepicker (propertiesnya biarkan saja setandar) 

screenshoot program 

untuk sorce codenya:

 - pada datetimepicker1 double klick onchange pada tab even di properties dan masukkan kode dibawah

 procedure TForm1.DateTimePicker1Change(Sender: TObject); begin edit1.Text:=datetostr(datetimepicker1.Date); 
 end; 

 - pada datetimepicker1 double klick onchange pada tab even di properties pada datetimepicker2 double klick dan masukkan kode dibawah 

procedure TForm1.DateTimePicker2Change(Sender: TObject); begin edit2.Text:=datetostr(datetimepicker2.Date); 
end;

 - pada button lihat selisih tambahkan code dibawah  

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
if (edit1.Text = '') or (edit2.Text = '') then 
begin 
showmessage('Jangan Ada Kekosongan di antara kita'); 
edit1.Clear; 
edit2.Clear; 
end 
else 
begin 
try 
edit3.Text:= 'Selisih Hari Kedua Tanggal tsb adalah '+ floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' Hari';  
except 
exit; 
end; 
end; 
end; 
- pada button keluar masukkan source kode dibawah procedure 
TForm1.Button1Click(Sender: TObject); 
begin 
close; 
end; 


SELAMAT MENCOBA...

Read More

Menginstal sistem operasi dalam sistem operasi

Hmmm..... setelah cukup lama sibuk ngerjain tugas2 kul akhirnya sekarang saya punya sedikit waktu untuk memposting artikel di blog ini,,, Alhamdulillah... oke,,, kita langsung aja ya mengingat akhir-akhir ini laptop-laptop keluaran terbaru biasa disuport dengan sistem operasi terbaru yang di keluarkan oleh perusahan raksasa microsoft yaitu

yaituwindows yang memiliki banyak fitur tambahan dari versi sebelumnya sehingga membuat tampilannya menarik dan di sukai oleh banyak orang, cara pemakaiannya gampang dan memiliki tingkat keamanan yang tinggi,tapi sayang.... sekalipun os tersebut memiliki kelebihan yang demikian dia juga memiliki banyak kekurangan khususnya bagi pelajar/mahasiswa yang mengambil jurusan pemrograman. mereka mengeluh karena aplikasi-aplikasi yang berkaitan dan sangat dibutuhkan dalam pembuatan program itu jarang ada yang suport dan tidak bisa di instal pada os tersebut.akhirnya mau tidak mau mereka harus kembali dan mungkin harus setia pada versai windows sebelumnya yang kalau boleh kita katakan windows yang yang jadul yaitu windows xp... tapi bagaimana jika anda yang tidak ingin dikatakan ketinggalan jaman oleh teman-teman anda sehingga anda tetap ingin menggunakan windows 7???. tenang aja, anda gak usah panik, anda tidak usah bingung, karena kali ini kita akan membahas tentang bagaiman cara kita menginstal windows xp pada windows 7. aduuuh kok jadi ceramah gitu,,, sory, sory, sory,,, sekarang kita lang aja kecaranya : 1. siapkan pc/laptop atau sejenisnya. 2. siapkan chargher biar laptop anda gak kehabisan batre. 3. siapkan kopi, teh atau tergantung hobi anda. 4. rokok biar lebih nyante dikit bagi para perokok aktive yang bukan perokok gak apalah kalau gak nyiapin yang satu ini. 5. apa-apa sudah yang penting bikin anda sesantai mungkin kok gitu? emang harus ya? hahahaaaa...... Nah kalu sudah nyiapin 5 point yang di atas sekarang anda siapin: 1) CD Driver/File iso windows 7 dan windows xp. 2) anda siapin Apliksi VMWare (sebagai mesin virtual untuk tempat menginstal windows xp anda) jika anda belum punya anda bisa download di link yang sudah saya siapkan dibawah. 3) anda instal windows 7 pada pc/laptop anda(jika sudah terinstal anda tidak perlu menginstalnya kembali karena anda tinggal menginstal VMWare itu saja) 4) kalau windows 7 nya sudah terinstal sekarang anda instal VMWare tsb(ikuti langkah penginstalannya sampai selesai/sampai finish). restart pc/laptop anda.. Oke jika yang diatas sudah selesai semuanya sekarang anda tinggal menginstal windows xp pada vc anda caranya: 1. buka VMWare yang sudah anda instal tadi dengan double klick pada icon di dekstop atau di all program di start menu laptop anda. 2. setalah kebuka disana ada tiga pilihan dan anda saja pilih saja yang paling atas yaitu "create new virtual machine" 3. stelah kebuka windows baru anda centang "typical" kemudian next. 4. muncul windows baru lagi disini anda akan memilih berapa giga hardisk yang anda gunakan untuk windows xp anda ( yang diambil adalah partisi C sisa tempat penginstalan windows 7 itu), kalau sudah anda centang pilihan penginstalan menggunakan CD_ROOM atau Fle ISO windows xp yang suadah anda simpan di hardisk anda, *catatan: jika anda melakukan penginstalan menggunakan CD_ROOM/DVD_ROOM anda tinggal memasukan cd/dvd driver windows anda, tapi jika anda ingin menggukan file iso windows xp yang ada di komputer anda anda centang yang di bawahnya kemudian klik browse dan cari tempat penympanan file iso tsb. kalau sudah anda tinggal klick next setelah muncul windows baru anda isi nomor seri windows anda kemudian klick finish. 5. untuk selanjutnya anda tinggal mengikuti cara penginstalan windows xp seperti biasanya. sampai muncul tampilan desktop pertama windows setelah di instal/ sampai finish. Nah, sekarang anda sudah memiliki dua windows yang bisa dibuka secara bersamaan, dan silahkan anda instal aplikasi yang anda butuhkan pada windows xp yang tidak bisa di instal pada windows 7 tsb. selesai sampai disini, semoga bermamfaat. LINK DOWNLOAD VMWARE Link download part 1 Link download part 2 Link download part 3

Read More

Menyimpan kedalam format PDF pada office 2007

Menyimpan dokumen MS Word dan Excel 2007 ke dalam format PDF (Portable Document Format) dapat dilakukan dengan mudah seperti menyimpan dokumen lainnya. Fitur ini sudah lama disediakan oleh pihak Microsoft untuk mempermudah pengguna Microsoft Office 2007 dalam men-convert atau mengubah format Microsoft Office (Word, Excel, Access, Power Point, dll) ke dalam format PDF. Yaitu dengan menyediakan plugin atau Add-in yang akan diintegrasi dengan MS Office 2007. Dengan adanya fitur ini, diharapkan kita tidak perlu berbagai aplikasi PDF Converter seperti Word to PDF, Excel to PDF. Tapi, dapat dilakukan dengan mudah melalui aplikasi Office yang digunakan, yaitu dengan hanya Save As (menyimpan) dokumen tersebut ke Format PDF yang kita inginkan dari menu Save As tadi. Sedangkan file asli dokumen tadi akan tetap ada sesuai dengan format aslinya. Untuk dapat menggunakan Add-in Microsoft Save as PDF ini, silakan download terlebih dahulu pluginnya Office tersebut dari sini. Kemudian lakukan instalasi, selanjutnya kita dapat menyimpan dokumen Microsoft Office ke format PDF dengan mudah. Semoga bermanfaat.

Sumber: www.heryantony.com

Read More

Membuat Form Login Pada Visual Basic

Setelah Bosan dengan Disegn - disegn pada VB, pasti kita ingin membuat form untuk login atau masuk ke form yang sudah kita buat tersebut, (maaf sebelumnya ya, karena ini husus saya posting untuk para programmer pemula pada vb, dan untuk anda yang merasa post ini udah jadul silahkan di close kemudian tinggalkan, karena saya yakin ini sangat tidak bermamfaat bagi anda.)
oke sekarang kita langsung aja pada pokok pembicaraan kita ya.
untuk membuat form login kita harus membuat,
pertama, database dari form tsb (pada kali ini kita menggunakan database Ms.accsess)
kedua, design formnya (tergantung kekereatifan kita)
ketiga, masukkan kodenya,
ke empat, selesai
jika ada diantara anda yang ingin mencoba membuat form login di bawah saya sudah menyiapkan kodenya jika anda malas ngetik silahkan di copy paste
kita mulai ya.
1. buka ms.accsess nya
2. buat database dengan nama terserah anda( dalam kode di bawah ini saya menggunakan nama "db", tapi jika anda ingin menggantinya silahkan di edit pada codenya nanti sesuai dengan nama data base yang anda buat
3. buat tabel untuk penyimpanan username dan password

   

4.masukan username dan password yang anda inginkan pada tabel tersebut
5.save database yang anda buat tsb
6.buka program vb anda
7.design formnya dengan 2 buah label, 2 text, dan 2 command button seperti gammbar di bawah ini










8. kalau udah jadi formnya silahkan copy paste code di bawah ini

'***********************************************************
'untuk contoh, pada database sudah saya isi dengan data sbb:
'Username :adam
'password :chand
'********************potong disini*****************************

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"

If con.State = adStateOpen Then
  con.Close
  Set con = New ADODB.Connection
  con.Open strconn
Else
  con.Open strconn
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
  GoSub noacc
  MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
  txtUser.SetFocus
ElseIf txtPass.Text = "" Then
  GoSub noacc
  MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
  txtPass.SetFocus
Else
  sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
  Set rst = con.Execute(sql)
  If rst.EOF Then
    GoSub noacc
    MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
    txtUser.SetFocus
 
  ElseIf txtPass.Text <> rst("pass") Then
    GoSub noacc
    MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
    txtUser.SetFocus
 
  Else
    MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
    Unload Me
  End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
  MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
  End
Else
  Return
End If

End Sub

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub
***************************potong disini****************************
silahkan di coba, selamat berkreasi,semoga bermamfaat.

Read More