Gratis online QR-code genereren

QR-codes lijken nu langzaam door te breken. Je kunt ze op diverse sites ook zelf online maken, en dan dus (bv met je smartphone) testen. En b.v. op een t-shirt (mee) laten drukken, die je zelf online kunt bestellen. Collega's van me geven er workshops over, o.a. voor scholen (workshop folio digitaal).

Een intro video over QR:

QR codes Explained door platghvr

Wil je zelf eens een QR-code maken? Dat kan b.v. op:

- qrstuff.com
- qurify.com
- qrgenerator.nl
- kaywa.com
- qrcode.nu
- zxing
- quikqr.com
- linkr.to (alleen links naar social media sites zoals LinkedIn en Facebook, maar dan incl het logo van die site in de qr-code)
- invx.com (maakt ook gelijk een datamatrix-code)
- qrdvark.com
- als browser-extensie, voor als je veel qr-codes maakt, bv voor Chrome of Firefox
- of (als je om welke reden dan ook toch een andere zoekt) 1 uit dit lijstje van 10, of 1 van de andere die je via Google kunt vinden.

En je kunt ze zelfs nog pimpen :-). En als je dat leuk vindt: je kunt ook creatief zijn met de bekende streepjescodes.

Linda Humme heeft voor het onderwijs een mooie verzameling over (educatieve) toepassingen van QR-codes.

Voor de iPhone is i-Nigma een goede QR-lezer. Voor Android is er o.a. Google Goggles (dit is een app waarmee je allerlei beelden kunt herkennen, van QR-codes tot gebouwen, DVD's, etiketten, visitekaartjes en meer) en de Neoreader. Heb je (nog) geen QR-lezer op een smartphone? Dan kun je ook een QR-code (zelf uitgeprint of uit een tijdschrift of van een verpakking etc) online (!) scannen met je pc/laptop en een webcam, bv op miniqr of met deze AIR-applicatie.

Dit meisje is er in ieder geval fan van :-):


Dit artikel bevat ook een leuke set links op gebied van QR in het onderwijs.

Maar moet je ook echt iets met QR? En waar moet je aan denken / wat moet je je afvragen? Een mooie praktische opsomming vond ik bij FrankWatching.

En een mooi (niet educatief, maar wel heel sterk) voorbeeld van de mogelijkheden van QR is dit voorbeeld van Tesco in Korea:


Klik hier voor alle blogitems over QR.

Waar is iPhone SBsettings onder iOS 4.3.1?

(English below) Zojuist mijn 3GS voorzien van iOS 4.3.1 nu daarop een jailbreak mogelijk is. Lukte niet direct: ik probeerde 1st via RedSnow en een IPSW mijn iPhone op 4.2.1 direct naar 4.3.1 te brengen. Maar dat resulteerde in een iPhone die bleef hangen bij het opstarten. Dus een restore gedaan, officieel 4.3.1 er op gezet en toen RedSnow gebruikt.

Toen wilde ik weer heel graag SBsettings terug, om lekker makkelijk zenders uit- en aan te zetten. Maar dat was nergens meer te vinden?!

Ik vond deze site waar stond: "....You can now fix lost community sources by loading cydia, on home page tapping on “more package sources” and then at the top of the page, any lost community sources will be present. Tap on them to reinstall / fix them......"

Toen ik dat probeerde zag ik maar HEEL kort bovenin in het scherm de 3 standaard toegevoegde repositories, waaronder BigBoss. Dus na een reload maar HEEL snel, voordat ze uit beeld verdwenen, op de regel met BigBoss getikt : dat werd opnieuw geinstalleerd, en daarna was SBsettings weer te vinden onder de packages! Tot slot ManualCorrect geinstalleerd via Cydia, en ik ben weer bij, en blij :-). Mijn favo apps zijn daarnaast MyWi, AptBackup (om je Cydia-apps te backuppen en herstellen) en Springtomize (om de lay-out van je icon(groepen) te backuppen/herstellen).

Mochten bepaalde (Cydia jailbreak) apps niet werken of foutmeldingen geven, doe het trucje dat ik hier boven beschrijf met de BigBoss-repository ook evt met de andere repositories. En de-installeer de apps eens (doe alsof je ze gaat installeren, maar kies dan wissen in de laatste stap), en installeer ze opnieuw.

Om upgrades/updates etc zo makkelijk mogelijk te maken is de aanbevolen volgorde:

- maak een backup van je iPhone
- maak een backup van je jailbreak-apps (met Appbackup of AptBackup)
- backup evt de layout van je icons/homescreen(s): Springtomize maakt op je iphone een backup op root/private/var/mobile/Library/Springtomize/Layouts/ die je, bv met iExplore, evt zelf even moet veilig stellen op je PC/Mac, en naderhand terug moet zetten
- herstel je iphone
- doe de jailbreak
- zet eventueel de backups terug

