VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Double Integer to 2 Long"
   ClientHeight    =   3825
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   3915
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   3915
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Number 1 * Number 2"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   10
      Top             =   2880
      Width           =   2295
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      MaxLength       =   9
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   840
      Width           =   1935
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      MaxLength       =   9
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   360
      Width           =   1935
   End
   Begin VB.Label Label8 
      Caption         =   "High Long"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   9
      Top             =   2280
      Width           =   1935
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      Caption         =   "High Long ="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   2280
      Width           =   1215
   End
   Begin VB.Label Label6 
      Caption         =   "LowLong"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   7
      Top             =   1920
      Width           =   1935
   End
   Begin VB.Label Label5 
      Alignment       =   1  'Right Justify
      Caption         =   "Low Long ="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Label4 
      Caption         =   "Result"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   5
      Top             =   1440
      Width           =   1935
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      Caption         =   "Result ="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   4
      Top             =   1440
      Width           =   975
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Number 2 ="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   900
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Number 1 ="
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   435
      Width           =   1215
   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 11-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:

Rem S4 = B1(0)
Rem S3 = B1(1)
Rem S3 = S3 * 256
Rem S2 = B1(2)
Rem S2 = S2 * 65536
Rem S1 = B1(3)
Rem S1 = S1 * 16777216
Rem LNL = S1 + S2 + S3 + S4
Rem MsgBox ("Number 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:

Rem S4 = B2(0)
Rem S3 = B2(1)
Rem S3 = S3 * 256
Rem S2 = B2(2)
Rem S2 = S2 * 65536
Rem S1 = B2(3)
Rem S1 = S1 * 16777216
Rem LNH = S1 + S2 + S3 + S4
Rem MsgBox ("Number 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