• Home
 · 
• Math/Dates
 · 
• GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenet

GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenet

GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenetic software

API Declarations


Const CABBAR_DEVICE_DEFAULT = 0
Const CABBAR_A = 1
Const CABBAR_B = 2
Const CABBAR_C = 3
Const CABBAR_D50 = 4
Const CABBAR_D55 = 5
Const CABBAR_D65 = 6
Const CABBAR_D75 = 7
Const CABBAR_F2 = 8
Const NEGATIVE = &H1
Const normal = &H0

Private Type COLORADJUSTMENT
caSize As Integer
caFlags As Integer
caCABBARIndex As Integer
caRedGamma As Integer
caGreenGamma As Integer
caBlueGamma As Integer
caReferenceBlack As Integer
caReferenceWhite As Integer
caContrast As Integer
caBrightness As Integer
caColorfulness As Integer
caRedGreenTint As Integer
End Type
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Private Declare Function GetColorAdjustment Lib "gdi32" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long
Private Declare Function SetColorAdjustment Lib "gdi32" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long

Private Type elektronik
pno As String * 10
soft As String * 10
End Type
Dim kayit As elektronik



Rate GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenet

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

MsgBox "Copyrigth Serdar Yüksel 2007. email: [email protected], [email protected]"
End Sub

Private Sub Command7_Click()
Dim a As String
For x = 0 To List2.ListCount - 1
a = a & List2.List(x) & vbTab & vbCrLf
Next x
Text44r.Text = Text44r.Text + a
CommonDialog1.Filter = "excell files (*.csv)|*.csv |text files(*.txt)|*.txt|"
    CommonDialog1.ShowSave      'display Save dialog
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
        Print #1, Text44r.Text  'save string to file
        Close #1                'close file
    End If
End Sub

Private Sub extm_Click()
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next

