Nummerplaten: code

• Op het formulier: de kleurcodes en het oproepen van de functies
  Private Sub cmdB_Click()
  With lblPlaat
  .BackColor = RGB(255, 255, 255)
  .ForeColor = RGB(255, 0, 0)
  .Caption = maaknummerplaat
  End With
  End Sub
  
  Private Sub cmdE_Click()
  With lblPlaat
  .BackColor = RGB(255, 255, 255)
  .ForeColor = RGB(0, 0, 0)
  .Caption = Module1.spaansenrplaat2
  End With
  End Sub
  
  Private Sub cmdF_Click()
  With lblPlaat
  .BackColor = RGB(255, 255, 0)
  .ForeColor = RGB(0, 0, 0)
  .Caption = Module1.fransenrplaat
  End With
  End Sub
• De functies zelf zitten in een module:
  
  Function maaknummerplaat() As String
  Dim t
  For t = 0 To 2 'drie letters
  Randomize
  maaknummerplaat = maaknummerplaat & Chr(Asc("A") + Int(Rnd * 26))
  Next
  maaknummerplaat = maaknummerplaat & " - " & Format(Int(Rnd * 999) + 1, "000")
  End Function
  
  Function fransenrplaat() As String
  'twee tot vier cijfers
  fransenrplaat = (Int(Rnd * (10000 - 10)) + 10) & " "
  'twee letters
  Dim t
  For t = 0 To 1
  fransenrplaat = fransenrplaat & Chr(Asc("A") + Int(Rnd * 26))
  Next t
  fransenrplaat = fransenrplaat & " "
  'een departementnummer, tussen 01 en 95
  fransenrplaat = fransenrplaat & Format(Int(Rnd * 95) + 1, "00")
  End Function
  
  Function spaansenrplaat1() As String
  'een provincie
  Dim pr As Integer
  pr = Int(Rnd * 50) + 1
  Select Case pr
  Case 1
  spaansenrplaat1 = "VI - "
  Case 2
  spaansenrplaat1 = "AB - "
  Case 3
  spaansenrplaat1 = "A - "
  Case 4
  spaansenrplaat1 = "AL - "
  Case 5
  spaansenrplaat1 = "AV - "
  Case 6
  spaansenrplaat1 = "BA - "
  Case 7
  spaansenrplaat1 = "PM - "
  Case 8
  spaansenrplaat1 = "B - "
  Case 9
  spaansenrplaat1 = "BU - "
  Case 10
  spaansenrplaat1 = "CC - "
  Case 11
  spaansenrplaat1 = "CA - "
  Case 12
  spaansenrplaat1 = "CS - "
  Case 13
  spaansenrplaat1 = "CR - "
  Case 14
  spaansenrplaat1 = "CO - "
  Case 15
  spaansenrplaat1 = "C - "
  Case 16
  spaansenrplaat1 = "CC - "
  Case 17
  spaansenrplaat1 = "GE - "
  Case 18
  spaansenrplaat1 = "GR - "
  Case 19
  spaansenrplaat1 = "GU - "
  Case 20
  spaansenrplaat1 = "SS - "
  Case 21
  spaansenrplaat1 = "H - "
  Case 22
  spaansenrplaat1 = "HU - "
  Case 23
  spaansenrplaat1 = "J - "
  Case 24
  spaansenrplaat1 = "LE - "
  Case 25
  spaansenrplaat1 = "L - "
  Case 26
  spaansenrplaat1 = "LO - "
  Case 27
  spaansenrplaat1 = "LU - "
  Case 28
  spaansenrplaat1 = "M - "
  Case 29
  spaansenrplaat1 = "MA - "
  Case 30
  spaansenrplaat1 = "MU - "
  Case 31
  spaansenrplaat1 = "NA - "
  Case 32
  spaansenrplaat1 = "OR - "
  Case 33
  spaansenrplaat1 = "O - "
  Case 34
  spaansenrplaat1 = "P - "
  Case 35
  spaansenrplaat1 = "GC - "
  Case 36
  spaansenrplaat1 = "PO - "
  Case 37
  spaansenrplaat1 = "SA - "
  Case 38
  spaansenrplaat1 = "TF - "
  Case 39
  spaansenrplaat1 = "S - "
  Case 40
  spaansenrplaat1 = "SG - "
  Case 41
  spaansenrplaat1 = "SE - "
  Case 42
  spaansenrplaat1 = "SO - "
  Case 43
  spaansenrplaat1 = "T - "
  Case 44
  spaansenrplaat1 = "TE - "
  Case 45
  spaansenrplaat1 = "TO - "
  Case 46
  spaansenrplaat1 = "V - "
  Case 47
  spaansenrplaat1 = "VA - "
  Case 48
  spaansenrplaat1 = "BI - "
  Case 49
  spaansenrplaat1 = "ZA - "
  Case 50
  spaansenrplaat1 = "Z - "
  End Select
  'een getal van twee tot vier cijfers
  spaansenrplaat1 = spaansenrplaat1 & Int(Rnd * 9990) + 10
  'één of twee letters
  Dim aantal As Integer
  Dim t As Integer
  aantal = Int(Rnd * 2) + 1
  spaansenrplaat1 = spaansenrplaat1 & " - "
  For t = 1 To aantal
  spaansenrplaat1 = spaansenrplaat1 & Chr(Asc("A") + Int(Rnd * 26))
  Next t
  End Function
  
  Function spaansenrplaat2() As String
  'met een array
  'een provincie
  Dim pr(50) As String
  pr(1) = "VI - " 'Vitoria - Gasteiz
  pr(2) = "AB - " 'Albacete
  pr(3) = "A - " 'Alicante
  pr(4) = "AL - " 'Almería
  pr(5) = "AV - " 'Avila
  pr(6) = "BA - " 'Badajoz
  pr(7) = "PM - " 'Palma de Mallorca
  pr(8) = "B - " 'Barcelona
  pr(9) = "BU - " 'Burgos
  pr(10) = "CC - " 'Cáceres
  pr(11) = "CA - " 'Cádiz
  pr(12) = "CS - " 'Castellón de la Plana
  pr(13) = "CR - " 'Ciudad Real
  pr(14) = "CO - " 'Córdoba
  pr(15) = "C - " 'A Coruña
  pr(16) = "CU - " 'Cuenca
  pr(17) = "GE - " 'Girona
  pr(18) = "GR - " 'Granada
  pr(19) = "GU - " 'Guadalajara
  pr(20) = "SS - " 'Donostia - San Sebastián
  pr(21) = "H - " 'Huelva
  pr(22) = "HU - " 'Huesca
  pr(23) = "J - " 'Jaén
  pr(24) = "LE - " 'León
  pr(25) = "L - " 'Lleida
  pr(26) = "LO - " 'Logroño
  pr(27) = "LU - " 'Lugo
  pr(28) = "M - " 'Madrid
  pr(29) = "MA - " 'Málaga
  pr(30) = "MU - " 'Murcia
  pr(31) = "NA - " 'Pamplona
  pr(32) = "OR - " 'Ourense
  pr(33) = "O - " 'Oviedo
  pr(34) = "P - " 'Palencia
  pr(35) = "GC - " 'Las Palmas de Gran Canaria
  pr(36) = "PO - " 'Pontevedra
  pr(37) = "SA - " 'Salamanca
  pr(38) = "TF - " 'Santa Cruz de Tenerife
  pr(39) = "S - " 'Santander
  pr(40) = "SG - " 'Segovia
  pr(41) = "SE - " 'Sevilla
  pr(42) = "SO - " 'Soria
  pr(43) = "T - " 'Tarragona
  pr(44) = "TE - " 'Teruel
  pr(45) = "TO - " 'Toledo
  pr(46) = "V - " 'Valencia
  pr(47) = "VA - " 'Valladolid
  pr(48) = "BI - " 'Bilbao
  pr(49) = "ZA - " 'Zamora
  pr(50) = "Z - " 'Zaragoza
  'Niet inbegrepen: Ceuta (51) en Melilla (52)
  spaansenrplaat2 = pr(Int(Rnd * 50) + 1)
  'een getal van twee tot vier cijfers
  spaansenrplaat2 = spaansenrplaat2 & Int(Rnd * 9990) + 10
  'één of twee letters
  Dim aantal As Integer
  Dim t As Integer
  aantal = Int(Rnd * 2) + 1
  spaansenrplaat2 = spaansenrplaat2 & " - "
  For t = 1 To aantal
  spaansenrplaat2 = spaansenrplaat2 & Chr(Asc("A") + Int(Rnd * 26))
  Next t
  End Function
  Function toongrens() As String
  Dim min As Integer
  min = 32000 'om geen 0 te bekomen
  Dim max As Integer
  Dim teller As Integer
  Dim test As Integer
  For teller = 0 To 10000
  test = Int(Rnd * (10000 - 10)) + 10
  If test < min Then min = test
  If test > max Then max = test
  Next teller
  toongrens = "minimum: " & min & " - maximum: " & max
  End Function
  
  
  

[VB Web] - [hlrnet] - [copyright]