steffan_87

Здравейте, моля за съвет при избор на телевизор до 1000лв с големина 43-55 инча. Старият ми телевизор е Philips 43PUS7150/12 С 3D и ambilight и ми служи вярно десет години, но счупих дисплея. Клоня към марка различна от Philips като отделно от цената 1000лв ще закупя алтернатива ambilight, но при този избор в момента трудно ще направя избор без компетентно мнение. Предпочитам телевизор с оптимални параметри на качество на картина за сметка на големина и смарт функции. Гледам, че има в момента промоционални телевизори Панасоник (PANASONIC TX-50MX700E 4K Ultra HD LED SMART TV, GOOGLE TV, 50.0 ", 126.0 см)с пет години гаранция в технополис, заслужават ли си ? Ако някой е ползвал алтернатива на ambilight която си заслужава моля да сподели (примерно нещо от сорта The Lytmi Neo Sync 2). Моля ако може да се намерят и QLED ТВ, що годе качествени телевизори за тези пари да споделите някой друг модел. Благодаря предварително. Племенниците много се радват на 3D функцията на стария ми телевизор, има ли все още такива телевизори ?

Много ти благодаря докато пробвах да осъществя написаното по горе случайно забелязах че то си го пишело как се пускат настройките за този лан агент комбинация от клавиши shift+F10 и от там кате ги поразцъках настройките и успях някакси да го изключа това нешо преди това зададох от bios hdd да ми е последно бутвашо устройство благодаря още веднъж.

Вчера си взех нова лан карта всичко си е перфектно само че при стартирането на компютъра почнаха да ми излизат някакви проверки. Пише че включва някакъв Client MAC ,.. Pci Fast Ethernet .... и остава извесно време да зарежда на някакво DHCP. Един приятел ми каза че не можело да се изключи но все пак ако някой знае как да изключа тази проверка ще съм му много благодарен.

Мерси за отговорите ако някой го интересува оказа се че дъното (Socket A ) e заминало. КОмпютъра изгасва софтуерно но не хардуерно.

Ами малко преди напълно да се изключи комп почва тази звукова индикация може би 3-4 сек и докато се чуват звуците компют гасне. Някаде точно след като изчезне натписа "WIndows is shuting down..." po4va zvukowata indikaciq. Мисля 4е не е пипано нищо само някакви мрежови настройки може би евентуално са били променяни. Поне някакъв съвет какво да правя да извадя всичко от слотовете и да ги почистя!! Може ли да е от захранването като 4ели гасне малко по бавно от преди !! Преинсталиране на уиндолс Xp . Някаква програма за установяване на проблема!! АКо някой може да помогне.

МОЛЯ кажете дали имам основания за безпокойство. При изгасяне (малко преди самото спиране) компютъра издава звъци от вградения говорител. мисля 4е са три на брой звъците ето и запис4е Звукът Как да се справя с този проблем?? Предварително благодаря

Zdraveite imam edna golqma molba ni6to ne razbiram ot programirane a imam da pi6a kursova zada4a svyrzana s visual basic namerih si q gotova no trqbva da napi6a obesnitelna zapiska kak sym q napravil molq nqkoi ako razbira ot tozi ezik da mi napi6e dva reda kak deistva programata ili pone komandite mnogo 6te mu byda blagodaren eto q i zada4ata i uslovieto Студент: ................................................................................ ............................. Специалност: ................................. Курс: ................ Фак. № ............................ Зададена е матрица A[MxN] с реални елементи. Раз¬мерите на матрицата M и N и елементите й да се въ¬ведат от текстов файл със съдържание M N A11 A12 … A1N ………………. AM1 AM2 … AMN Въведената матрица да се изведе контролно на Sheet1 с точност два знака след десетичната точка във вида: Матрица А A11 ... ... ... A1N ... ... ... ... ... AM1 AMN От клавиатурата да се въведе номер на ред К (1<К<M). Да се формират две нови матрици B и C, съ¬държащи съответно еле¬ментите над и под ред K. Фор¬мирането на матриците да стане в подпрограма. Мат¬риците да се изведат на Sheet1 под матрицата А в същия вид. Да се пресметне средноаритметичната стойност на по¬ложи¬тел¬ните елементи на матрицата В. Резул¬та¬тът да се изведе на Sheet1 отдясно на матрицата B. Стартирането на отделните задачи да стане с командни бутони. Задал: ........................ При заверка на задачата да се представят:  челна страница;  разпечатка на текста на програмата;  разпечатка на входните данни и резултатите от контролния пример;  магнитен носител с програмата. eto i re6enieto ot koeto ni6to ne rabiram Dim m As Integer Dim n As Integer Dim fname As String Dim i As Integer Dim j As Integer Dim A() Dim B() Dim C() Dim suma As Double Dim br As Integer Dim ar As Double Dim k As Integer Private Sub CommandButton1_Click() fname = InputBox("vhoden fail:", "Matrica A", "D:\PIIS\Input MxN.txt") Open fname For Input As #1 Input #1, m Input #1, n ReDim A(m, n) Cells(1, 1) = "Matrica A" For i = 1 To m For j = 1 To n Input #1, A(i, j) Cells(i + 1, j).Value = A(i, j) Next j Next i Close #1 Range(Cells(2, 1), Cells(m + 1, n)).NumberFormat = "0.00" End Sub Private Sub CommandButton2_Click() k = InputBox("Vyvedete K", "K", 0) If (k <= 0) Then k = 0: ReDim C(m, n) If (k > m) Then k = m + 1: ReDim C(1, n) If (k = m) Then ReDim C(1, n) If (k < m) Then ReDim C(m - k, n) ReDim B(k + 1, n) End Sub Private Sub CommandButton3_Click() If (k > 1) Then Cells(m + 2, 1) = "Matrica B" For i = 1 To k - 1 For j = 1 To n B(i, j) = A(i, j) Cells(m + i + 2, j).Value = B(i, j) Next j Next i End If For i = k To m For j = 1 To n Cells(m + i + 2, j) = "" Next j Next i Range(Cells(m + 2, 1), Cells(m + m + 2, n)).NumberFormat = "0.00" If (k <= 1) Then Cells(m + 2, 1) = "Matrica B ne syshtestvuva" For i = 1 To m For j = 1 To n Cells(m + i + 2, j) = "" Next j Next i End If End Sub Private Sub CommandButton4_Click() If (k < m) Then Cells(m + m + 3, 1) = "Matrica C" For i = k + 1 To m For j = 1 To n C(i - k, j) = A(i, j) Cells(m + m + i - k + 3, j).Value = C(i - k, j) Next j Next i End If Range(Cells(m + 3 + m, 1), Cells(m + m + m + 3, n)).NumberFormat = "0.00" If (k >= m) Then Cells(m + m + 3, 1) = "Matrica C ne syshtestvuva" For i = 1 To m For j = 1 To n Cells(m + m + i + 3, j) = "" Next j Next i End If End Sub Private Sub CommandButton5_Click() suma = 0 br = 0 ar = 0 If (k > 1) Then For i = 1 To k - 1 For j = 1 To n If (B(i, j) > 0) Then suma = suma + B(i, j) br = br + 1 End If Next j Next i ar = suma / br End If Cells(m + m + 1, j + 2) = "Sredno aritmeti4no:" Cells(m + m + 1, j + 4).Value = ar End Sub kakvato i da e pomo6t dori i nqkakvi materiali za vba 6te mi bydat ot polza samo da sa na BG mnogo vi blagodarq