• Spanningsregelaar Voltage berekenen.
  
• Led voorschakelweerstand berekenen.
  
• Smd weerstand berekenen met 3 digits.
  
• Serie condensator voor gebruik Led op wisselstroom.
  
• Op-Amp versterker berekenen.
  
• Weerstand frequentie van condensator berekenen.
  
• Resonatie spoel condensator berekenen.
  
• Vergelijk condensator eenheden.
  
• Hoe lang kan een batterij een apparaat voeden.
  
• Dipswitch calculator.
  
• Parallel geschakelde weerstanden.
  
• Spanningsdeler
  
• Brug van Wheatstone.
  
• NE555 als timer.
  
• NE555 als oscillator.
  
• Transistor versterker berekenen.
  
• Cross-over filter berekenen
  
• Radar Detector.

Public Class frmBlijvenEten
	Public aantaldagen As Integer
	Public resultaten As String
	Private Totaal() As Integer
	Private bovengrens As Integer
	Private Sub mnuBestandOpenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBestandOpenen.Click
		' Inlezen van de namen.
		Dim index As Integer = 0
		Dim lijn As String		' Keuzelijst leegmaken.
		lstLeerlingen.Items.Clear()
		' Instellen van het dialoogvenster openen.
		With dlgOpenen
			.Filter = "Tekstbestanden (*.txt)|*.txt"
			.FileName = ""
			.InitialDirectory = "C:\Users\Jessica Willems\Documents\Visual Studio 2010\Projects\AFSTANDSLESBESTANDEN"
			.Title = "Openen"
		End With		' Openen en lezen van het bestand.
		If dlgOpenen.ShowDialog = DialogResult.OK Then
			FileOpen(1, dlgOpenen.FileName, OpenMode.Input)
			Do While Not EOF(1)
				' Lezen lijn.
				lijn = LineInput(1)
				' Toevoegen als item in de lijst.
				lstLeerlingen.Items.Add(lijn)
			Loop
			FileClose(1)			' Tekstvakken leegmaken.
			txtNaam.text = ""
			txtAantalDagen.Text = 0
			chbBlijftEten.Checked = False
			txtNaam.Focus()
		End If
	End Sub	

Private Sub mnuBestandOpslaanAls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBestandOpslaanAls.Click
		Dim index As Integer
		With dlgOpslaan
			.InitialDirectory = "C:\Users\Jessica Willems\Documents\Visual Studio 2010\Projects\AFSTANDSLESBESTANDEN"
			.Filter = "Tekstbestanden (*.txt)|*.txt"
			.Title = "Opslaan als"
		End With		' Opslaan van het bestand
		If dlgOpslaan.ShowDialog = DialogResult.OK Then
			FileOpen(1, dlgOpslaan.FileName, OpenMode.Output)
			For index = 0 To lstLeerlingen.Items.Count - 1
				PrintLine(1, lstLeerlingen.Items(index))
			Next
			FileClose(1)		End If
	End Sub

Private Sub mnuBestandOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBestandOpslaan.Click
		Dim index As Integer		If dlgOpenen.FileName = "" Then
			mnuBestandOpslaanAls_Click(sender, e)
		Else
			FileOpen(1, dlgOpenen.FileName, OpenMode.Output)
			For index = 0 To lstLeerlingen.Items.Count - 1
				PrintLine(1, lstLeerlingen.Items(index))
			Next
			FileClose(1)
		End If
