Anasayfa > Kodlar > VB6 ile Bit by bit bölme işlemi

VB6 ile 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

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: