How to make several figures and save in graphic files?

How to make several figures and save in graphic files?

• fiza

   

  Thank you very much for your suggestions.

  There are still some issues I could not know how to handle. Below is my unfinished VB2005 code.

  (1) The first issue is that when I click button3(see sub button3_click) I want to get into either a pictureBox or a new form where I can start to draw figures. But I couldn't get there by calling sub draw_figure1(or 2 or 3 or 4 depends on how many figures to be shown on screen each time). It seems these sub should be a handler, but I don't know how to set it. I plan to convert my VB6 code and put them into these subroutines to get the figure. I think I still have some problem during this converting process, such as how to read data file, how to use graphic class which is different from VB6, etc.

  (2)   How to set a control(a counter ) to make many figures which can be shown on screen and saved into  graphic file.

  Can you provide me a template scheme to handle my case Thank you very much for your help. yd

  ---------------------------------------

  Option Explicit On

  Option Strict On

  Imports System

  Imports System.IO

  Imports Microsoft.VisualBasic

   

  Public Class Form1

  Dim num_chr As Integer

  Dim num_trait As Integer

  Dim num_marker As Integer

  Dim num_fig_perpage As Integer

  Dim num_page As Integer

  Dim num_fig As Integer

  Dim maxYvalue As Integer = 100

  Dim maxSize As Integer

   

   

  Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

  End Sub

   

  Private Sub TableLayoutPanel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)

  End Sub

   

  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

  'Dim num_fig_per_page As Integer

  num_fig_perpage = CInt(ListBox1.Text)

  End Sub

   

  Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

  End Sub

  Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

  End Sub

   

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  Dim Total_fig As Integer

  Dim Total_fig_msg As String

  Total_fig = num_chr * num_trait

  Total_fig_msg = "Total number of figures = " & Total_fig.ToString()

  MessageBox.Show(Total_fig_msg)

  End Sub

   

  Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

  'Dim num_marker As Integer

  num_marker = Integer.Parse(TextBox1.Text)

  End Sub

   

  Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

  'Dim num_trait As Integer

  num_trait = Integer.Parse(TextBox2.Text)

  End Sub

   

  Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

  End Sub

   

  Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

  num_chr = CInt(TextBox3.Text)

  End Sub

   

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

  If (num_fig_perpage = 1) Then

  Call Draw_figure_1()

  'Call Form1_load()

  ElseIf (num_fig_perpage = 2) Then

  Call Draw_figure_2()

  ElseIf (num_fig_perpage = 4) Then

  Call Draw_figure_3()

  ElseIf (num_fig_perpage = 6) Then

  Call Draw_figure_4()

  Else

  MessageBox.Show("The number of figure per page must be 1,2,4, or 6")

  End If

  End Sub

   

  'Private Sub Form1_load(ByVal sender As System.Object, _

  'ByVal e As System.EventArgs) Handles MyBase.Load

  'Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

  'Dim formGraphics As System.Drawing.Graphics

   

  'formGraphics = Me.CreateGraphics()

  'formGraphics.DrawLine(myPen, 0, 0, 200, 200)

  'myPen.Dispose()

  'formGraphics.Dispose()

  'End Sub

   

  Private Sub Draw_figure_1()

  Dim i As Integer, j As Integer, k As Integer

  Dim cc As String

  Dim maxP As Single, maxI As Single, numMarker As Integer

  numMarker = 8

  num_chr = 1

  num_trait = 1

  maxYvalue = 100

  maxSize = 50

  maxP = 1

  maxI = 1

  Dim Marker(0 To maxSize) As String

  Dim Phenotype(0 To maxSize) As String

  Dim iPvalue(0 To maxSize) As Single

  Dim dPvalue(0 To maxSize) As Single

  Dim sPvalue(0 To maxSize) As Single

  Dim aPvalue(0 To maxSize) As Single

  Dim iIndiv(0 To maxSize) As Single

  Dim dIndiv(0 To maxSize) As Single

  Dim sIndiv(0 To maxSize) As Single

  Dim aIndiv(0 To maxSize) As Single

  Const FILE_NAME As String = "Figure.TXT"

   

  If Not File.Exists(FILE_NAME) Then

  Console.WriteLine("{0} does not exist.", FILE_NAME)

  Return

  End If

  FileOpen(1, FILE_NAME, OpenMode.Input)

  'Dim rrr As StreamReader = File.OpenText(FILE_NAME)

  'For i = 1 To numMarker

  'Input(1, Phenotype(j), cc, Marker(j), iPvalue(j), iIndiv(j), _

  'dPvalue(j), dIndiv(j), sPvalue(j), sIndiv(j), aPvalue(j), aIndiv(j))

  'Next

   'Dim Figure_1 As New PictureBox

  'Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

  'Dim formGraphics As System.Drawing.Graphics

  'formGraphics = Me.CreateGraphics()

  'formGraphics.Clear(Color.Cyan)

  'formGraphics.DrawLine(myPen, 0, 0, 200, 200)

  'myPen.Dispose()

  'formGraphics.Dispose()

   End Sub

   

  Private Sub Draw_figure_2()

   

  End Sub

   

  Private Sub Draw_figure_3()

   

  End Sub

   

  Private Sub Draw_figure_4()

   

  End Sub

   

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  MessageBox.Show("You don't want to calculate the total number of figure")

  End Sub

   

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

  Me.Close()

  End Sub

   

  End Class

  --------------------------------------------------------

  
  

