VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Double Integer'dan iki Long'a"
   ClientHeight    =   3825
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3720
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   3720
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Sayı 1 * Sayı 2"
      Height          =   495
      Left            =   1320
      TabIndex        =   10
      Top             =   2880
      Width           =   2055
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   1440
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   840
      Width           =   1935
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1440
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   360
      Width           =   1935
   End
   Begin VB.Label Label8 
      Caption         =   "High Long"
      Height          =   375
      Left            =   1440
      TabIndex        =   9
      Top             =   2280
      Width           =   1935
   End
   Begin VB.Label Label7 
      Caption         =   "High Long ="
      Height          =   375
      Left            =   360
      TabIndex        =   8
      Top             =   2280
      Width           =   975
   End
   Begin VB.Label Label6 
      Caption         =   "LowLong"
      Height          =   375
      Left            =   1440
      TabIndex        =   7
      Top             =   1920
      Width           =   1935
   End
   Begin VB.Label Label5 
      Caption         =   "Low Long ="
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label4 
      Caption         =   "Sonuc"
      Height          =   375
      Left            =   1440
      TabIndex        =   5
      Top             =   1440
      Width           =   1935
   End
   Begin VB.Label Label3 
      Caption         =   "Sonuç = "
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1440
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "Sayı 2 ="
      Height          =   375
      Left            =   360
      TabIndex        =   1
      Top             =   960
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "Sayı 1 ="
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Sayi1 As Long
Dim Sayi2 As Long
Dim Sonuc As Double
Dim LNL As Double
Dim LNH As Double
Dim S As Long
Dim T As Integer
Dim B1(3) As Integer
Dim B2(3) As Integer
Dim B3(19) As Integer
Dim B(8) As Integer
Dim S1 As Double
Dim S2 As Long
Dim S3 As Long
Dim S4 As Integer

Private Sub Command1_Click()
Rem Erdogan Tan 10-11-2008
Sayi1 = CLng(Val(Text1.Text))
Sayi2 = CLng(Val(Text2.Text))
Sonuc = Sayi1
Sonuc = Sonuc * Sayi2
Label4.Caption = Sonuc
If Sonuc < 1 Then GoTo BunuGec3
S = Sayi1
B1(0) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec1
B1(1) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec1
B1(2) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec1
B1(3) = S Mod 256
S = S \ 256

BunuGec1:

S4 = B1(0)
S3 = B1(1)
S3 = S3 * 256
S2 = B1(2)
S2 = S2 * 65536
S1 = B1(3)
S1 = S1 * 16777216
LNL = S1 + S2 + S3 + S4
MsgBox ("Sayı 1 = " + CStr(LNL))

S = Sayi2
B2(0) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec2
B2(1) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec2
B2(2) = S Mod 256
S = S \ 256
If S = 0 Then GoTo BunuGec2
B2(3) = S Mod 256
S = S \ 256

BunuGec2:

S4 = B2(0)
S3 = B2(1)
S3 = S3 * 256
S2 = B2(2)
S2 = S2 * 65536
S1 = B2(3)
S1 = S1 * 16777216
LNH = S1 + S2 + S3 + S4
MsgBox ("Sayı 2 = " + CStr(LNH))

S = B1(0)
S = S * B2(0)
B3(0) = S Mod 256
T = S \ 256
S = B1(1)
S = S * B2(0)
B3(1) = (S Mod 256) + T
T = S \ 256
S = B1(2)
S = S * B2(0)
B3(2) = (S Mod 256) + T
T = S \ 256
S = B1(3)
S = S * B2(0)
B3(3) = (S Mod 256) + T
T = S \ 256
B3(4) = T
Rem *
S = B1(0)
S = S * B2(1)
B3(5) = (S Mod 256)
T = S \ 256
S = B1(1)
S = S * B2(1)
B3(6) = (S Mod 256) + T
T = S \ 256
S = B1(2)
S = S * B2(1)
B3(7) = (S Mod 256) + T
T = S \ 256
S = B1(3)
S = S * B2(1)
B3(8) = (S Mod 256) + T
T = S \ 256
B3(9) = T
Rem *
S = B1(0)
S = S * B2(2)
B3(10) = S Mod 256
T = S \ 256
S = B1(1)
S = S * B2(2)
B3(11) = (S Mod 256) + T
T = S \ 256
S = B1(2)
S = S * B2(2)
B3(12) = (S Mod 256) + T
T = S \ 256
S = B1(3)
S = S * B2(2)
B3(13) = (S Mod 256) + T
T = S \ 256
B3(14) = T
Rem *
S = B1(0)
S = S * B2(3)
B3(15) = S Mod 256
T = S \ 256
S = B1(1)
S = S * B2(3)
B3(16) = (S Mod 256) + T
T = S \ 256
S = B1(2)
S = S * B2(3)
B3(17) = (S Mod 256) + T
T = S \ 256
S = B1(3)
S = S * B2(3)
B3(18) = (S Mod 256) + T
T = S \ 256
B3(19) = T
Rem *
B(0) = B3(0)
S = B3(1)
S = S + B3(5)
B(1) = S Mod 256
T = S \ 256
S = B3(2)
S = S + B3(6) + B3(10) + T
B(2) = S Mod 256
T = S \ 256
S = B3(3)
S = S + B3(7) + B3(11) + B3(15) + T
B(3) = S Mod 256
T = S \ 256
S = B3(4)
S = S + B3(8) + B3(12) + B3(16) + T
B(4) = S Mod 256
T = S \ 256
S = B3(9)
S = S + B3(13) + B3(17) + T
B(5) = S Mod 256
T = S \ 256
S = B3(14)
S = S + B3(18) + T
B(6) = S Mod 256
T = S \ 256
S = B3(19)
S = S + T
B(7) = S Mod 256
T = S \ 256
B(8) = T

BunuGec3:
S4 = B(0)
S3 = B(1)
S3 = S3 * 256
S2 = B(2)
S2 = S2 * 65536
S1 = B(3)
S1 = S1 * 16777216
LNL = S1 + S2 + S3 + S4
S4 = B(4)
S3 = B(5)
S3 = S3 * 256
S2 = B(6)
S2 = S2 * 65536
S1 = B(7)
S1 = S1 * 16777216
LNH = S1 + S2 + S3 + S4
Label6.Caption = CStr(LNL)
Label8.Caption = CStr(LNH)
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""
Label6.Caption = ""
Label8.Caption = ""
End Sub