Check out our brand new Local Poker Communities! Get updates and interact with poker players in your area.
Visit the United States Poker Community | Visit the California Poker Community | Read more about the Launch of P5s Local

Homework Help... Visual Basic 6.0

Reply to Thread
  1. KBartos KBartos is offline

    Posts: 81
    Joined: Jan 07

    Feb 18th, 2009 (2/18/2009 5:02pm)


    Write a program in Visual Basic 6.0 according to the following specifications: <H3>Description</H3>
    • <LI>The program first asks the user for the month and year of his/her birth. <LI>Then the program validates the input if it's within the allowed range for months and years, and prompts the user in case of invalid input. <LI>If the input is correct the program then computes the age of the person and:
      • <LI>if it is over 65 it prints "You are a senior". <LI>if it is under 18 it prints "You are a kid" <LI>otherwise (if age is equal or between 18 and 65) it prints "You are an adult". </LI>
      <LI>In addition, if the birth month is the same as the current month, then the program also prints "Happy Birthday". </LI>
    <H3>Implementation</H3>Use two separate Text Boxes or Input Boxes for input and print on a Picture Box. Hints: For computing the age use code from Lecture 3, Problem 2. Then include If-Then or If-Then-Else blocks that check for the range of variable Years. Add also an If block that compares MOB with CurrentMonth and prints the birthday message. <H3>Documentation</H3>Run your program and make sure it works as described above. Then add your name in the beginning of the code as a comment (with Rem or '). Add also comments to explain how the code works. Note that comments and the way you format your program (follow the program format used in the book) will be graded too.

    Heres the codes we got to use from Lecture 3, problem 2. Can paypal some $ for help or have friend Xfer on stars :)

    <TT>Private Sub Form_Click()</TT>
    <TT> Dim MOB As Integer, YOB As Integer, Months As Integer, Years As Integer, MonthsLived As Integer</TT>
    <TT> Const CurrentMonth As Integer = 2</TT>
    <TT> Const CurrentYear As Integer = 2009</TT>
    <TT> MOB = InputBox("Enter Month of Birth")</TT>
    <TT> YOB = InputBox("Enter Year of Birth")</TT>
    <TT> MonthsLived = CurrentMonth + CurrentYear * 12 - MOB - YOB * 12</TT>
    <TT> Months = MonthsLived Mod 12 ' Remainder from integer division</TT>
    <TT> Years = MonthsLived \ 12 ' Integer division</TT>
    <TT> Cls</TT>
    <TT> Print " You are "; Years; "years and "; Months; " months old"</TT>
    <TT>End Sub</TT>
    Solution 2: Data validation (see Top 25 Most Dangerous Programming Errors)
    <TT>Private Sub Form_Click()</TT>
    <TT> Dim MOB As Integer, YOB As Integer, Months As Integer, Years As Integer, MonthsLived As Integer</TT>
    <TT> Const CurrentMonth As Integer = 2</TT>
    <TT> Const CurrentYear As Integer = 2009</TT>
    <TT> MOB = InputBox("Enter Month of Birth")</TT>
    <TT> YOB = InputBox("Enter Year of Birth")</TT>
    <TT> If YOB > 2009 Or YOB < 1900 Then ' Check if YOB is out of the interval [1900,2009]</TT>
    <TT> Print YOB, "Wrong year"</TT>
    <TT> Else</TT>
    <TT> MonthsLived = CurrentMonth + CurrentYear * 12 - MOB - YOB * 12</TT>
    <TT> Months = MonthsLived Mod 12 ' Remainder from integer division</TT>
    <TT> Years = MonthsLived \ 12 ' Integer division</TT>
    <TT> Cls</TT>
    <TT> Print " You are "; Years; "years and "; Months; " months old"</TT>
    <TT> End If</TT>
    <TT>End Sub</TT>
    Solution 3: More elaborated verification - ElseIf clause.
    <TT>Private Sub Form_Click()</TT>
    <TT> Dim MOB As Integer, YOB As Integer, Months As Integer, Years As Integer, MonthsLived As Integer</TT>
    <TT> Const CurrentMonth As Integer = 2</TT>
    <TT> Const CurrentYear As Integer = 2009</TT>
    <TT> MOB = InputBox("Enter Month of Birth")</TT>
    <TT> YOB = InputBox("Enter Year of Birth")</TT>
    <TT> If YOB > 2009 Or YOB < 1900 Then</TT>
    <TT> Print YOB, "Wrong year"</TT>
    <TT> ElseIf MOB > 12 Or MOB < 1 Then</TT>
    <TT> Print MOB, "Wrong month"</TT>
    <TT> Else</TT>
    <TT> MonthsLived = CurrentMonth + CurrentYear * 12 - MOB - YOB * 12</TT>
    <TT> Months = MonthsLived Mod 12 ' Remainder from integer division</TT>
    <TT> Years = MonthsLived \ 12 ' Integer division</TT>
    <TT> Form1.Cls</TT>
    <TT> Print " You are "; Years; "years and "; Months; " months old"</TT>
    <TT> End If</TT>
    <TT>End Sub</TT>
  2. Pker4Dummies Pker4Dummies is offline

    Toms River, NJ
    United States

    Posts: 10,061
    Joined: Jul 08

    Feb 18th, 2009 (2/18/2009 5:22pm) in reply to KBartos

    C:/ reboot
  3. IbizaCF3 IbizaCF3 is offline

    Posts: 6,687
    Joined: Oct 06

    Feb 18th, 2009 (2/18/2009 5:26pm) in reply to KBartos

    Did I miss the $50 on stars for homework help in the title?
  4. gillabong gillabong is offline

    United States

    Posts: 9,362
    Joined: Sep 05

    Feb 18th, 2009 (2/18/2009 5:37pm) in reply to IbizaCF3

    id prob try if it was for vb 2005
  5. JINYX JINYX is offline

    Fargo, ND
    United States

    Posts: 920
    Joined: Apr 07

    Feb 18th, 2009 (2/18/2009 6:34pm) in reply to KBartos

    Seriously, if you can't do this, then you need to drop out of programming class b/c this is SFsimple. I refuse to help you sir.
  6. kdunlapmo kdunlapmo is offline

    Warrensburg, MO
    United States

    Posts: 1,568
    Joined: May 06

    Feb 18th, 2009 (2/18/2009 6:41pm) in reply to KBartos

    The fact they still teach VB6 makes me want to puke
  7. curiousgeorge curiousgeorge is online now baby duck hat

    Las Vegas, NV
    United States

    Posts: 7,193
    Joined: Nov 07

    Feb 18th, 2009 (2/18/2009 7:36pm) in reply to KBartos

    i kinda agree with the poster above. are u struggling with this as in you dont know what to do? or are you just lazy and dont want to do it?

    if it is hte first one it is not a good sign for the rest of the semester, it only gets harder.
Reply to Thread

Similar Threads