by Serdar YUKSEL (4 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd August 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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ı iş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ı iş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
No comments have been posted about GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenet. Why not be the first to post a comment about GCBAND 1.0 This software use chromosomes image to determining inversion regions. Clinical cytogenet.