Выпуск # 718

$chars = preg_split('/ /', $num, -1, PREG_SPLIT_NO_EMPTY);
sort($chars);
for($i=0;$i<count($chars);$i++)
    {
	if($chars[$i]+1!==$chars[$i+1])
            {
		if($chars[$i]+10!==$chars[$i+1])
                    {
			unset($num);
	            }
            }
    }
при $num=7 8 9 10; выполняется unset($num);

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'здесь используется метод поиска загруженного файла
        Dim myfilename As String = System.IO.Path.GetFileName(Me.PathTextBox.Text) ' имя файла 
        Dim test As FileInfo = New FileInfo(PathTextBox.Text) 'путь к файлу в текстовом поле
        Dim myExtension As String = test.Extension  'расширение
        Dim myopenFileDialog As New OpenFileDialog
        With myopenFileDialog
            .Title = "Поиск графического файла"
            If Not Me.Pic.Image Is Nothing Then  'проверка на наличие объекта в графическом поле
                .InitialDirectory = test.FullName
                .Filter = "Графические файлы|*" & myExtension
                .FileName = myfilename
            Else
                .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
                .Filter = "Bitmap Files|*.bmp" & _
           "|Enhanced Windows MetaFile|*.emf" & _
               "|Exchangeable Image File|*.exif" & _
               "|Gif Files|*.gif|JPEG Files|*.jpg" & _
               "|PNG Files|*.png|TIFF Files|*.tif|Windows MetaFile|*.wmf" & _
               "|Все файлы (*.*)|*.*"
                '.DefaultExt = "jpg"
                .FilterIndex = 5
            End If
            '.RestoreDirectory = True
            .Multiselect = False
            If .ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
               'обновляем имя текущего файла
                CurrentFile = .FileName  
                Me.PathTextBox.Text = CurrentFile 
                Me.Pic.Image = Image.FromFile(CurrentFile)
                ' имя файла без расширения
                Dim newName As String = _
                System.IO.Path.GetFileNameWithoutExtension(CurrentFile)
                CurrentFile = newName
                NameTextBox.Text = CurrentFile 'имя файла для водяного знака
                Watermark()
            End If
        End With
        GC.Collect()
    End Sub

 Private Sub Watermark()
        Dim effStr As String
        effStr = Me.Combo.Text  'имя шаблона берём отсюда
        Dim fileImg As String = PathTextBox.Text
        CurrentFile = Me.PathTextBox.Text
        Dim newName As String = _
       System.IO.Path.GetFileNameWithoutExtension(CurrentFile)
        CurrentFile = newName
        'загружаем шаблон водяных знаков
        'Dim str As String = My.Application.Info.DirectoryPath & "\patterns\" + effStr + ".xml"
        Dim strpatterns As String = "C:\patterns\" + effStr + ".xml"
        Dim p As Pattern = New Pattern(strpatterns)
        
        If PathTextBox.Text <> "" Then
            Dim watermarkImage As Image = p.GetImage(fileImg, 480, 0)
            ' Построить объект Bitmap из файла JPG в:
            Dim bmp As Bitmap = New Bitmap(watermarkImage)
            Pic.Image = bmp
            '
            'Здесь создаю свой водяной знак,текстом которого будет название файла
            ' Получить объект из графикс и для этого Bitmap:
            Dim canvas As Graphics = Graphics.FromImage(bmp)
            '------------------------------------------------------------------------------------------------------
            '' В этом куске кода рисую полу-прозрачный синий квадрат на изображении                                
            'Dim g As Graphics = Graphics.FromImage(bmp)
            '' 40 - Alpha [0; 255] | Color.Blue - Color | (0, 0, 200, 200) - Position                      
            '' g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Blue)), 0, 0, 200, 200)
            'g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Blue)), 0, 0, bmp.Size.Width \ 2, bmp.Size.Height)
            'g.Dispose()
            '------------------------------------------------------------------------------------------------------
            'Прорисовываем очертания текста
            Dim outlinePath As New Drawing2D.GraphicsPath
            Dim usefont As Font
            'Корректируем вывод,что-бы получить лучшее очертание
            canvas.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
            canvas.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            'Прорисовываем текст в траектории
            usefont = New Font("Times New Roman", 38, FontStyle.Regular)
            Dim StringSizeF As SizeF, DesiredWidth As Single, RequiredFontSize As Single, Ratio As Single ', wmFont As Font
            'Теперь у нас есть все, чтобы получить формант размеров 
            DesiredWidth = bmp.Width * 0.5
            'Далее, мы видим, насколько велика наша строка в пикселях:
            StringSizeF = canvas.MeasureString(CurrentFile, usefont)
            'Теперь, когда мы знаем размер нашей строки в ее процессе ,мы можем получить соотношение из [Размер шрифта: ширина пикселя] с учетом нашей строки и шрифта. Мы сделаем это путем деления ширины нашей строки (в пикселях) от размера нашего шрифта (в пунктах):
            Ratio = StringSizeF.Width / usefont.SizeInPoints
            'Учитывая, что отношение-это всего лишь простая экстраполяция, чтобы получить размер шрифта в пунктах, которые дадут водяной знак нашей желаемой ширины шрифта и строки :
            RequiredFontSize = DesiredWidth / Ratio
            'Готово! Теперь мы просто инициализируем шрифт в RequiredFontSize переменной, и мы готовы сделать наш водяной знак прозрачным:
            usefont = New Font("Times New Roman", RequiredFontSize, FontStyle.Regular)
            outlinePath.AddString(CurrentFile, usefont.FontFamily, FontStyle.Regular, 38, New Point(bmp.Width \ 2 - 200, bmp.Height - 100), _
                                   StringFormat.GenericTypographic)
            '
            '    'Повторяем траекторию для рисования отбрасываемой тени
            canvas.TranslateTransform(20, 20)
            'canvas.FillPath(Brushes.LightSlateGray, outlinePath)
            canvas.FillPath(New SolidBrush(Color.FromArgb(128, 125, 125, 125)), outlinePath)
            '    'Повторяем траекторию на поверхности
            canvas.TranslateTransform(-3, -3)
            'canvas.FillPath(Brushes.White, outlinePath)
            'canvas.DrawPath(Pens.Black, outlinePath)
            canvas.FillPath(New SolidBrush(Color.FromArgb(128, 0, 0, 0)), outlinePath)
            canvas.DrawPath(Pens.WhiteSmoke, outlinePath)
            '    'Закончено
            usefont.Dispose()
            outlinePath.Dispose()
            '
            canvas.Dispose()
        Else
            Pic.Image = Nothing
        End If
        End Sub