• Karen Gayda

  You will probably want to look into the System.Drawing namespace.  There should be many helpful articles on MSDN and elsewhere.  The Graphics class will be the "canvas" on which you will be doing the drawing.
  
  You will want to make the drawing of the figures take place inside of a routine that takes a Graphics instance as a  parameter. This is so that if you want to save a picture to a bitmap file, you can pass it the graphic made from Bitmap.CreateGraphics but when you are only drawing to the screen, you can pass in the graphics from the PaintEventArgs.
  
  Also, you may look into the System.IO namespace which is the ".NET way" of reading and writing text files.
  
  Some other observations about the code you posted:
  If (iPressure(j) > maxP) Then
           maxP = iPressure(j)
      End If
     If (dPressure(j) > maxP) Then
           maxP = dPressure(j)
      End If
     If (sPressure(j) > maxP) Then
          maxP = sPressure(j)
      End If
     If (aPressure(j) > maxP) Then
           maxP = aPressure(j)
      End If
  
  could be rewritten as
  
  Select Case maxP
    Case < aPressure(j)
      maxP = aPressure(j)
    Case < sPressure(j)
      maxP = sPressure(j)
    Case < dPressure(j)
      maxP = dPressure(j)
    Case < iPressure(j)
      maxP = iPressure(j)
  End Select
  
  and this
  
  For j = 1 To numMarker
    
      iPressure(j) = iPressure(j) * maxYvalue / maxP
      dPressure(j) = dPressure(j) * maxYvalue / maxP
      sPressure(j) = sPressure(j) * maxYvalue / maxP
      aPressure(j) = aPressure(j) * maxYvalue / maxP
      iIndividual(j) = iIndividual(j) * maxYvalue / maxI
      dIndividual(j) = dIndividual(j) * maxYvalue / maxI
      sIndividual(j) = sIndividual(j) * maxYvalue / maxI
      aIndividual(j) = aIndividual(j) * maxYvalue / maxI
    Next j
  
  and this could be rewritten as
  
  pyScale = maxYvalue / maxP
  iyScale = maxYvalue / maxI
  
  For j = 1 To numMarker
      iPressure(j) *= pyScale
      dPressure(j) *= pyScale
      sPressure(j) *= pyScale
      aPressure(j) *= pyScale
      iIndividual(j) *= iyScale
      dIndividual(j) *= iyScale
      sIndividual(j) *= iyScale
      aIndividual(j) *= iyScale
  Next
  
  