Sommige mensen vragen zich overigens af: wat is er eigenlijk nieuw in 4.3 :-)? In ieder geval iTunes delen op je lokale netwerk (Home Sharing). Hoe je dat activeert lees je bv hier. Daarnaast zou de web-browser op je iDevice een stuk sneller moeten zijn. En, als je provider het toestaat, kun je je iPhone gebruiken als draadloos netwerk: via je iPhone kunnen andere apparaten dan via WiFi gebruik maken van je iPhone-internet-verbinding. Bv leuk als je een iPad zonder 3G hebt en ergens bent waar je iPhone WEL een 3G-verbinding heeft, maar er geen WiFi is: kan je iPad ook op internet... En nog wat kleinere nieuwe dingen. 4.3.1 is daar bovenop weinig meer dan een bugfix.

English: looking for a way to backup your iPhone apps? Try Appbackup or Aptbackup! So in case you want to sync your iPhone to a new computer (PC or Mac or...) and for some reason you don't have access to the computer that you originally synced your iPhone to (and thus iTunes wants to put your iPhone back in factory state or whatever), try those tools. Appbackup will backup your apps on your iPhone, and with iPhone Explorer you can copy the resulting backup to your computer, to enable a restore (reverse the process for that :-)).

Video omzetten voor op je iPhone

(Dutch)Heel veel is makkelijk op een Apple apparaat. Maar ze zijn niet perfect ;-). Zo is het voor veel mensen zoeken hoe ze videomateriaal nu zo krijgen dat het op bv hun iPhone / iPod / iPad etc af te spelen is. iPhoneclub.nl had daar een artikel over, maar de reacties bevatten zo mogelijk nog betere info. Ik vat het (voor mezelf, maar wie weet voor meer mensen :-)) even samen:

- iPhoneclub wijst op het gratis (en open source) Media Converter, en op het niet gratis, maar wellicht wel veel betere, CinexPlayer

- een reageerder zweert bij het betaalde AVPlayer

- een ander wijst op het gratis Miro Media Converter

- anderen wijzen op de standaard mogelijkheden: "Dit kan dus ook gewoon met Quicktime. Bestand openen en dan save as. Geen extra programma’s nodig" en "Quicktime! In het menu deel > iTunes, ok klikken en klaar. Wanneer je Perian hebt geinstalleerd voor Quicktime dan kun je allerlei extra formaten afspelen die Quicktime standaard niet ondersteund (divx, mkv, en veeeel meer), en kun je die formaten ook gewoon omzetten naar mp4 voor de iPhone, OOK FLASH VIDEO’s!"

- op deze blogpost kreeg ik via Facebook nog de tip om te kijken naar Buzz Player, een iPhone video player die veel formaten aan kan

- een andere reactie via Facebook gaat over een betaalde app om video om te zetten: "Als je een dvd wil omzetten is DVD mobile van Slysoft (niet gratis) superhandig. Alle formaten als output en instelbare resoluties en framerate. Ik zet de favoriete DVDs van m'n dochters zo om tbv Apple tv en iPad ;-)"

- vanaf OSX 10.7 kun je door in de Finder rechts te klikken op een videobestand de optie "encode selected video files" vinden

- mensen die MKV-bestanden willen omzetten wordt gewezen op de volgende info: "9 van de 10 MKV gebruiken al h.264 als video codec. Het enige wat je nodig hebt is een programmatje als MKVTools die de video en de audio uit de mkv haalt en deze in een mp4 container steekt. Met Subler kan je dan achteraf ondertitels toevoegen"

Toen ik een MKV moest omzetten (in mijn geval naar iPad-formaat), had ik zelf succes met Media Convertor. Ik had ondertitels nodig, en die vond ik op ondertitels.com (of een andere). De ondertitels kon ik aan de m4v-formaat-film toevoegen via Subler, maar ze liepen niet helemaal gelijk met de film: daarom heb ik gratis en online de tijd van de ondertitel-srt aangepast. En vergeet ook het open source HandBrake niet: daarmee kun je bv perfect een DVD omzetten naar iPad-formaat, waarbij je keurig kunt selecteren welke ondertitels je er bij wil hebben.

Beeld-bron: pavtube.com

Internet radio voor in je stereo-toren

(Dutch) Een collega vroeg me of ik oplossingen kende om internet radio stations te luisteren (streamen), maar dan op je stereo-set (43-cm Hi-Fi component). Hij zoekt een apparaat met de afmetingen van zijn huidige stereo-set, een apparaat dat een onderdeel is van zijn stereo-set, met dezelfde breedte etc.

