Visual Basic eerste progje

[TopVersnelling]

'allo jongens,

Ik krijg zin om zelf es te beginnen met het maken van een progje in visual basic.
Het is mijn eerste keer dat ik daarmee begin, dus niet te moeilijk plz.

Wat ik erg graag zou willen maken is een "dagen die je al leeft" indicator.
Dan vul je je geboorte jaar+datum in, en dan vogelt hij uit hoeveel dagen ik al leef.

Kan dit? Of is het wat TE hoog gegrepen??

 

[jyppino]

Heb je eerder geprogrammeerd?

 

[TopVersnelling]

Nee, nog nooit.

 

[TopVersnelling]

Misschien slim om eerst met iets makkelijks te beginnen:
Ik heb een programma met 2 knoppen:
"klik hier"
"klik hiet niet"

Bij de een komt een meelig plaatje, en de ander zegt:
"OEN"
En dan moet je 30x op een knopje drukken.

 

[jyppino]

Op youtube vind je veel.
Een begin programmatje is HELLO WORLD.

 

[eeyk]

Als je nog nooit een programma heb gemaakt moet je eens kijken op.

http://www.youtube.com/results?search_query=VB6+Tutorials&search_type=&aq=f

of

http://www.youtube.com/results?search_query=VB.NET+Tutorials&search_type=&aq=f

of

http://www.youtube.com/results?search_query=VB+2005+Tutorials&search_type=&aq=f

er zijn nog veel meer te vinden.. :thumb: succes

 

[evertVB]

die berekening van dagen dat je leeft is toch ook prima als eerste project?
klinkt nuttiger dan die twee knoppen

 

[TopVersnelling]

Ja, inderdaad. Wie kan me helpen?

 

[evertVB]

Start een nieuw project.
Je hebt iets nodig waarmee de gebruiker een geboortedatum kan invullen, bijvoorbeeld een textbox.
En een button waarmee de gebruiker de berekening van het aantal dagen kan opstarten.

En je moet code schrijven die
- leest welke geboortedatum de gebruiker heeft ingevuld
- het aantal dagen berekent
- het resultaat toont aan de gebruiker

 

[TopVersnelling]

Start een nieuw project.
Je hebt iets nodig waarmee de gebruiker een geboortedatum kan invullen, bijvoorbeeld een textbox.
En een button waarmee de gebruiker de berekening van het aantal dagen kan opstarten.

En je moet code schrijven die
- leest welke geboortedatum de gebruiker heeft ingevuld
- het aantal dagen berekent
- het resultaat toont aan de gebruiker

Eeerhgmm, HOE?

 

[evertVB]

Dan toch maar eerst even naar een van de tutorials/linkjes die eeyk hierboven heeft gepost...?
Daar leer je hoe je een nieuw project met een button aanmaakt.

 

[TopVersnelling]

Ik zoek me rot, maar ik kan echt niets vinden. Kan niemand me helpen?

Kijk, het grafische deel is niet moeilijk, maar het gaat me om het programmeer werk.

 

[jyppino]

Hier heb ik een paar links naar basis youtube programmaatjes.
Als ik jou was zal ik het langzaam opbouwen, heb ik ook gedaan.
Niet gelijk beginnen met dat leeftijd gedoe.

Deze video link laat je zien hoe je visual basic moet downloaden en een begin programmaatje:
http://www.youtube.com/watch?v=qcVPgEM4Fzc

Rekenmachine: http://www.youtube.com/watch?v=brCb_AHbc5I

Webbrowser: http://www.youtube.com/watch?v=BBnUczn_6Nw

Stopwatch: http://www.youtube.com/watch?v=C5hk_sgOVMs

Disco met CapLocks (zelf gemaakt): http://www.youtube.com/watch?v=fZE1ap5BgbE

Wachtwoord onthouder (zelf gemaakt): http://www.youtube.com/watch?v=cwfG5z6DvKM&feature=channel

En een simpel spelletje (zelf gemaakt): http://www.youtube.com/watch?v=ilEwYsnDzLk&feature=channel

En zo kan je de hele dag door blijven gaan!

 

[TopVersnelling]

Meteen navigeren bij enter:
Om te zorgen dat je browser naar de opgegeven URL gaat als je op ENTER drukt, typ dit achter je code: (maar nog voor de End Class)

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    'Start de code op het moment dat de gebruiker op een toets drukt
    Select Case (e.KeyChar)
        Case vbCr
            WebBrowser1.Navigate(TextBox1.Text)' Als de persoon de toets vbCr (=enter) indrukt gebeurt er hetzelfde als wanneer je op ga naar klikt: de browser navigeert
        Case Else ' Als de ingedrukte toets een andere is dan de toetsen die erboven zijn genoemd (de letters bijvoorbeeld) dan gebeurt er niets
    End Select
End Sub

Een vaste startpagina instellen:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("http://www.google.nl/")
End Sub

Zet ook deze weer voor de End Class!

Succes

Het enter deel werkt niet.
Hierbij de code:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        TextBox1.Text = WebBrowser1.Url.ToString()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Stop()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.GoForward()
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case (e.KeyChar)
            Case vbCr
                WebBrowser1.Navigate(TextBox1.Text)
            Case Else
        End Select
    End Sub
End Class