Option ExplicitPrivate Sub Command1_Click() Dim L As Long Dim MyArray() As String ' Load file into string array FileToArray "C:\TEST.txt", MyArray ' Reverse array contents ReverseStrArray MyArray ' show result in...
Showing posts with label Array. Show all posts
Showing posts with label Array. Show all posts
Sunday, June 17, 2012
Membaca File Dan Memasukannya Ke Dalam Array
READ MORE - Membaca File Dan Memasukannya Ke Dalam Array
Memperoleh Array Dari Prosedur Fungsi
Option ExplicitPrivate aiLeftSide() As IntegerPrivate asLeftSide() As StringPrivate aiRightSide(1 To 10) As IntegerPrivate asRightSide(1 To 10) As StringPrivate obj As ObjectPublic Function ArrayFromClass() As String() Dim astr(1 To 10) As String...
Bagaimana Membuat Function Yang Mengandung Array - VB6
Mengenai cara membuat fungsi yang memperoleh (return) nilai array dalam bahasa pemrograman Visual Basic 6.0 - Untuk membuat fungsi yang mendapatkan nilai array dalam VB6, coba perhatikan bentuk fungsi berikut: Private Function GetArrFunction() As String()...
Thursday, June 7, 2012
VB6 Code - Meng-copy Array Secara Cepat
Private Declare Sub CopyMemory Lib "kernel32" _ Alias "RtlMoveMemory" (Dest As Any, _ Source As Any, ByVal Length As Long) Private Sub CopyArray() Dim lngbytes As Long Dim lngSrc(1 To 600000) As Long Dim lngDest(1 To 600000) As Long ...
Sunday, April 4, 2010
VB6 Code - Memperoleh Nilai Maksimal Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai maksimal dari sebuah array.Option ExplicitPublic Function MAX(ByRef Number() As Double) As Double Dim iMaxNum As Double Dim i As Integer iMaxNum = Number(LBound(Number)) For i =...
VB6 Code - Memperoleh Nilai Minimal Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk mencari nilai minimal dari sebuah array.Option ExplicitPublic Function MIN(ByRef Number() As Double) As Double Dim iMaxNum As Double iMaxNum = Number(LBound(Number)) Dim i As Integer For i = LBound(Number)...
VB6 Code - Memperoleh Nilai Rata-rata Dari Sebuah Array
Di bawah ini merupakan fungsi VB6 untuk memperoleh nilai rata-rata dari sebuah array.Option ExplicitFunction AVERAGE(ByRef Number() As Double) As Double Dim iMaxNum As Double, i As Integer For i = LBound(Number) To UBound(Number) iMaxNum...
Subscribe to:
Posts
(
Atom
)
