Hattrick #296: Het is een kwestie van komen en gaan

maandag 19 januari 2009 @ 14:34:52 #151

Gijs_

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...}

Als het programma goed is, valt het invullen qua tijd wel mee toch ?

Doe haastig als je tijd hebt, dan heb je tijd als je haast hebt
www.hattrick.org - FC Bifröst (1011663)
Fokhattrick.org!

maandag 19 januari 2009 @ 14:38:12 #152

RealBizkit666

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 ?

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...

maandag 19 januari 2009 @ 14:39:12 #153

Psychonikeo

quote:
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...

lekker bezig

maandag 19 januari 2009 @ 14:40:36 #154

RealBizkit666

quote:
Op maandag 19 januari 2009 14:39 schreef Psychonikeo het volgende:

[..]

lekker bezig

De code voor de nerds onder ons:

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

Sub Calculate()
    ' 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

[ Bericht 4% gewijzigd door RealBizkit666 op 19-01-2009 14:46:20 ]

maandag 19 januari 2009 @ 14:44:37 #155

rompompom

Daar ben ik niet nerd genoeg voor, vrees ik.

.

Ik zie net dat ik een keepertrainer heb in m'n nieuwe league.

.

maandag 19 januari 2009 @ 14:49:29 #156

RealBizkit666

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. .

Kan leuk zijn...

maandag 19 januari 2009 @ 14:49:44 #157

Gijs_

quote:
Op maandag 19 januari 2009 14:40 schreef RealBizkit666 het volgende:

[..]

De code voor de nerds onder ons:
[ code verwijderd ]

_{nerd genoeg om nagenoeg alles te snappen...}

Doe haastig als je tijd hebt, dan heb je tijd als je haast hebt
www.hattrick.org - FC Bifröst (1011663)
Fokhattrick.org!

maandag 19 januari 2009 @ 14:51:46 #158

rompompom

quote:
Op maandag 19 januari 2009 14:49 schreef RealBizkit666 het volgende:

[..]

Kan leuk zijn...

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.

.

maandag 19 januari 2009 @ 14:52:26 #159

Psychonikeo

quote:
Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:

[..]

_{nerd genoeg om nagenoeg alles te snappen...}

+1

maandag 19 januari 2009 @ 14:52:42 #160

RealBizkit666

quote:
Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:

[..]

_{nerd genoeg om nagenoeg alles te snappen...}

Dan moet dit ook lukken:

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;
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);
    }
}

Edit: dit hoort er ook nog bij...:

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;
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"];
        }
    }
}

Of draaf ik nu door...

[ Bericht 13% gewijzigd door RealBizkit666 op 19-01-2009 14:58:25 ]

G2A Gamekeys en Electronics Logitech PC Gear Logitech PC Gear

maandag 19 januari 2009 @ 14:53:08 #161

rompompom

quote:
Op maandag 19 januari 2009 14:49 schreef Gijs_ het volgende:

[..]

_{nerd genoeg om nagenoeg alles te snappen...}

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).

maandag 19 januari 2009 @ 14:55:43 #162

RealBizkit666

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).

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...

maandag 19 januari 2009 @ 15:08:49 #163

Gijs_

quote:
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...

Mwah een beetje

ik kan hier wel een paar dingen uit op maken, maar het meeste is ook abacadabra, al neem ik ook niet echt de tijd nu om er langer dan een paar tellen naar te kijken!

Doe haastig als je tijd hebt, dan heb je tijd als je haast hebt
www.hattrick.org - FC Bifröst (1011663)
Fokhattrick.org!

maandag 19 januari 2009 @ 15:09:43 #164

rompompom

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...

Ik zou het verschil niet weten. Ik heb op m'n HBO heel erg basis C++ gehad, verder strekt mijn programmeerkennis niet.

.

maandag 19 januari 2009 @ 15:14:29 #165

RealBizkit666

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. .

Visual Basic is voor wannabe-programmeurs en C# is voor mensen die echt kunnen programmeren...

maandag 19 januari 2009 @ 15:15:51 #166

Psychonikeo

quote:
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...

met wat moeite kan ik er wel wat van maken, maar het zijn niet mijn talen

maandag 19 januari 2009 @ 15:17:57 #167

RealBizkit666

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

En wat zijn jouw talen dan?

maandag 19 januari 2009 @ 15:20:42 #168

Psychonikeo

quote:
Op maandag 19 januari 2009 15:17 schreef RealBizkit666 het volgende:

[..]

En wat zijn jouw talen dan?

javascript, PHP voornamelijk.

maandag 19 januari 2009 @ 15:21:33 #169

rompompom

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...

Apple én C# fanboy!

!

maandag 19 januari 2009 @ 15:24:04 #170

RealBizkit666

quote:
Op maandag 19 januari 2009 15:21 schreef rompompom het volgende:

[..]

Apple én C# fanboy! !

En natuurlijk hobbyen met COCOA.
_{http://cocoadevcentral.com/d/learn_cocoa/}

Razer gaming gear Razer gaming gear Razer gaming gear

maandag 19 januari 2009 @ 15:27:15 #171

RealBizkit666

quote:
Op maandag 19 januari 2009 15:20 schreef Psychonikeo het volgende:

[..]

javascript, PHP voornamelijk.

Doe mij maar ASP... Dan kun je kiezen met welke taal je websites maakt. Met PHP ben je zo gebonden...

maandag 19 januari 2009 @ 15:32:29 #172

Psychonikeo

quote:
Op maandag 19 januari 2009 15:24 schreef RealBizkit666 het volgende:

[..]

En natuurlijk hobbyen met COCOA.
_{http://cocoadevcentral.com/d/learn_cocoa/}

oh ja.. dat doe ik ook nog.

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...

tja.. het is zo gegroeid. Nog nooit in aanraking gekomen met ASP. Misschien in de toekomst nog wel eens.

maandag 19 januari 2009 @ 15:35:51 #173

RealBizkit666

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.

Hattrick draait anders helemaal op ASP. Dus je bent er wel al mee in aanraking gekomen.

_{Ok. Dat is flauw.}

maandag 19 januari 2009 @ 15:43:22 #174

ArcturusMengsk

Emperor of the Terran Dominion

Is dit topic verhuisd naar DIG of zo?

maandag 19 januari 2009 @ 15:45:43 #175

Gijs_

quote:
Op maandag 19 januari 2009 15:43 schreef ArcturusMengsk het volgende:
Is dit topic verhuisd naar DIG of zo?

_{tussenseizoen... komkommertijd denk ik...}

Doe haastig als je tijd hebt, dan heb je tijd als je haast hebt
www.hattrick.org - FC Bifröst (1011663)
Fokhattrick.org!

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

Hattrick #296: Het is een kwestie van komen en gaan

» gaming

» online

» gaming

» online