Results 1 to 13 of 13

Thread: im going to mars

  1. #1

    Thread Starter
    New Member
    Join Date
    Sep 2017
    Posts
    1

    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?

  2. #2
    Lively Member
    Join Date
    Jun 2017
    Posts
    77

    Re: im going to mars

    VB.NET Code:
    1. Dim YourAreReadyForLoonyBin as Boolean = True

  3. #3
    Superbly Moderated NeedSomeAnswers's Avatar
    Join Date
    Jun 2002
    Location
    Manchester uk
    Posts
    2,660

    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



  4. #4
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,044

    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.

  5. #5
    Smooth Moperator techgnome's Avatar
    Join Date
    May 2002
    Posts
    34,532

    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
    * I don't respond to private (PM) requests for help. It's not conducive to the general learning of others.*
    * I also don't respond to friend requests. Save a few bits and don't bother. I'll just end up rejecting anyways.*
    * How to get EFFECTIVE help: The Hitchhiker's Guide to Getting Help at VBF - Removing eels from your hovercraft *
    * How to Use Parameters * Create Disconnected ADO Recordset Clones * Set your VB6 ActiveX Compatibility * Get rid of those pesky VB Line Numbers * I swear I saved my data, where'd it run off to??? *

  6. #6
    PowerPoster ChrisE's Avatar
    Join Date
    Jun 2017
    Location
    Frankfurt
    Posts
    3,044

    Re: im going to mars

    Quote Originally Posted by techgnome View Post
    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.

  7. #7
    Fanatic Member kpmc's Avatar
    Join Date
    Sep 2017
    Posts
    1,012

    Re: im going to mars

    tg- you just made my week!

  8. #8

    Thread Starter
    New Member
    Join Date
    Sep 2017
    Posts
    1

    Re: im going to mars

    Code:
    MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
    ???
    that doesn't even get me to the moon

  9. #9
    Fanatic Member kpmc's Avatar
    Join Date
    Sep 2017
    Posts
    1,012

    Re: im going to mars

    Quote Originally Posted by DontTouchtheCAKE View Post
    Code:
    MajorTom.Location = ONEHUNDRED_THOUSAND_MILES
    ???
    that doesn't even get me to the moon
    That's just Tom's current position.

  10. #10
    Super Moderator dday9's Avatar
    Join Date
    Mar 2011
    Location
    South Louisiana
    Posts
    11,712

    Re: im going to mars

    I've moved this amazing thread to chit-chat.
    "Code is like humor. When you have to explain it, it is bad." - Cory House
    VbLessons | Code Tags | Sword of Fury - Jameram

  11. #11
    Fanatic Member Peter Porter's Avatar
    Join Date
    Jul 2013
    Posts
    532

    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.

  12. #12
    Super Moderator FunkyDexter's Avatar
    Join Date
    Apr 2005
    Location
    An obscure body in the SK system. The inhabitants call it Earth
    Posts
    7,900

    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

  13. #13
    Fanatic Member Spooman's Avatar
    Join Date
    Mar 2017
    Posts
    868

    Re: im going to mars

    Quote Originally Posted by DontTouchtheCAKE View Post
    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
  •  



Click Here to Expand Forum to Full Width