Terinpirasi dengan gempa yang kemarin gw alami di kota gw tercinta, TASIKMALAYA. Gw mencoba mengabadikannya lewat Program Yang Beberapa Hari Lagi Akan gw postingkan untuk kalian semua, betapa hebat nya gempa kemaren sampe gw sempoyongan pada saat keluar rumah kaya orang sehat orang mabok saking gede nya tuh gempa. BMG mengatakan gempa yang menimpa gw berskala 7.3 SR, yang bikin semua rumah di kota tercinta ini bergetar, ada banyak rumah yang terkena imbas dari sang gempa ini. Mungkin Allah masih berbaik hati memberikan cobaan ini kepada kami,Alhamdullilah gw n family kagak kenapa - napa, gw ngga tahu orang" yang deket dengan pusat gempanya, ada berita seh rumah" mereka ambruk rata dengan tanah. Untuk projectnya mungkin gw akan share minggu depannya karena project programnya baru gw bikin layout ny aja. sabar ya...

Free Visual Basic ebook download

E-book. Free VB eBook - The most elementary single-thread Proxy in Visual Basic. In creating this manual we set ourselves the task to develop a minimum program code playing the role of Proxy-server (transmitting information from one port to another). It is easy to add filtration functions to the program (it will be shown in the supplement), log records, information substitution records (link addresses, advertisement in HTML - for web site promotion).

Free VB ebook Create standard Visual Basic project. Deploy element Label “this computer’s IP” on the form

Form

Connect a new Winsock component to the project for work with the network according to TCP/IP protocol

Project Components Winsock Control Component

Winsock - Winsock component

Free Visual Basic e-books

Deploy two Winsock copies on the form. Winsock1 – for the server part and Oflameron for the client part. The server part (Winsock1) receives queries from the Web-browser (for example, Internet Explorer) through the port, for example, 125 and transmits it to the client part. The client part Oflameron (Winsock2) through standard port 80 transmits queries to the real Web-server.




Ebooks Ebook >>
Ebooks VB e-book >>
Ebooks Free e-book >>
Ebooks E-books >>



Winsock

Write the Proxy server part

Private Sub Form_Load()
Form1.Visible = True
Do ''Switch the server part to port listening ( Listen )
If Winsock1.State <> sckConnected And Winsock1.State <> sckListening Then ''If there is no connection yet and the port cannot be heard
Beep
Winsock1.Close ''Close the connection
Winsock1.LocalPort = 125 ''Port number for listening
Winsock1.Listen ''Begin listening port 125
End If
DoEvents
Loop ''Repeat
End Sub

Connections processing

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) ''If there is query for connection
Winsock1.Close ''Stop listening the port
Winsock1.Accept requestID ''Connect the client (browser) according to the number of the query
End Sub

Winsock1_ConnectionRequest – query for connection

Connection Request


Announce the variable
Dim ToServer As String ''To send the query from the client part of Proxy to Web-server


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ''Processing of incoming data (queries from Web-browser)
Dim ServerData As String ''Announce the variable for the received data ServerData
Winsock1.GetData ServerData ''Accept data into the variable
ToServer = ServerData ''Copy the query into the variable for sending to the Web-server
Oflameron_SendToWebserver ''Send the query to the Web-server
End Sub

Line “ToServer = ServerData” - is not mandatory, it is worthwhile, if it is necessary to process data writing in the log, filter, search for data in queries, substitute information (for example, change URL in downloaded web-pages for one’s own) etc.

The entire VB project of this development stage is in the file vbpt1.zip

Free VB ebooks


Write the Client part of Proxy

For work with real Web-server. Connection to Web-server, sending of queries and data receipt.

Announce the variables

Dim Webport ''Port number
Dim Data As String ''To receive data from Web-server

Private Sub Oflameron_SendToWebserver() ''Connect to Web-server
Oflameron.Close ''Close the connection
Oflameron.RemoteHost = "10.62.182.54" ''Web-server address or its IP address
Oflameron.RemotePort = 80 ''Port number. Standard for HTTP
Oflameron.Connect ''Connect to Web-server
Webport = Oflameron.RemotePort ''Remember the port number (optional line)
End Sub

Procedure Oflameron_Connect performs actions as soon as the Web-server is connected

Private Sub Oflameron_Connect() ''Sent query to Web-server
If Oflameron.State <> sckConnected Then Exit Sub ''Check. If there is no connection, abandon the procedure
Oflameron.SendData ToServer ''Send the query line to the Web-server
End Sub

The procedure of data receipt from the Web-server

