Video convert master v.8.11.25

yang mau convert segala macam format video silahkan di download software berikut ini.

link download

kode fungsi "msgbox"

The MsgBox function displays a message box, waits for the user to click a button, and returns a value that indicates which button the user clicked.

The MsgBox function can return one of the following values:

• 1 = vbOK - OK was clicked
• 2 = vbCancel - Cancel was clicked
• 3 = vbAbort - Abort was clicked
• 4 = vbRetry - Retry was clicked
• 5 = vbIgnore - Ignore was clicked
• 6 = vbYes - Yes was clicked
• 7 = vbNo - No was clicked

Note: The user can press F1 to view the Help topic when both the helpfile and the context parameter are specified.

Tip: Also look at the InputBox function.

Syntax

MsgBox(prompt[,buttons][,title][,helpfile,context])

Parameter	Description
prompt	Required. The message to show in the message box. Maximum length is 1024 characters. You can separate the lines using a carriage return character (Chr(13)), a linefeed character (Chr(10)), or carriage return–linefeed character combination (Chr(13) & Chr(10)) between each line
buttons	Optional. A value or a sum of values that specifies the number and type of buttons to display, the icon style to use, the identity of the default button, and the modality of the message box. Default value is 0 0 = vbOKOnly - OK button only 1 = vbOKCancel - OK and Cancel buttons 2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons 3 = vbYesNoCancel - Yes, No, and Cancel buttons 4 = vbYesNo - Yes and No buttons 5 = vbRetryCancel - Retry and Cancel buttons 16 = vbCritical - Critical Message icon 32 = vbQuestion - Warning Query icon 48 = vbExclamation - Warning Message icon 64 = vbInformation - Information Message icon 0 = vbDefaultButton1 - First button is default 256 = vbDefaultButton2 - Second button is default 512 = vbDefaultButton3 - Third button is default 768 = vbDefaultButton4 - Fourth button is default 0 = vbApplicationModal - Application modal (the current application will not work until the user responds to the message box) 4096 = vbSystemModal - System modal (all applications wont work until the user responds to the message box) We can divide the buttons values into four groups: The first group  (0–5) describes the buttons to be displayed in the message box, the second group (16, 32, 48, 64) describes the icon style, the third group (0, 256, 512, 768) indicates which button is the default; and the fourth group (0, 4096) determines the modality of the message box. When adding numbers to create a final value for the buttons parameter, use only one number from each group
title	Optional. The title of the message box. Default is the application name
helpfile	Optional. The name of a Help file to use. Must be used with the context parameter
context	Optional. The Help context number to the Help topic. Must be used with the helpfile parameter

fungsi terbilang pada vb 6

Seperti yang pernah rekan pembaca lakukan pada pembelian atau pembayaran atau menabung di bank, ada 'angka' yang menunjukkan banyaknya uang yang mau disetor tersebut, ada pula 'kalimat' yang menunjukkan banyaknya uang yang mau disetor tersebut, yang biasanya bertuliskan 'terbilang'.
Contoh:
100.000
Terbilang: Seratus ribu.

Untuk mahasiswa yang sedang ada tugas Visual Basic 6.0 yang berkaitan dengan kasus tersebut, silakan pelajari Script atau Source Code Visual Basic ini:

'Belajar Visual Basic 6.0
'Tambahkan: 1 TextBox, 1 CommandButton, 1 Label
'Riyan Hidayat Samosir in BeKaBe.BlogSpot.Com

Function SayNumber(nNumber As Variant, _
Optional SayKoma As Boolean = False) As String
Dim i As Long
Dim s As String
Dim s2 As Double
Dim x As String
Dim minus As Boolean
Dim nBulat As Double

If TypeName(nNumber) = "String" Then
If Trim(Mid$(nNumber, 1, 1) = "-") Then
minus = True
nNumber = Mid(nNumber, 2)
End If
x = Trim(CDbl(nNumber))

Else
If nNumber < 0 Then nNumber = Abs(nNumber) minus = True End If x = FormatNumber(nNumber, 2) End If s = SayN(Int(nNumber)) If minus Then SayNumber = "Minus " & s Else SayNumber = s End Function Function SayN(nNumber As Double) As String Dim z, s, a, c, x Dim ulang As Double Dim i As Byte Dim tampung(5) As String Dim n As String n = LTrim(RTrim(nNumber)) ulang = (Len(n) - 1) \ 3 + 1 For i = 1 To ulang If Len(n) > 3 Then
c = Mid$(n, Len(n) - 2, 3)
n = Mid$(n, 1, Len(n) - 3)
tampung(i) = c
Else
tampung(i) = n
End If
Next i

z = ""
If n = "0" Then
z = "Nol "
Else
i = ulang
Do
a = ""
x = ""
s = tampung(i)
While Len(s) < 3 s = "0" + s Wend 'digit ratusan If Mid$(s, 1, 1) <> "0" Then
If Mid$(s, 1, 1) = "1" Then
a = a + "Seratus "
Else
a = a + Nama(Mid$(s, 1, 1)) + "Ratus "
End If
End If

