Merk : Acer
Type : AS4741G-464G64Mn
Proccessor : Intel Core i5-M460 2,53GHz
RAM : 4 GB DDR3
Harddisk : 640 GB
VGA : Nvidia Optimus GT420M/1626MB dedicated 128MB
Features : WebCam, CardReader, Bluetooth,HDMI,WIFI, LAN
OS : Windows 7 Home Premium
Display : 14,0"HD Led LCD
Optical Drive : DVDRW
Color : Black

Price : Rp 7.400.000,00

Location : Gorinet Laptop - Jl. Trengguli no. 100 
                Denpasar
                Bali - Indonesia


If you are interested, please leave a comment !!!

For download please click this image

• Play socially - Can play the most popular social game with your friends, starting with offerings from Zynga games, Elex, and others.

• Management of all your social jariangan - With Y! This latest version of your status, you can simultaneously in Yahoo! Pulse, Facebook, and Twitter. And most interesting to chat with your facebook friends.

Here is a program that is named Timer.exe, this program serves to perform shutdown, logoff, reboot or display messages. This program has an interface very simple and easy to use. You can just set the time and you can select events to be run. Here's a screenshot of this program


To get this program please click the link below

http://www.ziddu.com/download/13062581/Timer.exe.html

Good luck!

For downnload please click this link : http://www.ziddu.com/download/13054032/DriverGeniusProfessional10.0.0.526.rar.html

password rar : kibo-digilab

Driver Genius Pro 10.0.0.526
1) Install Driver Genius Pro 10 (drvgenpro.exe)
2) Copy/paste the "DriverGenius.exe" file into installdir, by default:
C:\Program Files\Driver-Soft\DriverGenius
and confirm to overwrite existing file.
3) Make DriverGenius.exe read only so the upgrade process cannot overwrite
the cracked executable
3) Start Driver Genius. Go to: Help / Enter Code
serial: BAQZHSQMQPY3X9PVHGHXYX3ZGSPRTTBJEQ66

That's all.

For download, please click image



Instruction :
1. Extract the file that your download

password : kibo-digilab

2. Install IDM
3. Run the patch ( run as administrator )
4. Good Luck !!!

http: / / translate.google.com

or with

http://www.onlinedoctranslator.com/translator.html
(you need the java runtime environment to use the translator on this website)

good luck!!!

Here are the steps to activate Adobe CS5 Master Collection

1. Download keygen below. Please click image


2. Extract the files that you download

    password : kibo-digilab

3. Then run the keygen.exe (run as administrator)
4. Then click the hosts file patch
5. After that install the Adobe CS5 Master Collection you.
6. Run the keygen again to obtain the serial number
7. Done and good luck!!!

Click image for download patch Janus WinForm


Notes:

1. Extract the files that you download
2. Then run JanusPatcher.exe
3. Good luck

Kaspersky 2011 Crack

This crack activates Kaspersky for 3700 days; and the installed key will not be blocked, even after updates !

It works with Kaspersky Antivirus & Internet Security 2011.

It works with all languages, and all versions of windows 32bit and 64bit.

Instructions:

1. Remove any installed keys.

2. Disable Self-Defense from Kaspersky settings.

3. Exit Kaspersky.

4. Install the crack.

5. Enjoy !!

For download please click this image

password : kibo-digilab

For download please click this image

password : kibo-digilab

for install type the following code in your terminal

sudo apt-get install googleearth

Make google earth package 

make-googleearth-package --help

Another alternative

sudo apt-get install googleearth-package
make-googleearth-package
make-googleearth-package --force
sudo dpkg -i googleearth_5.2.1.1329+0.5.7-1_i386.deb

Uninstall

sudo rm -rf /opt/google-earth && sudo rm /usr/share/mime/application/vnd.google-earth.* \
/usr/share/mimelnk/application/vnd.google-earth.* /usr/share/applnk/Google-googleearth.desktop \
/usr/share/mime/packages/googleearth-mimetypes.xml /usr/share/gnome/apps/Google-googleearth.desktop \
/usr/share/applications/Google-googleearth.desktop /usr/local/bin/googleearth

source : http://opensource.telkomspeedy.com/wiki/index.php/Instalasi_Google_Earth

