quote:Op maandag 19 januari 2009 14:32 schreef RealBizkit666 het volgende:
Mijn programma voor de FOK! Gouden Schoen is af.
Het moet alleen elke week worden ingevuld, anders werkt het niet...
Het enige wat je hoeft te doen is copy paste van alltid en op ctrl+shift+h te klikken en daarna poept die automatisch de scores eruit.quote:Op maandag 19 januari 2009 14:34 schreef Gijs_ het volgende:
[..]
![]()
Als het programma goed is, valt het invullen qua tijd wel mee toch ?
lekker bezigquote:Op maandag 19 januari 2009 14:38 schreef RealBizkit666 het volgende:
[..]
Het enige wat je hoeft te doen is copy paste van alltid en op ctrl+shift+h te klikken en daarna poept die automatisch de scores eruit.
Ik kan wel maximaal 1000 doelpuntenmakers tot op dit moment, maar zoveel spelers hadden er niet gescoord in de FOK!-fed...
De code voor de nerds onder ons:quote:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | ' zet de nieuwe resultaten in het eerste tabblad (rechtstreeks kopieren vanuit alltid) ' maak eerst tabblad drie schoon Sheets("Results").Select Range("A2:H1000").Select Selection.ClearContents ' voor iedere naam, controleren in tabblad 2 of de spelers daar al met naam staan. Dim i As Integer ' eerste lus Dim j As Integer ' tweede lus Dim elv As Integer ' eerste lege veld Dim naam As String ' naam speler Dim doeln As Integer ' nieuw aantal doelpunten Dim doelv As Integer ' vorig aantal doelpunten Dim hatn As Integer ' aantal nieuwe hattricks Dim league() As String Sheets("Current").Select i = 1 While Range("C" & i).Value <> Empty elv = 0 naam = Range("C" & i) doeln = Range("B" & i) j = 1 While elv = 0 Sheets("Last").Select If naam = Range("C" & j) Then ' indien ja, bekijk het verschil en bepaal het aantal hattricks en zat dat achter die speler het nieuwe aantal doelpunten, hattricks, teamnaam en competie. doelv = Range("B" & j) hatn = (doeln - doelv) \ 3 Range("F" & j) = Range("F" & j) + hatn Range("B" & j) = doeln elv = -1 ElseIf Range("C" & j).Value = Empty Then elv = j End If j = j + 1 Wend If elv > 0 Then ' indien nee, zet de speler met zijn naam onderaan neer met het aantal hattricks op 0. Sheets("Current").Select Range("A" & i & ":E" & i).Select Selection.Copy Sheets("Last").Select Range("A" & elv).Select ActiveSheet.Paste Range("F" & elv) = (Range("B" & elv)) \ 3 End If i = i + 1 elv = 0 Sheets("Current").Select Wend ' bereken vervolgens vanuit het 2e tabblad de score van iedere speler en zet die op het derde tabblad neer. Sheets("Last").Select i = 1 While Range("C" & i).Value <> Empty Range("A" & i & ":F" & i).Select Selection.Copy Sheets("Results").Select Range("A" & (i + 1)).Select ActiveSheet.Paste league = Split(Range("E" & (i + 1)).Value, ".") If league(0) = "I" Or league(0) = "II" Or league(0) = "III" Then Range("G" & (i + 1)) = Range("B" & (i + 1)) * 2 ElseIf league(0) = "IV" Or league(0) = "V" Or league(0) = "VI" Then Range("G" & (i + 1)) = Range("B" & (i + 1)) * 1.5 Else Range("G" & (i + 1)) = Range("B" & (i + 1)) * 1 End If Range("H" & (i + 1)) = Range("G" & (i + 1)) + (Range("F" & (i + 1)) * 2.5) ' Totaal i = i + 1 Sheets("Last").Select Wend Range("A1:A" & i).Select Selection.ClearContents ' als laatste de tabel sorteren op score. Sheets("Results").Select Range("B1:H1000").Select Selection.Sort Key1:=Range("H2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Select Cells.EntireColumn.AutoFit With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select End Sub |
Kan leuk zijn...quote:Op maandag 19 januari 2009 14:44 schreef rompompom het volgende:
Daar ben ik niet nerd genoeg voor, vrees ik..
Ik zie net dat ik een keepertrainer heb in m'n nieuwe league..
quote:Op maandag 19 januari 2009 14:40 schreef RealBizkit666 het volgende:
[..]
De code voor de nerds onder ons:
[ code verwijderd ]
Hij heeft twee 17-jarigen gekocht deze week. de 'beste' haalt 3,5-4 sterren. En om die te kunnen aanschaffen heeft-ie drie andere spelers verkocht.quote:
+1quote:Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:
[..]
![]()
nerd genoeg om nagenoeg alles te snappen...
Dan moet dit ook lukken:quote:Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:
[..]
![]()
nerd genoeg om nagenoeg alles te snappen...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | using System.Collections.Generic; using System.Data; using System.Data.SqlClient; using System.IO; namespace _MiraClassLibrary { public abstract class TabelVuller { public abstract void VulTabel(); } public abstract class MultiRowTabelVuller : TabelVuller { private SqlConnections _readConnection; private SqlConnections _writeConnection; protected abstract string SelectQuery { get; } protected abstract string TabelNaam { get; } protected Globals Global { get; private set; } protected MultiRowTabelVuller(Globals global, SqlConnections readConnection, SqlConnections writeConnection) { Global = global; _readConnection = readConnection; _writeConnection = writeConnection; } public override void VulTabel() { Int32 Counter = 0; Global.logging.WriteLog("Logging: **** Verwerking " + this.TabelNaam + " START ****"); DateTime Start = System.DateTime.Now; _writeConnection.ClearTable(this.TabelNaam); DataTable odsTable = _writeConnection.VulTable("select * from " + this.TabelNaam); using (SqlDataReader saReader = _readConnection.DataReader(this.SelectQuery)) { try { while (saReader.Read()) { IEnumerable<DataRow> odsRows = VulRows(saReader, odsTable.NewRow); foreach (DataRow odsRow in odsRows) odsTable.Rows.Add(odsRow); Counter++; if (Counter % 100000 == 0) { Global.logging.WriteLog("Logging: Aantal verwerkte " + this.TabelNaam + " records: " + Counter); _writeConnection.BulkCopy(odsTable, this.TabelNaam); odsTable.Clear(); } } } catch (Exception ex) { Global.error.HandleError(ex); Global.ErrorCount++; } } Global.logging.WriteLog("Logging: Aantal verwerkte " + this.TabelNaam + " records: " + Counter); try { _writeConnection.BulkCopy(odsTable, this.TabelNaam); } catch (Exception ex) { Global.error.HandleError(ex); Global.ErrorCount++; } Global.logging.WriteLog("Logging: **** Duur verwerking " + this.TabelNaam + ": " + (System.DateTime.Now - Start).ToString()); Global.logging.WriteLog("Logging: **** Verwerking " + this.TabelNaam + " EINDE ****"); } protected abstract IEnumerable<DataRow> VulRows(SqlDataReader saReader, Func<DataRow> newRow); } public abstract class SingleRowTabelVuller : MultiRowTabelVuller { public SingleRowTabelVuller(Globals global, SqlConnections readConnection, SqlConnections writeConnection) : base(global, readConnection, writeConnection) { } sealed protected override IEnumerable<DataRow> VulRows(SqlDataReader saReader, Func<DataRow> newRow) { DataRow odsRow = newRow(); VulRow(odsRow, saReader); return new DataRow[] { odsRow }; } protected abstract void VulRow(DataRow odsRow, SqlDataReader saReader); } } |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | using System.Collections.Generic; using System.Data; using System.Data.SqlClient; using System.Linq; using _MiraClassLibrary; namespace PC2Mira { public class PatMemoVuller : MultiRowTabelVuller { public PatMemoVuller(Globals global) : base(global, global.connectionSA, global.connectionODS) { } protected override string TabelNaam { get { return "ODS_PatMemo"; } } protected override string SelectQuery { get { return " select *, mw.icon as medwnr from medispat mp " + " left join medewerker mw on mp.par_mutatie_gebr = mw.sy2_memo"; } } protected override IEnumerable<DataRow> VulRows(SqlDataReader saReader, Func<DataRow> newRow) { DataRow[] odsRows = { newRow(), newRow() }; VulRowAttentie(odsRows[0], saReader); VulRowInfo(odsRows[1], saReader); // Lege memo's hoeven niet meegenomen te worden. return from odsRow in odsRows where odsRow["sdMemoveld"].ToString().Trim() != "" select odsRow; } private void VulRowAttentie(DataRow odsRow, SqlDataReader saReader) { VulRowAll(odsRow, saReader); for (int i = 1; i <= 2; i++) { if (saReader["par_attentie_regel" + i.ToString()].ToString().TrimEnd() != "") odsRow["sdMemoveld"] += saReader["par_attentie_regel" + i.ToString()] + "\r\n"; } } private void VulRowInfo(DataRow odsRow, SqlDataReader saReader) { VulRowAll(odsRow, saReader); for (int i = 1; i <= 12; i++) { if (saReader["par_patient_info" + i.ToString()].ToString().TrimEnd() != "") odsRow["sdMemoveld"] += saReader["par_patient_info" + i.ToString()] + "\r\n"; } } private void VulRowAll(DataRow odsRow, SqlDataReader saReader) { odsRow["ndPatient"] = saReader["par_mens"]; odsRow["ddDatum"] = DateTimeExtensions.TryParseExact("19010102", "yyyyMMdd"); odsRow["ndPakket"] = (Int32)Global.Pakket; odsRow["ndApoPrak"] = 0; odsRow["sdTrefwoord"] = "Memo"; odsRow["ndMedewerker"] = saReader["medwnr"]; odsRow["sdMedewerkerCode"] = saReader["par_mutatie_gebr"]; } } } |
Ik heb een boek over macro's thuis, het komt er alleen maar neit van om daar echt fatsoenlijk mee aan de gang te gaan. Het is wel zwaar relaxed namelijk als je daar handig mee bent (en vervolgens voortborduren in VB).quote:Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:
[..]
![]()
nerd genoeg om nagenoeg alles te snappen...
Ik ben van mening dat ze van VBA moet afstappen en er C#A van moeten maken. Dat klote gerotzooi in VB steeds... Allemaal dingen die logisch zijn in C# zijn zo ontzettend klote om te moeten maken in VB... En dan met name het typecasting en het variabelen declareer gedeelte...quote:Op maandag 19 januari 2009 14:53 schreef rompompom het volgende:
[..]
Ik heb een boek over macro's thuis, het komt er alleen maar neit van om daar echt fatsoenlijk mee aan de gang te gaan. Het is wel zwaar relaxed namelijk als je daar handig mee bent (en vervolgens voortborduren in VB).
Mwah een beetjequote:Op maandag 19 januari 2009 14:52 schreef RealBizkit666 het volgende:
[..]
Dan moet dit ook lukken:
[ code verwijderd ]
Edit: dit hoort er ook nog bij...:
[ code verwijderd ]
Of draaf ik nu door...
Ik zou het verschil niet weten. Ik heb op m'n HBO heel erg basis C++ gehad, verder strekt mijn programmeerkennis niet.quote:Op maandag 19 januari 2009 14:55 schreef RealBizkit666 het volgende:
[..]
Ik ben van mening dat ze van VBA moet afstappen en er C#A van moeten maken. Dat klote gerotzooi in VB steeds... Allemaal dingen die logisch zijn in C# zijn zo ontzettend klote om te moeten maken in VB... En dan met name het typecasting en het variabelen declareer gedeelte...
Om van te huilen zo erg...
Visual Basic is voor wannabe-programmeurs en C# is voor mensen die echt kunnen programmeren...quote:Op maandag 19 januari 2009 15:09 schreef rompompom het volgende:
[..]
Ik zou het verschil niet weten. Ik heb op m'n HBO heel erg basis C++ gehad, verder strekt mijn programmeerkennis niet..
met wat moeite kan ik er wel wat van maken, maar het zijn niet mijn talenquote:Op maandag 19 januari 2009 14:52 schreef RealBizkit666 het volgende:
[..]
Dan moet dit ook lukken:
[ code verwijderd ]
Edit: dit hoort er ook nog bij...:
[ code verwijderd ]
Of draaf ik nu door...
En wat zijn jouw talen dan?quote:Op maandag 19 januari 2009 15:15 schreef Psychonikeo het volgende:
[..]
met wat moeite kan ik er wel wat van maken, maar het zijn niet mijn talen
Apple én C# fanboy!quote:Op maandag 19 januari 2009 15:14 schreef RealBizkit666 het volgende:
[..]
Visual Basic is voor wannabe-programmeurs en C# is voor mensen die echt kunnen programmeren...
Doe mij maar ASP... Dan kun je kiezen met welke taal je websites maakt. Met PHP ben je zo gebonden...quote:
oh ja.. dat doe ik ook nog.quote:Op maandag 19 januari 2009 15:24 schreef RealBizkit666 het volgende:
[..]
![]()
En natuurlijk hobbyen met COCOA.
http://cocoadevcentral.com/d/learn_cocoa/
tja.. het is zo gegroeid. Nog nooit in aanraking gekomen met ASP. Misschien in de toekomst nog wel eens.quote:Op maandag 19 januari 2009 15:27 schreef RealBizkit666 het volgende:
[..]
Doe mij maar ASP... Dan kun je kiezen met welke taal je websites maakt. Met PHP ben je zo gebonden...
Hattrick draait anders helemaal op ASP. Dus je bent er wel al mee in aanraking gekomen.quote:Op maandag 19 januari 2009 15:32 schreef Psychonikeo het volgende:
[..]
oh ja.. dat doe ik ook nog.
[..]
tja.. het is zo gegroeid. Nog nooit in aanraking gekomen met ASP. Misschien in de toekomst nog wel eens.
quote:Op maandag 19 januari 2009 15:43 schreef ArcturusMengsk het volgende:
Is dit topic verhuisd naar DIG of zo?
Valt GAM niet een beetje onder DIG dan?quote:Op maandag 19 januari 2009 15:43 schreef ArcturusMengsk het volgende:
Is dit topic verhuisd naar DIG of zo?
qua ermee werken dus jaquote:Op maandag 19 januari 2009 15:35 schreef RealBizkit666 het volgende:
[..]
Hattrick draait anders helemaal op ASP. Dus je bent er wel al mee in aanraking gekomen.
Ok. Dat is flauw.
ik heb het in de gaten..quote:Op maandag 19 januari 2009 15:45 schreef Gijs_ het volgende:
[..]
tussenseizoen... komkommertijd denk ik...
Neen..quote:Op maandag 19 januari 2009 15:47 schreef RealBizkit666 het volgende:
[..]
Valt GAM niet een beetje onder DIG dan?
Goede samenvatting.quote:Op maandag 19 januari 2009 15:45 schreef Gijs_ het volgende:
[..]
tussenseizoen... komkommertijd denk ik...
oeh.. code coloringquote:Op maandag 19 januari 2009 15:56 schreef RealBizkit666 het volgende:
[..]
Goede samenvatting.
Het wordt pas echt mooi als de kleurtjes ook nog zichtbaar waren...
is bij elke taal ongeveer in die kleuren toch? en volgens mij kan je het in de meeste editors helemaal aanpassen naar je eigen kleurenquote:Op maandag 19 januari 2009 16:07 schreef RealBizkit666 het volgende:
[..]
Blauw, Lichblauw, Rood, Zwart, Grijs en Groen. Dat zijn de meest gebruikte kleuren in C#.
In VB komt lichtblauw niet standaard voor. Maar je kunt inderdaad alles aanpassen naar eigen smaak.quote:Op maandag 19 januari 2009 16:08 schreef Psychonikeo het volgende:
[..]
is bij elke taal ongeveer in die kleuren toch? en volgens mij kan je het in de meeste editors helemaal aanpassen naar je eigen kleuren
vandaar.. ik ben nu op mijn keihard aan het javascripten en en php-en.. Misschien komt daar ooit nog wel eens wat anders bij zoals VB ofzo. Maar voorlopig kan ik me hier goed mee redden.quote:Op maandag 19 januari 2009 16:09 schreef RealBizkit666 het volgende:
[..]
In VB komt lichtblauw niet standaard voor. Maar je kunt inderdaad alles aanpassen naar eigen smaak.
Daarvan moet ik nog 4 def trainees kopen. Moet wel lukken zou ik zo zeggenquote:Cash funds: 633 071 ¤ (6 889 671 ¤)
Dat ligt maar net aan de leeftijd, de hoofdskill en de bijskill.quote:Op maandag 19 januari 2009 17:55 schreef ScudRaket het volgende:
[..]
Daarvan moet ik nog 4 def trainees kopen. Moet wel lukken zou ik zo zeggen
17 jarigen met uitstekend def en minimaal matig passen.quote:Op maandag 19 januari 2009 18:00 schreef RealBizkit666 het volgende:
[..]
Dat ligt maar net aan de leeftijd, de hoofdskill en de bijskill.
Anders ben ik bang dat je toch te weinig hebt.
Als je er neemt die oud in dagen zijn, dan is het inderdaad wat goedkoper. Als je er wilt van -40 dagen, dan betaal je wel een miljoentje of meer...quote:Op maandag 19 januari 2009 18:02 schreef ScudRaket het volgende:
[..]
17 jarigen met uitstekend def en minimaal matig passen.
1 of 2 mogen wat beter/duurder zijn want die kunnen in de basiself
Exactly.quote:Op maandag 19 januari 2009 18:07 schreef RealBizkit666 het volgende:
[..]
Als je er neemt die oud in dagen zijn, dan is het inderdaad wat goedkoper. Als je er wilt van -40 dagen, dan betaal je wel een miljoentje of meer...
Morgenochtend het eerste wat ik even doe!quote:Op maandag 19 januari 2009 20:31 schreef RealBizkit666 het volgende:
Gijs. Stuur die PSD's even naar mijn mail: dave . lindelauf @ home . nl .
Bij voorbaat dank alvast.
gatver.. zou je je niet eerst ff douchen ofzoquote:Op maandag 19 januari 2009 20:58 schreef Gijs_ het volgende:
[..]
Morgenochtend het eerste wat ik even doe!
Jajajaquote:Op maandag 19 januari 2009 21:00 schreef Psychonikeo het volgende:
[..]
gatver.. zou je je niet eerst ff douchen ofzo
Thx!quote:
quote:Op maandag 19 januari 2009 22:18 schreef Outpost76 het volgende:
[..]
Thx!
Oude bureau uit elkaar gehaald. Decoupeerzaag in gezet om een nieuw bouw pakketje van te maken.
[ afbeelding ]
Morgen dus ff boren in de muur om die planken op te hangen. Die nu op de grond liggen wordt mn bureau met printer ver achter in de hoek) Die plank die rechts tegen de muur staat komt iets hoger met mijn Beeldscherm er op. Die plank die in de breedte staat op mn toekomstig werkblad. Komt daar onder om zo een mooier afgerond geheel te maken. Zo heb ik een berg meer ruimte en meteen een rare 45 graden hoek in mn huis opgelost.![]()
Er komen nog laden kastjes en planken voor Cdrom's \ dvd's. Ook moet ik nog een plank maken links aan de muur om mn pc op te zetten. Die komt onder het werkblad. Hij staat nu tijdelijk op de tafel waar je net een hoek van ziet links op de foto.
Goed bezig!quote:Op maandag 19 januari 2009 22:18 schreef Outpost76 het volgende:
[..]
Thx!
Oude bureau uit elkaar gehaald. Decoupeerzaag in gezet om een nieuw bouw pakketje van te maken.
[ afbeelding ]
Morgen dus ff boren in de muur om die planken op te hangen. Die nu op de grond liggen wordt mn bureau met printer ver achter in de hoek) Die plank die rechts tegen de muur staat (de grote driehoek) komt iets hoger met mijn Beeldscherm er op. Die plank die in de breedte staat op mn toekomstig werkblad. Komt daar onder om zo een mooier afgerond geheel te maken. Zo heb ik een berg meer ruimte en meteen een rare 45 graden hoek in mn huis opgelost.![]()
Er komen nog laden kastjes en planken voor Cdrom's \ dvd's. Ook moet ik nog een plank maken links aan de muur om mn pc op te zetten. Die komt onder het werkblad. Hij staat nu tijdelijk op de tafel waar je net een hoek van ziet links op de foto.
quote:4. Jan-Kees Vrieling (211069941)
18 years and 77 days, Next birthday: 23-02-2009
In poor form, solid stamina.
A pleasant guy who is tranquil and honest.
Has disastrous experience and disastrous leadership abilities.
Owner: Ladderzatsquad (since 19-01-2009)
Total Skill Index (TSI): 2 220
Wage: 900 ¤/week
Keeper: disastrous
Defending: formidable
Playmaking: poor
Winger: weak
Passing: inadequate
Scoring: poor
Set pieces: solid
Samen 1.2 mlnquote:Julius Notten
17 years and 94 days, Next birthday: 06-02-2009
In passable form, inadequate stamina.
A pleasant guy who is balanced and dishonest.
Has disastrous experience and poor leadership abilities.
Total Skill Index (TSI): 1 060
Wage: 530 ¤/week
Keeper: disastrous
Defending: excellent
Playmaking: poor
Winger: poor
Passing: inadequate
Scoring: disastrous
Set pieces: disastrous
quote:
Thx.quote:
Blijf je wel van de vrouwen af?quote:Op maandag 19 januari 2009 22:38 schreef Outpost76 het volgende:
[..]
Dat is ook mn bijnaam hier in de flat. Ik help met klussen bij iedereen en heb ook altijd alles. Qua schroeven spijkers moertjes ed ed. Ook heb ik een berg gereedschap. Vandaar die bijnaam.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |