Thứ Tư, 13 tháng 3, 2013

íntall infinidock ios 4.2.1

cydia : change to develop
install icon Support

and install this deb file :


https://www.box.com/s/pqaf09udt91g054ynjoj

không thể kết nối có thể ping ,cant browse but ping local network

tạo file hosts  trong c:\windows\system32\driver\etc ( nếu bị mất)
vào run  : cmd


netsh winsock reset
khởi động lại 


create hosts  file in c:\windows\system32\driver\etc (if missing)

open run dialog:
cmd
netsh winsock reset
restart computer

Thứ Ba, 5 tháng 3, 2013

direct install ipa on ios6

cydia :add source : cydia.myrepospace.com/ilex

install package : ilex Ipa Installer
respring

copy  ipa files (use ifile ) to :/var/mobile/Media/general_storage

run ilexipa


Thứ Năm, 3 tháng 1, 2013

excel vba function Rank2


Function RANK2(value As Double, R As Range, order As Integer) As Integer
Dim a(1000) As Double
Dim n As Integer
Dim i As Integer
Dim k As Integer
Dim tam As Double
n = 0
For i = 1 To R.Rows.Count
    If n > 0 Then
        For k = 1 To n
         If R.Cells(i, 1) = a(k) Then
            GoTo tiep
         End If
        Next k
    End If
   
    n = n + 1
    a(n) = R.Cells(i, 1)
tiep:
Next i
For i = 1 To n - 1
    For k = i + 1 To n
        If a(i) > a(k) Then
        tam = a(i)
        a(i) = a(k)
        a(k) = tam
        End If
    Next k
Next i

For i = 1 To n
    If value = a(i) Then
    If order = 1 Then
    RANK2 = i
    Else
    RANK2 = n - i + 1
    End If
   
    End If
Next i

End Function