Heb even voor hem gezocht en vond (deze blogpost is later aangevuld met wat mijn collega ook zelf nog vond):

- de Terratec Noxon A540 of IR340;
- deze Grace IRD4400M en de IRDT200
- een Denon
- een Onkyo
- een Pioneer
- een Marantz
- een Teac
- een Rotel (geen idee of dat merk te koop is in NL)
- een Sangean (idem :-))

En je kunt ook nog aan PVR's denken met radio-functie, zoals deze Topfield.

Best wat aanbod dus. Alhoewel de prijs nogal varieert. En je natuurlijk goed naar de opties moet kijken, en naar het bedien-gemak. Zo is het invoeren van een wachtwoord van je draadloos internet met een draaiknop niet fijn, maar als die leverancier dan een iPhone app levert waarop je de configuratie kunt doen, is dat wellicht een prima oplossing.

Beeld-bron: Amazon.com.

Wat zijn je mensenrechten?

(Dutch)Mooi filmpje waarin wordt uitgelegd hoe de 'universele rechten van de mens' tot stand zijn gekomen. En dat, als wij er zelf niet voor vechten/aan werken, ze ook zo weer worden geschonden. Extra actueel nu in zoveel landen mensen in opstand komen tegen dictators...

Met dank aan @JustineP.

En voor degene die meer willen weten over wat die rechten dan precies zijn: Google heeft de nodige links.

Wat dikker? Dunner? Zo gedaan op video.

Ongelooflijk hoe eenvoudig videobeelden tegenwoordig kennelijk gemanipuleerd worden. Met MovieReshape worden acteurs / mensen eenvoudig dikker, dunner, langer, gespierder etc gemaakt.
.

Eerder blogde ik over een andere manier waarop we in video worden gemanipuleerd.

Maar goed: zelf zijn we ook niet altijd zo opmerkzaam: dat blijkt wel uit de video met de bal overgooiende mensen, waarbij je als opdracht krijgt om te tellen hoe vaak de bal wordt over gegooid, en dan, als je tenminste niet weet waar het om gaat, iets wel heel opvallends toch niet ziet.

Leven printen met je printer

Updated: dec 2013.

Mooie documentaire waarin je kunt zien wat er nu al 3d geprint kan worden, en waar men in laboratoria mee bezig is.
Men print ook al onderdelen van een auto.

Update feb 2011: more development in bio printing:

Update sept 2011: er zijn aderen geprint met 3d printers. En in nov 2011 lezen we dat structuren kunnen worden geprint waarin/-op botten kunnen groeien. Er is 'een auto' geprint. Nou ja, de buitenkant. En dan wel van een auto die 1 op 85 zou rijden.

En ook dinosaurussen zijn met een 3D-printer te printen. Het skelet dan ;-).

En uiteraard kun je ook eten printen met een 3D-printer :-).

Of wat dacht je van een geprinte mensen-kaak, ter vervanging van een echte kaak?

Update maart 2012: de grootste 3D printer: kan gebruikt worden om (tiener)kamers te printen, tenten, stoelen etc.

Update okt 2012: een film van de BCC waarin een werkende fiets (nou ja, nog niet wat je in de winkel koopt, maar hij werkt) zo uit poeder 3d wordt geprint:

Update maart 2013: een schedel is nu ook geprint.

Update dec 2013: mooi filmpje dat uitlegt hoe 3D printen werkt, wat al kan, en waaraan gewerkt wordt:

2010 Hype Cycle Emerging Technologies

Gartners Hype Cycle laat lekker compact zien welke technologieën 'er aan komen' (vaak in het lab), welke maximaal gehyped zijn, en welke produkten door steeds meer mensen worden gebruikt... Lees hier meer toelichting bij het plaatje.

Virussen, malware etc verwijderen

(Dutch below): found this GREAT page with information on how to remove even the nastiest malware, virus, spyware etc.

Dutch: Gisteren had 1 van mijn kinderen problemen met haar netbook: ze bleek een HEEL vervelend stuk malware (software die bv de startpagina wijzigt naar een goksite etc) opgelopen. Geen idee of het een worm, virus of iets anders was, maar werken met de laptop was bijna niet meer mogelijk, internetten lukte vaak niet meer etc.

Ik ging op zoek naar een oplossing, en vond deze geweldige site; daarin staat een fraai arsenaal aan anti-malware tools. Het is het nodige leeswerk om alles goed uit te voeren, maar daarmee verwijderde ik wel erg hardnekkige rotzooi van die netbook.

Een aanrader! Evt aangevuld met the beginners guide tegen startpagina hacks, en deze computer schoonmaken gids.

Online opgelicht: wat te doen?

