Создание числовой меняющейся числовой переменной

[Snakes]

Как создать переменную ,которая меняется при каждом ее использовании на один.

[iGrok]

Взять переменную и при каждом её использовании менять её на один.

Впрочем, при такой формулировке можно просто заменить её по всему коду на единицу...

[Snakes]

НУЖНО ЧТОБЫ ВСЕ ЭТО ДЕЛАЛОСЬ АВТОМАТИЧЕСКИ НАПРИМЕР:ВОТ СЕЙЧАС У МЕНЯ В АЛЬБОМЕ 45 КАРТИНОК А В ДРУГОЙ РАЗ БУДЕТ АЛЬБОМ ИЗ 100 КАРТИНОК.И КАК СДЕЛАТЬ ЧТОБЫ КАЖДАЯ КАРТИНКА АВТОМАТИЧЕСКИ НОМИРОВАЛАСЬ

[Qwertiy]

Напиши, что именно ты хочешь сделать. Возможно, тебе подойдёт свойство вместо переменной. Но у такого решения будут последствия.
К тому же, если ты делаешь некий семафор (хотя, по последнему сообщению не похоже), то не годится.

iGrok, ну ясно же было, что он имел в виду инкремент.
Snakes, не зли людей заглавными буквами.

[Snakes]

Простите,больше не буду злить людей большими буквами.И так вот код