Dim centro As Integer
pixel = 3
    Form3.ScaleMode = pixel
    Picture1.ScaleMode = pixel
    Picture2.ScaleMode = pixel
    Resim1.Picture = LoadPicture(App.Path & "\" & "chromosome.bmp")
 
    Picture1.Picture = Resim1.Picture
Call resizes

Kill App.Path & "\chromosome1.txt"
Kill App.Path & "\chromosome2.txt"
Kill App.Path & "\result.txt"
Kill App.Path & "\correlation.csv"
    End Sub
   Private Function resizes()
   On Error Resume Next
Dim realb, nowb As Single
realb = 160
nowb = realb / Resim1.Height
Picture1.Width = Round(Picture1.Width * nowb)
Picture1.Height = Round(Picture1.Height * nowb)
   Picture1.AutoRedraw = True
   Picture1.PaintPicture Picture1.Picture, _
        Picture1.ScaleLeft, Picture1.ScaleTop, Picture1.ScaleWidth, Picture1.ScaleHeight, _
           Picture1.Picture = Picture1.Image
           Picture1.AutoRedraw = False
Resim1.Width = Resim1.Width * nowb
Resim1.Height = Resim1.Height * nowb
   Resim1.AutoRedraw = True
   Resim1.PaintPicture Resim1.Picture, _
        Resim1.ScaleLeft, Resim1.ScaleTop, Resim1.ScaleWidth, Resim1.ScaleHeight, _
           Resim1.Picture = Resim1.Image
Resim1.AutoRedraw = False
Command5_Click
   End Function
   
    
    Private Function ressave()
    Dim a As String
For x = 0 To List2.ListCount - 1
a = a & List2.List(x) & vbTab & vbCrLf
Next x
Text44r.Text = Text44r.Text + a
        Open App.Path & "\result.txt" For Output As #1
        Print #1, Text44r.Text  'save string to file
        Close #1                'close file
    
    End Function
Private Sub Check1_Click()
    haydar (17)
End Sub

Private Sub opim2_Click()
CommonDialog2.ShowOpen
Picture2.Picture = LoadPicture(CommonDialog2.FileName)
Picture2.Visible = True
Picture3.Visible = True
Call resizes
Option4.Value = True
End Sub

Private Sub Option1_Click()
If Option1.Value = True Then
Picture2.Picture = LoadPicture(App.Path & "\9400.bmp")
End If
Picture2.Visible = False
Picture3.Visible = False
Call resizes
Command5_Click
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Picture2.Picture = LoadPicture(App.Path & "\12400.bmp")
End If
Picture2.Visible = False
Picture3.Visible = False
Call resizes
Command5_Click
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Picture2.Picture = LoadPicture(App.Path & "\16400.bmp")
End If
Picture2.Visible = False
Picture3.Visible = False
Call resizes
Command5_Click
End Sub



Private Sub Option4_Click()
CommonDialog2.ShowOpen
Picture2.Picture = LoadPicture(CommonDialog2.FileName)
Picture2.Visible = True
Picture3.Visible = True
Call resizes
End Sub







Private Sub stat_Click()
Form2.Show
End Sub

Private Sub VS_scroll(index As Integer)
    haydar (index)
End Sub
Private Sub haydar(es As Integer)
    Dim TheColor As COLORADJUSTMENT
    GetColorAdjustment Picture1.hdc, TheColor
    TheColor.caSize = Len(TheColor)
    Select Case es
        Case 0
            TheColor.caContrast = vs(es).Value
        Case 1
            TheColor.caRedGamma = vs(es).Value
        Case 2
            TheColor.caGreenGamma = vs(es).Value
        Case 3
            TheColor.caBlueGamma = vs(es).Value
        Case 4
            TheColor.caBrightness = vs(es).Value
        Case 5
            TheColor.caRedGreenTint = vs(es).Value
        Case 6
            TheColor.caColorfulness = vs(es).Value
        Case 7
            TheColor.caReferenceWhite = vs(es).Value
        Case 8
            TheColor.caReferenceBlack = vs(es).Value
        Case 9
            TheColor.caCABBARIndex = CABBAR_DEVICE_DEFAULT
        Case 10
            TheColor.caCABBARIndex = CABBAR_A
        Case 11
            TheColor.caCABBARIndex = CABBAR_B
        Case 12
            TheColor.caCABBARIndex = CABBAR_C
        Case 13
            TheColor.caCABBARIndex = CABBAR_D50
        Case 14
            TheColor.caCABBARIndex = CABBAR_D55
        Case 15
            TheColor.caCABBARIndex = CABBAR_D75
        Case 16
            TheColor.caCABBARIndex = CABBAR_F2
        Case 17
            If Check1 Then
                TheColor.caFlags = NEGATIVE
            Else
                TheColor.caFlags = normal
            End If
    End Select
    SetStretchBltMode Picture1.hdc, HALFTONE
    SetColorAdjustment Picture1.hdc, TheColor
    StretchBlt Picture1.hdc, 0, 0, Resim1.ScaleWidth, Resim1.ScaleHeight, Resim1.hdc, 0, 0, Resim1.ScaleWidth, Resim1.ScaleHeight, vbSrcCopy
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
'Timer2.Enabled = True
End Sub
Private Sub Command16_Click()
Picture1.Cls
End Sub
Private Sub Command17_Click()
Picture2.Cls
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
On Error Resume Next
Picture1.Width = Picture1.Width * 1.1
Picture1.Height = Picture1.Height * 1.1
   Picture1.AutoRedraw = True
   Picture1.PaintPicture Picture1.Picture, _
        Picture1.ScaleLeft, Picture1.ScaleTop, Picture1.ScaleWidth, Picture1.ScaleHeight, _
           Picture1.Picture = Picture1.Image
           Picture1.AutoRedraw = False
Resim1.Width = Resim1.Width * 1.1
Resim1.Height = Resim1.Height * 1.1
   Resim1.AutoRedraw = True
   Resim1.PaintPicture Resim1.Picture, _
        Resim1.ScaleLeft, Resim1.ScaleTop, Resim1.ScaleWidth, Resim1.ScaleHeight, _
           Resim1.Picture = Resim1.Image
Resim1.AutoRedraw = False
Command5_Click
End Sub
Private Sub Command4_Click()
On Error Resume Next
Picture1.Width = Picture1.Width * 0.9
Picture1.Height = Picture1.Height * 0.9
   Picture1.AutoRedraw = True
   Picture1.PaintPicture Picture1.Picture, _
        Picture1.ScaleLeft, Picture1.ScaleTop, Picture1.ScaleWidth, Picture1.ScaleHeight, _
           Picture1.Picture = Picture1.Image
           Picture1.AutoRedraw = False
Resim1.Width = Resim1.Width * 0.9
Resim1.Height = Resim1.Height * 0.9
   Resim1.AutoRedraw = True
   Resim1.PaintPicture Resim1.Picture, _
        Resim1.ScaleLeft, Resim1.ScaleTop, Resim1.ScaleWidth, Resim1.ScaleHeight, _
           Resim1.Picture = Resim1.Image
Resim1.AutoRedraw = False
Command5_Click

End Sub
Private Sub Command5_Click()
On Error Resume Next
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
Picture2.AutoRedraw = True
   Picture2.PaintPicture Picture2.Picture, _
        Picture2.ScaleLeft, Picture2.ScaleTop, Picture2.ScaleWidth, Picture2.ScaleHeight, _
           Picture2.Picture = Picture2.Image
End Sub
Private Sub Command6_Click()
Dim a As String
For x = 0 To List1.ListCount - 1
a = a & List1.List(x) & vbTab & vbCrLf
Next x
Text44.Text = Text44.Text + a
CommonDialog3.Filter = "excell files (*.csv)|*.csv |text files(*.txt)|*.txt|"
    CommonDialog3.ShowSave      'display Save dialog
    If CommonDialog3.FileName <> "" Then
        Open CommonDialog3.FileName For Output As #1
        Print #1, Text44.Text  'save string to file
        Close #1                'close file
    End If
End Sub
Private Sub openp_Click()
On Error GoTo error:

    With cde
        .DialogTitle = "Open Picture"
        .Filter = "Pictures (*.Bmp *.Jpg *.Gif)|*.bmp; *.jpg; *.gif"
        .ShowOpen
        Resim1.Picture = LoadPicture(cde.FileName)
        Picture1.Picture = Resim1.Picture
        Call resizes
    End With
    Exit Sub
error:
    Err.Clear
End Sub



Private Sub pform_Click()
Call ressave
Call corelsave

On Error Resume Next
Dim file_name1, file_name2, file_name3, file_name4 As String
file_name1 = App.Path
 If Right$(file_name1, 1) <> "\" Then file_name1 = file_name1 & "\"
    SavePicture Picture4.Image, file_name1 & "chgraph1.bmp"
file_name2 = App.Path
 If Right$(file_name2, 1) <> "\" Then file_name2 = file_name2 & "\"
    SavePicture Picture3.Image, file_name2 & "chgraph2.bmp"
file_name3 = App.Path
    If Right$(file_name3, 1) <> "\" Then file_name3 = file_name3 & "\"
    SavePicture Picture1.Image, file_name3 & "ch1.bmp"
file_name4 = App.Path
    If Right$(file_name4, 1) <> "\" Then file_name4 = file_name4 & "\"
    SavePicture Picture2.Image, file_name4 & "ch2.bmp"
    Call ressave
Form1.Show
End Sub

Private Sub reset_Click()
On Error Resume Next
Unload Me
Form3.Show
Resim1.Cls
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Text1.Text = 1
Text2.Text = 1
Text3.Text = 1
Text4.Text = 0
Text5.Text = 0
Text6.Text = 0
Text21.Text = ""
Text1b.Text = 1
Text2b.Text = 1
Text3b.Text = 1
Text4b.Text = 0
Text5b.Text = 0
Text6b.Text = 0
Text21b.Text = ""


On Error Resume Next
Kill App.Path & "\chromosome1.txt"
Kill App.Path & "\chromosome2.txt"
End Sub

Private Sub Text4_Change()
On Error Resume Next
Open App.Path & "\chromosome1.txt" For Random As #1
kayit.pno = Text4.Text
kayit.soft = Val(t21)
Put #1, kayit.pno, kayit
Close #1: Exit Sub
'hata: MsgBox "hatal&#305; i&#351;lem!!", vbExclamation, "hata": Close #1

End Sub

Private Sub Text4b_Change()
On Error Resume Next
Open App.Path & "\chromosome2.txt" For Random As #1
kayit.pno = Text4.Text
kayit.soft = Val(t21b)
Put #1, kayit.pno, kayit
Close #1: Exit Sub
'hata: MsgBox "hatal&#305; i&#351;lem!!", vbExclamation, "hata": Close #1
End Sub

Private Sub Timer1_Timer()
Dim x, y As Single
Dim Button, Shift As Integer
x = Val(Text3)
y = Val(Text4)
Text1.Text = Picture1.Width
Text2.Text = Picture1.Height
Text3.Text = Text3.Text + 1
Dim cx, cy As Single
'Dim Button, Shift As Integer
cx = Val(Text3b)
cy = Val(Text4b)
Text1b.Text = Picture2.Width
Text2b.Text = Picture2.Height
Text3b.Text = Text3b.Text + 1


If Val(Text3) = Val(Text1) Then
Text3.Text = 0
Text4.Text = Text4.Text + 1
End If
If Val(Text3b) = Val(Text1b) Then
Text3b.Text = 0
Text4b.Text = Text4b.Text + 1
End If

If Val(Text4) = Val(Text2) Then
Text4.Text = 0
Timer1.Enabled = False
End If
If Val(Text4b) = Val(Text2b) Then
Text4b.Text = 0
Timer1.Enabled = False
End If
    ix = CLng(x)
    iy = CLng(y)

   Text5 = Abs(GetPixel(Picture1.hdc, ix, iy)) ' 16777215 -
   Text6.Text = (Val(Text6) + Val(Text5))
    cix = CLng(cx)
    ciy = CLng(cy)
    Text5b.Text = Abs(GetPixel(Picture2.hdc, cix, ciy)) '16777215 -
    Text6b.Text = (Val(Text6b) + Val(Text5b))

If Val(Text3) + 1 = Val(Text1) - 1 Then
Text21.Text = Val(Text6) / Val(Text1)
Text6.Text = 0

If Val(Text3b) + 1 = Val(Text1b) - 1 Then
Text21b.Text = Val(Text6b) / Val(Text1b)
Text6b.Text = 0


Picture4.DrawWidth = 5
Picture4.DrawMode = 13
Picture4.Line (Text4.Text * 30, (Val(Text21) + 1) / 10000)-(Text4.Text * 30, ((Val(Text21) + 1) / 10000) + 5), vbBlack 'Val(Text21)
Picture4.DrawWidth = 1
t21.Text = Round(Val(Text21) / 1000)
t21b.Text = Round(Val(Text21b) / 1000)
List1.AddItem t21.Text + ";" + t21b.Text + " "
differ.Text = Abs(Val(t21) - Val(t21b))
T6.Text = Val(T6) + Val(differ)
T6a.Text = Val(T6a) + Val(t21)
T6b.Text = Val(T6b) + Val(t21b)
If Option4.Value = True Then
Call cnormal
End If
If Option1.Value = True Then
Call cnormal9
End If
If Option2.Value = True Then
Call cnormal12
End If
If Option3.Value = True Then
Call cnormal16
End If

Picture3.DrawWidth = 5
Picture3.DrawMode = 13
Picture3.Line (Text4b.Text * 30, (Val(Text21b) + 1) / 10000)-(Text4b.Text * 30, ((Val(Text21b) + 1) / 10000) + 5), vbBlack 'Val(Text21b)
Picture3.DrawWidth = 1
End If
End If


End Sub


Private Function cnormal9()
Dim n As Single
If Round(Val(Text2) * 12 / 270) = Val(Text4) Then
List2.AddItem "(9)p24:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)

T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 27 / 270) = Val(Text4) Then
List2.AddItem "(9)p23:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 32 / 270) = Val(Text4) Then
List2.AddItem "(9)p22:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 55 / 270) = Val(Text4) Then
List2.AddItem "(9)p21:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 72 / 270) = Val(Text4) Then
List2.AddItem "(9)p13:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 84 / 270) = Val(Text4) Then
List2.AddItem "(9)p12:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 94 / 270) = Val(Text4) Then
List2.AddItem "(9)p11_q11:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 125 / 270) = Val(Text4) Then
List2.AddItem "(9)q12:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 131 / 270) = Val(Text4) Then
List2.AddItem "(9)q13:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 165 / 270) = Val(Text4) Then
List2.AddItem "(9)q21:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 200 / 270) = Val(Text4) Then
List2.AddItem "(9)q22:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 217 / 270) = Val(Text4) Then
List2.AddItem "(9)q31:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 224 / 270) = Val(Text4) Then
List2.AddItem "(9)q32:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 236 / 270) = Val(Text4) Then
List2.AddItem "(9)q33:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Val(Text2) - 1 = Val(Text4) Then
List2.AddItem "(9)q34:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
End Function
Private Function cnormal12()
If Round(Val(Text2) * 25 / 274) = Val(Text4) Then
List2.AddItem "(12)p13:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)