Je ziet een leuke aanbieding van een particulier, mailt met elkaar, maakt geld over .... en dan niets meer. Geen produkt voor je geld. Geen reakties op je email. Geld kwijt? Opgelicht?

Een kennis/vriend van ons zit bij de digitale recherche, dus maar even gevraagd wat we kunnen doen. Omdat me dit wellicht nog een keer gaat gebeuren, en/of omdat het wellicht iemand anders kan helpen, blog ik zijn aanpak:

· Achterhaal/bekijk de headergegevens (hoe?) van de ontvangen e-mail van die persoon (daarin zit vaak handige extra informatie over waar die persoon vandaan heeft gemaild).
· Google / Bing de tot nog toe bekende gegevens van de verdachte. Vind je wat?
· Is er wat bekend op opgelicht.nl?
· Wanneer de 'oplichter' totaal niet bekend is/nergens te vinden is (nog niet eerder aangifte gedaan door iemand anders), kan je vooralsnog niet spreken over oplichting en zit je dus in de civiele fase. Maw, x euro leergeld betaald en nooit meer doen. Je kunt dan wel aangifte doen bij de politie, zodat bij een volgende oplichtingspoging van die persoon, er wellicht alsnog tegen die persoon opgetreden kan worden.
· Is hij wel bekend op bv opgelicht.nl, dan zeker aangifte doen bij de politie. Hoe meer, hoe beter en hoe meer slachtoffers we kunnen voorkomen.
· De persoon (e-mailadres) blijven bestoken met reacties; wellicht wordt er toch nog gereageerd.
· Is bij “de oplichter” al bekend dat je hem zoekt en dat er mogelijke stappen worden/zijn ondernomen? Is dit niet het geval, heb je enigszins nog mogelijkheden om reacties te ontlokken (soms krijg je reacties als je juist NIET laat weten dat je stappen zet, soms krijg je dan juist geen reaktie meer).

Het komt er dus op neer dat je je best doet om, met de gegevens die je hebt, te kijken of er iets over die persoon te vinden is, b.v. andere mensen die beweren opgelicht te zijn. Vind je die: aangifte doen, waarbij je de politie ook wijst op die andere slachtoffers. Vind je niets? Dan ook aangifte doen, maar de kans dat er door jouw ene melding aktie wordt ondernomen, is dan niet zo groot. Maar wellicht volgen later meldingen van anderen, en volgt er toch nog wat uit.

M'n broer weer me nog op deze site met info over 'How do i get my money back after being cheated online'.

Video_TS branden op OSX

(Nederlands hieronder) Convert audio_ts and video_ts on a mac osx to iso so you can burn it to a disc and watch it on a DVD player? Use free AquaISO!

