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