Reprise du message précédent :
Vous devez remplir tous les champs avant de poster ce message

ID=BE_ENG&docheck=on

Begin VB.Label lblPri

Private Sub Class_Initialize()
    On Error GoTo ErrorHandler
 
    '## your code goes here...
 
    Exit Sub
ErrorHandler:
    Call RaiseError(MyUnhandledError, "CCptDroitCANimes:Class_Initialize Sub" )
End Sub

cannot be created

under operating system Linux at Mon Jan 19 18:20:13 GMT 2004
Available scratch disk space (Kbyte units) at beginning of the job is
Filesystem           1K-blocks      Used Available Use% Mounted on
/dev/sda1              4127076   2558664   1358768  66% /
cp -i tests/exam01.inp /scratch//exam01.F05
unset echo
setenv EXTBAS /dev/null
SRC: Undefined variable.

AfxMessageBox  
int AfxMessageBox( LPCTSTR lpszText, UINT nType = MB_OK, UINT nIDHelp = 0 );
 
int AFXAPI AfxMessageBox( UINT nIDPrompt, UINT nType = MB_OK, UINT nIDHelp = (UINT) ?1 );
 
Return Value
 
Zero if there is not enough memory to display the message box; otherwise one of the following values is returned:
 
IDABORT   The Abort button was selected.
IDCANCEL   The Cancel button was selected.
IDIGNORE   The Ignore button was selected.
IDNO   The No button was selected.
IDOK   The OK button was selected.
IDRETRY   The Retry button was selected.
IDYES   The Yes button was selected.  

Modified Files:
 project.xml  
Log Message:
Added versions

vm80bks.exe

Option Explicit
 
Private MyTab() As Boolean
Private m_DtDebTab As Date
Private m_DtFinTab As Date
Private oStaticMathFcts As cEqtStaticMathFcts
 
 
Public Function PeriodePleine(DtDeb As Date, DtFin As Date) As Boolean
  Dim i As Long
   
  If TabIsInit Then
    PeriodePleine = False
  Else
    MyTab = MyTab
     
    If DtDeb < m_DtDebTab Or DtFin > m_DtFinTab Then
      PeriodePleine = False
    Else
      PeriodePleine = True
       
      For i = IdFromDt(m_DtDebTab, DtDeb) To IdFromDt(m_DtDebTab, DtFin)
        If Not MyTab(i) Then
          PeriodePleine = False
          Exit For
        End If
      Next
    End If
  End If
   
End Function
 
Public Sub MajPeriode(DtDeb As Date, DtFin As Date)
  Dim i As Long
  Dim j As Long
  Dim lDebOldTab As Long
  Dim lStart As Long
  Dim lEnd As Long
  Dim TabTemp() As Boolean
   
   
  If TabIsInit Then
    ReDim MyTab(0 To 0)
    m_DtDebTab = DateSerial(1800, 1, 1)
    m_DtFinTab = DateSerial(1800, 1, 1)
  End If
   
  If m_DtDebTab = DateSerial(1800, 1, 1) Then 'le tableau n'a pas été initialisé
    ReDim MyTab(0 To DateDiff("d", DtDeb, DtFin))
    m_DtDebTab = DtDeb
    m_DtFinTab = DtFin
  Else
    'extention éventuelle du tableau
    If DtDeb >= m_DtDebTab Then
      If DtFin > m_DtFinTab Then 'On étends le tableau vers le futur
        ReDim Preserve MyTab(0 To IdFromDt(m_DtDebTab, DtFin))
        m_DtFinTab = DtFin
      End If
    Else
      TabTemp = MyTab
      lDebOldTab = (IdFromDt(m_DtDebTab, DtDeb) * (-1))
      If DtFin <= m_DtFinTab Then 'On étends le tableau vers le passé
        ReDim MyTab(0 To DateDiff("d", DtDeb, m_DtFinTab))
      Else
        ReDim MyTab(0 To DateDiff("d", DtDeb, DtFin))
      End If
       
      m_DtDebTab = DtDeb
       
      lStart = oStaticMathFcts.lMax(lDebOldTab, IdFromDt(m_DtDebTab, DtFin))
      lEnd = lDebOldTab + UBound(TabTemp)
       
      j = lStart - lDebOldTab
      For i = lStart To lEnd
        MyTab(i) = TabTemp(j)
        j = j + 1
      Next
       
      If DtFin > m_DtFinTab Then
        m_DtFinTab = DtFin
      End If
    End If
  End If
   
  For i = IdFromDt(m_DtDebTab, DtDeb) To IdFromDt(m_DtDebTab, DtFin)
    MyTab(i) = True
  Next
   