End Sub

	Private Sub mnuBestandNieuw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBestandNieuw.Click
		lstLeerlingen.Items.Clear()		txtNaam.Text = ""
		txtAantalDagen.Text = 0
		txtNaam.Focus()
	End Sub	

Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
		Dim prompt As String
		Dim titel As String = "Fout"
		Dim item As String
		Dim ineten As String = ""
		If txtNaam.Text = "" Then
			prompt = "Er is geen naam ingegeven."
			MessageBox.Show(prompt, titel, MessageBoxButtons.OK)
			txtNaam.Focus()
			Exit Sub
		End If		If (txtAantalDagen.Text = "") Or (txtAantalDagen.Text > 22) Then
			prompt = "Er is niet het juiste aantal dagen opgegeven."
			MessageBox.Show(prompt, titel, MessageBoxButtons.OK)
			txtAantalDagen.Focus()
			Exit Sub
		End If
		If chbBlijftEten.Checked = True Then
			ineten = "J"
		Else
			ineten = "N"
			txtAantalDagen.Text = "0"
		End If		item = txtNaam.Text.PadRight(21) & ineten.PadRight(3) & txtAantalDagen.Text.PadRight(2)
		lstLeerlingen.Items.Add(item)
		txtNaam.Text = ""
		txtAantalDagen.Text = 0
		txtNaam.Focus()
		chbBlijftEten.Checked = False
	End Sub

	Private Sub btnVerwijderen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerwijderen.Click
		Dim prompt As String
		Dim titel As String
		Dim antwoord As DialogResult		
If lstLeerlingen.SelectedIndex = -1 Then
			titel = "Geen item geselecteerd."
			prompt = "Selecteer aub een item."
			MessageBox.Show(prompt, titel, MessageBoxButtons.OK)
			Exit Sub
		End If
		prompt = "Wenst u het item te verwijderen?"
		titel = "Verwijderen item"
		antwoord = MessageBox.Show(prompt, titel, MessageBoxButtons.YesNo)
		If antwoord = DialogResult.Yes Then
			lstLeerlingen.Items.Remove(lstLeerlingen.SelectedItem)
		End If
	End Sub	

Private Sub mnuBestandAfsluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBestandAfsluiten.Click
		Me.Close()
	End Sub	

Private Sub mnuResultaatWeergeven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuResultaatWeergeven.Click
		Dim index As Integer = 0
		Dim lijn As String
		Do While Not EOF(1)
			' Lezen lijn
			lijn = LineInput(1)
			' Opvullen array
			Totaal(index) = (aantaldagen * 0.5)			'Verhogen index
			index = index + 1
		Loop
		bovengrens = index - 1
		Dim frm As New frmResultaat
		Me.Hide()
		frm.Show()
	End Sub
End Class

Public Class frmResultaat
	Private bovengrens As Integer
	Private totaal() As Integer
	Private Sub btnSluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSluiten.Click
		Me.Close()
		frmBlijvenEten.Show()
	End Sub	

Private Sub frmResultaat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		For index = 0 To bovengrens
			txtResultaten.Text = (totaal(index)) & vbCrLf
		Next
	End Sub
End Class

Private Sub btnOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOK.Click
	 Dim updateQuery As String
	 Dim cmdAdmins As OdbcCommand
	 Dim nieuwWachtwoord As String

	 'encrypten van het wachtwoord
	 nieuwWachtwoord = Beveilig(txtNieuwWachtwoord1.Text)
	 updateQuery = "UPDATE admins SET wachtwoord=@nieuwWachtwoord WHERE gebruikersnaam=@gebruikersnaam AND wachtwoord=@wachtwoord"
	 cmdAdmins = New OdbcCommand(updateQuery, cnUnumWeb)
	 'gebruiker aanpassen in de database
	 With cmdAdmins.Parameters
		 .Add("@nieuwWachtwoord", OdbcType.VarChar, 48)
		 .Add("@gebruikersnaam", OdbcType.VarChar, 50)
		 .Add("@wachtwoord", OdbcType.VarChar, 48)
	 End With
	 nieuwWachtwoord = Beveilig(txtNieuwWachtwoord1.Text)
	 With cmdAdmins
		 .Parameters("@nieuwWachtwoord").Value = nieuwWachtwoord
		 .Parameters("@gebruikersnaam").Value = gebruikersnaam
		 .Parameters("@wachtwoord").Value = wachtwoord
	 End With

	 OpenConnectie(cnUnumWeb)
	 '--------------------------------------------
	 cmdAdmins.ExecuteNonQuery() 'LUKT NOG NIET ==> GEKENDE FOUT BIJ UPDATE (MET PARAM)!!!!!
	 '--------------------------------------------
	 SluitConnecties()
	 wachtwoord = nieuwWachtwoord
	 MessageBox.Show("U heeft succesvol uw wachtwoord gewijzigd.", "Wachtwoord succesvol gewijzigd", MessageBoxButtons.OK, MessageBoxIcon.Information)
	 Me.Close()
