Partyflock
 
Forumonderwerp · 714384
Betreft: evenement: Underground Shock, zaterdag 23 april 2005 om 22:00
 
Artiest Clone
Waarschuw beheerder
Wat zouden jullie ervan vinden als er op een zaterdagavond in Leiden een feestje wordt gegeven met early hardcore, hardcore en hardstyle??

Bier en fris wordt deze avond voor 1 euro geschonken!
Entreeprijs 5 euro!

Welke DJ zouden jullie hier geboekt willen zien?
laatste aanpassing
 
Waarschuw beheerder
Ik ben schijdsrechter ja ;)
Artiest Tele
Waarschuw beheerder
verbaast me nog datje er bij blijft :|

laat lautje dat niet horen :D

(ja ben die ene naam kwijt :S ) die turk ofzo ?
laatste aanpassing
 
Waarschuw beheerder
TURK!!!!!!!! jij snapt het niet en lautje??? snap ik ook niet helemaal miss bedoel je kirsten :P ;)
Waarschuw beheerder
ik bedoel cherien ;)
 
Waarschuw beheerder
hehe das de vriendin van luc dus daar doe ik helemaal niks mee maar miss moet jij ff met gigerd praten als je der wilt ;)
Waarschuw beheerder
spoorloos, wie snapt het nou niet:|
laatste aanpassing
Waarschuw beheerder
ik ga liever met bopper
Waarschuw beheerder
kenney wil je weg gaan hier, jou gedrag wordt niet getolereert!!!!
 
Waarschuw beheerder
kenney neuk jij bopper ff dan dat wil ik best ff zien dan mag je hier blijven
Waarschuw beheerder
Bergerwt, wat ben je trouwens met die fiets aan het doen?
volgens mij was je helemaal :vaag:
 
Waarschuw beheerder
ja hij is er wel afgevallen dat weet ik wel moet je zijn klauwen en broek zien ziet eruit ;) hij moet leren fietsen, autorijden kan die ok al niet :P
Waarschuw beheerder
hij kan vrijwel niks
Waarschuw beheerder
hij kan wel snuiven,spuiten en slikken in meerdere vormen! :XTC:
Waarschuw beheerder
pfffffffff :vaag:
 
Waarschuw beheerder
Hebben we al een beetje zin in zaterdag?? :bounce:
Waarschuw beheerder
ja melvin die 'probeert' lady Kendai(L) te regelen die bedoelde ik ;)

Tuurlijk hebben we zin inzaterdag :)
laatste aanpassing
 
Waarschuw beheerder
whhehe ja tuurlijk :)
Waarschuw beheerder
Die Melvisje is weer bezig met zijn wijven, niet normaal!

De een na de ander gewoon ;)
 
Waarschuw beheerder
Ja hoor remy ik doe nooit nooit wat jij doet dat al1
Waarschuw beheerder
ja jullie doen het alle 2 wil wel wat namen noemen melvis ? :D
Waarschuw beheerder
Eggie heeft weer geblowd!

De enorme fantasieen komen weer naar boven! :vaag:
 
Waarschuw beheerder
Whehhe ja die tele jongen denkt die weer wat hij moet echt stoppen met blowen
Waarschuw beheerder
ja man ik ben k stoned :D echt zooowwwwwww ik ben :vaag:
 
Waarschuw beheerder
Ja dat zeggen wij ook al je valt in herhaling dat krijg je ervan
 
Waarschuw beheerder
Gaan we hakkuh dan :D
Waarschuw beheerder
Nee ik ben weer hard aan het werk
let op


Step 1: transform DIN XXXX from excel sheet to PCC StdGasket records
'
Sub FillList()
Dim Gasket As CStdGasket, ws As Worksheet
Dim row As Integer, Col As Integer
Dim Convert As New CStdNomODToDN


Set ws = Sheets("DIN2690")
Set mList = New Collection

For row = 7 To 49
For Col = 4 To 9
'
' Creaste a new VES standard gasket
'
Set Gasket = New CStdGasket
'
' Fixed data
'
Gasket.Stdname = "DIN 2690"
Gasket.TypeID = "FLAT FACE"
'
' One rating per column 2.5 ,6,10 etc.
'
Gasket.Rating = ws.Cells(6, Col).Value
Gasket.NennWeite = ws.Cells(row, 2).Value
Gasket.NomOD = Convert.DN_To_NomOD(Gasket.NennWeite) ' Convertion !!!!!!!!!
'
' Import gasket dimensions
'
' 1) Inside diameter
Gasket.D1 = ws.Cells(row, 3).Value
' 2) Outside diameter
Gasket.D0 = ws.Cells(row, Col).Value
' 3) Thickness 2 mm default
Gasket.t0 = 2
'
' Check if it is a valid gasket !
'
If IsNumeric(Gasket.D0) And Gasket.NennWeite > 4 Then
mList.Add Gasket
Else
' ????
End If

Next Col
Next row

ExportList mList

End Sub
'
' Export StdGasket collection to file (CSV)
'
Sub ExportList(list As Collection)
Dim Gasket As CStdGasket, ws As Worksheet
Dim row As Integer

