Bit by Bit Bölme işlemi

Bit by bit bölme islemi fonksiyonu

Public Function StepbyStepDivisor(Data As String, Divisor As String) As String

Dim Sonuc As String
Dim Tasiyici_Data_one_bit  As Boolean
Dim Tasiyici_Divisor_one_bit  As Boolean
Dim Tasiyici_Sonuc  As Boolean


For X = 1 To Len(Data) Step 1
    Tasiyici_Data_one_bit = Mid(Data, X, 1)
    Tasiyici_Divisor_one_bit = Mid(Divisor, X, 1)
    Tayisici_Sonuc = Tasiyici_Data_one_bit Xor Tasiyici_Divisor_one_bit
    Sonuc = Sonuc & CInt(Abs(Tayisici_Sonuc))
Next
StepbyStepDivisor = Sonuc

End Function