dcarp757's Profile User Rating: -----

Reputation: 0 Apprentice
Group:
New Members
Active Posts:
9 (0.01 per day)
Joined:
02-September 12
Profile Views:
275
Last Active:
User is offline Oct 03 2012 05:58 PM
Currently:
Offline

Previous Fields

Dream Kudos:
0
Icon   dcarp757 has not set their status

Posts I've Made

  1. In Topic: point to point line draw problem?

    Posted 3 Oct 2012

    View Postmaj3091, on 03 October 2012 - 06:22 AM, said:

    You might be better contacting a mod to move this to the correct forum as it's not VB6 related and you'll get a better response in the correct forum.


    I'm obviously a beginner. This is VB course work out of a VB book (Deitel VB 2008 3rd Ed). What forum do you suggest?
  2. In Topic: user entered graphics coordinates

    Posted 26 Sep 2012

    I figured it out. Thanks!

    Public Class LogoForm
       Dim g As Graphics
    
       Private Sub addButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click
    
          g = logoPicture.CreateGraphics
    
          Dim x1 As Integer
          Dim y1 As Integer
          Dim x2 As Integer
          Dim y2 As Integer
    
          x1 = CInt(Val(x1TextBox.Text))
          y1 = CInt(Val(y1TextBox.Text))
          x2 = CInt(Val(x2TextBox.Text))
          y2 = CInt(Val(y2TextBox.Text))
    
          Dim p As New Pen(Color.Blue, 2)
          Dim b As New SolidBrush(Color.Blue)
    
    
    
          If lineRadioButton.Checked = True Then
             g.DrawLine(p, x1, y1, x2, y2)
    
          ElseIf filledRectangleRadioButton.Checked = True Then
             g.FillRectangle(b, x1, y1, x2, y2)
    
          ElseIf rectangleRadioButton.Checked = True Then
             g.DrawRectangle(p, x1, y1, x2, y2)
    
          ElseIf ellipseRadioButton.Checked = True Then
             g.DrawEllipse(p, x1, y1, x2, y2)
    
          ElseIf filledEllipseRadioButton.Checked = True Then
             g.FillEllipse(b, x1, y1, x2, y2)
    
    
          End If
    
    
       End Sub
    
    
  3. In Topic: Array help

    Posted 4 Sep 2012

    View Postmodi123_1, on 04 September 2012 - 09:41 AM, said:

    Quote

    How is task 3 coded?

    That's your homework and not our job to do. Go try some ideas out and see what happens.


    Understood, I have read the strict homework policy. Just looking for guidance. I figured it out.
  4. In Topic: VB Function Procedure help?

    Posted 4 Sep 2012

    View Postmaj3091, on 03 September 2012 - 11:50 PM, said:

    You have a couple of options.

    1. Either make your calculation functions of type String, then cast your calculation to a string before returning. At the moment, you're functions are doubles and you're trying to return a string - I'm guessing that doesn't work??

    2. Return a Double type from the current calculation functions and cast it to a string when assigning it to the label.


    Thanks for your reply. Changing to string allowed me to output a string. Below is what I have currently. How can I pull the value entered by user into the output string? To clarify. x = user input. y = converted output. "x degrees celsius is equal to y degrees farhenheit" As you can see, as of now I just append a string to y.

    Public Class TemperatureConversionForm
    
        Private Sub TemperatureConversionForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
    
    
        Private Sub convertFahrenheitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertFahrenheitButton.Click
    
            outputLabel.Text = Conv2F(Val(degreeTextBox.Text))
    
        End Sub
    
       Function Conv2F(ByVal celsius As String) As String
    
          Dim fahrenheit As Double
    
          fahrenheit = (9 / 5) * celsius + 32
    
          Conv2F = fahrenheit
    
          Return String.Format("{0:F}", fahrenheit) & " is fahrenheit equivalent"
    
    
       End Function
    
    
        Private Sub convertCelsiusButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertCelsiusButton.Click
    
            outputLabel.Text = Conv2C(Val(degreeTextBox.Text))
    
        End Sub
    
       Function Conv2C(ByVal fahrenheit As String) As String
    
          Dim celsius As Double
    
          celsius = (5 / 9) * (fahrenheit - 32)
    
          Conv2C = celsius
    
          Return String.Format("{0:F}", celsius) & " is celsius equivalent"
    
       End Function
    
    End Class ' TemperatureConversionForm
    
    
    
    
  5. In Topic: VB Function Procedure help?

    Posted 3 Sep 2012

    Ok so I figured out the format. How do I add the text string to the output?

    Public Class TemperatureConversionForm
    
        Private Sub TemperatureConversionForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
       
    
        Private Sub convertFahrenheitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertFahrenheitButton.Click
    
            outputLabel.Text = Conv2F(Val(degreeTextBox.Text))
    
        End Sub
    
        Function Conv2F(ByVal celsius As Double) As Double
    
            Dim fahrenheit = (9 / 5) * celsius + 32
    
            Return String.Format("{0:F}", fahrenheit)
    
    
        End Function
    
    
        Private Sub convertCelsiusButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles convertCelsiusButton.Click
    
            outputLabel.Text = Conv2C(Val(degreeTextBox.Text))
    
        End Sub
    
        Function Conv2C(ByVal fahrenheit As Double) As Double
    
            Dim celsius = (5 / 9) * (fahrenheit - 32)
    
            Return String.Format("{0:F}", celsius)
    
        End Function
    
    End Class ' TemperatureConversionForm
    
    
    
    
    

My Information

Member Title:
New D.I.C Head
Age:
Age Unknown
Birthday:
Birthday Unknown
Gender:

Contact Information

E-mail:
Private

Friends

dcarp757 hasn't added any friends yet.

Comments

dcarp757 has no profile comments yet. Why not say hello?