Quantcast
Channel: Форум программистов и сисадминов Киберфорум
Viewing all 520976 articles
Browse latest View live

Получить значение из textBox внутри Accordion - C# под Web, ASP.NET

$
0
0
На форме есть Accordion

Код:

<ajaxToolkit:Accordion ID="Accordion1" runat="server">
    <HeaderTemplate>
        Здесь заголовок
    </HeaderTemplate>
    <ContentTemplate>
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
    </ContentTemplate>
</ajaxToolkit:Accordion>

<asp:UpdatePanel ID="UpdatePanel2" runat="server">
    <ContentTemplate> 
        <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="Button" />
    </ContentTemplate>
</asp:UpdatePanel>

Ввожу в TextBox1 данные.
Нажимаю на кнопку Button1.
Код:

protected void Button1_Click(object sender, EventArgs e)
        {
            TextBox period = ((TextBox)Accordion.FindControl("TextBox1"));
            Label1.Text = period.Text;
        }

В результате получаю пустое значение.
Если, допустим, изначально задаю какое-то значение для TextBox1, т. е.
Код:

<asp:TextBox ID="TextBox1" runat="server" Text="10"></asp:TextBox>
то при нажатии кнопки появится значение.

В чем проблема? Как получить значение пользователя из TextBox?

Определить, у какого из числе сумма цифр больше. Pascal - Pascal (Паскаль)

$
0
0
Даны три целых числа. Определить, сумма цифр которого из них больше. Не могу сделать программу с помощью процедур или функций.

Написать программу вычисления суммы 1+1/2+1/3+.+1/n для заданного числа n - Pascal (Паскаль)

