Wednesday, December 22, 2010 by Andy Kurnia Prayoga Made


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 !!!
Comments
Tuesday, December 21, 2010 by Andy Kurnia Prayoga Made

For download please click this image


What's new at Yahoo Messenger 11
  • 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.
Comments
Monday, December 20, 2010 by Andy Kurnia Prayoga Made
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!
Comments
by Andy Kurnia Prayoga Made

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.
Comments
Saturday, December 18, 2010 by Andy Kurnia Prayoga Made
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 !!!
Comments
Thursday, December 16, 2010 by Andy Kurnia Prayoga Made
Here I give a little information about the websites that can translate your documents quickly and well. If you have a document in the form. doc,. pdf, and others, you can directly translate into the language in which language you want. You do not need to type one by one the words in your document it. Just by looking your file which is stored in a storage media such as hard drives or flash, then upload and translate the following website.

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!!!

Comments
by Andy Kurnia Prayoga Made
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!!!
Comments
Monday, December 13, 2010 by Andy Kurnia Prayoga Made
Click image for download patch Janus WinForm


Notes:

1. Extract the files that you download
2. Then run JanusPatcher.exe
3. Good luck
Comments
Monday, November 29, 2010 by Andy Kurnia Prayoga Made
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
Comments
by Andy Kurnia Prayoga Made
For download please click this image

password : kibo-digilab
Comments
Sunday, November 28, 2010 by Andy Kurnia Prayoga Made
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
Comments
by Andy Kurnia Prayoga Made
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/
Comments
Saturday, November 27, 2010 by Andy Kurnia Prayoga Made
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
Comments
by Andy Kurnia Prayoga Made
This time I will explain how to install google chrome in ubuntu. Installing programs via Ubuntu PPA. Installation process is not through the terminal. This is especially useful for new users of Ubuntu. The steps are as follows

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/
Comments
by Andy Kurnia Prayoga Made
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



Comments
Thursday, November 25, 2010 by Andy Kurnia Prayoga Made
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!

Comments
by Andy Kurnia Prayoga Made
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
Comments
by Andy Kurnia Prayoga Made
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!


 source : http://krisna.web.id/tips-dan-trik/cara-install-packet-tracer-di-ubuntu/
Comments
Wednesday, November 24, 2010 by Andy Kurnia Prayoga Made
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)
Comments
by Andy Kurnia Prayoga Made
Description: This program was made with the Java programming language. By using TextPad compiler. This program serves to convert decimal numbers into roman numbers, for example 16 is converted into XVI. This program has limitations in the maximum value that can be changed ie below 5000. If the input above the 5000 error message will arise from this program. Here's the source code of this program. Good luck!



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("===================================================");

  }
  }
 }

Comments
by Andy Kurnia Prayoga Made
Click image for download


source : http://free.avg.com/gb-en/download-update
Comments
Tuesday, November 23, 2010 by Andy Kurnia Prayoga Made
Recently I found a site that provides free sms service to Internet users. Name of the site " mesinsms.com "  . How to use it is very easy. First register yourself at this website. After successfully then login and please enjoy the services provided by this site. Services provided in it is very similar to cell phones that we've got. Everything is free, only capital only an Internet connection. Not bad for the efficient pulse when we send bulk sms to friends. Good luck!


Comments
by Andy Kurnia Prayoga Made
Unconsciously we have deleted important data in our computer hard drive. Confused! That is one expression that would arise after it happened. This time you do not need to be confused again, I have a reference to a software that can solve this problem. His name is "GetDataBack", according to my experience data that can be saved is that deleted data only (not lost due to format or reinstall). You can try this software by downloading it at the link below. Good luck!