T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 50 / 274) = Val(Text4) Then
List2.AddItem "(12)p12:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 68 / 274) = Val(Text4) Then
List2.AddItem "(12)p11.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 78 / 274) = Val(Text4) Then
List2.AddItem "(12)p11.1-q11:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 94 / 274) = Val(Text4) Then
List2.AddItem "(12)q12:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 124 / 274) = Val(Text4) Then
List2.AddItem "(12)q13:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 142 / 274) = Val(Text4) Then
List2.AddItem "(12)q14:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 156 / 274) = Val(Text4) Then
List2.AddItem "(12)q15:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 193 / 274) = Val(Text4) Then
List2.AddItem "(12)q21:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 208 / 274) = Val(Text4) Then
List2.AddItem "(12)q22:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 227 / 274) = Val(Text4) Then
List2.AddItem "(12)q23:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 246 / 274) = Val(Text4) Then
List2.AddItem "(12)q24.1:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 253 / 274) = Val(Text4) Then
List2.AddItem "(12)q24.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Val(Text2) - 1 = Val(Text4) Then
List2.AddItem "(12)q24.3:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
End Function
Private Function cnormal16()
If Round(Val(Text2) * 16 / 218) = Val(Text4) Then
List2.AddItem "(16)p13.3:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)

T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 26 / 218) = Val(Text4) Then
List2.AddItem "(16)p13.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 42 / 218) = Val(Text4) Then
List2.AddItem "(16)p13.1:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 63 / 218) = Val(Text4) Then
List2.AddItem "(16)p12:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 87 / 218) = Val(Text4) Then
List2.AddItem "(16)p11.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 97 / 218) = Val(Text4) Then
List2.AddItem "(16)p11.1-q11.1:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 119 / 218) = Val(Text4) Then
List2.AddItem "(16)q11.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 127 / 218) = Val(Text4) Then
List2.AddItem "(16)q12.1:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 132 / 218) = Val(Text4) Then
List2.AddItem "(16)q12.2:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 144 / 218) = Val(Text4) Then
List2.AddItem "(16)q13:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 160 / 218) = Val(Text4) Then
List2.AddItem "(16)q21:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 181 / 218) = Val(Text4) Then
List2.AddItem "(16)q22:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 200 / 218) = Val(Text4) Then
List2.AddItem "(16)q23:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Val(Text2) - 1 = Val(Text4) Then
List2.AddItem "(16)q24:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
End Function
Private Function cnormal()

If Round(Val(Text2) * 1 / 100) = Val(Text4) Then

End If

If Round(Val(Text2) * 1 / 10) = Val(Text4) Then

List2.AddItem "1/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If

If Round(Val(Text2) * 2 / 10) = Val(Text4) Then

List2.AddItem "2/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If

If Round(Val(Text2) * 3 / 10) = Val(Text4) Then

List2.AddItem "3/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 4 / 10) = Val(Text4) Then

List2.AddItem "4/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 5 / 10) = Val(Text4) Then

List2.AddItem "5/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 6 / 10) = Val(Text4) Then

List2.AddItem "6/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 7 / 10) = Val(Text4) Then

List2.AddItem "7/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 8 / 10) = Val(Text4) Then

List2.AddItem "8/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
If Round(Val(Text2) * 9 / 10) = Val(Text4) Then

List2.AddItem "9/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If

If Val(Text2) - 1 = Val(Text4) Then
List2.AddItem "10/10:   " & Round(T6.Text / 100) & "  a/b (%):" & Round(T6a / T6b * 100)
T6.Text = 0
T6a.Text = 0
T6b.Text = 0
End If
End Function
Private Sub picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    iix = CLng(x)
    iiy = CLng(y)
    Txt4.Text = iiy