$
0
0
Написать программу вычисления суммы 1+1/2+1/3+...+1/n для заданного числа n. Результат представить в виде несократимой дроби p/q (p, q — натуральные).Решить задачу с помощью функции или процедуры не получается( Ниже запись программы не используя проц или функции.

var p, q, n, i: integer;
begin
write('n=');
readln(n);
p:=1;
q:=1;
for i:=2 to n do
begin
p:=p*i+q;
q:=i*q;
end;
write('Summa=',p,'/',q);
readln
end.

Построение функции принадлежности - MS Office Visio

$
0
0
Всем привет! Не знаю, как построить такой график функции принадлежности. Как это сделать в Visio?

Изображения
Тип файла: png фп.png (11.0 Кб)

Undeclared identifier в Delphi - Delphi для начинающих

$
0
0
Код:

unit frmGrafUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Math, Chart,
  TeeFunci;

type
  TFrmGraf = class(TForm)
    ButtonExit: TButton;
    Chart1: TChart;
    Series1: TBarSeries;
    Series2: TFastLineSeries;
    ButtonExe: TButton;
    RadioGroup1: TRadioGroup;
    CheckBoxStr: TCheckBox;
    LabelInfo: TLabel;
    ButtonFR: TButton;
    CheckBoxDG: TCheckBox;
    CheckBoxGR: TCheckBox;
    procedure ButtonExitClick(Sender: TObject);
    procedure ButtonExeClick(Sender: TObject);
    procedure ButtonFRClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmGraf: TFrmGraf;
    TintGr: integer;
    mo,disp:real;
    nGraf: String;
  Function fro(x:real):real;
implementation

uses frmApdexUnit, frmProizISUnit, frmGrafFuncUnit, frmSTdexUnit, ProcUnit;

{$R *.dfm}
  function fro(x:real):real;
  var
    fe,Fk,Lmd: real;
    k: integer;
 //  nGraf: String;
  begin
      k:= round(StrToFloat(FrmProizvIS.EditKO.Text));
      Lmd:=StrToFloat(FrmProizvIS.EditLO.Text); // строка № 50
      Lmd:=1;
        Fk:=frmSTdexUnit.Factorial(k-1);
      fe := Lmd*Math.Power(Lmd*x,k-1)*Exp(-Lmd*x)/Fk;
  fro:= fe;
  end;
procedure TFrmGraf.ButtonExeClick(Sender: TObject); // Показать
var
    i,ti, kd: integer;
    sfr: double;
begin
    Series1.Clear();  Series2.Clear();
    kd:=StrToInt(FrmProizvIS.EditKD.Text);
    if CheckBoxDG.Checked then
    begin
        Chart1.Title.Caption:='Диаграмма '+nGraf; // строка № 65
      for I := 0 to szmGR-1  do
      begin
      if  CheckBoxStr.Checked  then
          sfr:= masGR[i]
      else
        sfr:= masGR[i]/kd;
        ti:=i*TintGr; // frmProizISUnit.TintFr;
        Series1.AddXY(ti,sfr,'',clRed) ;
      end;
        if  CheckBoxStr.Checked  then
            Chart1.LeftAxis.Title.Caption:='Количество измерений'
          else
            Chart1.LeftAxis.Title.Caption:='Гистограмма измерений';;
      end;

    if CheckBoxGR.Checked then
    begin
    Chart1.Title.Caption:='График '+nGraf; // строка № 83
      for I := 0 to szmGR-1  do
      begin
      if  CheckBoxStr.Checked  then
          sfr:= masGR[i]
      else
        sfr:= masGR[i]/kd;
      ti:=i*TintGr;    //frmProizISUnit.TintFr;
      Series2.AddXY(ti,sfr,'',clGreen) ;
      end;
    end;
    Chart1.BottomAxis.Title.Caption:='Время в секундах';
  end;

 procedure TFrmGraf.ButtonExitClick(Sender: TObject);
begin
    Close();
end;

procedure TFrmGraf.ButtonFRClick(Sender: TObject);
  var
    k: integer;
    Lmd,Xn,Xk: real;
      sg: String;
begin
      k:= round(StrToFloat(FrmProizvIS.EditKO.Text));
      Lmd:=StrToFloat(FrmProizvIS.EditLO.Text);
      Lmd:=1;
        FrmGrafik.EditLO.Text:= FloatToStr(Lmd);
        FrmGrafik.EditKO.Text:= FloatToStr(k);

    Xn:= 0; 
    Xk:= StrToFloat(FrmProizvIS.EditKolInt.Text);   
    sg:='k'+'='+FloatToStrF(k,ffGeneral,6,3)+',';
    sg:=sg+ ' Lmd'+'='+FloatToStrF(Lmd,ffGeneral,6,3);
      frmGrafFuncUnit.tgr:=5;    // чем меньше, тем правее
    frmGrafFuncUnit.txt:=-200;    // чем меньше, тем ближе к графику
    frmGrafFuncUnit.tyt:=10;      // чем меньше, тем ниже
        GrafFunc(Xn,Xk,sg,fro);
        FrmGrafik.Show();
end;
end.


[Совет] frmGrafUnit.pas(50): Value assigned to 'Lmd' never used
[Ошибка] frmGrafUnit.pas(65): Undeclared identifier: 'Caption'
[Ошибка] frmGrafUnit.pas(83): Undeclared identifier: 'Caption'
[Фатальная ошибка] frmApdexUnit.pas(52): Could not compile used unit 'frmGrafUnit.pas'

подскажите как исправить данные ошибки? и как исправить Value assigned to 'Lmd' never used

Изменение цвета меню на сайте Modx - HTML, CSS

$
0
0
Добрый день.
Подскажите, как изменить цвет меню с красного на другой (например,синий) на сайте http://linkprof.ru

Не пойму,где прописывать цвет нужно. Вижу,что в футере задано <div id="red">. а в head не найду,что за цвет отвечает.
Меняла цвет в style2.css и в style.css, только ничего не меняется, как было меню красным , так и осталось.
Заранее спасибо!!!

Шаблон n-мерного вектора в куче - С++ для начинающих

$
0
0
Приветствую. Существует необходимость создания многомерного вектора, где каждый вектор каждого измерения живет в куче:
Код:

unique_ptr< vector< unique_ptr<vector<...>> > >
Конечно, можно сделать подобную грязь:
Код:

unique_ptr< vector< unique_ptr< vector<...> > > > omg_data(new vector< unique_ptr<...> >(n));
while(n--)
{
    omg_data->at(n) = move(unique_ptr<vector<...>>(new vector<...>(m)));
}

Но это очень грустно и глаза уже кровоточат даже для 2х-мерки. А понадобится создавать до 5 измерений(sic!).
Может есть какая-то шаблонная магия по инстацированию подобного типа с любым количеством вложенности? Прошу наставления на путь истинный у с++ господ)