gBilling is a payment system application cafe (cafe billing system) which consists of server and client, gBilling expected to run on a multi-platform (Linux, BSD, MacOS, or Microsoft Windows). gBilling written in C language, with a GTK2 GUI toolkit (The GIMP Toolkit), and using SQLite as database systems and data storage. gBilling will always be under the GNU Public License (GPL) version 2

GBilling Features:

    * Multiplatform (UNIX: Linux, MacOS, BSD, and Microsoft Windows) to 32 bit architecture and 64 bits
    * Concurrent TCP / IP server model (IPv4)
    * Multithreaded (per-client thread, with GLib Thread)
    * Orientation storage database (SQLite embedding)
    * Full control of the server (logout, shutdown, restart, close / open the login client)
    * Detect the client is not active (inactive client program or client computer)
    * System logging and log export to CSV format
    * Recovery (data recovery server / client for the power loss, system crashes)
    * User authentication (GLib data hashing)
    * Chat
    * System package
    * System Item (Items that are sold in the cafe is displayed at the client)
    * Customization according to your internet cafe (cafe name, slogan, address)
    * Free software

Compilation and installation on Linux

To compile gBilling in Linux, you need the following libraries:

    * GTK> = 2.18.9
    * GLib> = 2.22.5 (with gthread> = 2.22.5)
    * SQLite> = 3:41 (only for gBilling Server version 0.1 down)
    * Libglade> = 2.6.0 (only for version 0.1 down)

Note: There are some Linux distributions which do not provide C header files for libglade2 like in Mandriva Free 2008. You can get these files from the GNOME website.

Make sure the libraries are already installed and configured correctly on your system, gBilling been packaged with a standard script installation GNU (autoconf, automake, libtool). Compilation and installation gBilling with other GNU standard package.

Download the latest version of gBilling gBilling Server and Client, compilation and installation with super-user account (root) as follows:

    $ tar xzf gbilling-server-x.y.tar.gz
    $ cd gbilling-server-x.y
    $ ./configure
    $ make
    $ su -c 'make install'

You can also specify the location of the installation with the configuration:

    $ ./configure --prefix=/opt/gbilling-server

This will install in the directory / opt / gbilling-server.

To delete a file-file compilation:

    $ make clean

To delete all the files the compilation and configuration:

    $ make distclean

To uninstall do the following:

    $ su -c 'make uninstall'

For more information, please see the INSTALL file in the package gBilling gBilling Server or Client.

After installation run gBilling gBilling Server or Client from the menu or directly from the shell, do the settings for the server as set up a username and password server, client, and logs.

Important: Username and password gBilling default on version 0.2 upwards is admin: gbilling, in version 0.1 are we: rock


download server gBilling : http://sourceforge.net/projects/gbilling/files/gbilling-server/0.2/gbilling-server-0.2.1-rc1.tar.gz/download
download client gBilling : http://sourceforge.net/projects/gbilling/files/gbilling-client/0.2/gbilling-client-0.2.1-rc1.tar.gz/download




source : http://gbilling.sourceforge.net/

Here I will give info what linux distros have developed in Indonesia. I will also give links to download from each of these Linux distributions. Please download and feel themselves the work of Indonesian nation

Debian based distro

Kuliax

download : http://kuliax.des.net.id/Kuliax-7.0-LiveCD.iso

BlankOn Linux

download 32bit : http://buaya.klas.or.id/pub/blankon/rilis/6.0/blankon-6.0-cdlive-i386.iso
download 64bit : http://buaya.klas.or.id/pub/blankon/rilis/6.0/blankon-6.0-cdlive-amd64.iso

DewaLinux

download : http://mirror.unej.ac.id/pub/iso/dewalinux/dewalinux_papuma_3.0.iso

Briker

download 32bit : http://voiprakyat.or.id/pub/briker/iso/briker-1.2.iso
download 64bit : http://voiprakyat.or.id/pub/briker/iso/briker-1.2-amd64.iso

RPM based distro

IGOS Nusantara

download : http://repo.igos-nusantara.or.id/iso/2010/R5.2/IGN2010-LiveCD-R5.2.ISO
download : http://repo.igos-nusantara.or.id/iso/2010/R5.2/IGN2010-DVD-installer-R5.2.ISO

Slackware based distro

CD Forum Linux

download : http://slackware.vip.net.id/pub/ForumLinux/8.10/forum.linux-8.10.iso

Singkong Linux

download : http://toko.baliwae.com/download/singkong/singkong-1.0.iso

targeT Linux