End Sub

Private Sub btnCreateData_Click()
	'We checken eerst even of einddatum niet <= startdatum
	Dim vStartDatum, vEindDatum As Date
	vStartDatum = txtStartDatum
	vEindDatum = txtEindDatum

	 If vStartDatum >= vEindDatum Then
		MsgBox "Eindatum moet minstens 1 dag na Startdatum zijn"
		Exit Sub
	End If

	'We maken een variabele datum en verhogen die straks telkens met één dag
	Dim vDatum As Date
	vDatum = vStartDatum

	While vDatum <= vEindDatum
		'******************************************************************
		'We maken een record bij in tblDatums
		Dim strSQL As String
		strSQL = "INSERT INTO Tabel2 (Datum) Values (#" & Format(vDatum, "yyyy/mm/dd") & "#)"
		DoCmd.SetWarnings False
		DoCmd.RunSQL strSQL
		DoCmd.SetWarnings True

		'*******************************************************************


		'En verhogen de waarde van vDate met één dag
		vDatum = DateAdd("d", 1, vDatum)

	Wend

	'We laten nog even dat we ermee klaar zijn
	MsgBox "De datums van " & txtStartDatum & " tot " & txtEindDatum & " zijn toegevoegd."

End Sub

VBiB/ACCB.net is ook vertegenwoordigd, en wij doen een sessie (16h00 - 17h00) rond “What you'll be using in the coming years: Visual Studio 11, C# 5 and VB11”

Get ready for the Belgian community at its very best!

The Belgian community is organizing the 6th edition of Community Day! Community Day 2012 will take place on June 21st 2012 in Utopolis Mechelen. Thanks to our sponsors, Community Day 2012 is a FREE event!
17 user groups will outperform themselves to bring you their view on Microsoft products in 40+ sessions (6 tracks!). With the upcoming releases, a lot of the talks will focus on the things you'll learn and use tomorrow. We even have a full track committed entirely to Windows 8. But, just as always, we aren't forgetting about the present and the things you use today either in our several best practices and deep-dive talks!
We know it's probably a cliché but anyway: this will be the biggest edition of Community Day so far!
The Microsoft Community Day 2012 is powered by:

• AZUG
  
• Belgian C++ user group
  
• BESUG (soon PIRAD)
  
• BIWUG
  
• CLUG
  
• IT-Talks
  
• Pro-Exchange
  
• SCUG
  
• SQLUG
  
• ACCB.net/VBIB
  
• Visug
  
• WinSec
  
• XNA-BUG
  
• DotNetHub
  
• MyTIC
  
• Wiphug
  