Отправка чекбоксов - PHP для начинающих

$
0
0
Привет. Есть список с чекбоксами. Юзер что то отметил, сохранил. Возвратясь на эту страницу он видит список с отмеченными им чекбоксами. Теперь он решил что то изменить. Что то убрал, что то добавил,что то оставил. Снова сохраняется. Как передать те чекбоксы которые он не изменил?
Код:

                                {foreach key=tid item=filter from=$filter_list}               
                            <div>
                                <label>
                                    <input {if $filter.user_id}checked{/if} name="filter[]" value="{$filter.sistem_name}" type="checkbox">{$filter.title}
                                </label>
                            </div>
                                {/foreach}
<input id="submit" name="submit" value="Сохранить" type="submit">


Открытие закрытие программ - C#: WPF и Silverlight

$
0
0
Здравствуйте, возникла некая проблема.
начал процесс через Process.Start();
надо при следующем открытии какого нибудь процесса закрыть работающую
есть что нибудь типа Process.stop() или Process.Close()?
Заранее спасибо!

Не удаляется запись из таблицы. Нет первичного ключа - C# и базы данных, ADO.NET

$
0
0
Доброго времени суток. Возникла такая проблема: есть 3 таблицы

Library
{
BookName - Primary key
}
Author
{
AuthorName - Primary key
}
AuthorOfBook
{
Book
Author
//эти поля оба primary key и foreign key, для связи с Library и Author
}
Использую LinqToSql
Так вот, при попытке удаления записи из AuthorOfBook, возникает ошибка, смотреть скриншот.
Но если я обращаюсь напрямую к бд, через запрос, то все нормально удаляет.
А когда хочу сразу удалить запись из Library, то возникает другая ошибка: The DELETE statement conflicted with REFERNCE constraint "FK_AuthorOfBook_ToTable_1", ... ,table "dbo.AuthorOfBook", column "AuthorName". The Statement has been terminated.
Почему так?
Вот код контроллера:
Код:

public ActionResult DeleteConfirm(string id)
        {
            var db = new BookDataBaseDataContext();
            var context = db.Library.SingleOrDefault(c => c.BookName == id);

            foreach (var item in db.AuthorOfBook)
            {
                if (item.BookName == id)
                    db.AuthorOfBook.DeleteOnSubmit(item);
            }

            db.Library.DeleteOnSubmit(context);
           

            db.SubmitChanges();
            return RedirectToAction("Index");
        }


Изображения
Тип файла: png Снимок.PNG (7.6 Кб)

Метод Монте-Карло - Free Pascal

$
0
0
Помогите, пожалуйста!!!! Срочно надо решить задачу на Паскале.

Предприятие выпускает некоторые изделия. На основе наблюдений известно, что в 8% изделий имеется брак. Выпуск годного изделия дает предприятию прибыль в размере 7 ден.ед., выпуск бракованного изделия – убыток в размере 5 ден.ед. Требуется разработать алгоритм имитации выпуска изделий на основе метода Монте-Карло и реализовать его в виде программы. Определить среднюю прибыль предприятия от выпуска одного изделия.

Функция okr - Turbo Pascal