<?xml version="1.0" encoding="utf-8"?>
<Pattern xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Name>Рамка черная</Name>
  <DateCreated>2011-12-01T21:10:30.8087108+04:00</DateCreated>
  <PreviewImage>/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDABALDA4MChAODQ4SERATGCgaGBYWGDEjJR0oOjM9PDkzODdASFxOQERXRTc4UG1RV19iZ2h//Z</PreviewImage>
  <Edition>0.0003</Edition>
  <ProgramName>EasyWatermark by Aleksey Nemiro</ProgramName>
  <ProgramVersion>1.30.11.2011</ProgramVersion>
  <EALVersion>1.10.10.2011</EALVersion>
  <Layers>
    <Layer>
      <ID>0</ID>
      <Type>Text</Type>
      <Name>Надпись</Name>
      <Text>EasyWatermark</Text>
      <TextFontName>Arial</TextFontName>
      <TextColor>-1</TextColor>
      <TextBold>false</TextBold>
      <TextItalic>false</TextItalic>
      <TextUnderline>false</TextUnderline>
      <TextStroke>false</TextStroke>
      <TextStrokeWidth>1</TextStrokeWidth>
      <TextStrokeColor>-16777216</TextStrokeColor>
      <TextSize>18</TextSize>
      <TextSizeType>Pixels</TextSizeType>
      <Border>15</Border>
      <BorderWidth>50</BorderWidth>
      <BorderWidthType>Pixels</BorderWidthType>
      <BorderColor>-16777216</BorderColor>
      <Image />
      <ImageTransparent>false</ImageTransparent>
      <ImageTransparentColor>-1</ImageTransparentColor>
      <LayerAlignment>Align</LayerAlignment>
      <Position>256</Position>
      <Angle>0</Angle>
      <Rotate>0</Rotate>
      <RotateInvert>false</RotateInvert>
      <MarginLeft>0</MarginLeft>
      <MarginRight>50</MarginRight>
      <MarginTop>0</MarginTop>
      <MarginBottom>10</MarginBottom>
      <MarginLeftType>Pixels</MarginLeftType>
      <MarginRightType>Pixels</MarginRightType>
      <MarginTopType>Pixels</MarginTopType>
      <MarginBottomType>Pixels</MarginBottomType>
      <Opacity>50</Opacity>
      <IsDisabled>false</IsDisabled>
    </Layer>
    <Layer>
      <ID>1</ID>
      <Type>Border</Type>
      <Name>Рамка белая (контур)</Name>
      <Text>EasyWatermark</Text>
      <TextFontName>Arial</TextFontName>
      <TextColor>-1</TextColor>
      <TextBold>false</TextBold>
      <TextItalic>false</TextItalic>
      <TextUnderline>false</TextUnderline>
      <TextStroke>false</TextStroke>
      <TextStrokeWidth>1</TextStrokeWidth>
      <TextStrokeColor>-16777216</TextStrokeColor>
      <TextSize>24</TextSize>
      <TextSizeType>Pixels</TextSizeType>
      <Border>15</Border>
      <BorderWidth>1</BorderWidth>
      <BorderWidthType>Pixels</BorderWidthType>
      <BorderColor>-1</BorderColor>
      <Image />
      <ImageTransparent>false</ImageTransparent>
      <ImageTransparentColor>-1</ImageTransparentColor>
      <LayerAlignment>Align</LayerAlignment>
      <Position>64</Position>
      <Angle>0</Angle>
      <Rotate>0</Rotate>
      <RotateInvert>false</RotateInvert>
      <MarginLeft>50</MarginLeft>
      <MarginRight>50</MarginRight>
      <MarginTop>50</MarginTop>
      <MarginBottom>50</MarginBottom>
      <MarginLeftType>Pixels</MarginLeftType>
      <MarginRightType>Pixels</MarginRightType>
      <MarginTopType>Pixels</MarginTopType>
      <MarginBottomType>Pixels</MarginBottomType>
      <Opacity>40</Opacity>
      <IsDisabled>false</IsDisabled>
    </Layer>
    <Layer>
      <ID>2</ID>
      <Type>Border</Type>
      <Name>Рамка черная (основная)</Name>
      <Text>EasyWatermark</Text>
      <TextFontName>Arial</TextFontName>
      <TextColor>-1</TextColor>
      <TextBold>false</TextBold>
      <TextItalic>false</TextItalic>
      <TextUnderline>false</TextUnderline>
      <TextStroke>false</TextStroke>
      <TextStrokeWidth>1</TextStrokeWidth>
      <TextStrokeColor>-16777216</TextStrokeColor>
      <TextSize>24</TextSize>
      <TextSizeType>Pixels</TextSizeType>
      <Border>15</Border>
      <BorderWidth>50</BorderWidth>
      <BorderWidthType>Pixels</BorderWidthType>
      <BorderColor>-16777216</BorderColor>
      <Image />
      <ImageTransparent>false</ImageTransparent>
      <ImageTransparentColor>-1</ImageTransparentColor>
      <LayerAlignment>Align</LayerAlignment>
      <Position>64</Position>
      <Angle>0</Angle>
      <Rotate>0</Rotate>
      <RotateInvert>false</RotateInvert>
      <MarginLeft>0</MarginLeft>
      <MarginRight>0</MarginRight>
      <MarginTop>0</MarginTop>
      <MarginBottom>0</MarginBottom>
      <MarginLeftType>Pixels</MarginLeftType>
      <MarginRightType>Pixels</MarginRightType>
      <MarginTopType>Pixels</MarginTopType>
      <MarginBottomType>Pixels</MarginBottomType>
      <Opacity>40</Opacity>
      <IsDisabled>false</IsDisabled>
    </Layer>
  </Layers>