download :  http://target.slackware-id.org/download-manager.php?id=6

ZenCafe Linux

download :  ftp://dl2.foss-id.web.id/iso/zencafe/2.2/zencafe-2.2.iso

1. To get started, go to Applications –> Ubuntu Software Center.

2. Then click Edit –> Software Sources.

3. Next, select ‘Other Software’ tab and click Add

4. Then copy and paste the line below in the box and click ‘Add Source’ , then close out and go back to Software Center.

ppa:chromium-daily/ppa

5. Back into Software Center, search for and install Chromium.

Chromium

6. After installing, go to Applications –> Internet –> Chromium Web Browser.

source : http://www.liberiangeek.net/2010/09/install-google-chrome-ubuntu-10-0410-10-maverick-meerkat-ppa/

Description: This program was made with the programming language visual basic 2008. The program is created as a variation in your program. Your program will look more attractive if there is activity load before the main form of your program is raised. Makes it very easy. Here code of the program this splash screen. Good luck!

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(4)
        If ProgressBar1.Value = 100 Then
            Timer1.Dispose()
            Me.Opacity = 0
            Form2.Show()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

End Class

Here I will give you tips on how to change the display on the mikrotik hotspot login. It aims to present a more attractive hotspot login. The way is easy. First download the following file:


Extract the folder and open. Locate and then change the display to your liking login.html. You can use Adobe Dreamweaver to edit the file. When everything is so upload that folder to your proxy. To simplify the upload process you can use applications such as Filezilla. Replace all the contents of the folder existing hotspot with all the contents of the folder that you have to edit. Or if you directly using Winbox, you can find it on the menu Files. Good luck!

Macbuntu is one application that can change the look of your Ubuntu look like Mac OS.Macbuntu - Mac OS X Transformation Pack. Macbuntu is an open-source programs, Designed to transform Linux's appearance and layout into a Mac OS X environment. Although Macbuntu is dedicated to the Ubuntu Linux OS, it could be used in other OS based on Debian / GTK. The application is almost similar to the Snow Transformation Pack used on windows.

How to install Macbuntu 10.10 v2.3

Open a terminal and type the following commands:

$ wget https://downloads.sourceforge.net/project/macbuntu/macbuntu-10.10/v2.3/Macbuntu-10.10.tar.gz -O /tmp/Macbuntu-10.10.tar.gz

$ tar xzvf /tmp/Macbuntu-10.10.tar.gz -C /tmp

$ cd /tmp/Macbuntu-10.10/

$ ./install.sh

How to remove Macbuntu 10.10 v2.3

Open a terminal and type the following commands:

$ cd ~/.macbuntu/10.10-2.3/

$ ./uninstall.sh 

source : http://sourceforge.net/projects/macbuntu/forums/forum/1205032/topic/3819181

Are you someone who is happy with the computer network? Are you using Ubuntu Linux Operating System? This time I will share tips on how to install packet tracer on the Ubuntu operating system. It is very easy. First thing you should do is download the Packet Tracer 5.3 for Ubuntu here



After that the download was going to be in the Downloads folder. Let us begin to go into terminal to install it. Type the following code

sudo su

Then go to the Downloads folder, type the following code

cd /home/your-home-folder-name/Downloads/

Then "Packet Tracer" we give permission to be installed, type the following code

chmod 755 PacketTracer53_i386_installer-deb.bin

After that type the following code

./PacketTracer53_i386_installer-deb.bin

Continue to press enter to exit the approval statement yes or no

Type Y , after than press Enter

Packet Tracer has been successfully installed on your Ubuntu. Good luck!

ALGORITHMS AND PROGRAMMING

The algorithm is a sequence of actions which clearly stated and unambiguous to solve a problem within a specific timeframe. Every action must be done and have a certain effect. Algorithm is the logic, methods and steps (sequence) systematically used to solve a problem. The algorithm can be written in many ways, from using natural language used in everyday life, a symbol chart flowchart (flowchart), to use a programming language like C or C language.

The program is a collection of computer instructions, while methods and systematic steps in the program is the algorithm. The program is written using a programming language. So can we call that the program is an implementation of a programming language.

Program = data structure + algorithms

After all data structures and algorithms are very closely related to a program. The algorithm that good without the proper selection of the data structure will make the program becomes less good, so well otherwise. The structure of the data here can be a list, tree, graph, etc..

DATA STRUCTURE