$
0
0
Здравствуйте. Имеется старая программа на турбо Паскаль, которую нужно переделать так, чтобы она работала на абс. Модуль okrugl нынешний паскаль не поддерживает. И по функции okr не могу никакой информации найти. Где можно про неё почитать? Или, если знаете, как она работает, чем можно заменить?

Изображения
Тип файла: jpg Безымянный.JPG (51.1 Кб)

Highlighter — чего-то не понимаю - Qt

$
0
0
Пытался подключить пример из Qt5 - SyntaxHighlighter к своему проекту к plainTextEditor. Все получилось.

Ключи поменял в highlighter.cpp

Код:

QStringList keywordPatterns;
    keywordPatterns
                    <<"\\Москва\\b"
                    <<"\\Москве\\b"
                    <<"\\Белгород\\b"
                    <<"\\Белгороде\\b";

Все нормально высвечивается.
Понял, что к этим ключам добавляется формат отображения в этой операции:

Код:

    foreach (const QString &pattern, keywordPatterns) {
        rule.pattern = QRegExp(pattern);
        rule.format = keywordFormat;
        highlightingRules.append(rule);
    }

Но не получается во время работы программы добавить новые ключи. То есть, эти затереть, а другие ключи добавить. Программа слетает с катушек.

Я не совсем продвинут в программировании. Посоветуйте, как из программы обновить подсветку? Чувствую я, что у меня нет доступа к классу Highlighter из класса MainWindow.
Может быть есть пример кода с добавлением ключей из программы?
На Гугл надежды мало. Гугл чайников кормит самыми основами Qt. А это уже не основы.

Связка Python3, WiFi и php для подключения к WiFi через web-интерфейс - Python

$
0
0
День добрый уважаемые гуру.

Есть микро пк Orange Pi plus e2 (arm H3, lan, wifi...)
На нем установлен Armbian ubuntu(скачана с офф сайта)
LAMP
Python3


Поставилась следующая задача:

1. Если пк не был подключен к WiFi при старте системы, то необходимо просканировать все видимые точки доступа.
2. Стать собственно самой точкой доступа
3. Выдать пользователю страничку в браузере с выбором точки доступа и вводом пароля
4. Гасится точка доступа и пытается подключится к указанной по тем реквизитам которые указал пользователь, если не удачно, то возвращаемся на п.2, если удачно выдается страница приветствия при заходе на него через браузер по выданному IP

Я прекрасно понимаю, что это не дело 5 минут.

Если есть возможность, хотелось бы примеры кода или в какую сторону(желательно ткнуть носом) смотреть

С Linux системами не особо, больше виндузятник, но надо, значит буду учиться.

Всем ответившим заранее Огромное Спасибо

Динамическое создание и помещение Grid в rowDefinition - C#: WPF и Silverlight

$
0
0
Динамически создаю rowDefinition в Grid, туда в rowDefinition добавляю динамически созданный Grid, и закрашиваю его. И это все по нажатию на кнопку. Гриды создаются один за одним, но проблема в том, что первые три созданных, имеют между собой огромное пространство, после добавление еще двух, это пространство исчезает. Как это исправить ? что бы гриды ровно создавались один за одним ?
Код:

var rowDefinition = new RowDefinition();
 rowDefinition.Height =GridLength.Auto;
 GoodGrid.RowDefinitions.Add(rowDefinition); // Создается rowDefinition и помещается в основной грид
 GoodGrid.Children.Add(Grids[i]); // Динамически созданный грид помещается в основной грид
                Grid.SetColumn(Grids[i], 1); // Динамически созданный грид помещается в второй столбец
                Grid.SetRow(Grids[i], Ros);// Динамически созданный грид помещается в созданный rowDefinition
                Grids[i].Width = 600;
                Grids[i].Height = 200;

Очень надеюсь на вашу помощь. За ранее спасибо.

видеокарта для монтажа - Выбор конфигурации компьютера

$
0
0
доброго времени суток,