• net34

  Your best bet will be to create a custom drawn control and do the painting there
  
  Imports System.IO
  
  Public Class ChromosomePicture
      Inherits Control
  
      Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
          MyBase.OnPaint(e)
  
          Dim g As Graphics = e.Graphics
          'drawing routine here
      End Sub
  
      Private Const maxSize As Integer = 50
      Private iChrom As New Chromosome(maxSize)
      Private dChrom As New Chromosome(maxSize)
      Private sChrom As New Chromosome(maxSize)
      Private aChrom As New Chromosome(maxSize)
      Private phenotype(maxSize) As Single
      Private marker(maxSize) As Single
  
      Public Sub LoadFile(ByVal fileName As String)
          If Not File.Exists(fileName) Then Throw New FileNotFoundException(fileName & " does not exist.")
  
          Dim maxP As Single = 1
          Dim maxI As Single = 1
          Dim numMarker As Integer = 8
  
          Dim line As String
          Dim parts() As String
          Using sr As New StreamReader(fileName)
              For i As Integer = 0 To numMarker
                  line = sr.ReadLine
                  parts = line.Split(","c)
  
                  phenotype(i) = Single.Parse(parts(0))
  
                  marker(i) = Single.Parse(parts(2))
                  iChrom.SetValues(parts, 3, i)
                  dChrom.SetValues(parts, 5, i)
                  sChrom.SetValues(parts, 7, i)
                  aChrom.SetValues(parts, 9, i)
              Next
          End Using
  
          'forces redraw
          Me.Invalidate()
      End Sub
  End Class
  
  and here's a little helper class for all those arrays
  
  Public Class Chromosome
      Private Const default_size As Integer = 0
  
      Public Sub New()
          Me.New(default_size)
      End Sub
      Public Sub New(ByVal maxSize As Integer)
          _pvalue = CType(Array.CreateInstance(GetType(Single), maxSize), Single())
          _indiv = CType(Array.CreateInstance(GetType(Single), maxSize), Single())
      End Sub
  
      Private _pvalue As Single()
      Public Property PValue() As Single()
          Get
              Return _pvalue
          End Get
          Set(ByVal value As Single())
              If value Is Nothing Then Throw New NullReferenceException("value")
              _pvalue = value
          End Set
      End Property
  
      Private _indiv As Single()
      Public Property Individual() As Single()
          Get
              Return _indiv
          End Get
          Set(ByVal value As Single())
              If value Is Nothing Then Throw New NullReferenceException("value")
              _indiv = value
          End Set
      End Property
  
      Public Sub SetValues(ByVal values() As String, ByVal start As Integer, ByVal index As Integer)
          Me.PValue(index) = Single.Parse(values(start))
          Me.Individual(index) = Single.Parse(values(start + 1))
      End Sub
      Public Sub SetValues(ByVal values() As Single, ByVal start As Integer, ByVal index As Integer)
          Me.PValue(index) = values(start)
          Me.Individual(index) = values(start + 1)
      End Sub
  End Class
  
  and here are some routines from the form that could use changing
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim Total_fig As Integer = num_chr * num_trait
          MessageBox.Show("Total number of figures = " & Total_fig.ToString())
      End Sub
  
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
          Select Case num_fig_perpage
              Case 1
                  Draw_figure_1()
              Case 2
                  Draw_figure_2()
              Case 4
                  Call Draw_figure_3()
              Case 6
                  Call Draw_figure_4()
              Case Else
                  MessageBox.Show("The number of figure per page must be 1,2,4, or 6")
          End Select
      End Sub
  
  The draw_figure routines will not be needed any more since the painting will be done in the custom control.  The reason that painting directly on the form does not work is because you would have to paint each time the form paints. To change pictures, you will want to make a new ChromosomeControl (or whatever you want to call it) and place it inside a panel on the form.
  
  curChrom = new ChromosomeControl()
  'initialize control
  panel1.Controls.Clear()
  panel1.Controls.Add(curChrom)
  
  Obviously this is nowhere near completed, but hopefully it is enough to get you going in the right direction.
  
  
• How to make several figures and save in graphic files?