End Sub
 
Public Function PremierVide() As Date
  Dim i As Long
   
  If TabIsInit Then
    For i = LBound(MyTab) To UBound(MyTab)
      If Not MyTab(i) Then
        Exit For
      End If
    Next
    PremierVide = DateAdd("d", i - LBound(MyTab), m_DtDebTab)
  Else
    PremierVide = DateSerial(1800, 1, 1)
  End If
   
End Function
 
Public Function DernierVide() As Date
  Dim i As Long
   
  If TabIsInit Then
    For i = UBound(MyTab) To LBound(MyTab) Step -1
      If Not MyTab(i) Then
        Exit For
      End If
    Next
    DernierVide = DateAdd("d", i - LBound(MyTab), m_DtDebTab)
  Else
    DernierVide = DateSerial(1800, 1, 1)
  End If
   
End Function
 
'renvoit de la prochaine periode de vide après la date passée en parametre ou 01/01/1800 si pas de vide après cette date
Public Function VideSuivant(dDate As Date) As Date
  Dim i As Long
  Dim bSearchEmpty As Boolean
   
  If TabIsInit Then
    If dDate < m_DtDebTab Then
      VideSuivant = PremierVide
    ElseIf dDate > m_DtFinTab Then
      VideSuivant = DateSerial(1800, 1, 1)
    Else
      bSearchEmpty = False
      For i = IdFromDt(m_DtDebTab, dDate) To UBound(MyTab)
         
        If MyTab(i) Then
          bSearchEmpty = True
        ElseIf bSearchEmpty And Not MyTab(i) Then
          Exit For
        End If
      Next
       
      If bSearchEmpty And i <= UBound(MyTab) Then
        VideSuivant = DateAdd("d", i - LBound(MyTab), m_DtDebTab)
      Else
        VideSuivant = DateSerial(1800, 1, 1)
      End If
    End If
  Else
    VideSuivant = DateSerial(1800, 1, 1)
  End If
   
End Function
 
'renvoit de la prochaine periode de vide avant la date passée en parametre ou 01/01/1800 si pas de vide avant cette date
Public Function VidePrecedent(dDate As Date) As Date
  Dim i As Long
  Dim bSearchEmpty As Boolean
   
  If TabIsInit Then
    If dDate > m_DtFinTab Then
      VidePrecedent = DernierVide
    ElseIf dDate < m_DtDebTab Then
      VidePrecedent = DateSerial(1800, 1, 1)
    Else
      bSearchEmpty = False
      For i = IdFromDt(m_DtDebTab, dDate) To LBound(MyTab) Step -1
         
        If MyTab(i) Then
          bSearchEmpty = True
        ElseIf bSearchEmpty And Not MyTab(i) Then
          Exit For
        End If
      Next
       
      If bSearchEmpty And i >= LBound(MyTab) Then
        VidePrecedent = DateAdd("d", i - LBound(MyTab), m_DtDebTab)
      Else
        VidePrecedent = DateSerial(1800, 1, 1)
      End If
    End If
  Else
    VidePrecedent = DateSerial(1800, 1, 1)
  End If
   
