copoka_i_ko (copoka_i_ko) wrote in ru_preved,
copoka_i_ko
copoka_i_ko
ru_preved

Categories:

МЕДВЕД КАНВЕРТАР

Хуясь!!!
А я вот тут забацал первый МЕДВЕД конвертер для кодов VB.NET
Инсталяционник здеся
http://www.megaupload.com/?d=JZ0DGB90

Переводит коды в ПРЕВЕД язык и обратно.
Давайте дополнительные варианты переводов клучевых слов - добавлю или исправлю.
На очереди С# и НТМL 8))
Работает просто: загружаешь файл, конвертируешь, можно с подсветкой, сохраняешь...


Пример 1

В Бабруйск жывотное System.Math
В Бабруйск жывотное System.Drawing
В Бабруйск жывотное System.Collections
В Бабруйск жывотное System.IO

Ацтой Превед Кросавчег1
Западло System.Масдай.Кросавчегs.Кросавчег

Кросавчег bStop Типа Киса

#Гы-Гы-Бу-га-га-нах " Масдай Кросавчег Designer generated code "

Ацтой Kагдила Хуясь()
Сцуко.Хуясь()

Пох : This call is required by the Масдай Кросавчег Designer.
НахвегitializeComponent()

Пох : Add any initialization after the НахвегitializeComponent() call
bmp = Хуясь Bitmap(Первыйнах.PictureBox1.Width, Первыйнах.PictureBox1.Height)
g = 0
nFrames = 0
Кончел Kагдила

Пох : Кросавчег overrides dispose to clean up the component list.
Неипацца Аперидил Выпей йаду Kагдила Dispose(Пацтулом disposing Типа Киса)
Вдрухъ disposing Патом
Вдрухъ Нах (components Канкретна Нихуя) Патом
components.Dispose()
Кончел Вдрухъ
bmp.Dispose()
Кончел Вдрухъ
Сцуко.Dispose(disposing)
Кончел Kагдила
#Кончел Гы-Гы-Бу-га-га-нах
Кончел Превед

Пример 2

Ахтунг Kагдила ПервыйнахnuItem2_Click(Пацтулом sender Типа System.Object, Пацтулом e Типа System.EventArgs) Сабж ПервыйнахnuItem2.Click
Вдрухъ Первыйнах.OpenFileDialog1.ShowDialog() = DialogResult.OK Патом
Кросавчег fileName Типа Ацкий Сотона = Первыйнах.OpenFileDialog1.FileName
Аффтар жжот!
Первыйнах.RichTextBox1.Clear()
Пох : Create an instance of StreamReader to read from a file.
Кросавчег sr Типа StreamReader = Хуясь StreamReader(fileName)
Кросавчег rich Типа Ацкий Сотона = sr.ReadАпстенуКончел()
sr.Close()
Первыйнах.Preved_map1..DefaultView.Sort = " Desc"
Насццать НаУсехъ prev Типа DataRowView Нахвег Первыйнах.Preved_map1..DefaultView
rich = rich.Replace(prev(""), prev("_Text"))
Учи Албанский
Первыйнах.RichTextBox1.Text = rich
Первыйнах.ПервыйнахnuItem5.Enabled = Угу
Первыйнах.ПервыйнахnuItem7.Enabled = Угу
Зачот ex Типа Exception
Пох : Let the user know what went wrong.
Первыйнах.RichTextBox1.AppendText("!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" & vbCrLf)
Первыйнах.RichTextBox1.AppendText(ex.Первыйнахssage)
Кончел Аффтар жжот!
Кончел Вдрухъ
Кончел Kагдила

ЖЖ табы не хавает 8((
Subscribe

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 10 comments