My First Progam

This is my first program using Visual Basic.It is a very simple one and isn't quite where i want it to be.Just try it out and give your thoughts and ideas.
Virus Total
Virus Scan
Screenshot

It is basically a quiz/sur.vey to find out if you are popular or just a loser

program 3.rarattachment deleted · 28 downloads before removal

1º - What is it?
2º - 2 Virus Scans , virusscan.jotti.org , virustotal.com
3º - Screen shoot
4º - Program description

Good luck

Originally Posted by Lyoto Machida

1º - What is it?
2º - 2 Virus Scans , virusscan.jotti.org , virustotal.com
3º - Screen shoot
4º - Program description

Good luck

opps sorry haven't released in awhile editing now

Originally Posted by Lyoto Machida

1º - What is it?
2º - 2 Virus Scans , virusscan.jotti.org , virustotal.com
3º - Screen shoot
4º - Program description

Good luck

That good?

Now its good
Now wait for the approve

@Jason

Approved .

how did yo make a new window pop put with other stuff not just a txtbox?

Originally Posted by kats916

how did yo make a new window pop put with other stuff not just a txtbox?

I think you mean what code did i use for each button.I simply used Form1. Show()

Interesting... Facebook makes you popular

Originally Posted by Blendsoft

Interesting... Facebook makes you popular

Yeah I mean I could have made a question for each response but I'm way to lazy to do that so i just link both of answers to the same window except for last one

There are better ways to do this, without having to make like 500 forms..

Pretty good, you know you can add a color dialog and change the background color and text color :P

Ok u should instead opening like 20 god damn windows. Do Form2.Show()
Form1.Hide()
And so on

Code:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim answer As String
        MsgBox("Question 1", MsgBoxStyle.YesNo, "Sample quiz")
        MsgBox("Question 2", MsgBoxStyle.YesNo, "Sample quiz")
        MsgBox("Question 3", MsgBoxStyle.YesNo, "Sample quiz")
        answer = MsgBox("Do you have facebook profile?", MsgBoxStyle.YesNo, "Sample quiz")
        If answer = "6" Then '6 is Yes, 7 is No
            MsgBox("You're popular, add me. I wanna be popular too (hehheh)", MsgBoxStyle.Information, "Sample quiz")
            End
        Else
            MsgBox("You are looser! Get one immediatly!!! :)", MsgBoxStyle.Critical, "Sample quiz")
            End
        End If
    End Sub

Easier?

Good for your first program.

My First Progam

Post a Reply

Tags for this Thread