Data structure is a way of storing or representing data in computers to be used efficiently, while the data is a representation of real world facts.
Fact or description of reality that is stored, recorded or represented in writing, voice, image, signal or symbol

Broadly speaking the data type can be categorized into:

1. Simple data types
a. Single simple data types, eg
Integer, real, boolean and character
b. Simple data type compound, for example
String

2. Data structures, including
a. Simple data structures such as arrays and records
b. Compound data structures, which consist of
Linear: Stack, Queue, and List and Multilist
Non-Linear: Binary Tree and Graph

Use appropriate data structure in the programming process will produce an algorithm that is more clear and precise, making the overall program more efficient and simple.

Data structure which "standard" which is usually used in the field of informatics are:

    * Linear list (linked list) and its variations Multilist

    * Stack (Piles)

    * Queue (Queue)

    * Tree (Tree)

    * Graph (Graf)

import java.util.*;

public class DesimalToRomawi {
public static void main (String args[])
{
int bil;
String tampil="";

System.out.println("===================================================");
System.out.println("PROGRAM KONVERSI ANGKA DESIMAL MENJADI ANGKA ROMAWI");
System.out.println("        created by Made AndyKurnia Prayoga         ");
System.out.println("===================================================");
System.out.println(" ");

  //inisialisasi berupa array
  String [] biasa = {"","I","II", "III", "IV", "V",  "VI", "VII", "VIII", "IX"};
  String [] sepuluh = {"", "X", "XX","XXX","XL"};
  String [] limapuluh = {"", "L", "LX", "LXX", "LXXX","XC"};
  String [] seratus =  {"", "C", "CC", "CCC", "CD"};
  String [] limaratus = {"", "D", "DC", "DCC", "DCCC", "CM"};
  String [] seribu =   {"", "M", "MM", "MMM", "Mv", "v"};

  // input dari keyboard
  System.out.print("Masukkan bilangan desimal : ");
  Scanner obj = new Scanner(System.in);
  bil = obj.nextInt();

  //kondisi dimana angka tidak lebih dari 5000
  if (bil>5000)
  {
  System.out.println("Maaf.., Angka Desimal Yang Di Inputkan Harus Di Bawah 5000");
  }
  else
  {
     int lmrts = bil % 1000;
     int srts = lmrts % 500;
     int lmpl = srts % 100;
     int spl = lmpl % 50;
     int ak = spl % 10;

     int a = bil/1000;
     tampil += ""+seribu[a];

     //aturan konversi desimal ke romawi
     if ( (lmrts >=900) && (lmrts <= 999))
     {
     tampil += "CM";

     //90
     if( (lmpl >= 90) && (lmpl <= 99) )
     {
     tampil += "XC";
     int f= ak/1;
     tampil += ""+biasa[f];
     }
     else
     {
     int d = lmpl/50;
     tampil += ""+limapuluh[d];
     int e = spl/10;
     tampil += ""+sepuluh[e];
     int f= ak/1;
     tampil += ""+biasa[f];
     }

     }

     else
     {
     int b = lmrts/500;
     tampil += ""+limaratus[b];

     //400
     if ( (srts >= 400)&& (srts <= 499) )
     {
     tampil += "CD";

     //90
     if( (lmpl >= 90) && (lmpl <= 99) )
     {
     tampil += "XC";
     int f= ak/1;
     tampil += ""+biasa[f];
     }
     else
     {
     int d = lmpl/50;
     tampil += ""+limapuluh[d];
     int e = spl/10;
     tampil += ""+sepuluh[e];
     int f= ak/1;
     tampil += ""+biasa[f];
     }

     }

     else
     {
     int c = srts/100;
     tampil += ""+seratus[c];

     if((lmpl >= 90)&&(lmpl <= 99))
     {
     tampil += "XC";
     int f= ak/1;
     tampil += ""+biasa[f];
     }
     else
     {
     int d = lmpl/50;
     tampil += ""+limapuluh[d];
     int e = spl/10;
     tampil += ""+sepuluh[e];
     int f= ak/1;
     tampil += ""+biasa[f];
     }
     }
   }

   System.out.println(" ");
   System.out.println("Maka angka Romawinya " +tampil);
   System.out.println(" ");
   System.out.println("========================================");
   System.out.println(" ");
   System.out.println("Konversi dari angka Desimal " +bil+ " adalah angka Romawina " +tampil);
   System.out.println(" ");

   System.out.println("===================================================");
   System.out.println("    TERIMA KASIH SUDAH MENGGUNAKAN PROGRAM INI     ");
   System.out.println("===================================================");

  }
  }
 }

