Vooraf:

In deze tutorial ga ik de "basis" uitleggen.

Deze tutorial is voor Visual Basic 2008.

Benodigdheden:

- Visual Basic: Klik om te downloaden

----------------------------------------

Wat is visual basic:

Visual basic is een programmeertaal waarmee je applicaties (programma's) kan maken.

We beginnen:

We gaan een heel simpel programmaatje maken die de tekst van een label verandert.

1. Start Visual Basic en klik linksboven op: File > New project

2. Selecteer: "Windows Form Application" en vul onderaan een naam in.

Je zal nu een "form" (venster) zien.

3. Aan de linkerkant van het scherm staat een venster genaamd: "Toolbox"

Staat die er niet ga dan naar: View > toolbox.

Zoek in de lijst naar: "Label", Klik erop en sleep het naar je form.

4. Doe hetzelfde voor een "button"

5. Klik 1 keer op de button. Rechts(onder) zie je een venster met: "Properties"

Staat dat er niet ga dan naar: View > properties window

Zoek in de lijst naar: "text".

Verander de tekst naar: "Deze tekst veranderd"

6. Doe hetzelfde voor de button en verander de tekst van de button in: "Klik hier"

Nu hebben we de "basis" klaar. Nu gaan we scripten .

7. Nu dubbel klik je op de button.

Je zult nu de volgende code zien:

Public Class Form1

			Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

			End Sub
		End Class

Dit is de standaard code voor als je op een button klikt.

We willen dat de tekst van de label veranderd word. Dus je zet tussen de "Private sub" en "End Sub" het volgende neer:

Label1.Text = "Hallo wereld!"

dus je krijgt:

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	  Label1.Text = "Hallo wereld!"
  End Sub
 End Class

Uitleg:

Label1 is de naam van het label. Text is de tekst van het label.

Je kan de tekst ook zelf aanpassen naar wat je wilt.

Let op! De tekst moet altijd tussen aanhalingstekens staan.

8. We willen nu het programma uitvoeren, dat doe je door op:

Het groene "Play" tekentje te drukken: , of door op F5 te drukken.

Mijn voorbeeld:



Dat was een voorbeeld van een basis programma.

Opslaan als .EXE

1. Ga naar je projectnaam (rechtboven in het venster "solution Explorer") > Rechtermuisknop > properties.

2. Ga naar het tabblad: "Publish" (onderaan) en klik op "Options..."

3. Klik links in de lijst op: "Deployment".

4. En vink alles uit, en druk op OK

5. Klik nu onderaan op: "Publish Wizard..."

6. Druk op "Browse.." om een map te selecteren waar je het wilt opslaan.(Klik bovenaan op "File system") om de mappen te zien.

7. Druk op "Finish", wacht even totdat je Exe opgebouwd is en je programma is klaar.

Variabelen:

Variabelen zijn een code waarin je data kan opslaan zodat je die later weer kan gebruiken.

Hier een klein voorbeeld om tekst op te slaan:

Dim voorbeeldtekst as string = "Dit is een voorbeeld tekst"

Uitleg:

Dim is een standaard functie om een variabele te declareren, die je later weer wilt gebruiken om te lezen/schrijven.

Voorbeeldtekst is de naam die we geven aan de variabelen.

As is als

String is het type variabele, in een String word tekst opgeslagen.

Een variabele kan heel makkelijk gebruikt worden. Voorbeeld:

Dim voorbeeldtekst as string = "Dit is een voorbeeld tekst"
		Label1.Text = voorbeeldtekst

Zo zie je dat je de tekst van, in dit geval een label kan veranderd woorden in een eerder opgeslagen variabele.

Type variabelen:

variabele	Functie	Afkorting
Boolean	De waarde kan zijn: True of False	bln
Byte	Kan getallen van 0 tot 255 hebben	byt
Char	Bevat een letter	chr
Date	bevat een datum	dte
Decimal	Kan een getal met maximaal 28 cijfers na de komma bevatten	dec
Double	Kan getallen van 4,94065 tot -324 tot en met 1,797....... tot de 308e bevatten	dbl
Integer	Kan alleen gehele getallen bevatten	int
Long	Kan alleen gehele getallen bevatten	lng
Object	Kan elk type zijn	obj
Short	Kan alleen gehele getallen bevatten	sht
String	Bevat tekst	str

Dit is het.

Om alles hier neer te zetten is veel te veel werk.

Dus als je wilt weten hoe een bepaald iets werkt, post het dan, dan zal ik het uitleggen hoe het werkt.

Ga niet posten:

Hoe werkt alles

Maar post bijvoorbeeld:

Hoe werkt de "with" functie?

of bijvoorbeeld:

Hoe kan ik een tekstbestand uitlezen?

BC7

Bewerkt: 19 augustus 200915 jaren door BC7

hallo allemaal,

ik ben sinds kort gestart met het leren van "Visual Basic". ik probeer nu mijn eigen tekstverwerker te schrijven, waarin het knopje "Save" zijn plaats vind. alleen weet ik de code niet om het op te slaan. ik heb je VB tutorial gelezen, en daar stond in hoe je de save code gebruikt, maar ik snap het niet.

kunt u me aub. helpen?

dank bij voorbaat,

Ice

hallo allemaal,

ik ben sinds kort gestart met het leren van "Visual Basic". ik probeer nu mijn eigen tekstverwerker te schrijven, waarin het knopje "Save" zijn plaats vind. alleen weet ik de code niet om het op te slaan. ik heb je VB tutorial gelezen, en daar stond in hoe je de save code gebruikt, maar ik snap het niet.

kunt u me aub. helpen?

dank bij voorbaat,

Ice

Dus je snapt de code niet van het opslaan?

Welk gedeelte?

- Opslaan dialoog

- Wegschrijven naar bestand?

wat heb je tot nu te dan?

ik wil mijn tekst typen, in mijn tekstverwerker en dan op een knopje in mijn tekstverwerker drukken zodat hij het opslaat in een bepaalde map.

hij wil dus gwn een opslaan butten met alle code die er onder zit weten net zoals in bijbv, kladblok

ik wil mijn tekst typen, in mijn tekstverwerker en dan op een knopje in mijn tekstverwerker drukken zodat hij het opslaat in een bepaalde map.

Ik heb hier een videotutorial voor gemaakt

1. Met dialoogvenster

2. Zonder dialoogvenster

Ik hoop dat dit je helpt. Cheers

Sorry dat ik niet verder gereageerd had, ben de afgelopen dagen druk geweest...

Laten we ervan uit gaan dat je een richtextbox gebruikt.

Als je een dialoog wilt gebruiken dan kan je kan een savefiledialog vanuit de toolbox verslepen en gebruiken, of via de code er een maken.

Het makkelijkste is om m vanuit de toolbox te slepen naar je form, standaard zal ie de naam: savefiledialog1 hebben, daar vanuit gaan:

Om de dialoog weer te geven:

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
	IO.File.WriteAllText("<PAD>", RichTextBox1.Text)
	End If

Uitleg:

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK

Open de dialoog en als er op OK/opslaan word gedrukt dan doorgaan.

Met IO.file.Writealltext sla je het op. Het eerste gedeelte is het pad, dus bijvoorbeeld: C:\NaamVanBestand.extensie

Er zijn nog meer manieren, maar dit is het makkelijkste.

EDIT:

ik heb het nu hergeprobeerd, en alles kan ik nu doen maar wanneer ik op save druk zegt hij:

"Illegal characters in path"

maar ik weet helemaal niet waar de fout zit!

dit is mijn script: ( hij zegt dat de fout bij "RichTextBox1.Text" zit.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

IO.File.WriteAllText("<C:\Test.txt>", RichTextBox1.Text)

End If

End Sub

End Class

Bewerkt: 4 mei 201015 jaren door I-cer

Vervang

<C:\Test.txt>

eens door

C:\Test.txt

Dus zonder < >.

Vervang

<C:\Test.txt>

eens door

C:\Test.txt

Dus zonder < >.

hartelijk dank flitskikker!!

mijn eerste text editor is klaar

EDIT: zijn dit dezelfde commando's voor een "openfiledialog"?

Bewerkt: 4 mei 201015 jaren door I-cer

Vervang

<C:\Test.txt>

eens door

C:\Test.txt

Dus zonder < >.

hartelijk dank flitskikker!!

mijn eerste text editor is klaar

EDIT: zijn dit dezelfde commando's voor een "openfiledialog"?

Kijk mijn vid-tuts, een saver met openfiledialog is de tut met dialoogvenster

Beste mensen ik ben de laatste tijd wat bezig met vb08 omdat er vrienden van me problemen hadden met sommige self-made programms.

Ik heb nu dus een programmaatje gemaakt en daarbij heb ik dus een serial system bijgezet (niet zelf gemaakt geef ik eerlijk toe)

Maar het probleem is dat de serials in het programma zelf staan. Ik wil die serials dus in een database of gewoon in een txt bestand op mijn host kunnen zetten en uitlezen.

Ik gebruik 2 forms momenteel.

De code van het serial system:

Form 1:

Ik geef niet heel de code van het programma alleen maar van het serial gedeelte hiervoor uw begrip.

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       If Convert.ToString(My.Settings.trial) = "fullversion" Then
           'DO NOTHING
       Else
           Dim theSecondForm As New Form2()
           theSecondForm.ShowDialog()
           Me.Close()
       End If
   End Sub

   'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   'Dim currentdatetime As Date = Now
   '   If Convert.ToString(My.Settings.trial) = "first" Then
   'Dim trialtime As Date = Now
   '       trialtime = trialtime.AddDays(3) 'SET THIS TO HOWEVER MANY DAYS YOU WANT THE TRIAL TO RUN FOR
   '      My.Settings.trial = trialtime
   '      My.Settings.Save()
   'End If
   'If Convert.ToString(My.Settings.trial) = "fullversion" Then
   'DO NOTHING
   'ElseIf currentdatetime > Convert.ToString(My.Settings.trial) Then
   'Dim theSecondForm As New Form2()
   '     theSecondForm.ShowDialog()
   'Me.Close()
   ' End If
   'End Sub

Form 2:

Serials heb ik laten staan. omdat er toch nieuwe komen. Serial format is 25 tekens.

Public Class Form2

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim serialkey = TextBox1.Text + "-" + TextBox2.Text + "-" + TextBox3.Text + "-" + TextBox4.Text + "-" + TextBox5.Text
       Select Case serialkey
           Case "gam3r-c0der-g4mer-cod3r-9amer"
               My.Settings.trial = "fullversion"
               My.Settings.Save()
               MsgBox("Registratie is Voltooid.  Bedankt voor het activeren.")
               Application.Restart()
           Case "qa5TH-VZZ1o-Fmkqv-CI1i5-ABm4p"
               My.Settings.trial = "fullversion"
               My.Settings.Save()
               MsgBox("Registratie is Voltooid.  Bedankt voor het activeren.")
               Application.Restart()
           Case Else
               MsgBox("Ongeldige Registratie Code!.  Kijk of alles goed is ingevuld en probeer het dan opnieuw!")
       End Select
   End Sub
End Class

tekst...

Maar het probleem is dat de serials in het programma zelf staan. Ik wil die serials dus in een database of gewoon in een txt bestand op mijn host kunnen zetten en uitlezen.

Ik gebruik 2 forms momenteel.

De code van het serial system:

Form 1:

Ik geef niet heel de code van het programma alleen maar van het serial gedeelte hiervoor uw begrip.

code...

Form 2:

Serials heb ik laten staan. omdat er toch nieuwe komen. Serial format is 25 tekens.

code..

Als je een bestand van een internet URL wilt uitlezen dan moet je m eerst downloaden en dan lijn voor lijn uitlezen.

Dat kan op de volgende manier:

'Maak een Webclient aan die de data was ie leest in een Stream zet
'Vanuit de stream voeg je elke serial toe aan een lijst

	Dim ingevoerdeserial As String = "Ingevoerde serial"
	Dim Client As New WebClient()
	Dim SerialList As New StreamReader(Client.OpenRead("<URL>"))
	Client.Dispose()
	Dim SerialCollectie As New List(Of String)
	While Not SerialList.Peek = -1
	SerialCollectie.Add(SerialList.ReadLine())
	End While

'Voor elke serial die in de lijst voorkomt controleren of dat de ingevoerde serial is

Dim foutcount As Integer = 0
	For Each Serial As String In SerialCollectie
	If ingevoerdeserial = Serial Then
	MessageBox.Show("Registratie is voltooid")
	Exit For
	Else
	foutcount += 1
	End If
	Next
	If (foutcount > 0) Then
	MessageBox.Show("De Ingevoerde serial is incorrect")
	End If

Kan zijn dat er wat foutjes inzitten want dit heb ik uit mijn hoofd getypt en doe al een tijdje C# en geen VB meer .

Maar hoe dan oook ik hoop dat je dit helpt.

BC7

Bewerkt: 12 juni 201014 jaren door BC7

Bedankt BC7 , ik hoop dat ik eraan uit kom.

Hoe kan ik ervoor zorgen dat er een venster komt als ik op ok klik? of een error? of iets anders?

Alvast bedankt

http://www.plaatjesupload.nl/bekijk/2010/06/22/1277194188-340.jpg

Hoe kan ik ervoor zorgen dat er een venster komt als ik op ok klik? of een error? of iets anders?

Alvast bedankt

http://www.plaatjesupload.nl/bekijk/2010/06/22/1277194188-340.jpg

in het event van de knop moet je iets van

msgbox("text",,"naam")

en dan tussen de commas kan je de opties kiezen

maar ga niet mensen blij maken als t tog niet werkt