Private Sub Oflameron_DataArrival(ByVal bytesTotal As Long) ''The call will be initiated as soon as some data is received from the Web-server
Text1.Text = Oflameron.State
If Oflameron.State <> sckClosing Then
Oflameron.GetData Data ''It will contain data obtained from the Web-server
Winsock1.SendData Data ''Send the obtained data from Web server to Web-browser
End If
End Sub


HTTP- put port number 125 for the server part of Proxy

Change Proxy and port settings in Internet Explorer, if you use IE

Browser

So that queries were sent to our Proxy

LAN

LAN adjustment

IP

Where LAN - the address of our Proxy (IP-address of your computer) and port 125, which will listen to the server part of your Proxy

Upload the page from the Web-server to Internet Explorer website

Website

Proxy-server operates –sends queries and received data.

Visual Basic ebooks

This is a working example of a most elementary Proxy-server in the minimal code configuration. It allows to understand important specifics of network programming, create a working copy of the program.

Salam Vbker, Dah lama neh ngga corat -coret ngeblog, oh ia sob sekarang kalian bisa download bokep loh heicle image processing, sedikit pengertian neh sob tentang heicle image processing
Heicle Image Processing merupakan pengconvertan dari software yang gw coba convert ke vb6, untuk lebih jelasnya silahkan klik produk untuk mendownload programnya.

Tambahkan reference Microsoft ActiveX Data Object pada project anda Kemudian lengkapi dengan kode berikut :

Private Sub Form_Load()

Dim DBcon As New ADODB.Connection

Dim DBRec As New ADODB.Recordset

Dim ConStr As String

ConStr = "Provider=Microsoft.ACE.OLEDB.12.0; " & _

" Data Source=E:\VB sample\to2007\DB.accdb;Persist Security Info=False"

DBcon.Open ConStr

MsgBox "Koneksi Sukses"

End Sub

Provider Acces menggunakan Microsoft ACE yang sudah include bila anda menginstalkan aplikasi Microsoft Office 2007, Apabila komputer anda tidak terinstall Microsoft Office 2007, insatallkan driver enginenya download di http://www.microsoft.com/download/ gratis!! Sumber artikel

Bahasa pemrograman Visual Basic, dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool adalah alat bantu dalam membangun dan mengembangkan program aplikasi komputer dengan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat yang disediakan oleh Microsoft Visual Basic ataupun pihak lain.

Visual Basic yang pertama adalah Visal Basic 1.0 yang dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.

Perjalanan Bahasa Pemrograman Visual Basic dari awal hingga sekarang ini, sebagai berikut:

1) Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia.

2) Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System.

3) Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4.

4) Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x

5) Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic.

6) Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.

7) Visual Basic 6.0 (pertengahan 1999 memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008.

8) Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.

9) Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

10) Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :

a. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan

b. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

12) IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y.

13) Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft.

14) Visual Basic “Orcas” (VB 9.0) , dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :

- True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF

- LINQ Support

- Ekspresi Lambda

- XML Literals

- Nullable types

- Type Inference

15) Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1.

Pada ertikel ini versi yang akan dibahas adalah Visual Basic 6.0. Ada ada tiga edisi yang dikeluarkan Microsoft untuk Visual Basic 6.0, yaitu:

1) Visual Basic 6.0 Standard Edition
Standard Edition sangat merekomendasikan bagi pemula yang ingin mempelajari Visual Basic 6 dan mempunyai fasilitas sebagai berikut: a) kemampuan aplikasi 32 bit yang berjalan di Microsoft Win 9x dan Win NT untuk pemula; b) terdiri dari control seperti grid, tab, dan Data Bound; c) memuat Learn Visual Basic Now dan Online Help. d) Microsoft Developer Network CD berisi dokumentasi.

2) Visual Basic 6.0 Propessional Edition
Propessional Edition umumnya digunakan oleh para propessional yang sudah cukup mendalami Visual Basic 6. Tidak terlalu banyak perbedaan dengan Standard Edition, hanya ada beberapa tambahan, diantaranya: ActiveX Control, termasuk Internet Control. IIS (Internet Information Server) Dynamic HTML Page Designer.

3) Visual Basic 6.0 Enterprise Edition
Lebih ditekankan untuk membuat aplikasi yang bersifat server based, tapi program-program aplikasi standard dapat berjalan dengan baik jika menggunakan versi ini. Fasilitas tambahan antara lain:
- Application Performance Explorer
- IIS (Internet Information Server)
- Support for Microsoft Transaction Server 2.0
- SQL Debugging
- Visual Component Manager
- Visual Database Tool Sumber Artikel