Click image for download


source : http://free.avg.com/gb-en/download-update

Please use this AntiVir VDF update, if you are using one of the following Avira products:

• Avira AntiVir Personal, Premium and Premium Security Suite from version 9
• Avira AntiVir Professional (Windows) from version 9
• Avira AntiVir Server (Windows) from version 9
• Avira AntiVir SharePoint from version 3
• Avira AntiVir ISA Server from version 3
 

Click image for download


source : http://www.avira.com/en/support-vdf-update-info

create database rumah_sakit

use rumah_sakit

create table dokter
(
 nip varchar(12),
 nama varchar(100),
 tgl varchar(50),
 ruang varchar(10),
 spesialisasi varchar(20),
 pendidikan varchar(5),
 indeks int,
 indekstgl int,
 indeksbulan int,
 indeksthn int
)

select * from dokter

Dim oConn As New ADODB.Connection
Dim Sql As String
Dim pendidikan As String
Private Sub Command1_Click()
Dim z As String
Dim oRs As New ADODB.Recordset
    Sql = " SELECT * " _
         & " FROM dokter " _
         & " WHERE nip = '" & Text1.Text & "'"
    oRs.Open Sql, oConn, adOpenStatic
    If Not oRs.BOF Then
        Text2.Text = oRs("nama")
        Combo2.ListIndex = oRs("indekstgl")
        Combo3.ListIndex = oRs("indeksbulan")
        Combo4.ListIndex = oRs("indeksthn")
        Text3.Text = oRs("ruang")
        Combo1.ListIndex = oRs("indeks")
        z = Right(oRs("pendidikan"), 1)
        Option1(Int(z) - 1).Value = True
    Else
        MsgBox ("DATA TIDAK DITEMUKAN")
    End If
    oRs.Close
End Sub

Private Sub Command2_Click()
    Sql = " INSERT INTO dokter " _
         & " VALUES " _
         & " ('" & Text1.Text & "','" & Text2.Text & "','" _
         & Combo2.Text & " " & Combo3.Text & " " & Combo4.Text & "','" & Text3.Text & "','" & Combo1.Text & "','" _
         & pendidikan & "'," & Combo1.ListIndex & "," & Combo1.ListIndex & "," & Combo3.ListIndex & "," & Combo4.ListIndex & ")"
    oConn.Execute Sql
    Call Bersih
    Call Isigrid
    MsgBox ("DATA SUDAH DIMASUKKAN")
End Sub

Private Sub Command3_Click()
 Sql = "delete from dokter " _
         & "where nip = '" & Text1.Text & "'"
    oConn.Execute Sql
    Call Bersih
    Call Isigrid
    MsgBox ("DATA SUDAH DIHAPUS")
End Sub

Private Sub Command4_Click()

    Sql = "update dokter " _
         & "set nip = '" & Text1.Text & "'," _
         & "nama = '" & Text2.Text & "'," _
         & "tgl ='" & Combo2.Text & " " & Combo3.Text & " " & Combo4.Text & "'," _
         & "ruang = '" & Text3.Text & "'," _
         & "spesialisasi = '" & Combo1.Text & "'," _
         & "pendidikan = '" & pendidikan & "'," _
         & "indeks = " & Combo1.ListIndex & ", " _
         & "indekstgl = " & Combo2.ListIndex & "," _
         & "indeksbulan = " & Combo3.ListIndex & "," _
         & "indeksthn = " & Combo4.ListIndex & "" _
         & "where nip = '" & Text1.Text & "'"
    oConn.Execute Sql
    Call Bersih
    Call Isigrid
    MsgBox ("DATA SUDAH DIUPDATE")
    
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
    Combo1.AddItem ""
    Combo2.AddItem ""
    Combo3.AddItem ""
    Combo4.AddItem ""
    
    For i = 1 To 31
        Combo2.AddItem i
    Next i
    
    For j = 1945 To 2010
        Combo4.AddItem j
    Next j
    
    
    oConn.ConnectionString = "PROVIDER=SQLOLEDB.1; " _
            & "DATA SOURCE = (local); " _
            & "INITIAL CATALOG = rumah_sakit; " _
            & "USER ID = sa; " _
            & "PASSWORD = 123456"
    oConn.Open
    Call SetGrid
    Call Isigrid
