Thursday, December 23, 2010

dollars paid to shorten URLs

We are a free URL shortening service with a twist..get paid to share your links on the Internet!Just register for an account and start shrinking.You get paid for every person that visits your URLs.Example URL for Google: http://adf.ly/5XRPlace your links on Facebook, Twitter, forums,Join Now or click this bannerGet paid to share your lin...

Wednesday, November 24, 2010

Tips for Caring Strategies For Long-lasting Printer Cartridges

The printer is an important item. Without our printers can not print the results of our work. But printers are often overlooked for its maintenance. Here are some tips for caring for inkjet printer cartridges for durable and can still be used in the long term.1. If the ink in the cartridge runs out, get the content.Ink is a lubricant for the printer head. For example, color ink still used though to be printed is black, and vice versa. If you print...

Thursday, November 18, 2010

Angka Romawi Converter

Tthis VB6 program converts an integer in the range of 1 through 3999 to its equivalent in Roman numerals. VB6 program to convert an integer in the range 1 to 3999 for the equivalent in Roman numerals. Also it converts a Roman numeral string to its decimal equivalent.It is also changing the Roman numeral string to its decimal equivalent.The rules for Roman numerals are as follows: The rules for Roman numerals is as follows:* The basic symbols...

Wednesday, November 10, 2010

guess function results

Private Sub tebakhasil(ByRef B As Integer, ByVal A As Integer, ByVal C As Integer, D As Integer) A = 5 B = 2 * A C = A + B D = A + B + CEnd SubPrivate Sub Form_Activate()Dim A As Integer, B As Integer, C As Integer, D As Integer A = 1: B = 2: C = 3: D = 4 Print " Angka Awal : "; A; B; C; D tebakhasil A, B, C, D Print " Angka Akhir : "; A; B; C; DEnd SubDownload From...

Calculating combinations C (n, k)

Make a label 4, 2 and textbox CommandButton 1, and you design like the image below Function Faktorial(ByVal n As Integer) As Double Dim i As Integer, Fakt As Double Fakt = 1 For i = 2 To n Fakt = Fakt * i Next Faktorial = Fakt End Function Function kombinasi(ByVal n As Integer, ByVal k As Integer) As Long kombinasi = Faktorial(n) / (Faktorial(n - k) * Faktorial(k)) End Function Private...

Swap X and Y Values

!-- /* Font Definitions */ @font-face...

Sunday, October 3, 2010

Repetition For..Next the visual basic

you first open the vb 6after the open it would appear from this Private Sub Form_Activate()Dim j As IntegerFor j = 1 To 15Print j; Chr(j + 65); Chr(122 - j);Nextoutputnya :Download FromnyaAnother example : Private Sub Form_Activate()Dim j As Integer, k As integer For j = 9 To 1 Step -1For k = 1 To j Print j; Chr(64 + k);NextPrintNextoutputnya :Download Fromnya Another example :Private Sub Form_Activate()Dim j As Integer, k As integer For...

Wednesday, September 29, 2010

the latest social networking

p { margin-bottom: 0.21cm; }h2 { margin-bottom: 0.21cm; } As a member: You will be able to multiply your income by working at home. Our members earn points for every activity they do on the site then after 24 hours all their points are converted into real cash. We have 7 ways for you to make money in this site: Earn money by viewing advertisements. Earn money by sharing videos, blogs, photos and music. Earn 25% of your referrals earnings for...

Sunday, September 26, 2010

contoh program Select Case pada vb6.0

- Open the program vb6.0- Then create a new project just by clicking File, New Project, Select Standard, then OK- Prepare a TextBox and 3 command button, then delete the text in the TextBox and change the name of a command button in accordance with the wishes in the Properties windowThen type the following script in a command button Normal 0 false false false EN-US X-NONE X-NONE ...