End Function
 
 
Public Sub DernierePeriodePleine(ByRef DtDebPeriode As Date, ByRef DtFinPeriode As Date)
  Dim DtTemp As Date
   
  If Not TabIsInit Then
    DtDebPeriode = DateSerial(1800, 1, 1)
    DtFinPeriode = DateSerial(1800, 1, 1)
  Else
    DtTemp = DernierVide
     
    If DtTemp < m_DtFinTab Then
      DtDebPeriode = DtTemp
      DtFinPeriode = m_DtFinTab
    Else
      DtTemp = VidePrecedent(DtTemp)
      If DtTemp = DateSerial(1800, 1, 1) Then
        DtDebPeriode = m_DtDebTab
        DtFinPeriode = PremierVide
      Else
        DtDebPeriode = DtTemp
        DtFinPeriode = VideSuivant(DtDeb)
      End If
    End If
  End If
     
End Sub
 
 
Public Property Get DtDeb() As Date
  DtDeb = m_DtDebTab
End Property
 
Public Property Get DtFin() As Date
  DtFin = m_DtFinTab
End Property
 
Private Function IdFromDt(DtDebTab As Date, dt As Date) As Long
   
  IdFromDt = DateDiff("d", DtDebTab, dt)
   
End Function
 
Private Function TabIsInit() As Boolean
  Dim i As Long
   
  On Error Resume Next
   
  i = UBound(MyTab)
  If Err.Number = 9 Then
    TabIsInit = False
    Err.Clear
  Else
    TabIsInit = True
  End If
   
  On Error GoTo 0
   
End Function
 
Private Sub Class_Initialize()
  Set oStaticMathFcts = New cEqtStaticMathFcts
End Sub

stop();

jte plains

t'aimes pas ma classe periode ?  
Ou alors tu me plains parce que je programme en VB ?

http://secouez.org/sons/Chirac-Cha [...] e-1981.mp3

jte plains de devoir bosser sur du code pareil

déjà moi j'aurais mis le constructeur au début

c'est le mien, tu l'aime pas ?

 
cpas le code, c'est le langage

VB me l'a placé là, je me suis pas posé plus de questions

bin perso j'ordonne un minimum
 
1) constructeurs/destructeurs
2) propriétés
3) méthodes
4) évènements

c'est vrai que c'est vraiment du boulot de porc maintenant que je relis
 
Bwalé, demain je commente tout ça
 

 
Vu que j'accède aux fonctions uniquement via les combo en haute de la fenêtre, je laisse le bordel

 

 
1) fonctions principales
2) getter/setter
3) constructeurs
4) propriétés
 
Comme ça, même sans doc, tu as de suite les fonctions importante en début de code.

 
mouais c'est bien ca que j'aime bien en C++, pouvoir lire les proto d'un coup d'oeil, tandis que dans les java/c# fo se taper le code pour y demeler qqchose

moi aussi, c'est pour ça que je fais la doc en même temps mon code. Mais comme dans l'équipe y en a qui sont pas très doc, au moins, on s'y retrouve tous.

Vous n'allez quand même pas me dire que ce débat est issu de votre presse-papiers ?
Il y a un topic pour ce genre de débats

TU PEUX TE LE FOUTRE DANS LE CUL TON KIKI /FOU/
 
EDIT: ça c'est du presse papier apropiré

SI , je fais toujours un copier/coller des mes réponses que j'écris dans le bloc-note avant de les mettre dans le forum (au cas où on se mangerait une de ces putains d'erreur SQL...)

 
ben si, je tapes sous notepad, met dans le presse papier, et sauve le contenu de ce dernier ici.  
c pas le but de ce topic

genre c'est trop compliqué de faire refresh pour reposter

ou "précédent" et revalider

 
3x

 
sauvegardé dans chrisbk.txt

ah ouais tiens, c'est perclu de fautes

perclus

Opaque  
 
 
(c'était dans mon clipboard, et c'était pour mettre dans un soft )

C:\WINNT\SYSTEM32\rundll32.exe user32.dll,LockWorkStation

logs-2004.01.21.zip

$query

 
ta lettre est finie?

[HKEY_CLASSES_ROOT\jarfile]@="Executable Jar File"[HKEY_CLASSES_ROOT\jarfile\shell][HKEY_CLASSES_ROOT\jarfile\shell\open][HKEY_CLASSES_ROOT\jarfile\shell\open\command]@="\"C:\\WINDOWS\\Java\\JRE1.4.2\\bin\\javaw.exe\" -jar \"%1\" %*"