</Pattern>

List<DateTime> dates = new List<DateTime>(); //Список в который надо записать даты
int daysCount = dayCount; //Количество выбранных дней (для цикла)
DateTime dtStart = startDate; //Тут значение из datePicker1
DateTime dtEnd = endDate; //Тут из datePicker2

for (int i = 0; i < daysCount + 1; i++)
{
    dates.Add(new DateTime(dtStart.Year, dtStart.Month, dtStart.Day + i)); //Добавление дат в список
}

Private Sub b.1_Click....
 Dim b As Integer = 1 : b = Val(t.Text) : b += 1 : l1.Content = ChrW(b)

Public Class StripControl
    Private Gr As Graphics = CreateGraphics()

    Public ReadOnly Property FCol As SolidBrush
        Get
            Dim f As SolidBrush
            If MOUSED Then
                f = New SolidBrush(Color.Black)
            Else
                f = New SolidBrush(Color.Gray)
            End If
            If DOWNED Then
                f = New SolidBrush(Color.Red)
            End If
            Return f
        End Get
    End Property

    Public Property MOUSED As Boolean = False
    Public Property DOWNED As Boolean = False

    Public Property Texxt As String = "ПРЮВЕТ"

    Public Sub New()
        ' Этот вызов является обязательным для конструктора.
        InitializeComponent()
        ' Добавьте все инициализирующие действия после вызова InitializeComponent().

    End Sub



    Private Sub StripControl_MouseEnter(sender As Object, e As System.EventArgs) Handles Me.MouseEnter
        MOUSED = True
        BackgroundImage = My.Resources.Overed
    End Sub

    Private Sub StripControl_MouseLeave(sender As Object, e As System.EventArgs) Handles Me.MouseLeave
        MOUSED = False
        BackgroundImage = Nothing
    End Sub

    Private Sub StripControl_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        DOWNED = True
        Refresh()
    End Sub

    Private Sub StripControl_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        DOWNED = False
        Refresh()
    End Sub

    Private Sub StripControl_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        'Gr.Clear(BackColor)
        Gr.DrawString(Texxt, New Font("times", 12), FCol, 10, 12)
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class