-
Sep 15th, 2017, 04:01 AM
#1
Thread Starter
New Member
im going to mars
i need help to code a space ship,
this is what i have so far
Code:
Dim ShebangsShebangs as integer
help?
-
Sep 15th, 2017, 04:04 AM
#2
Lively Member
Re: im going to mars
VB.NET Code:
Dim YourAreReadyForLoonyBin as Boolean = True
-
Sep 15th, 2017, 04:41 AM
#3
Re: im going to mars
Code:
Dim spaceship as New Spaceship()
spaceship.Fuel = Loaded;
spaceship.Engines = Online;
spaceship.FastenSeatBeltSign = On
spaceship.Launch();
Please Mark your Thread "Resolved", if the query is solved & Rate those who have helped you
-
Sep 15th, 2017, 05:23 AM
#4
Re: im going to mars
Code:
Option Explicit On
Option Strict On
Public Class Form1
Public Remaining As Integer = 10
Private Function CountDown() As String
Try
Dim ts As TimeSpan = New TimeSpan(0, 0, Remaining)
If Remaining > 0 Then
Remaining = Remaining - 1
Else
Timer1.Stop()
End If
Return ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00")
Catch
End Try
Return ""
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = CountDown()
If Label1.Text = "00:07" Then
Label2.ForeColor = Color.Blue
Label2.Text = "fasten your seatbelt.."
ElseIf Label1.Text = "00:03" Then
Label3.ForeColor = Color.Red
Label3.Text = "Ups didn't close the door.."
MessageBox.Show("Lift OFF...", "info")
End If
End Sub
End Class
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
-
Sep 15th, 2017, 07:55 AM
#5
Re: im going to mars
Space Oddity written as VB Code...
Code:
Public Class DavidBowie
Public Sub SpaceOddity
if GroundControl.Coms.To("Major Tom") andalso GroundControl.Coms.To("Major Tom") then
MajorTom.Take("ProteinPills")
MajorTom.PutOn("Helmet")
end if
GroundControl.Coms.To("Major Tom")
For Countdown = 10 to 6 step -1
Debug.Writeline(Countdown)
Next
GroundControl.Coms.Announce("Commencing countdown")
Engines.Status = On
For Countdown = 5 to 4 step -1
Debug.Writeline(Countdown)
Next
Engines.Ignition()
New GodsLove with { .Who = You}
For Countdown = 3 to 1 step -1
Debug.Writeline(Countdown)
Next
GroundControl.Coms.Announce("Liftoff")
GroundControl.Coms.To("MajorTom").Message("You've really made the grade")
Papers.Query("Shirts wearing")
If You.Dare(Actions.LeaveCapsule)
MajorTom.Coms.To("GroundControl")
MajorTom.Action(Actions.StepingThroughDoor)
MajorTom.Action(Actions.Floating).Style(PeculiarWay)
Star.Appearance = VeryDifferent
MajorTom.Action(Actions.Floating).Location(InATinCan)
MajorTom.Action(Actions.Floating).Location(AboveTheWorld)
PlanetEarth.IsBlue = True
MajorTom.AnythingICanDo = Nothing
End If
MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
MajorTom.Feeling = VeryStill
My.Spaceship.KnowsWhereToGo = True
MajorTom.Coms.To("Wife").Message("I love her very much she knows")
GroundControl.Coms.To("MajorTom")
Circuit.IsDead = True
SomethingIsWrong = True
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you")
MajorTom.Action(Actions.Floating).Location(Here)
MajorTom.Action(Actions.Floating).Location(InATinCan)
MajorTom.Action(Actions.Floating).Location(AboveTheMoon)
PlanetEarth.IsBlue = True
MajorTom.AnythingICanDo = Nothing
End Sub
End Class
-tg
-
Sep 15th, 2017, 10:26 AM
#6
Re: im going to mars
Originally Posted by techgnome
Space Oddity written as VB Code...
Code:
Public Class DavidBowie
Public Sub SpaceOddity
if GroundControl.Coms.To("Major Tom") andalso GroundControl.Coms.To("Major Tom") then
MajorTom.Take("ProteinPills")
MajorTom.PutOn("Helmet")
end if
GroundControl.Coms.To("Major Tom")
For Countdown = 10 to 6 step -1
Debug.Writeline(Countdown)
Next
GroundControl.Coms.Announce("Commencing countdown")
Engines.Status = On
For Countdown = 5 to 4 step -1
Debug.Writeline(Countdown)
Next
Engines.Ignition()
New GodsLove with { .Who = You}
For Countdown = 3 to 1 step -1
Debug.Writeline(Countdown)
Next
GroundControl.Coms.Announce("Liftoff")
GroundControl.Coms.To("MajorTom").Message("You've really made the grade")
Papers.Query("Shirts wearing")
If You.Dare(Actions.LeaveCapsule)
MajorTom.Coms.To("GroundControl")
MajorTom.Action(Actions.StepingThroughDoor)
MajorTom.Action(Actions.Floating).Style(PeculiarWay)
Star.Appearance = VeryDifferent
MajorTom.Action(Actions.Floating).Location(InATinCan)
MajorTom.Action(Actions.Floating).Location(AboveTheWorld)
PlanetEarth.IsBlue = True
MajorTom.AnythingICanDo = Nothing
End If
MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
MajorTom.Feeling = VeryStill
My.Spaceship.KnowsWhereToGo = True
MajorTom.Coms.To("Wife").Message("I love her very much she knows")
GroundControl.Coms.To("MajorTom")
Circuit.IsDead = True
SomethingIsWrong = True
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you hear me, Major Tom?")
GroundControl.Coms.To("MajorTom").Message("Can you")
MajorTom.Action(Actions.Floating).Location(Here)
MajorTom.Action(Actions.Floating).Location(InATinCan)
MajorTom.Action(Actions.Floating).Location(AboveTheMoon)
PlanetEarth.IsBlue = True
MajorTom.AnythingICanDo = Nothing
End Sub
End Class
-tg
LOL
have a nice Weekend, and enjoy the Puppy
regards
Chris
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
-
Sep 15th, 2017, 10:43 AM
#7
Re: im going to mars
tg- you just made my week!
-
Sep 15th, 2017, 12:30 PM
#8
Thread Starter
New Member
Re: im going to mars
Code:
MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
???
that doesn't even get me to the moon
-
Sep 15th, 2017, 12:33 PM
#9
Re: im going to mars
Originally Posted by DontTouchtheCAKE
Code:
MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
???
that doesn't even get me to the moon
That's just Tom's current position.
-
Sep 15th, 2017, 12:58 PM
#10
Re: im going to mars
I've moved this amazing thread to chit-chat.
-
Sep 16th, 2017, 11:29 AM
#11
Re: im going to mars
I'll give it a shot, but it will take me a week.
Also, it will be a one way ticket.
-
Sep 16th, 2017, 12:06 PM
#12
Re: im going to mars
You guys have way too much time on your hands
The best argument against democracy is a five minute conversation with the average voter - Winston Churchill
Hadoop actually sounds more like the way they greet each other in Yorkshire - Inferrd
-
Sep 18th, 2017, 07:41 AM
#13
Re: im going to mars
Originally Posted by DontTouchtheCAKE
Code:
MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
???
that doesn't even get me to the moon
Houston .. we have a problem
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|