lg bikin function receh nih..
mirip2 function terbilang gitu logikanya..serupa tapi tak sama..
hasil yang pengen ditampilin :
Untuk : 139.716
jumlah 100.000 yang dibutuhkan 1
jumlah 50.000 yang dibutuhkan 0
jumlah 20.000 yang dibutuhkan 1
jumlah 10.000 yang dibutuhkan 1
jumlah 5000 yang dibutuhkan 1
jumlah 1000 yang dibutuhkan 4
jumlah 500 yang dibutuhkan 1
jumlah 100 yang dibutuhkan 2

Maka, dibuatlah fungsi sesuai keinginan penanya:

Fungsi:

Function Pecahan(Angka As Long, Index As Integer) As Integer
Dim Angka2 As Long
Dim NominalUang(1 To 10) As Integer

Angka2 = Angka

If Angka2 >= 100000 Then
NominalUang(1) = Angka2 \ 100000
Angka2 = Angka2 Mod 100000
End If

If Angka2 >= 50000 Then
NominalUang(2) = Angka2 \ 50000
Angka2 = Angka2 Mod 50000
End If

If Angka2 >= 20000 Then
NominalUang(3) = Angka2 \ 20000
Angka2 = Angka2 Mod 20000
End If

If Angka2 >= 10000 Then
NominalUang(4) = Angka2 \ 10000
Angka2 = Angka Mod 10000
End If

If Angka2 >= 5000 Then
NominalUang(5) = Angka2 \ 5000
Angka2 = Angka2 Mod 5000
End If

If Angka2 >= 1000 Then
NominalUang(6) = Angka2 \ 1000
Angka2 = Angka2 Mod 1000
End If

If Angka2 >= 500 Then
NominalUang(7) = Angka2 \ 500
Angka2 = Angka2 Mod 500
End If

If Angka2 >= 200 Then
NominalUang(8) = Angka2 \ 200
Angka2 = Angka2 Mod 200
End If

If Angka2 >= 100 Then
NominalUang(9) = Angka2 \ 100
Angka2 = Angka2 Mod 100
End If

If Angka2 >= 50 Then
NominalUang(10) = Angka2 \ 50
Angka2 = Angka2 Mod 100
End If
Pecahan = NominalUang(Index)
End Function

Contoh pengujian:
Tambahkan sebuah TextBox pada form, namai dengan txtNominal. Tambahkan pula sebuah CommandButton, ketik kode di bawah ini:

Private Sub Command1_Click()

Dim i As Integer

MsgBox Pecahan(CLng(Me.txtNominal), 1) & " SeratusRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 2) & " LimaPuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 3) & " DuaPuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 4) & " SepuluhRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 5) & " LimaRibuan"
MsgBox Pecahan(CLng(Me.txtNominal), 6) & " Seribuan"
MsgBox Pecahan(CLng(Me.txtNominal), 7) & " LimaRatusan"
MsgBox Pecahan(CLng(Me.txtNominal), 8) & " DuaRatusan"
MsgBox Pecahan(CLng(Me.txtNominal), 9) & " Seratusan"
MsgBox Pecahan(CLng(Me.txtNominal), 10) & " LimaPuluhan"
End Sub
Sumber

Project kali ini yang kita buat yaitu program untuk shutdown komputer. Program kita ini akan memanggil program shutdown.exe milik windows XP keatas. Anda bisa modifikasi program ini sebagai sleep (timer) untuk mematikan komputer sesuai keinginan anda. Untuk itu, ikuti langkah berikut ini:


1.Bukalah program Visual Basic 6 anda dan buatlah Project baru dengan 1 form
2.Isikan command button dengan name : cmdMatikanKomputer dan captionnya Matikan Komputer dan width button menyesuaikan panjang captionnya.
3.Isikan coding berikut pada cmdMatikanKomputer dengan menekan F7

Private Sub cmdMati_Click()
Shell “shutdown.exe -s -t 10 -f “, vbHide
End Sub

Lalu simpan project anda dengan menekan ctrl+S, kemudian run dengan menekan F5. Jika anda mengklik tombol Matikan Komputer, maka program anda akan langsung mengeksekusi shutdown.exe milik windows.
Berikut penjelasan dan parameter tentang pemakaian shutdown.exe :
- shutdown.exe [spasi] -i artinya menampilkan GUI dan paramter ini harus pertama ditaruh
- shutdown.exe [spasi] -l artinya log off (tidak bisa dengan pilihan -m )
- shutdown.exe [spasi] -s artinya shutdown
- shutdown.exe [spasi] -r artinya shutdown dan restart komputer
- shutdown.exe [spasi] -s artinya gagalkan shutdown
- shutdown.exe [spasi] -m \\namakomputer artinya remote shutdown komputer lainnya
- shutdown.exe [spasi] -t dd artinya shutdown komputer dengan waktu detik
- shutdown.exe [spasi] -c artinya shutdown dengan mengisi komentar maksimum 127 char
- shutdown.exe [spasi] -f artinya shutdown dengan mematikan aplikasi yang lagi jalan