'
'
'
Set ws = Sheets("Export")
ws.UsedRange.Clear ' Removes all data on export sheet
ws.Cells(1, 1).Value = "StdName"
ws.Cells(1, 2).Value = "TypeID"
ws.Cells(1, 3).Value = "Rating"
ws.Cells(1, 4).Value = "NomOD"
ws.Cells(1, 5).Value = "D0"
ws.Cells(1, 6).Value = "D1"
ws.Cells(1, 7).Value = "D2"
ws.Cells(1, 8).Value = "D3"
ws.Cells(1, 9).Value = "t0"
ws.Cells(1, 10).Value = "t1"
ws.Cells(1, 11).Value = "t2"
ws.Cells(1, 12).Value = "NoGrooves"


'
'
'
row = 2
For Each Gasket In list
'
' Export gasket identifiers
'
ws.Cells(row, 1).Value = Gasket.Stdname
ws.Cells(row, 2).Value = Gasket.TypeID
ws.Cells(row, 3).Value = Gasket.Rating
ws.Cells(row, 4).Value = Gasket.NomOD
'
' gasket dimensions
'
ws.Cells(row, 5).Value = Gasket.D0
ws.Cells(row, 6).Value = Gasket.D1
ws.Cells(row, 7).Value = 0
ws.Cells(row, 8).Value = 0
ws.Cells(row, 9).Value = Gasket.t0
ws.Cells(row, 10).Value = 0
ws.Cells(row, 11).Value = 0
ws.Cells(row, 12).Value = 0
'
' Goto next line
'
row = row + 1
Next Gasket

' close file



End Sub




dat heb ik geprogrameerd :S
Waarschuw beheerder
Zoek de fout trouwens:S
 
Waarschuw beheerder
jah juh heb er opsekers zin in lekker dichtbij
zorg zker dak daar wel om 10uur sta want vol=vol daarso
alleen naar de klote dat et zoo klain is maare word wel stampuh dano en meagashira opsekers
 
Waarschuw beheerder
Tele ga eens met het echte programmeer werk beginnen ipv Visual Basic :D hahaha :nee:
 
Waarschuw beheerder
nah tele doe is wat normaals ;)hij geeft de fout aan lul in visual basic wat is daar moeilijk aan dan :P
laatste aanpassing
 
Waarschuw beheerder
nou fuck dano en meagashira
clone en olash zijn veel beter :-P
denk ik... hehe :-P
maareh... tele wat ben je weer hard aan het werk.. in het forum :-D
 
Waarschuw beheerder
:respect:
 
Waarschuw beheerder
hij zit op het forum omdat die hoopte dat jij online zou zijn kirs dat snap je wel toch :)
 
Waarschuw beheerder
hehe ja nu ben ik online is hij er niet meer...
gaat lekker dan
 
Waarschuw beheerder
Ja miss moeten jullie elkaar bellen wanneer er 1 online komt dan gaat het vast beter ;)
 
Waarschuw beheerder
ja maar ja we spreken elkaar nu ook al vaak zonder te bellen hehe
 
Waarschuw beheerder
Ja Tele vind Kirsten erg leuk hoorde ik :D
 
Waarschuw beheerder
ooow was er nou leuk aan mij?
 
Waarschuw beheerder
Moet je aan Tele vragen niet ana mij, ik ga lekker naar huis nu :D
 
Waarschuw beheerder
hehe uhu
maareh veel plezier thuis :-P
Waarschuw beheerder
Yeah zin in zaterdag :D

Mir vind kirs ook leuk :) TVTB :bah:

Oja die orgie he Kirs, doe je er ook aan mee ;P
laatste aanpassing
 
Waarschuw beheerder
haha ja ik heb ook zin in zaterdag
en jij bent ook leuk hoor mir!
anch'io ti voglio tanto bene :-D
enneh... ja tuurlijk doe ik mee hehe
jij ook?
Waarschuw beheerder
he waar is de vrouwesteeg dan?
ken wel wat in leide maar de straatnaam komt me niet bekend voor.
enne ken je nog kaartjes in de voorverkoop hale!
Waarschuw beheerder
zaterdag weer feestje en dit keer hopelijk zonder verbouwingen :P
clone en olash :respect:
ja ikke doe ook mee :) zal zo mies ff overhalen doet die ook mee :D

PS kirs als je gaat mac-en kom ff langs mij dan, wil wel mee :)
 
Waarschuw beheerder
ok dan ja graag naar de mac hehe
ja alleen die kut tele he :-P
maar nee beter is dit feestje zonder verbouwingen enzo maar zal wel goed komen ;-)
Artiest {SHOWLIST artist 21901, 78274}
Waarschuw beheerder
mensen luister
als olash en clone net zo draaien als met oud & nieuw dan zou ik zeker zeggen dat ze moeten komen
 
Waarschuw beheerder
nah ik was er niet bij op oud&nieuw he :-D
maareh... lijkt me wel gezellig als ze op hun eigen feestje komen ;-)
Waarschuw beheerder
ja wel zo makkelijk he ;) hehehe
oud & nieuw staat ook hun PF erbij :P
bij olash zijn de eerste foto´s er zelfs van
 
Artiest Olash
Waarschuw beheerder
Hahaha die tele dacht dat hij superman was afgelopen vrijdag
met een beetje geluk zie je hem weer vliegen zaterdag
Waarschuw beheerder
Ennuh.....Olaf na dat feest gaan we bij jou thuis toch nog een videoband kijken ;P Kirs en ik willen die wel graag zien :D