End Sub

Private Sub Bersih()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Combo1.ListIndex = 7
    Combo2.ListIndex = 0
    Combo3.ListIndex = 12
    Combo4.ListIndex = 0
    For i = 0 To 2
        Option1(i).Value = False
    Next i
    Text1.SetFocus
End Sub
Private Sub SetGrid()
    MSFlexGrid1.Cols = 6
    MSFlexGrid1.Rows = 2
    
    MSFlexGrid1.TextMatrix(0, 0) = "NIP"
    MSFlexGrid1.TextMatrix(0, 1) = "NAMA DOKTER"
    MSFlexGrid1.TextMatrix(0, 2) = "TANGGAL LAHIR"
    MSFlexGrid1.TextMatrix(0, 3) = "RUANG TUGAS"
    MSFlexGrid1.TextMatrix(0, 4) = "SPESIALISASI"
    MSFlexGrid1.TextMatrix(0, 5) = "PENDIDIKAN"
    MSFlexGrid1.ColWidth(0) = 2000
    MSFlexGrid1.ColWidth(1) = 4000
    MSFlexGrid1.ColWidth(2) = 3000
    MSFlexGrid1.ColWidth(3) = 2000
    MSFlexGrid1.ColWidth(4) = 2000
    MSFlexGrid1.ColWidth(5) = 1500
    
End Sub
Private Sub Isigrid()
    Dim oRs As New ADODB.Recordset
    
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.AddItem ""
    Sql = "SELECT * " _
         & "FROM dokter "
    oRs.Open Sql, oConn, adOpenStatic
    If Not oRs.BOF Then
        Do While Not oRs.EOF
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = oRs("nip")
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = oRs("nama")
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = oRs("tgl")
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = oRs("ruang")
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = oRs("spesialisasi")
            MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = oRs("pendidikan")
            oRs.MoveNext
            MSFlexGrid1.AddItem ""
        Loop
    End If
    oRs.Close
End Sub

Private Sub MSFlexGrid1_Click()
Dim z As String
Dim oRs As New ADODB.Recordset
    Sql = " SELECT * " _
         & " FROM dokter " _
         & " WHERE nip = '" & MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0) & "'"
    oRs.Open Sql, oConn, adOpenStatic
        If Not oRs.BOF Then
        Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0)
        Text2.Text = oRs("nama")
        Combo2.ListIndex = oRs("indekstgl")
        Combo3.ListIndex = oRs("indeksbulan")
        Combo4.ListIndex = oRs("indeksthn")
        Text3.Text = oRs("ruang")
        Combo1.ListIndex = oRs("indeks")
        z = Right(oRs("pendidikan"), 1)
        Option1(Int(z) - 1).Value = True
    Else
        MsgBox ("DATA TIDAK DITEMUKAN")
    End If
    oRs.Close
End Sub

Private Sub Option1_Click(Index As Integer)
    If Option1(Index).Value = True Then
        pendidikan = "S" & (Index + 1)
    End If
End Sub


Private Sub Timer1_Timer()

Label7.Caption = Format(Date, "dd - mm - yyyy") & "     " & Format(Now, "hh:mm:ss")
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    Dim a As Integer
    Dim prima As Boolean
    Dim hasil As String

    If (Text1.Text = "" Or Text2.Text = "") Then
        MsgBox "Isi dulu batas bawah dan atas.", vbExclamation, "Error"
    ElseIf (Text1.Text < 2) Then
        MsgBox "Batas bawah harus diatas 1", vbExclamation, "Error"
    ElseIf (CInt(Text1.Text) > CInt(Text2.Text)) Then
        MsgBox "Batas Atas harus lebih besar atau sama dengan Batas Bawah", vbExclamation, "Error"
    Else
        For i = Text1.Text To Text2.Text
            prima = True
            For a = 2 To (i - 1)
                If (i Mod a = 0) Then
                    prima = False
                    Exit For
                End If
            Next a
            If prima Then
                If (hasil = "") Then
                    hasil = i
                Else
                    hasil = hasil & ", " & i
                End If
                
            End If
        Next i
        Text3.Text = hasil
    End If
End Sub