подскажите пожалуйста видеокарту с памятью GDDR5 для монтажа видеороликов на Adobe Premiere Pro CC 2017,
процессор будет Intel Core i5-6400 или 6500, материнка от ASUS 110 или 150 чипсета, DDR4 16GB (2x8GB), SSD 120GB, HDD 2TB, и т.д.

и через какой интерфейс лучше подключаться, HDMI или DVI-D ?

Сейчас почему-то пак мен на запускается в Дельфи 7 - Delphi: графика, звук, видео

$
0
0
delphisources . ru/pages/sources/graph/2008-year/pac-man.html

Atom emmet - AngularJS

$
0
0
Как сделать так что бы emmet работал в компонентах на angular 2

Код:

@Component({
templat: `
    ul>li*5(Как сделать что бы тут работал emmet)
`
})

Добавлено через 17 часов 20 минут
Ну что никто не поможет ничем?

Ostream_iterator - в чем ошибка? - С++ для начинающих

$
0
0
Пишу код (один в один с книги), но выдает ошибку в 14 строке, а именно (std::cout, ". ");
Учебник: Лафоре, страница 720.
Весь код:
Код:

#include <Windows.h>
#include <iostream>
#include <list>
#include <algorithm>

int main(){
        SetConsoleCP (1251);
        SetConsoleOutputCP (1251);

        std::list <int> mylist;
                for (int i(0); i!=10; i++)
                        mylist.push_back(i);
       
        std::ostreambuf_iterator <int> show (std::cout, ". ");

        std::cout << "" << std::endl;
        std::copy (mylist.begin(), mylist.end(), show);



        system ("pause");
        return 0;
}

Подставить формулу - С++ для начинающих

$
0
0
Нужно подставить эту формулу, чтоб все работало, не получается ее правильно записать

2^(j‐1)(|j – 3|*‐1,3)Log3 ((|j‐5| +(| 6,5 – j| )))


Код:

#include <iostream>
#include <math.h>
#include <conio.h> //для getch()
#include <time.h>
#include <iomanip>
using namespace std;
int main()
{
        int n, i, j;
        double a[100][100], x[100];
        bool povtor;

        setlocale(0, "");

        srand(unsigned int(time(0)));
        cout << "Введiть значення кiлькостi стовбцiв та рядкiв n="; cin >> n;

        cout << "Виберiть варiант формування матрицi\n\
 1 для заповнення за формулою \n\
 2 для заповнення випадковими значеннями\n\
 3 для заповнення вручну";
        cout << endl;

        do {
                povtor = false;
                switch (_getch()) {
                case '1':
                        for (i = 0; i<n; i++) {
                                for (j = 0; j<n; j++) {
                                        a[i][j] = 2 * pow(j, j-1)*(j - 3 * (-1, 3))*log(3)*(j - 5 + (6, 5 - j));
                                }
                        }
                        break;
                case '2':
                        for (i = 0; i<n; i++) {
                                for (j = 0; j<n; j++) {
                                        a[i][j] = (double)rand() / RAND_MAX * 21-10;
                                }
                        }
                        break;
                        2
                                ; case '3':
                        for (i = 0; i<n; i++) {
                                for (j = 0; j<n; j++) {
                                        cout << "a[" << i << "," << j << "]=";
                                        cin >> a[i][j];
                                }
                        }
                        break;

                default: cout << "Введено некоректне значення. Виберiть варiант формування матрицi ще раз "; cout << endl; povtor = true;
                }
        } while (povtor);
        // вывод сформированого массива
        system("cls");
        cout << "Матриця елементiв А\n";
        for (i = 0; i<n; i++) {
                for (j = 0; j<n; j++) {
                        cout << "a[" << i << "][" << j << "]=";
                        cout << fixed << setprecision(2) << a[i][j] << "\t";
                }
                cout << endl;
        }
        cout << endl; cout << endl;
        system("pause");
}

Viewing all 520976 articles
Browse latest View live
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>