|
| 1 | +VERSION5.00 |
| 2 | +Begin VB.Form Form1 |
| 3 | + AutoRedraw =-1'True |
| 4 | + Caption ="Smallest Chart (VB6)" |
| 5 | + ClientHeight =6750 |
| 6 | + ClientLeft =120 |
| 7 | + ClientTop =465 |
| 8 | + ClientWidth =18630 |
| 9 | + LinkTopic ="Form1" |
| 10 | + ScaleHeight =450 |
| 11 | + ScaleMode =3'Pixel |
| 12 | + ScaleWidth =1242 |
| 13 | + StartUpPosition =1'CenterOwner |
| 14 | +Begin VB.PictureBox graf_val |
| 15 | + Appearance =0'Flat |
| 16 | + AutoRedraw =-1'True |
| 17 | + BackColor =&H00FFFFFF& |
| 18 | + ForeColor =&H80000008& |
| 19 | + Height =6255 |
| 20 | + Left =240 |
| 21 | + ScaleHeight =415 |
| 22 | + ScaleMode =3'Pixel |
| 23 | + ScaleWidth =1207 |
| 24 | + TabIndex =0 |
| 25 | + Top =240 |
| 26 | + Width =18135 |
| 27 | + End |
| 28 | +End |
| 29 | +Attribute VB_Name ="Form1" |
| 30 | +Attribute VB_GlobalNameSpace =False |
| 31 | +Attribute VB_Creatable =False |
| 32 | +Attribute VB_PredeclaredId =True |
| 33 | +Attribute VB_Exposed =False |
| 34 | +'############################################################################################################################## --> |
| 35 | +'# John Wiley & Sons, Inc. # --> |
| 36 | +'# # --> |
| 37 | +'# Book: Algorithms in Bioinformatics: Theory and Implementation # --> |
| 38 | +'# Author: Dr. Paul A. Gagniuc # --> |
| 39 | +'# # --> |
| 40 | +'# Institution: # --> |
| 41 | +'# University Politehnica of Bucharest # --> |
| 42 | +'# Faculty of Engineering in Foreign Languages # --> |
| 43 | +'# Department of Engineering in Foreign Languages # --> |
| 44 | +'# # --> |
| 45 | +'# Area: European Union # --> |
| 46 | +'# Date: 04/01/2021 # --> |
| 47 | +'# # --> |
| 48 | +'# Mode: Visual Basic 6.0 # --> |
| 49 | +'# # --> |
| 50 | +'# Cite this work as: # --> |
| 51 | +'# Paul A. Gagniuc. Algorithms in Bioinformatics: Theory and Implementation. John Wiley & Sons, 2021, ISBN: 9781119697961. # --> |
| 52 | +'# # --> |
| 53 | +'############################################################################################################################## --> |
| 54 | + |
| 55 | + |
| 56 | +Functionchart(g, c, e) |
| 57 | + |
| 58 | + sig = Split(g,",") |
| 59 | + |
| 60 | + mx =0 |
| 61 | + mn =0 |
| 62 | + |
| 63 | +For i =0To UBound(sig) |
| 64 | +If (Val(sig(i)) > mx)Then mx = Val(sig(i)) |
| 65 | +If (Val(sig(i)) < mn)Then mn = Val(sig(i)) |
| 66 | +Next i |
| 67 | + |
| 68 | + w = graf_val.ScaleWidth |
| 69 | + h = graf_val.ScaleHeight |
| 70 | + |
| 71 | + d = (w -80) / (UBound(sig) -1) |
| 72 | + |
| 73 | +If (e ="|")Then |
| 74 | + graf_val.Cls |
| 75 | + mxg = mx |
| 76 | + mng = mn |
| 77 | +End If |
| 78 | + |
| 79 | + graf_val.DrawWidth =4 |
| 80 | + |
| 81 | +For i =0To UBound(sig) -1 |
| 82 | + |
| 83 | + y = h -15 - ((h -15) / (mx - mn)) * (Val(sig(i)) - mn) |
| 84 | + x = d * i |
| 85 | + |
| 86 | +If (i =0)Then |
| 87 | + oldX = x |
| 88 | + oldY = y |
| 89 | +End If |
| 90 | + |
| 91 | + graf_val.Line (oldX, oldY)-(x, y), c |
| 92 | + |
| 93 | + oldX = x |
| 94 | + oldY = y |
| 95 | + |
| 96 | +Next i |
| 97 | + |
| 98 | +End Function |
| 99 | + |
| 100 | + |
| 101 | +PrivateSubForm_Load() |
| 102 | + |
| 103 | + Form1.DrawWidth =3 |
| 104 | + |
| 105 | + A ="0,2.62,5.23,7.82,10.4,12.94,15.45,17.92,20.34,22.7,25,27.23,29.39,31.47,33.46,35.36,37.16,38.86,40.45,41.93,43.3,44.55,45.68,46.68,47.55,48.3,48.91,49.38,49.73,49.93,50,49.93,49.73,49.38,48.91,48.3,47.55,46.68,45.68,44.55,43.3,41.93,40.45,38.86,37.16,35.36,33.46,31.47,29.39,27.23,25,22.7,20.34,17.92,15.45,12.94,10.4,7.82,5.23,2.62,0" |
| 106 | + B ="0,0.14,0.29,0.45,0.64,0.86,1.14,1.53,2.13,3.27,6.41,75.31,7.75,3.61,2.29,1.62,1.2,0.9,0.67,0.48,0.32,0.17,0.03,0.12,0.26,0.42,0.6,0.81,1.08,1.44,2,2.99,5.45,25.09,9.79,4.03,2.47,1.72,1.27,0.95,0.71,0.52,0.35,0.2,0.05,0.09,0.23,0.39,0.56,0.77,1.02,1.36,1.87,2.74,4.74,15.04,13.27,4.54,2.67,1.83,1.34" |
| 107 | + |
| 108 | +Callchart(B, vbRed,"|") |
| 109 | + |
| 110 | +End Sub |