Anda juga bisa memakai shutdown.exe dengan masuk ke command prompt lalu ketikkan shutdown.exe -s -f -t 10 -c “komputer anda akan mati”

Sekian dan terimakasih.
Sumber

it has long nozzle - scratch, meaning ngepost ups. ok so first go I often have problems with MSDBGRID32 that cause I have to work 2 times, kok musti kerja 2 kali emangnya why? simple answer is I use a dbgrid connect it to ADO (data access object) nah happen after I setup the error message like this MSDBGRID32.ocx component not found, so I change into ADODC. For the friend - a friend with his problem with me please download component This Here

Encrypt Part 2 Translate Inggris


post I told about this time to encrypt part - 2 part 1 when encrypt it in this review to understand better the details, taken from a Wikipedia article is as follows:

In the field of cryptography, the encryption process is to secure the information by creating an information can not be read without the aid of special. Because encryption has been used to secure communications in various countries, only certain organizations and individuals that have a very urgent akan confidentiality using encryption. In the mid 1970s, strong encryption used by the secretariat for the security of the United States government agencies in the public domain, and at this time have been used in the encryption system widely, such as Internet e-commerce, mobile telephone network and ATM in the bank.

Encryption

In the field of cryptography, the encryption process is to secure the information by creating an information can not be read without the aid of special. Because encryption has been used to secure communications in various countries, only certain organizations and individuals that have a very urgent akan confidentiality using encryption. In the mid 1970s, strong encryption used by the secretariat for the security of the United States government agencies in the public domain, and at this time have been used in the encryption system widely, such as Internet e-commerce, mobile telephone network and ATM in the bank.

Encryption can be used for security purposes, but other techniques are still needed to make communications secure, particularly to ensure the integrity and authentication of a message. For example, Message Authentication Code (MAC) or digital signatures. Use the other is to protect the computer from the network analysis.
Contents

* 1 Ciphers
2 * Cipher code versus
* 3 Types cipher

Ciphers

A cipher is an algorithm to display the encryption and decryption of the, a series of steps that defined the procedure as follows. Alternative is encipherment. Information disebuh as the original plaintext and encrypted form which is referred to as chiphertext. Chipertext message contains all the information from the plaintext message, but not in a format that the computer or human readable without the use mekasnisme the right to do the decryption.

Cipher in the usually have the parameters of the main part of the information, referred to as the key. Encryption procedures vary widely depending on the key that will change the details of the operation algorithm. Without using the key, chiper can not be used for dienkirpsi or didekripsi.

Cipher versus code

In the non-technical usage, a secret code is the same as the cipher. Based on the technical discussions, however, code and cipher are described with two concepts. Work on code-level understanding, namely, the words or phrases changed to something else. Cipher, on the other hand, work on a lower level, namely, at the level of each letter, a group of letters, in the scheme of modern, in every bit. Some systems use both code and cipher in the same system, using superencipherment to improve security.

According to history, cryptography dikotomi into separate code and cipher, and the use of code has its own terminology, the same thing also happened in cipher: "encoding, codetext, decoding" and so forth. However, code has a variety of ways to be returned, including the fragility of the kriptoanalisis and difficulties to manage the list of code that is difficult. Therefore, the code is no longer used in modern cryptography, and cipher to become a more dominant technique.

Types cipher

Is a lot of variations on different types of encryption. Algorithm used in the early history of cryptography are very different from modern methods, and modern cipher and classified based on how the cipher is operating and cipher using a key or two.

Encryption Diagram

History Cipher pen and paper in the past tense is often referred to as classical cipher. Cipher cipher including classic and replacement cipher transposisi. In the early 20th century, the machines use a more up-to-date for the purposes of encryption, engine rotor, the beginning of the merupkan scheme more complex.

Encryption method is divided into key algorithm Symmetric and asymmetric key algorithms. Symmetric key algorithm on (eg, DES and AES), the sender and recipient must have a key that is used together and kept kerahasiaanya. Sender menggunkan key for encryption and the recipient uses the same key for decryption. In the asymmetric key algorithm (eg, RSA), there are two separate keys, a public key is published and to allow anyone to do the encryption the sender, while a private key kept by the recipient kerahasiannya and used to perform decryption.

Symmetric key cipher can be distinguished in two types, depending on how the cipher works on blocks of symbols at a fixed size (block ciphers), or the flow of ongoing symbols (stream ciphers).
From Wikipedia, the free encyclopedia