Find Us On: Facebook Twitter Rss Feed Blog
Need To Register? Sign Up Login

VB.net - DateGenie

dickersonka
dickersonka 


Allow a user to enter in their Birth Date and when they press "Submit," it should perform the following: Name of the Month they were born Astrological Sign Current Age Age as of Next Year Number of Days Old Number of Seconds Old Three of these labels should be done via Functions, and another three via Sub-Procedures. It is up to you to determine which three go into each category. Also, allow a user to check a box labeled "Grim Stats" that takes a humorous (albight morbid) look at when the user will perish and the age/method he/she will do so. This should be a random array of values of which can be displayed. Grim Stats 1.Slipped down the stairs trying to twerk like Miley Cyrus 2.Choked on your 64th hot dog right after defeating Takeru Kobayashi 3.Killed by genetically enhanced genius deer that tricked you into a deer snare trap during hunting season 4.Struck by lightening while playing Thor in thunderstorm with your golf club Attachments Tags Clarifications

Answers

VB.net - DateGenie - Solution

dickersonka
dickersonka 



Attached is the solution to the VB.net - DateGenie assignment including source and comments Attachments
DateGenie.zip (14 K) Download






Preview
Me.Label4.Text = "Month Name" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label5.Location = New System.Drawing.Point(108, 153) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(65, 13) Me.Label5.TabIndex = 7 Me.Label5.Text = "Astro

Preview
7 Else zodiacIndex = 8 End If Case 12 If dayNum >= 1 And dayNum <= 21 Then zodiacIndex = 8 Else zodiacIndex = 9 End If End Select Return zodiac(zodiacIndex) End Function

Preview
' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace My 'NOTE: This file is auto-generated; do not modify it directly. To make changes, ' or if you encounter build errors in this file, go to the

Preview
about an assembly is controlled through the following ' set of attributes. Change these attribute values to modify the information ' associated with an assembly. ' Review the values of the assembly attributes <Assembly: AssemblyTitle("DateGenie")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("Hewlett-Packard")> <Assembly:

Preview
''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceMa

Preview
Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region

DateGenie_output.png (27 K) Download Preview

Screenshots
Screenshot
Purchase Answer