import javax.swing.JOptionPane;
public class Number_Word{
public String konversi (int angka){
String [] bilangan ={"","satu","dua","tiga","empat","lima","enam","tujuh","delapan","sembilan","sepuluh","sebelas"};
String temp=" ";
if (angka<12){
temp = " " + bilangan[angka];
}
else if(angka<20){
temp = konversi(angka-10) + " belas";
}
else if(angka<100){
temp = konversi(angka/10) + " puluh" + konversi(angka%10);
}
else if(angka<200){
temp = "seratus" + konversi(angka-100);
}
else if(angka<1000){
temp = konversi(angka/100) + " ratus" + konversi(angka%100);
}
else if(angka<2000){
temp = "seribu"+ konversi(angka-1000);
}
else if(angka<1000000){
temp = konversi(angka/1000) + " ribu" + konversi (angka%1000);
}
return temp;
}
public static void main (String args[]){
do{
try {
Number_Word num = new Number_Word();
int konvert = Integer.parseInt(JOptionPane.showInputDialog("Masukkan Nilai"));

if (konvert < 0 || konvert >999999) {
JOptionPane.showMessageDialog(null,"Angka di luar range!!!","WARNING",JOptionPane.ERROR_MESSAGE);
}
else {
JOptionPane.showMessageDialog(null,"Hasil = \n " + konvert + " = " + num.konversi(konvert),"RESULT",JOptionPane.INFORMATION_MESSAGE);
}
}
catch(Exception e){
JOptionPane.showMessageDialog(null,"ERROR","WARNING",JOptionPane.ERROR_MESSAGE);
}
}
while(JOptionPane.showConfirmDialog(null,"Ingin Mengulang??","OPTION",JOptionPane.ERROR_MESSAGE)==JOptionPane.YES_NO_OPTION);
}
}

Norton Internet Security 2011 virus Definition Update
Click image for download


Source : http://www.symantec.com/business/security_response/definitions/download/detail.jsp?gid=savce

source : http://www.kasperskysupport.com/

create database andy

use andy

create table pegawai
(
noID int,
nama varchar(20),
tgllahir varchar(10),
alamat varchar(30),
kodepegawai varchar(5)
)

insert into pegawai values(1,'Munson','25-12-1989','denpasar 20','DR')
insert into pegawai values(2,'Steven','14-02-1989','gianyar 31','MGM')
insert into pegawai values(3,'Edward','13-11-1988','tabanan 25','CS')
insert into pegawai values(4,'Paul','12-06-1990','amlapura 16','MGP')
insert into pegawai values(5,'Gibson','07-07-1989','badung 11','CS')

select * from pegawai

create table job
(
kodepegawai varchar(5),
bidangpekerjaan varchar(20),
gaji varchar(20)
)

insert into job values('DR','direktur','Rp 5.000.000')
insert into job values('MGP','manager personalia','Rp 2.500.000')
insert into job values('MGM','manager marketing','Rp 3.000.000')
insert into job values('MGPD','manager produksi','Rp 3.200.000')
insert into job values('KR','karyawan','Rp 1.100.000')
insert into job values('CS','cleaning service','Rp 800.000')

select * from job


SELECT job.kodepegawai,job.bidangpekerjaan,job.gaji,pegawai.noID,pegawai.nama 
FROM job
INNER JOIN pegawai
ON pegawai.kodepegawai=job.kodepegawai
ORDER BY pegawai.noID

SELECT job.kodepegawai,job.bidangpekerjaan,job.gaji,pegawai.noID,pegawai.nama 
FROM job
LEFT JOIN pegawai
ON pegawai.kodepegawai=job.kodepegawai
ORDER BY pegawai.noID

SELECT job.kodepegawai,job.bidangpekerjaan,job.gaji,pegawai.noID,pegawai.nama 
FROM job
RIGHT JOIN pegawai
ON pegawai.kodepegawai=job.kodepegawai
ORDER BY pegawai.noID