source : http://www.runtime.org/data-recovery-software.htm
Comments
by Andy Kurnia Prayoga Made
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
    Comments
    by Andy Kurnia Prayoga Made
    Here I will tell the software to friends who like to download movies from the internet. Not all of them are usually the films were uploaded in full accordance with the actual size. To simplify the process of uploading the movie is usually the films that will be divided into several sections. One case in which this time will be discussed is when we download some movie parts that behind the name of the file containing the number .001 or .002, for example HarryPotter2010.AKP.part.001. For this case my friends need not worry, just download all the files provided by the server provider that will be your downloaded movie. After all parts are downloaded, place all the files in one folder. Then run this hjsplit. Click join, then select the file extension .001 behind numbered then begin the process of merging. Note: The merged file must have the same first name, for example HarryPotter2010.AKP.part.001, HarryPotter2010.AKP.part.002, and HarryPotter2010.AKP.part.003)

    Here's the download link from HJSplit



    source : http://www.freebyte.com/hjsplit/

    Comments
    by Andy Kurnia Prayoga Made
    Description: The following program is an example of database programming with visual basic 6. Database using SQL Server 2000. This time I will take the example of the Master Doctor in a hospital. The program is very simple and easy to learn. The process that is in it is quite complex that contains the search, add, delete and update data. This program is perfect for learning your new database programming in visual basic. This program uses only one table. The components used were the standard components provided by Visual Basic 6. Before making this program you must first design the database in SQL Server 2000 query analyzer, the following Transact from the database program:

    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
    

    Afterwards, we began designing the design and start coding in Visual Basic, the following source code of this program. Good luck!



    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
    

    Comments
    Monday, November 22, 2010 by Andy Kurnia Prayoga Made
    Maybe a lot of friends who use Epson printers have problems like this. The red light on the indicator next to the power button stays on life and death in turn without stopping. This is one indication that your printer is in overload condition. If you are someone who does not understand the hardware will directly take him to a printer repairman. Of course this will require a large fee to fix it. The case here is actually very simple, your printer is experiencing overload due to excessive activity, for example you have the wrong set the paper format at the time of printing. On Catridge Epson actually there is a chip that is similar to the memory. Each chip will do the printing record all activities of the printer. The longer the simple logic chips will be full and cause the printer can not function normally. One way of overcoming this problem is to set the printer back to default. There are manual and there is a way of using software to solve this problem. But this time I will only give the software to reset the printer you're in overload conditions. For instructions please read the files adobe reader provided in the download folder below. Good luck and good luck!

    Click image to download a tutorial and software (Epson T13 and T20)




    Comments
    by Andy Kurnia Prayoga Made
    description: This program made with Visual Basic 6 programming language. The objective of this program is to find a series of prime numbers. We enter the lower limit at the upper limit in text1 and text2. Then the results of these series of prime numbers we show in text3. For more details, follows the source code of this program. Good luck!



    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
    

    Comments
    Wednesday, November 17, 2010 by Andy Kurnia Prayoga Made
    Description: This program was made with the Java programming language. By using TextPad compiler. This program is very simple that is to change the input numbers into output letters. For example, we input the number 35 then outputs the resulting program is "Thirty-Five". For more details, follows the source code of this program. Good luck!



    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);
    }
    }
    

    Comments
    by Andy Kurnia Prayoga Made
    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
    Comments
    by Andy Kurnia Prayoga Made
    Kaspersky Pure Offline Update
    click image for download

    Kaspersky Internet Security 2011 Offline Update
    click image for download
     

    Kaspersky Internet Security 2010 Offline Update 
    click image for download


    source : http://www.kasperskysupport.com/
    Comments
    Tuesday, November 16, 2010 by Andy Kurnia Prayoga Made
    One of the Transact SQL server 2000 which is very useful to us is the Transact join. It aims to combine several tables that have a primary key that refers to another table. There are 4 types of Transact join the most commonly used. Maybe many people are confused about the difference between inner join, left join, right joins and full join on writing Transact SQL server in query analyzer. To eliminate confusion, please try for yourself Transact-Transact below in your query analyzer. Please try and find their own conclusions.



    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
    
    Comments
    by Andy Kurnia Prayoga Made
    Description: This program was made with the programming language visual basic 2008. The program I give the name "Ende-Crypt". The objective of this program is for encryption and decryption of a word. This is certainly very closely related to the previous program (URLMemory) where the password of an account can we go back for encryption and decryption of data security of our passwords more secure. With standard control facilities from VB 2008 such as textbox and button are able to form this program. Here's the source code of this program. Good luck!

    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 

    Comments
    by Andy Kurnia Prayoga Made
    Description: This program was made with the programming language visual basic 2008. I give this program the name "URLMemory". Purposes of this program is to facilitate Internet users to remember the username and password on websites that you register. Example given in the e-mail account. These programs use a textfile as storage media databases. Manufacture is also very easy, just use the standard controls of Visual Basic 2008, which is used as textbox, combobox and others. Weakness of this program one of them is not using the password encryption methods so that in terms of security is still lacking. To encrypt the files will be discussed at the next program. Of course there are many more other deficiencies. To cover the following things give me the source code of this program. Good luck!


    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 

    Comments