• TechNine

   Dim kalender As New TableLayoutPanel()

	Private Sub Kalender_Load(sender As Object, e As System.EventArgs) Handles Me.Load
		Dim kolom As Byte = 31
		Dim rij As Byte = 13
		' De eerste horizontale cel heeft 0,0 als positie in de tabel.
		' De tweede horizontale cel heeft 0,1 als positie in de tabel.
		Dim textbox(kolom, rij) As TextBox
		kalender.Location = New System.Drawing.Point(10, 10)
		kalender.Name = "TlpKalender"
		kalender.Size = New System.Drawing.Size(970, 350)
		' kalender.Visible = True
		kalender.Anchor = AnchorStyles.Top
		kalender.Anchor = AnchorStyles.Left
		' kalender.AutoScroll = True
		kalender.AutoSize = True
		kalender.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
		kalender.BackgroundImageLayout = ImageLayout.Tile
		kalender.CellBorderStyle = TableLayoutPanelCellBorderStyle.None
		kalender.ColumnCount = 32
		kalender.RowCount = 14

		For kolom = 0 To 31
			' De eerste kolom is 40 pixels breed voor de namen van de maanden.
			If kolom = 0 Then
				kalender.ColumnStyles.Add(New ColumnStyle(SizeType.Absolute, 40))
			Else
				' De andere kolommen zijn 30 pixels breed voor de CR, BF, EX, CW9, WC dagen.
				kalender.ColumnStyles.Add(New ColumnStyle(SizeType.Absolute, 30))
			End If
			For rij = 0 To 13
				' Elke rij is 25 pixels hoog.
				kalender.RowStyles.Add(New RowStyle(SizeType.Absolute, 25))
				' Nieuwe instantie maken van tekstboxen.
				textbox(kolom, rij) = New TextBox
				textbox(kolom, rij).Text = "w"
				' Nieuwe tekstbox toevoegen aan de kalender.
				kalender.Controls.Add(New TextBox, kolom, rij)
				' De tekstbox is 30 pixels breed en 25 pixels hoog.
				textbox(kolom, rij).Size = New Drawing.Size(30, 25)
				textbox(kolom, rij).BorderStyle = BorderStyle.None
				textbox(kolom, rij).Anchor = AnchorStyles.Left
				textbox(kolom, rij).Anchor = AnchorStyles.Right
				textbox(kolom, rij).Anchor = AnchorStyles.Bottom
				textbox(kolom, rij).Anchor = AnchorStyles.Top
				' textbox(kolom, rij).Dock = DockStyle.Fill

				' Controls toevoegen aan kalender.
				Controls.Add(kalender)
			Next rij
		Next kolom
		' Maanden benoemen in de eerste kolom.
		'textbox(0, 2).Text = "JAN"
		'textbox(0, 3).Text = "FEB"
		'textbox(0, 4).Text = "MAA"
		'textbox(0, 5).Text = "APR"
		'textbox(0, 6).Text = "MEI"
		'textbox(0, 7).Text = "JUN"
		'textbox(0, 8).Text = "JULI"
		'textbox(0, 9).Text = "AUG"
		'textbox(0, 10).Text = "SEP"
		'textbox(0, 11).Text = "OKT"
		'textbox(0, 12).Text = "NOV"
		'textbox(0, 13).Text = "DEC"

	End Sub
	Private Sub Kalender_Resize(sender As System.Object, e As System.EventArgs) Handles MyBase.Resize
		kalender.Location = New System.Drawing.Point(10, 10)
	End Sub

• Ongewenste Spelers weren, kicken
  
• Game Admins aanmaken.
  
• Server zonder dat je er bent in de controleren
  
• Wapens Toestaan/Weren.
  
• Chat logs maken bekijken.
  
• Clanmembers aanmaken(Nieuwe, werkt nog niet 100%)
  
• Ingame TAG, lezen uit de chat.
  
• En meer...

Sceens

If aantSlechteAanmeldingen > 2 Then
	 MessageBox.Show("Uw gebruikersnaam en/of wachtwoord is 3 maal verkeerd ingegeven. Wacht " & CStr(wachttijd) & " minuten en probeer opnieuw.", "Maximum aantal aanmeldpogingen overschreden", MessageBoxButtons.OK, MessageBoxIcon.Error)
	 '--------------------------------------------
	 'TIMER MET COUNTDOWN VAN WACHTTIJD!
	 '--------------------------------------------
	 tmrWachttijd.Start()
End If