'digit 11-19
If Mid$(s, 2, 1) = "1" Then
If (Mid$(s, 3, 1) <> "1") And (Mid$(s, 3, 1) <> "0") Then
a = a + Nama(Mid$(s, 3, 1)) + "Belas "
End If
If Mid$(s, 3, 1) = "1" Then a = a + "Sebelas "
If Mid$(s, 3, 1) = "0" Then a = a + "Sepuluh "
End If

'digit puluhan
If (Mid$(s, 2, 1) <> "1") And _
(s <> "000") And (Mid$(s, 2, 1) <> "0") Then
a = a + Nama(Mid$(s, 2, 1)) + "Puluh "
End If

If (Mid$(s, 3, 1) <> "0") And (Mid$(s, 2, 1) <> "1") Then
a = a + Nama(Mid$(s, 3, 1))
End If

'perkecualian untuk seribu
If (i = 2) Then
If s = "001" Then a = "Se"
End If

If s <> "000" Then
If i = 1 Then x = ""
If i = 2 Then x = "Ribu "
If i = 3 Then x = "Juta "
If i = 4 Then x = "Miliar "
If i = 5 Then x = "Triliun "
End If
If a = "Se" Then x = LCase(x)
z = z + a + x
i = i - 1
Loop Until i = 0
End If
SayN = z
End Function

Private Function Nama(a As String) As String
Select Case a
Case "1": Nama = "Satu "
Case "2": Nama = "Dua "
Case "3": Nama = "Tiga "
Case "4": Nama = "Empat "
Case "5": Nama = "Lima "
Case "6": Nama = "Enam "
Case "7": Nama = "Tujuh "
Case "8": Nama = "Delapan "
Case "9": Nama = "Sembilan "
Case "0": Nama = ""
End Select
End Function

Private Sub Command1_Click()
Label1.Caption = SayNumber(Text1.Text)
End Sub
sumber: http://bekabe.blogspot.com/2011/04/visual-basic-membuat-fungsi-terbilang.html

Psychic Reading

Effect : Seorang penonton memikirkan nama suatu negara di dunia, lalu anda suruh juga memikirkan nama hewan. Anda berkonsentrasi untuk mendapatkan gelombang otaknya dan....akhirnya anda mendapatkannya. Anda lalu menebak kedua hal tersebut...penonton tercengang karena anda dengan TEPAT membaca pikirannya!

Secret : Sebenarnya anda melakukan forcing (memaksa dengan halus) jadi penonton tidak menyadarinya dengan syarat anda jangan mengatakan apa yang hendak anda lakukan! Adapun forcing yang saya maksud adalah rumus ilmu pasti yang gunanya membawa penonton ketujuan yang kita inginkan. Bingung? Untuk itu coba baca dan ikuti rutin di bawah ini (anggap anda adalah penonton dan saya pesulapnya) dengan begitu anda akan kaget dan sekaligus paham metode Mind Reading ini.

• Silahkan anda pilih angka antara 1-10...sudah?
• Sekarang kalikan angka rahasia anda dengan 2!
• Bila sudah tambahkan dengan 8, lakukan sekarang...sudah?
• Kini hasil tersebut anda bagi 2...oke saya beri waktu anda menghitungnya...
• Anda masih ingat angka rahasia anda diawal tadi? Nah kurangkan hasil perhitungan kita tadi dengan angka rahasia anda!
• Bila sudah kini anda rubah hasilnya tersebut ke abjad, begini maksud saya bila 1 maka jadi A, bila 2 jadi B, 3 jadi C, 4 jadi D, 5 jadi E....dan seterusnya, anda pahamkan?
• Kini anda telah memiliki abjad rahasia yang orang lain tidak mengetahuinya, termasuk saya...dan saya ingin anda memikirkan nama suatu negara di dunia dengan menggunakan abjad rahasia anda. Jadikan abjad tersebut sebagai huruf awal nama suatu negara...sudah?
• Bila sudah saya ingin anda pikirkan nama hewan, tapi tunggu dulu pilih nama hewan tersebut menggunakan huruf kedua dari nama negara yang anda pilih. Begini misalnya, nama negara yang saya pilih INdonesia, nah huruf keduanya adalah N maka hewan yang saya pilih adalah NURI (nuri adalah hewan dari jenis burung).
• Oke apakah anda sudah mendapatkan nama hewan yang sesuai dengan huruf kedua dari nama negara yang anda pilih?
• Benar sudah?...kalau belum saya akan menunggu anda.
• Oke kalau sudah silahkan pikirkan kedua hal tersebut dan kirimkan kelayar komputer anda...
• Saya tidak mengenal Anda, tapi percayakah Anda meski begitu saya tahu apa yang Anda Pikirkan?
• Saya kini telah mendapatkan gelombang pikiran anda, dan.................

Jawaban anda: Elang