<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Форум компьютерной помощи &mdash; Программирование]]></title>
		<link>https://itpmr.ru/index.php</link>
		<atom:link href="https://itpmr.ru/extern.php?action=feed&amp;fid=21&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние темы раздела «Форум компьютерной помощи».]]></description>
		<lastBuildDate>Thu, 03 Oct 2024 12:29:56 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Что означают Chr(7), Chr(10), Chr(9) и Chr(13)]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=1163&amp;action=new</link>
			<description><![CDATA[<p>Что означают Chr(7), Chr(10), Chr(9) и Chr(13)?<br />Chr(n) - это функция, которая возвращает символ, соответствующий указанному числовому коду (n) в определенной кодовой таблице, обычно это ASCII. Каждый из указанных вами кодов представляет собой специальный непечатаемый символ, выполняющий определенную функцию:</p><p>Chr(7): Звуковой сигнал. Этот код обычно используется для привлечения внимания пользователя путем издания звукового сигнала.<br />Chr(10): Перевод строки (Line Feed, LF). Этот символ указывает на конец строки и начало новой строки. В некоторых системах используется совместно с Chr(13) для обозначения перехода на новую строку.<br />Chr(9): Горизонтальная табуляция (Tab). Этот символ используется для создания отступов в тексте. Курсор перемещается на следующую позицию табуляции.<br />Chr(13): Возврат каретки (Carriage Return, CR). Исторически этот символ использовался для возврата каретки печатающего устройства в начало строки. В сочетании с Chr(10) (CRLF) часто используется для обозначения конца строки в текстовых файлах.</p><p>Использование в программировании<br />Эти символы часто используются в программировании для форматирования вывода, создания специальных эффектов (например, звуковых сигналов) или для работы с текстовыми файлами, где важно правильно определять границы строк.</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Thu, 03 Oct 2024 12:29:56 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=1163&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Экспорт из 1С в EXCEL]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=1123&amp;action=new</link>
			<description><![CDATA[<p>Доброго времени суток!<br />Ребята, мне нужно вывести что-то вроде прайс листа из 1С в EXCEL.<br />В нете много советов, но там как-то написанно, будто человек который читает, должен знать и то и другое, вот только беда в том, что я вообще ничего не понимаю ни в EXCEL ни в 1С, даже не знаю какой именно файлик нужно открыть чтоб скопировать его куда-то<br />я скопировал всю папку где лежал этот &quot;прайс&quot;<br />кто может помочь ламеру, ответьте пожалуйста ???</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Fri, 09 Dec 2022 08:12:04 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=1123&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Messenger]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=1035&amp;action=new</link>
			<description><![CDATA[<p>Всем доброго времени суток.<br />Я являюсь заказчиком.</p><p>Есть идея, создать мобильное приложение на платформах (IOS, ANDROID). Мессенджер, главное прикрутить к нему парочку повседневных приложений.<br />Но, до начала реализации проекта, хотелось бы ориентироваться, сколько может стоить, создать такой мессенджер без прикрутки приложений и команда из скольки спецов (и каких) должна состоять?</p><p>Спасибо</p>]]></description>
			<author><![CDATA[null@example.com (bobris)]]></author>
			<pubDate>Tue, 17 Oct 2017 16:23:45 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=1035&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[с++]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=1005&amp;action=new</link>
			<description><![CDATA[<p>1) Пользователь отвечает на вопрос программы: «Сколько Вам лет» (0&lt;x&lt;112), после чего она выдает сообщение «Вам x лет». При этом стоит учесть, что для разных чисел используются разные склонения, например, «32 года», «99 лет» и т.п.<br />2) Написать программу, которая спрашивает у пользователя возраст, и выдает информацию о том, является ли он совершеннолетним. Учесть некорректный ввод возраста. 3) Ввести с клавиатуры целое число. Определить четное оно, или нечетное. 4) Решить следующие задачи: Является ли треугольник с длинами сторон a, b, c :  прямоугольным;  равнобедренным;  равносторонним. Стороны вводятся с клавиатуры.</p>]]></description>
			<author><![CDATA[null@example.com (nazyrov.t)]]></author>
			<pubDate>Tue, 08 Nov 2016 16:03:35 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=1005&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Sql]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=979&amp;action=new</link>
			<description><![CDATA[<p>Переду сразу к делу, файл с данными SQL сервера повредился, и конечно же это не единичный случай, но у меня нет резервной копии. По началу мне казалось нет никакой проблемы, потому что файл системного журнала ldf в порядке по моему мнению(однако есть сомнения). Кто-нибудь занимался восстановлением данных от поврежденного mdf файла?</p>]]></description>
			<author><![CDATA[null@example.com (milamilla)]]></author>
			<pubDate>Wed, 13 Apr 2016 22:14:05 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=979&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Программы на языке C для чайников.]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=975&amp;action=new</link>
			<description><![CDATA[<p>1-20.CPP Накопление суммы от стартового капитала.</p><div class="codebox"><pre><code>#include &lt;stdio.h&gt;
#include &lt;conio.h&gt;
void main()
{
 clrscr();
 
 float k,p,S,t;
 printf(&quot; startovui kapital= &quot;);
 scanf(&quot;%f&quot;,&amp;k);
 printf(&quot;procent= &quot;);
 scanf(&quot;%f&quot;,&amp;p);
 printf(&quot;neobxodimaia summa= &quot;);
 scanf(&quot;%f&quot;,&amp;S);
 t=((S-k)/(k*(p/100)))/12;
 printf(&quot;Neobhodimaya summa budet nakoplena cherez %f let&quot;,t);
 getch();
}</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Sat, 02 Apr 2016 14:47:41 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=975&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[с# программы - несколько готовых лабораторных работ.]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=931&amp;action=new</link>
			<description><![CDATA[<p>Программа после нажатя на форме мыши определяет координаты курсора</p><div class="codebox"><pre><code>using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;

namespace Laba_AlexSys_1
{
    /// &lt;summary&gt;
    /// Summary description for Form1.
    /// &lt;/summary&gt;
    public class Form1 : System.Windows.Forms.Form
    {
        private System.Windows.Forms.Label label1;
        private System.Windows.Forms.Label label2;
        private System.Windows.Forms.Label label3;
        private System.Windows.Forms.Label label4;
        /// &lt;summary&gt;
        /// Required designer variable.
        /// &lt;/summary&gt;
        private System.ComponentModel.Container components = null;

        public Form1()
        {
            //
            // Required for Windows Form Designer support
            //
            InitializeComponent();

            //
            // TODO: Add any constructor code after InitializeComponent call
            //
        }

        /// &lt;summary&gt;
        /// Clean up any resources being used.
        /// &lt;/summary&gt;
        protected override void Dispose( bool disposing )
        {
            if( disposing )
            {
                if (components != null) 
                {
                    components.Dispose();
                }
            }
            base.Dispose( disposing );
        }

        #region Windows Form Designer generated code
        /// &lt;summary&gt;
        /// Required method for Designer support - do not modify
        /// the contents of this method with the code editor.
        /// &lt;/summary&gt;
        private void InitializeComponent()
        {
            this.label1 = new System.Windows.Forms.Label();
            this.label2 = new System.Windows.Forms.Label();
            this.label3 = new System.Windows.Forms.Label();
            this.label4 = new System.Windows.Forms.Label();
            this.SuspendLayout();
            // 
            // label1
            // 
            this.label1.Location = new System.Drawing.Point(272, 8);
            this.label1.Name = &quot;label1&quot;;
            this.label1.TabIndex = 0;
            this.label1.Text = &quot;Верхний - правый&quot;;
            // 
            // label2
            // 
            this.label2.Location = new System.Drawing.Point(280, 264);
            this.label2.Name = &quot;label2&quot;;
            this.label2.TabIndex = 1;
            this.label2.Text = &quot;Нижний - правый&quot;;
            // 
            // label3
            // 
            this.label3.Location = new System.Drawing.Point(8, 264);
            this.label3.Name = &quot;label3&quot;;
            this.label3.TabIndex = 2;
            this.label3.Text = &quot;Нижний - левый&quot;;
            // 
            // label4
            // 
            this.label4.Location = new System.Drawing.Point(8, 8);
            this.label4.Name = &quot;label4&quot;;
            this.label4.TabIndex = 3;
            this.label4.Text = &quot;Верхний - левый&quot;;
            // 
            // Form1
            // 
            this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
            this.ClientSize = new System.Drawing.Size(384, 293);
            this.Controls.AddRange(new System.Windows.Forms.Control[] {
                                                                          this.label4,
                                                                          this.label3,
                                                                          this.label2,
                                                                          this.label1});
            this.Name = &quot;Form1&quot;;
            this.Text = &quot;Form1&quot;;
            this.Load += new System.EventHandler(this.Form1_Load);
            this.MouseUp += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseUp);
            this.ResumeLayout(false);

        }
        #endregion

        /// &lt;summary&gt;
        /// The main entry point for the application.
        /// &lt;/summary&gt;
        [STAThread]
        static void Main() 
        {
            Application.Run(new Form1());
        }

        private void Form1_Load(object sender, System.EventArgs e)
        {
        
        }

        private void Form1_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
        {
            this.Text=&quot;Координаты курсора: (&quot; + e.X + &quot;. &quot; + e.Y +&quot;)&quot;;
        }
    }
}</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Wed, 26 Aug 2015 16:17:30 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=931&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Задачи на  C#]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=923&amp;action=new</link>
			<description><![CDATA[<p>Задача 1.9.<br />&nbsp; &nbsp; Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр.</p><p>#include &lt;conio.h&gt;<br />#include &lt;stdio.h&gt;</p><p>void main()<br />{<br /> clrscr();<br /> int n = 0;<br /> printf(&quot;Введи N = &quot;);<br /> scanf(&quot;%d&quot;, &amp;n); fflush(stdin);</p><p> for (int i=1; i&lt;=n; i++)<br /> {<br />&nbsp; int m = i;<br />&nbsp; int k = 0, s = 0, b = 0;<br />&nbsp; while (m&gt;0)<br />&nbsp; {<br />&nbsp; &nbsp;s = m % 10;<br />&nbsp; &nbsp;m = m / 10;<br />&nbsp; &nbsp;k++;<br />&nbsp; &nbsp;if (s!=0) if (i%s==0) b++;<br />&nbsp; }<br />&nbsp; if (b==k&amp;&amp;b!=0) printf(&quot;%5d&quot;, i);<br /> }<br />}</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Wed, 15 Jul 2015 22:54:03 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=923&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Программы на языке C#]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=920&amp;action=new</link>
			<description><![CDATA[<p>Программы на языке C#</p><p>№ 1&nbsp; &nbsp;test.c[</p><p>&nbsp; &nbsp;На программе test.c вы можете потренироваться вводить,&nbsp; &nbsp; редактировать, компилировать, связывать и выполнять&nbsp; &nbsp; простые программы на языке Cи.</p><br /><br /><div class="codebox"><pre><code>#include &lt;stdio.h&gt;
#include &lt;stdlib.h&gt;
#define MAX_ARRAY_SIZE 4
void ViewArrayElements( int ArrayOfIntegers[MAX_ARRAY_SIZE] );
void main( void )
{
  int  offset;
  int  ArrayOfIntegers[ MAX_ARRAY_SIZE ];
  char UserResponse;

  printf(&quot;\nWelcome to the fascinating world&quot;);
  printf(&quot; of C programming!&quot;);
  printf(&quot;\nWould you like to continue (Y/N): &quot;);
  scanf(&quot;%c&quot;,&amp;UserResponse);
  if( UserResponse == &#039;Y&#039; ) {
    printf(&quot;\nYou are about to view the &quot;);
    printf(&quot;uninitialized contents &quot;);
    printf(&quot;of the \&quot;ArrayOfIntegers\&quot;:&quot;);
    ViewArrayElements( ArrayOfIntegers );
    for( offset = 0; offset &lt; MAX_ARRAY_SIZE; offset++ ) {
      printf(&quot;\nPlease enter an integer: &quot;);
      scanf(&quot;%d&quot;,&amp;ArrayOfIntegers[ offset ]);
    }
    printf(&quot;\nYou are about to view the &quot;);
    printf(&quot;initialized contents&quot;);
    printf(&quot; of the \&quot;ArrayOfIntegers\&quot;&quot;);
    ViewArrayElements( ArrayOfIntegers );
  }
  else
    exit( 1 );
}
void ViewArrayElements( int ArrayOfIntegers[MAX_ARRAY_SIZE] )
{
  int offset;
  for( offset = 0; offset &lt; MAX_ARRAY_SIZE; offset++ )
    printf(&quot;\n%d&quot;,ArrayOfIntegers[ offset ]);
  printf(&quot;\n\n&quot;);
}</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Tue, 14 Jul 2015 15:54:23 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=920&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Макрос на Visual Basic - склеиваем предложения в строку]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=847&amp;action=new</link>
			<description><![CDATA[]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Wed, 16 Apr 2014 19:37:18 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=847&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Макрос на Visual Basic для Фэйсбука]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=820&amp;action=new</link>
			<description><![CDATA[<p>Attribute VB_Name = &quot;NewMacros&quot;<br />Sub facebook()<br />Attribute facebook.VB_Description = &quot;Макрос создан 29.11.2013 admin&quot;<br />Attribute facebook.VB_ProcData.VB_Invoke_Func = &quot;Normal.NewMacros.facebook&quot;<br />&#039;<br />&#039; facebook Макрос<br />&#039; Макрос создан 29.11.2013 admin<br />&#039;<br />Application.Browser.Previous</p><p>Dim i As Long<br />For i = 2 To Documents(1).Paragraphs.Count<br />stoka = ActiveDocument.Paragraphs(i).Range.Text</p><p>длина = Len(stoka)<br />If длина &gt; 30 Then<br />p1 = InStr(stoka, &quot; &quot;)<br />строка1 = Mid(stoka, p1 + 1)<br />имя = Left(stoka, p1)<br />p2 = InStr(строка1, &quot; &quot;)<br />строка2 = Mid(строка1, p2 + 1)<br />stoka = имя &amp; &quot;:&nbsp; &quot; &amp; строка2<br />stoka = Replace(stoka, &quot;_&quot;, &quot;&quot;)<br />stoka = Replace(stoka, &quot;_.&quot;, &quot;&quot;)<br />stoka = Replace(stoka, &quot;youtube&quot;, &quot;youtube_&quot;)<br />ActiveDocument.Paragraphs(i).Range.Text = stoka<br />End If</p><p>Dim Nrav As String<br />Nrav = InStr(stoka, &quot;Нравится&quot;)<br />If Nrav &lt;&gt; 0 Then<br />ActiveDocument.Paragraphs(i).Range = &quot; &quot; &amp; vbCrLf<br />If ActiveDocument.Paragraphs(i).Range = ActiveDocument.Paragraphs(i - 1).Range Then<br />ActiveDocument.Paragraphs(i).Range.Delete<br />i = i - 1<br />End If<br />End If</p><br /><br /><p>Next<br />End Sub</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Fri, 29 Nov 2013 08:44:33 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=820&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Java - моя первая программа на этоя языке]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=802&amp;action=new</link>
			<description><![CDATA[<p>Вот порядок действий для создания простейшей программы на языке программирования Java.<br />Что нужно установить:</p><p>NetBeans IDE - на скачал среду разработки netbeans-7.3.1-javase-windows.exe&nbsp; под винду на netbeans.org/downloads.</p><p>Java SE Runtime Environment - среда, в которой выполняются проги на Java.<br />скачать тут oracle.com/technetwork/java/javase/downloads/index.html</p><p>На выходе можно получить&nbsp; JAR - выполняется в среде.<br />META-INF/MANIFEST.MF - в неё указывается главный класс программы, входная точка программы.<br />Выполнение jar: в командной строке пишем java -jar &quot;имя_файла&quot;</p><p>Откомпилированный проект складывается в папку dist.</p><p>Java-апплет - выполняется в браузере с помошью&nbsp; виртуальной Java машины.<br />Расширение - class. Встраивается в html код<br />&lt;applet code=&quot;MyApplet.class&quot; width=ширина height=высота&gt;&lt;/applet&gt;</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Wed, 09 Oct 2013 05:31:10 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=802&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Visual basic - удаление второго слова в каждой строке]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=800&amp;action=new</link>
			<description><![CDATA[<p>Небольшой скрипт на языке Visual basic, который заменяет в каждой строке второе слово на &quot;:&quot;</p><p>If длина &gt; 10 Then<br />p1 = InStr(строка, &quot; &quot;)<br />строка1 = Mid(строка, p1 + 1)<br />имя = Left(строка, p1)<br />p2 = InStr(строка1, &quot; &quot;)<br />строка2 = Mid(строка1, p2 + 1)<br />строка = имя &amp; &quot;:&quot; &amp; строка2<br />ActiveDocument.Paragraphs(i).Range.Text = строка<br />строка = Replace(строка, &quot;_.&quot;, &quot;&quot;)<br />строка = Replace(строка, &quot;_&quot;, &quot;&quot;)<br />End If</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Fri, 27 Sep 2013 06:43:48 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=800&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Выгрузка блога wordpress в html страничку]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=798&amp;action=new</link>
			<description><![CDATA[]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Thu, 22 Aug 2013 07:27:41 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=798&amp;action=new</guid>
		</item>
		<item>
			<title><![CDATA[Visual basic - удаление строки с словом]]></title>
			<link>https://itpmr.ru/viewtopic.php?id=792&amp;action=new</link>
			<description><![CDATA[<p>Скрипт удаляет все строки в документе, которое содержит определенное слово:</p><p>Application.Browser.Previous</p><p>Dim i As Long<br />For i = 2 To Documents(1).Paragraphs.Count<br />stoka = ActiveDocument.Paragraphs(i).Range.Text</p><p>Dim Nrav As String</p><p>Nrav = InStr(stoka, &quot;СЛОВО&quot;)<br />If Nrav &lt;&gt; 0 Then<br />ActiveDocument.Paragraphs(i).Range = &quot; &quot; &amp; vbCrLf</p><p>If ActiveDocument.Paragraphs(i).Range = ActiveDocument.Paragraphs(i - 1).Range Then<br />ActiveDocument.Paragraphs(i).Range.Delete<br />i = i - 1<br />End If</p><p>End If<br />Next</p>]]></description>
			<author><![CDATA[null@example.com (admin)]]></author>
			<pubDate>Wed, 31 Jul 2013 06:53:33 +0000</pubDate>
			<guid>https://itpmr.ru/viewtopic.php?id=792&amp;action=new</guid>
		</item>
	</channel>
</rss>