Код: Выделить всё

      Public Class Form1
    Dim B As String

    Private Property SWFToImage As Object


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        SWFToImage = CreateObject("SWFToImage.SWFToImageObject")

        SWFToImage.InitLibrary("demo", "demo")

        SWFToImage.InputSWFFileName = "C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\SWF\my.swf"
        SWFToImage.ImageOutputType = 1 ' set output image type to Jpeg (0 = BMP, 1 = JPG, 2 = GIF)

        SWFToImage.Execute_Begin() ' start conversion

        MsgBox("There are " & CStr(SWFToImage.FramesCount) & " frames to convert" & vbCrLf & "Will convert first 10 frames only")
    Dim a As Long
    Dim u As Integer = 2
        B = B + 1
        For i = 0 To 45 ' change to SWFTOImage.FramesCount -1 to convert all frames
            SWFToImage.FrameIndex = i ' set frame index
            SWFToImage.Execute_GetImage()
            SWFToImage.SaveToFile("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(i) & ".jpg")
        Next
        Randomize()
        u = Rnd()
    Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов
    Dim r As Long ' Переменная для хранения чисел
    Dim G As String ' Переменная для хранения символов
        Randomize() ' Это чтоб в функции Rnd генерировались разные числа
        For i = 0 To 10 ' Цикл, будет 10 раз повторяться
            Mass(i) = 0 ' Все числа массива приравниваем к 0
            r = Rnd() * 1 ' Генерируем случайное число(от 0 до 1) и записываем его в переменную R
            If r = 0 Then ' Если R=0 то:
                Mass(i) = "Bla" ' Записываем в массив(индекс зависит от переменной i) слово "Bla"
            End If
            If r = r Then r = r + 1
            G = G & i & "" + Chr(13) ' Переменная G = G(это содержимое переменной)&i(это перенная содержит число повторений цикла) + " = " + Mass(i)(значение массива(ил "Bla" ил "0")) + Chr(13)(ну это Enter(т.е. новая строка))
        Next i
        MsgBox(G, 48, "")

        SWFToImage.Execute_End() ' end conversion
    Dim swfneme As String = ("C:\Users\Михаил\Desktop\utexh\bhj.txt")

        Dim id_xml As String = ("<image id= " & (g) & ">" & vbCrLf & "  <title>Картинка_" & (SWFToImage.FrameIndex) & "</title>" & vbCrLf & "  <image>" & ("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(SWFToImage.FrameIndex) & ".jpg") & "</image>")
    Dim kod As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001)
    Dim ch As New IO.StreamReader(swfneme, kod)
        For i% = 1 To 45
            TextBox1.Text = TextBox1.Text & vbCrLf & id_xml & vbCrLf & ""
        Next i%
        ch.Close()
    Dim kod1 As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001)
    Dim swfnam2 As String = "C:\Users\Михаил\Desktop\utech3\bhj.xml"
    Dim cg As New IO.StreamWriter(swfnam2, False, kod1)
        cg.Write(TextBox1.Text)
        cg.Close()
    End Sub
End Class

Так вот мне нужно чтобы ID XML менялся с каждой строкой.

[Snakes]

.То есть одна строчка id = 2 ..... Следующая строчка id = 3 ... и так чтобы число генерировалось автоматически ровно столько скольким равен цикл i.
ЗЫ если будет что нить лишнее в коде не обращайте внимания это я просто пока учусь.

[Qwertiy]

Ээээ... А ты VBA с VB.NET не перепутал?

Код: Выделить всё

Dim u As Integer = 2
u = Rnd()

0 или 1 с вероятностью 50%.

Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов

С индексами от 0 до 10 включительно, т. е. из 11 элементов.

r = Rnd() * 1 ' Генерируем случайное число(от 0 до 1) и записываем его в переменную R

0 или 1 с вероятностью 50%.
Умножение на единицу.

If r = r Then r = r + 1

Заведомо истинное условие.

Код: Выделить всё

G = G & i & "" + Chr(13) ' Переменная G = G(это содержимое переменной)&i(это перенная содержит число повторений цикла) + " = " + Mass(i)(значение массива(ил "Bla" ил "0")) + Chr(13)(ну это Enter(т.е. новая строка))

Комментарий коду не соответствует.
Ещё, существуют константы vbCr, vbLf, vbCrLf.

Dim ch As New IO.StreamReader(swfneme, kod)

Ну почему ch? Это же традиционное сокращение от Char...
Лучше использовать Using вместо Dim.

Код: Выделить всё

Dim id_xml As String = ("<image id= " & (g) & ">" & vbCrLf & "  <title>Картинка_" & (SWFToImage.FrameIndex) & "</title>" & vbCrLf & "  <image>" & ("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(SWFToImage.FrameIndex) & ".jpg") & "</image>")

String.Format - удобнее и лучше чем такая конкатенация.

Dim kod1 As System.Text.Encoding = System.Text.Encoding.GetEncoding(65001)

Не надо её каждый раз создавать.

.То есть одна строчка id = 2 ..... Следующая строчка id = 3 ... и так чтобы число генерировалось автоматически ровно столько скольким равен цикл i.

Не понятно. Возможно, в G надо хранить массив, а не конкатенацию.

ЗЫ если будет что нить лишнее в коде не обращайте внимания это я просто пока учусь.

Заметно. Ужасный код. А комментарии ещё хуже...

[Qwertiy]

.То есть одна строчка id = 2 ..... Следующая строчка id = 3 ... и так чтобы число генерировалось автоматически ровно столько скольким равен цикл i.

Не понятно. Возможно, в G надо хранить массив, а не конкатенацию.

Разобрался. В G действительно надо хранить массив. А объявление переменной id_xml переместить внутрь цикла.

[iGrok]

iGrok, ну ясно же было, что он имел в виду инкремент.

Ясно, да не ясно. Ты ведь и сам видишь уже, что ни разу не автоинкремент переменной при обращении в виду имелся?

То есть одна строчка id = 2 ..... Следующая строчка id = 3 ... и так чтобы число генерировалось автоматически ровно столько скольким равен цикл i.

Так это.. Прямо в цикле id = i, вот и вся арифметика.

И вообще, возможно стоит перенести генерацию xml-описания раскадровки вот в этот цикл:

Код: Выделить всё

        For i = 0 To 45 ' change to SWFTOImage.FramesCount -1 to convert all frames
            SWFToImage.FrameIndex = i ' set frame index
            SWFToImage.Execute_GetImage()
            SWFToImage.SaveToFile("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(i) & ".jpg")
        Next


Имя файлов-то как раз там задаётся...

[Snakes]

Необработанное исключение типа "System.Runtime.InteropServices.COMException" произошло в Microsoft.VisualBasic.dll

Дополнительные сведения: JPEG error #8
Вот он чего мне выдал.Да и еще когда я пишу просто чему равен TextBox то он мне вот это выдает.
И вот как я все перенес

Код: Выделить всё

       For i = 0 To 45 ' change to SWFTOImage.FramesCount -1 to convert all frames
            Dim id_xml As String = ("<image id= " & (i) & ">" & vbCrLf & "  <title>Картинка_" & (SWFToImage.FrameIndex) & "</title>" & vbCrLf & "  <image>" & ("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(SWFToImage.FrameIndex) & ".jpg") & "</image>")
            For y% = 1 To 45
                TextBox1.Text = TextBox1.Text & vbCrLf & id_xml & vbCrLf & ""
            Next y%
        SWFToImage.FrameIndex = i ' set frame index
        SWFToImage.Execute_GetImage()
        SWFToImage.SaveToFile("C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_" & CStr(i) & ".jpg")
        Next i


[Qwertiy]

Код: Выделить всё

            For y% = 1 To 45
                TextBox1.Text = TextBox1.Text & vbCrLf & id_xml & vbCrLf & ""
            Next y%

???

[Snakes]

Во я подкорректировал и все работает!Спасибо огромное!Я цикл этот убрал!Спасибо!
А как сделать так чтобы в ковычках был номер?

[Qwertiy]

А как сделать так чтобы в ковычках был номер?

Поставить кавычки

& (SWFToImage.FrameIndex) &

Это неверно. И зачем ты скобки ставишь?

[Snakes]

У меня же переменная,я пробовал у меня k в ковычках а не цыфра

[Qwertiy]

У меня же переменная,я пробовал у меня k в ковычках а не цыфра

Так надо две кавычки ставить, а не одну. И внутри строки.
И вообще, у тебя xml неправильный - внешний image (тот, что с айдишником) не закрыт.

Должно быть как-то так:

Код: Выделить всё

Dim id_xml As String = String.Format("<image id=""{1}"">{0}  <title>Картинка_{1}</title>{0}  <image>C:\Users\Михаил\Desktop\Работы\WindowsApplication9\WindowsApplication9\image\my_{1}.jpg</image>{0}</image>{0}", vbCrLf, i)

[Snakes]

Спасибо за уроки!За помощь и за отклик!

[Qwertiy]

Не за что.