Private Sub tmrWachttijd_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrWachttijd.Tick
	 wachttijd -= 1
	 If wachttijd = 0 Then
		  tmrWachttijd.Stop()
		  MessageBox.Show("Uw gebruikersnaam en/of wachtwoord is 3 maal verkeerd ingegeven. Wacht " & CStr(wachttijd) & " minuten en probeer opnieuw.", "Maximum aantal aanmeldpogingen overschreden", MessageBoxButtons.OK, MessageBoxIcon.Error)
		  SluitApplicatie()
	 End If
	 '--------------------------------------------
	 'ENKEL TEKST VAN MESSAGEBOX VERANDEREN EN NIET TELKENS OPNIEUW EEN MESSAGEBOX TONEN!
	 MessageBox.Show("Uw gebruikersnaam en/of wachtwoord is 3 maal verkeerd ingegeven. Wacht " & CStr(wachttijd) & " minuten en probeer opnieuw.", "Maximum aantal aanmeldpogingen overschreden", MessageBoxButtons.OK, MessageBoxIcon.Error)
	 '--------------------------------------------
End Sub

Public Class Form1
	Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
		Dim kalender As New TableLayoutPanel()
		Dim x As Byte
		Dim y As Byte
		Dim textbox(31, 13) As TextBox
		kalender.Location = New System.Drawing.Point(0, 0)
		kalender.Name = "TlpKalender"
		kalender.Size = New System.Drawing.Size(963, 419)
		'kalender.GrowStyle = TableLayoutPanelGrowStyle.AddColumns
		kalender.BackColor = Color.LightBlue
		kalender.Visible = True
		kalender.Anchor = AnchorStyles.Top
		kalender.Anchor = AnchorStyles.Left
		' kalender.Anchor = AnchorStyles.Right
		'kalender.Anchor = AnchorStyles.Bottom
	  
		kalender.ColumnCount = 32
		kalender.RowCount = 14
		For x = 0 To 31
			For y = 0 To 13
				kalender.ColumnStyles.Add(New ColumnStyle(SizeType.Absolute, 30))
				kalender.RowStyles.Add(New RowStyle(SizeType.Absolute, 30))
				kalender.Controls.Add(New TextBox, x, y)
				Controls.Add(kalender)
			Next y
		Next x
		'Dim textBox1 As New TextBox()
		' textBox1.Location = New Point(10, 10)
		'textBox1.Text = "TextBox1"
		' textBox1.Size = New Size(200, 30)
		'Dim checkBox1 As New CheckBox()
		' checkBox1.Location = New Point(10, 50)
		' checkBox1.Text = "Check Me"
		'checkBox1.Size = New Size(200, 30)
		'kalender.Controls.Add(textBox1, 0, 0)
		'kalender.Controls.Add(checkBox1, 0, 1)
		'Controls.Add(kalender)
	End Sub
End Class

Citeren

Dim iGetal = Decimal.Parse(teller.Text)
MsgBox(IIf(iGetal Mod 2, "oneven", "even"))

Dim iGetal = Decimal.Parse(teller.Text)
		MsgBox(IIf(iGetal Mod 2, "oneven", "even"))
			Select Case iGetal Mod 2
			Case "oneven"
				switchpic1.Image = picture_uit
			Case "even"
				switchpic1.Image = picture_aan
		End Select

Dim iGetal As Integer = Decimal.Parse(teller.Text) MOD 2

Select Case iGetal
	Case 0
		'....'
		Exit Select
	Case -3, 1
		'....'
		Exit Select
	Case -2, 2
		'....'	
		Exit Select  
	Case -1, 3
		'....'	
		Exit Select  
End Select

"SELECT sysobjects.name AS Table_Name, syscolumns.name AS Column_Name 
FROM syscolumns 
INNER JOIN sysobjects ON syscolumns.id = sysobjects.id 
WHERE syscolumns.name Like '%" & SetValue(Form_03_01.TXTValue.Text) & "%' 
AND sysobjects.Type Like 'U%'"

<lang nl-NL>
<button1>
   <button1text><button1text>Vertaal</button1text>
   <button1tooltip>Hiermee vertaal je deze knop</button1tooltip>
</button1>

<label2>
   <label2text>blablabla...</label2text>
   <label2tooltip></label2tooltip>
</label2>
</lang>