Dochterlief had wat Video_TS video / DVD materiaal, en wil dat graag op een DVD-schijfje, zodat ze die kon kijken op haar DVD-speler (momenteel een oude Xbox). Of ik kon helpen om dat onder Apple Mac OSX te doen. Omdat dit niet de 1ste keer is dat ik hier naar zoek, blog ik het dit keer maar even, kan ik het later terugzoeken ;-). Want het kostte me een paar uur en diverse schijfjes :-(.

Ik ken betaalde oplossingen (zoals het programma Toast en Dvd2One), maar wil het, als het net zo goed kan, gratis.

Hieronder staat nog welke opties ik allemaal heb geprobeerd, maar wat werkte voor mij/ons, was het volgende: AquaIso. Start AquaIso, geef aan waar de Video_TS staat en geef aan waar de ISO moet komen. De zo gemaakte ISO kon ik branden met Brand/Burn. Bron: ISO maken via de Terminal met hdiUtil.

Andere handige progjes voor OSX op video gebied zijn Handbrake , MacTheRipper en Fairmount (on-the-fly decrypten).


Wat allemaal niet lukte in mijn poging er een op de Xbox afspeelbare DVD van te maken:

Als ik in OSX 10.6 de map met de VIDEO_TS en AUDIO_TS-mappen open, en dan het icoontje in de bovenste rand van de map, het radartje, open, zie ik daar de optie 'Brand op schijf'. Klinkt goed, dus dat gedaan. Met de Mac DVD-speler kon ik de schijf afspelen, maar de Xbox weigerde dat.

Ik las op die OMT-pagina ook wat over 'brand-mappen' van OSX, kennelijk een standaard OSX-optie. Ook dat nog geprobeerd, maar ook dat werkt niet (de Xbox kon de schijf niet lezen als DVD-schijf). Ik vond al zoekend de reden: 'De reden dat het vanuit de Finder niet werkt, is omdat de Finder een DVD standaard formatteert als "Mac OS extended", terwijl een Video DVD als "DVD-ROM UDF" geformatteerd moet worden'. Ik snap niet waarom Apple dit niet beter regelt; geef dan duidelijk de keuze bij het branden, om de schijf wel/niet volgens UDF te branden.

Een andere optie is via het programma Brand / Burn. Dit programma kan ook ISO bestanden branden. Maar: je hebt de neiging om te denken dat je binnen dat programma voor VIDEO moet kiezen om een Video_TS-map te branden; als je vervolgens de Video_TS-map kiest, krijg je melding/vraag of je bepaalde onderdelen wil converteren. Dat voelt niet alsof dat een door een DVD-speler leesbare schijf oplevert. Ik las op OneMoreThing de tip: 'Wel de goede instelling kiezen: je moet "Data" branden: kies Data en sleep de TS-mappen daarin. Dan rechtsbovenin het Brand-scherm nog wel het goed formaat kiezen: 'DVD (UDF)' ipv 'Mac (HFS+)''. Maar helaas: de Xbox herkende de zo gebrande schijf nog minder (ook deze schijf werkte keurig op de Mac, dat wel).

Op een OMT-pagina las ik ook: 'Of maak een DVD image met DVDImager en brand die vervolgens met schijfhulpprogramma'. Hoe het zou moeten werken: sleep de Video_TS-map op het DVD-imager-icoon, en er wordt een ISO gemaakt, die je dan vervolgens bv met Brand kunt branden naar een schijf. Helaas: ik zag geen voortgang binnen DVD-imager/volgens mij deed hij niets.

PS1 (deze oplossing heb ik niet geprobeerd) Ik vond ook de volgende manier nog waarop je Video_TS-files zou moeten kunnen omzetten tot een leesbare DVD: 'Assuming that you have a group of VOB files (and all the other required files) in a Video TS folder:

- Open up the finder to show the Video TS folder.
- Then insert a blank DVD in the computer drive and wait for the message box to appear.
- Select the open finder window option and you will have a new finder window for the DVD drive.
- Drag the Video TS and Audio TS (If there is one) folders from the first finder window into the new DVD window. This copies all the files.
- The last step is to click on the "Burn" button in the corner of the DVD window.

The burn starts and appears to be a two pass process with verify. Assumming that you have good files and a good DVD, you should have a playable DVD'.

Excel wachtwoord vergeten?

Een collega komt bij je, en vertelt dat hij het wachtwoord niet weet van een Excel. Of je kunt helpen. Sure, maar: hoe ethisch is dat? Hoe bepaal je of het zijn/haar informatie/Excel wel is?

Dus ik koos de korte route: een collega vraagt, en wij helpen. Ik vond 2 tools (waarnaar her en der ook veel verwezen wordt): Excel Password Recovery Master, Excel Password Remover en Free Word / Excel Password Recovery Wizard. De 1ste heb ik uitgeprobeerd, en daarmee wist ik 1 werkblad binnen 24 minuten (pc laten draaien, draaitijd oa afhankelijk van de specs van je PC) te ontdoen van het wachtwoord.

Aan het plaatje bij dit blogitem kun je zien waar in Excel 2003 je dan moet zijn om die gedownloade module te activeren. In Excel 2007 (met de zogenaamde ribbon-balk) werkt dat anders:

- open de xls
- klik linksboven op het Excel-icon
- kies OPTIES VOOR EXCEL
- kies INVOEGTOEPASSINGEN en klik dan START
- blader naar de xla (password.xla, die je kan downloaden op de genoemde site)

Daarna heb je achteraan een extra keuze in het menu, waar je de opties terugvind om 1 worksheet ed van wachtwoord af te helpen.

Ook altijd leuk is om zo'n file te openen in een online office variant (Google Docs, Microsoft Live Office, Zoho etc). Ik probeerde er een paar (waarbij soms de file te groot werd gevonden, of wat anders een blokkade vormde), maar bij ThinkFree Office lukte het me ook om die file te openen en een stuk van de beveiliging kwijt te raken :-).

Business modellen leuk?

Ik kan niet zeggen dat ik heel enthousiast wordt van de woorden 'business model'. Over de oorzaak gaan we niet speculeren. Feit is dat ik vandaag tijdens een hele leuke sessie met de mensen van Tipping Point enthousiast werd gemaakt voor het boek 'Business model generatie'.

Is dat een variant op de Generatie X/Einstein etc? Nee, generatie staat hier voor genereren, maken.

Is dat leuk dan, een business model maken? Nou, zoals Gerard Dekker het vertelde, leek het boek me, zelfs als niet-boeken-lezer, interessant.

Onderstaande video behandelt het model:

Visualise Your Business Model In 15 Minutes Flat - Tom Hulme from HackFwd on Vimeo.

In het boek wordt in een beperkt aantal pagina's een simpel en heel breed bruikbaar model gepresenteerd, waarna de rest van het leuk vormgegeven boek wordt gebruikt om met voorbeelden te laten zien hoe het model wel en niet gebruikt wordt.

Dus ben je geïnteresseerd in business modellen, blader dan vooral ook eens door dit boek!

Postcode reeks genereren

Op mijn huidige opdracht had een collega een bestand met een begin- en eind postcode (en daar dan heel veel van). Maar ze wilde ook graag de tussenliggende postcodes hebben. Ze vroeg me of ik een oplossing wist.

Mogelijk is er een slimmere oplossing, maar ik maakte een korte macro in Excel VBA. De macro werkt als volgt:

• de macro gaat uit van minimaal 2 tabbladen: BRON en DOEL. Op BRON staat in cel A2 de 1ste START postcode, in B2 de 1ste EIND postcode. A3 bevat de 2de START. En zo verder. Het aantal start/stop-postcodes maakt niet uit.
  
• zodra je de macro aanroept, positioneert de macro zichzelf op de goede tabbladen en cellen (je hoeft niet perse op tabblad BRON, DOEL of in cel A2 te staan)
  
• zie verder de documentatie in de code hieronder
  
• de huidige macro gaat er van uit dat het nummer-deel van de VAN en TOT-postcode altijd hetzelfde is. We kunnen dus bijvoorbeeld alle tussenliggende postcodes van 1234 AB t/m 1234 YL aanmaken, maar de onderstaande versie van de code kan niet omgaan met bv een VAN-waarde 1234 AB en een TOT waarde van 2345 YH.
  

Dus, als tabblad BRON het volgende bevat:

Cel A2: 1234 AG, cel B2: 1234 AL
Cel A3: 5462 DF, cel B3: 5462 TE
etc

Dan maakt de makro op tabblad DOEL een rij aan (startend in cel A2, dan A3 etc):

1234 AG
1234 AH
1234 AI
1234 AJ
1234 AK
1234 AL
5462 DF
5462 DG
5462 DH
(en zo door, t/m)
5462 TE


Hieronder de VBA-code:

Sub MaakPostcodeReeks()
'
' Test Macro
' Macro recorded 8/11/2010 by Raoul Teeuwen
'

' Definieer de variabelen
' pcvn bevat het numerieke deel van de postcode. Dus indien de postcode 1234 AB is, bevat pcvn 1234
Dim pcvn As String
' pcvl1 bevat de 1ste PostCode VanafLetter. Dus indien de postcode 1234 AB is, bevat pcvl1 de A
Dim pcvl1 As String
' pcvl2 bevat de 2de PostCode VanafLetter. Dus indien de postcode 1234 AB is, bevat pcvl2 de B
Dim pcvl2 As String
' pctl1 bevat de 1ste PostCode TotLetter. Dus indien de postcode 1234 XY is, bevat pctl1 de X
Dim pctl1 As String
' pctl2 bevat de 2de PostCode TotLetter. Dus indien de postcode 1234 XY is, bevat pctl1 de Y
Dim pctl2 As String

' Leegteller gebruiken we om te tellen hoeveel lege regels we achter elkaar tegenkomen: als we 10 lege regels achter elkaar hebben, gaan we er van uit dat we alle postcodes hebben behandeld
Dim leegteller As Integer

leegteller = 0


'ga naar het resultatensheet, en ga linksboven (a2) staan
Sheets("Doel").Select
Cells.Select
Range("A2").Activate
'maak het DOEL_tabblad leeg
Selection.ClearContents
Range("A2").Select

'we gaan er van uit dat de van/tot postcodes in een tabblad Bron staan, vanaf cel A2. Dus A2 bevat de 1ste van-postcode, cel b2 de 1ste t/m postcode
'ga naar het sheet met op te halen waardes, en ga linksboven (a2) staan
Sheets("Bron").Select
'in D12 zetten we een tekst als we klaar zijn > die maken we nu dus 1st leeg
Range("D12").Select
Selection.ClearContents
Range("A2").Select

'vanaf hier moeten we gaan loopen
Do

'    Selection.Copy
pcvn = Left(ActiveCell, 4)
pcvl2 = Right(ActiveCell, 1)
pcvl1 = Left(Right(ActiveCell, 2), 1)

' beweeg de cursor 1 positie naar rechts
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
'    Selection.Copy
pctl2 = Right(ActiveCell, 1)
pctl1 = Left(Right(ActiveCell, 2), 1)

'kopieer de waarde naar het DOEL werkblad, linksboven (a2)
Sheets("Doel").Select
ActiveCell.Offset(rowOffset:=0, columnOffset:=0).Activate

Do

'1ste loop

Do
'2de loop
ActiveCell.FormulaR1C1 = pcvn & " " & pcvl1 & pcvl2
'naar volgende cel gaan
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
'volgende letter: dus als we 1234 AB hebben, is de 2de letter een B, daarna C, D etc.
pcvl2 = Chr(Asc(pcvl2) + 1)
Loop Until pcvl2 > "Z" Or (pcvl1 = pctl1 And pcvl2 > pctl2)
' we zijn klaar, of de 2de letter is t/m Z gekomen > dan moeten we vanaf A beginnen. Bv we zijn tot AZ gekomen, dan is de volgende BA
pcvl2 = "A"
' volgende letter: dus als we 1234 AZ hebben, is de 1ste letter een A, daarna B, C etc.
pcvl1 = Chr(Asc(pcvl1) + 1)
'we gaan door totdat we voorbij de TOT postcode zijn.
Loop Until Asc(pcvl1) > Asc(pctl1) Or (pcvl1 = pctl1 And pcvl2 > pctl2)


Sheets("Bron").Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=-1).Activate

