maandag 10 januari 2022

Plaatjes zonder terugleggen

Voor de plaatjes op WisFaq zonder herhaling kan je dan deze procedures gebruiken:
dim Lijst(5), LijstWijzer

Sub MaakLijstSchoon
	dim n
	for n=1 to 5
		Lijst(n)=0
	next
	LijstWijzer=1
End sub

Sub Add2List(waarde)
	Lijst(LijstWijzer)=waarde
	LijstWijzer=LijstWijzer+1
End sub

Function InLijst(waarde)
	dim n
	InLijst=FALSE
	for n=1 to Lijstwijzer
		if waarde=Lijst(n) then
			InLijst=TRUE
		end if
	next
End function  
Check http://www.wisfaq.nl om te kijken of het werkt...👅