SELECT job.kodepegawai,job.bidangpekerjaan,job.gaji,pegawai.noID,pegawai.nama 
FROM job
FULL JOIN pegawai
ON pegawai.kodepegawai=job.kodepegawai
ORDER BY pegawai.noID

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Enkrip, Output, Inputan As String
        Dim Panjang_Input As Integer
        Inputan = TextBox1.Text
        Panjang_Input = Len(TextBox1.Text)
        For i = 1 To Panjang_Input
            Enkrip = Mid(Inputan, i, 1)
            Enkrip = Asc(Enkrip)
            Enkrip = (Enkrip + 7) - 11
            Enkrip = Chr(Enkrip)
            Output = Output & Enkrip
        Next i
        TextBox2.Text = Output
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Dekrip, Output, Inputan As String
        Dim Panjang_Input As Integer
        Inputan = TextBox3.Text
        Panjang_Input = Len(TextBox3.Text)
        For i = 1 To Panjang_Input
            Dekrip = Mid(Inputan, i, 1)
            Dekrip = Asc(Dekrip)
            Dekrip = (Dekrip - 7) + 11
            Dekrip = Chr(Dekrip)
            Output = Output & Dekrip
        Next i
        TextBox4.Text = Output
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

End Class 

Imports Microsoft.VisualBasic
Imports System.Collections.ObjectModel

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dpath As String = Application.StartupPath
        Dim mydata As String
        
        mydata = "url=" & ComboBox1.Text & "|username=" & TextBox1.Text & "|password=" & TextBox2.Text
        My.Computer.FileSystem.WriteAllText(dpath & "\Data\" & ComboBox1.Text & ".txt", String.Empty, False)
        My.Computer.FileSystem.WriteAllText(dpath & "\Data\" & ComboBox1.Text & ".txt", mydata, False)
        ComboBox1.Items.Add(ComboBox1.Text)

        MsgBox("Data sudah ditambahkan")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim files As ReadOnlyCollection(Of String)
        Dim fileContents As String
        Dim myArray(5) As String, myUrl(2) As String, myUser(2) As String, myPass(2) As String
        Dim dpath As String = Application.StartupPath
        Dim folderExists As Boolean

        folderExists = My.Computer.FileSystem.DirectoryExists(dpath & "\Data")
        If Not (folderExists) Then
            My.Computer.FileSystem.CreateDirectory(dpath & "\Data")
        End If
        files = My.Computer.FileSystem.FindInFiles(dpath & "\Data", "url", True, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

        For i = 0 To files.Count - 1
            fileContents = My.Computer.FileSystem.ReadAllText(files.Item(i))
            myArray = Split(fileContents, "|")
            myUrl = Split(myArray(0), "=")
            ComboBox1.Items.Add(myUrl(1))
        Next
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
        Dim dpath As String = Application.StartupPath
        Dim fileContents As String
        Dim myArray(5) As String, myUrl(2) As String, myUser(2) As String, myPass(2) As String
        Dim fileExists As Boolean
        fileExists = My.Computer.FileSystem.FileExists(dpath & "\Data\" & ComboBox1.Text & ".txt")
        If fileExists Then
            fileContents = My.Computer.FileSystem.ReadAllText(dpath & "\Data\" & ComboBox1.Text & ".txt")
            myArray = Split(fileContents, "|")
            myUrl = Split(myArray(0), "=")
            myUser = Split(myArray(1), "=")
            myPass = Split(myArray(2), "=")
            TextBox1.Text = myUser(1)
            TextBox2.Text = myPass(1)
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            TextBox2.PasswordChar = Chr(7)
        Else
            TextBox2.PasswordChar = ""
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dpath As String = Application.StartupPath & "\Data\" & ComboBox1.Text & ".txt"
        Dim files As ReadOnlyCollection(Of String)
        Dim fileContents As String
        Dim myArray(5) As String, myUrl(2) As String, myUser(2) As String, myPass(2) As String
        Dim dpath2 As String = Application.StartupPath
        My.Computer.FileSystem.DeleteFile(dpath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
        ComboBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Text = ""
        ComboBox1.Items.Clear()
        files = My.Computer.FileSystem.FindInFiles(dpath2 & "\Data", "url", True, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

        For i = 0 To files.Count - 1
            fileContents = My.Computer.FileSystem.ReadAllText(files.Item(i))
            myArray = Split(fileContents, "|")
            myUrl = Split(myArray(0), "=")
            ComboBox1.Items.Add(myUrl(1))
        Next

        MsgBox("Data sudah dihapus")
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Try
            VisitLink()
        Catch ex As Exception
            ' The error message
            MessageBox.Show("Unable to open link that was clicked.")
        End Try

    End Sub
    Sub VisitLink()
        
        LinkLabel1.LinkVisited = True
        
        System.Diagnostics.Process.Start("http://andy-study.blogspot.com")
    End Sub

End Class