Do
If (ActiveCell) = "" Then
leegteller = leegteller + 1
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
End If
Loop Until ActiveCell <> "" Or leegteller > 10

Loop Until leegteller > 10

'We zijn klaar: zet in D12 dat we klaar zijn
Range("D12").Select
ActiveCell.FormulaR1C1 = "Postcodereeks(en) zijn aangemaakt op tabblad DOEL."

End Sub

Echte VBA-profs zullen er vast nog onnodige coderegels in aantreffen, of optimalisaties weten. Maar het werkt mi al goed en snel. En wie weet heeft iemand anders er ook nog wat aan :-).

Waarom delen goed is

"Kennis is macht", dachten (denken?) een hoop mensen. Maar door kennis te delen blijk je veel verder te kunnen komen. Zie hieronder de video van TED (net zoals andere TED-video's weer erg interessant (en leuk)). O.a. een leuke vergelijking tussen de stenen handbijl die 30.000 jaar onveranderd werd gebruikt, en een computermuis.

Terwijl vroeger veel voorouders wisten hoe je een stenen handbijl moest maken, is tegenwoordig 'niemand' in staat een potlood te maken, of zou 'niemand' een computermuis kunnen maken (wie weet hoe je olie moet winnen voor het plastic, een laser moet maken etc ... we combineren heel slim stukjes, elkaars kennis & inspanning)...

T-mobile internet in de trein

Ik reis sinds eind 2008 dagelijks met de trein, en ben blij dat er wordt gewerkt om treinstellen uit te rusten met WiFi / mobiel internet. De eerste treinstellen rijden rond, en als je geluk hebt, zit je er soms in 1. Ik heb dat nu een aantal maal meegemaakt, en internet aan de gang proberen te krijgen op mijn Mac (en ja echt, meestal werkt die heel goed, ook met draadloze netwerken).

Hoe het zou moeten werken:

Dat was Griekenland

Sinds gisteren terug van een leuke vakantie in/naar Griekenland.

Wat foto's.

Zomaar wat punten:

- veel leuke dingen gezien: Athene met oa Akropolis en het stadion van de 1ste moderne Olympisch Spelen in 1896. Wel heel erg warm in Athene: eigenlijk moet je Athene / Griekenland niet in de zomer bezoeken

- geleerd dat TomTom je, ja echt ook in de Snelste Route stand, over weggetjes leidt waar je als Nederlander echt van schrikt: er zitten bv 15 enorme sleuven in waar dan band-brede balksjes in liggen zodat je er precies met je wielen overheen moet rijden om niet in die sleuf te zakken ... of door 'wegen' (=steegjes) leidt waar we met onze niet al te brede huur-auto maar met millimeters aan weerszijde tussen 2 huizen door moet rijden (zie de foto via de link hiervoor)

- Delphi bezocht, en verbleven in het nabijgelegen Arachova, een erg leuk dorpje dat in de winter een populair ski-oord is, en waar je dus ook in de zomer bij 40 graden snowboards ziet en borden die je wijzen op sneeuw

- de op rotsen gebouwde kloosters van Meteora (waarvan er 1 in de James Bond 'For Your Eyes Only' schijnt te zitten) bezocht: erg mooi gezicht hoe die kloosters lijken te balanceren / 1-zijn met die rotsen

- geleerd dat Griekenland net zo duur, zo niet duurder is dan Nederland :-( ... En dat je genaaid wordt als je aan een loket een ijsje bestelt en hoort dat het 50 cent per bolletje is, je vraagt of je op het terrasje mag zitten, en ze dan doodleuk zonder vooraankondiging 2 euro per bolletje rekenen

- ancient Olympia gezien waar de oude Olympische Spelen ooit zijn begonnen (5 eeuwen voor Christus)

- je soms nog restaurants tegen komt waar, als je vraagt wat de menukaart biedt, je meegenomen wordt naar de keuken waar dan de deksels worden opgetild en je letterlijk kunt zien wat de pot schaft, en de trotse vrouwelijke kok de hand kunt schudden en kunt aangeven wat je wil

- meegemaakt dat ze in Griekenland makkelijker staken dan in NL, en als ze dat dan doen bij de pompstations, en je maar een kwart tank hebt en nog een reis van 300+ km voor de boeg naar het vliegveld, je dan hoopt dat je toch nog ergens benzine vindt (we hadden geluk)

- je na het met voetbal verliezen van Spanje, je best in een kleine auto met al je bagage nog 2 Spanjaarden mee kunt nemen die de pech hadden om aangereden te worden door een Griek, daardoor geen vervoer hadden, maar wel naar Athene moesten, en je dan met 6 man en bagage voor 6 man met wat moeite wel in een Mercedes A160 past, maar degene die dan 300 km op schoot moet bij een ander niet heel erg fris meer is aan het eind van de rit (maar je zou zelf ook geholpen willen worden, toch)

- er erg veel dure auto's rondrijden in Griekenland en je je dan afvraagt hoe dat nu zit in dat land ... groot verschil tussen rijk en arm? En zijn er niet erg veel rijken in een land dat zoveel problemen heeft?

- geleerd dat het verkeer in Griekenland 'interessant' is: geiten op de weg, mensen op brommers (of lopend) op snelwegen zonder helm etc (en zelfs met kleine kinderen als voor- en of achterpassagier)

- gemerkt dat gamende kinderen zorgen voor makkelijk contact met anderen, en je bv mensen uit Vancouver, Griekenland en Albanie leert kennen

- weer erg veel plezier gehad van de Lonely Planet, met tips voor hotels, restaurants etc

- erg lekker gegeten bij bv Rigani BBQ in Glyfada (bij Athene), aanrader!

Kooptip: hebben ze een website (in NL)?

Ergens vorig jaar kochten we een Guard'n Care Elektronische insectenlamp. Als we het ons goed herinneren bij het Kruidvat, maar dat weten we niet meer zeker. We bewaarden het ding ongeopend tot deze zomer. Gisteren ging hij voor het 1st in het stopcontact: geen teken van leven. En natuurlijk geen idee of we de bon nog ergens hebben. Dus nog even een poging gedaan of er lotgenoten te vinden waren op het internet: misschien was het een kwestie van een losse draad. Niets te vinden. Van het hele 'merk' niets van betekenis, geen website van een producent. En dus geen mogelijkheid te kijken of die achter z'n produkt staat. Typisch gevalletje goedkoop spul zonder support?

In ieder geval een les: Google 1st de merknaam/produktnaam eens. Niets te vinden of alleen wat vage sites? Weet waar je aan begint.

Afbeeldingsbron: kampeerwinkel.nl (waar we de lamp niet kochten: kampeerwinkel heeft wellicht WEL goede lampen ;-))

Update: zelf de schroevedraaier maar even gepakt: met wat gedraai aan de blauwe lamp, ging die toch branden. 't is nogal een gammele constructie. Maar er staat wel stroom op het metalen hekwerkje, ondervond ik met de stekker in het stopcontact :-).

Kraaien ruimen onze rommel op?

(Dutch) Weer een leuke TED-video; dit keer over hoe slim kraaien zijn. Dat je ze prima kunt leren om dingen in te leveren voor wat voer (bv een pinda). En dat je die vogels, die zich prima aanpassen aan mensen, en dus bijna overal te vinden zijn waar mensen zijn, misschien kunt slim kunt inzetten, in plaats van ze als plaag te zien. Misschien leuk om daar een wedstrijd van te maken, bv voor op scholen: wie bedenkt de slimste toepassing voor kraaien.

Op ca 3:00 en 5:20 van het filmpje kun je 2 voorbeelden zien van hoe slim kraaien zijn. En vanaf ca 07:20 legt de spreker uit hoe je kraaien kunt trainen.

Virtuele 3D wereld waarin je echt moet lopen

Een grote bol, waarin je kunt rondlopen. Je zet een videobril op, waarin je een 3D-wereld ziet. Je gaat lopen: de bol zorgt ervoor dat de computer weet waarheen je loopt, en je 3D-wereld beweegt mee. Leuk voor fitness? Voor onderwijs? Voor games? Voor meer? Bekijk de video van de Virtusphere .