Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры


Выпуск # 654

Приветствую вас, любители высоких технологий! Вот и очередной выпуск рассылки. За неделю на сайте появилось много новых и интересных материалов, некоторые из которых вы сможете увидеть в этом выпуске.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.


Содержание выпуска

Читайте в этом выпуске:

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Форумы Kbyte.Ru

На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.

Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.

Задать свой вопрос прямо сейчас

Доброе время суток! Подскажите, плиз, как задать свойства файла?
В русской Windows XP - вкладка свойства - сводка - поля Автор, Комментарий, Ключевые слова и т.д.
В англ Windows XP - Properties - Summary - Comments и т.д.

[- к содержанию -]

Vk_api @i32 23.08.2011 19:26
Вопрос по статье http://kbyte.ru/ru/Programming/Articles.aspx?id=62&mode=art
При создании Класса VKAPI .vb потерялся - accessToken.Вроде все так сделал...Вот vb.net код
Сlass VKAPI 
 Public AccessToken As String = "" 
 Private myVK As New VKAPI(AccessToken) 
 Private profile As XmlDocument 
 Private _accessToken As String = AccessToken 
 Public UserId As Integer = 0 
 Dim qs As New NameValueCollection() 
 Public Sub New(ByVal accessToken As String) 
  Me.AccessToken = accessToken 
 End Sub
Ругается отладчик на это дело..Конкретно на Public Sub New...Как перенести accessToken из формы в класс ?

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 23.08.2011 20:11
Какую именно ошибку выдает?
Public Sub New(ByVal accessToken As String)
Me.AccessToken = accessToken
End Sub
такой код не должен приводить к конфликтам, но если дело в этом, то можно переименовать accessToken в конструкторе во что-нибудь другое
Public Sub New(ByVal ac As String) 
  Me.AccessToken = ac 
End Sub


Private _accessToken As String = AccessToken
это лишнее, ведь есть
Public AccessToken As String = ""

[- к содержанию -]

Ответ #2 @i32 24.08.2011 16:33
Может дело в форме? Смысл еще открыл такой.(долго меня путал).Что Профиль и Стена грузятся и без / AccessToken/
А Фотка и Отправка на стену и Друзья уже не работают.
Вот код с загрузкой /фотки/ и работающем /профелем/
 
 Dim AccessToken As String = "" 
        Dim VKAPI As String = AccessToken 
        Dim profile As XmlDocument 
        Dim myVK As New VKAPI(AccessToken) 
        profile = myVK.GetProfile(TextBox3.Text) 
        'Nothing And Not String.IsNullOrEmpty(profile.SelectSingleNode("response/user/photo").InnerText))  
 
        profile.SelectSingleNode("response/user/photo") 
        Dim PictureBox1 As PictureBox = New PictureBox() 
        Dim wc As WebClient = New WebClient() 
        PictureBox1.Visible = True 
 
        Dim b() As Byte = wc.DownloadData(profile.SelectSingleNode("response/user/photo").InnerText) 
        Dim m As MemoryStream = New MemoryStream(b) 
        PictureBox1.Image = System.Drawing.Image.FromStream(m) 
        PictureBox1.Width = PictureBox1.Height = 50 
        PictureBox1.Visible = True 
        Me.Controls.Add(PictureBox1) 
 
        Label1.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/first_name")) 
        Label2.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/last_name")) 
        Label3.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/uid")) 
        Label4.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/city")) 
        Label5.Text = GetDataFromXmlNode(profile.SelectSingleNode("response/user/bdate")) 
        Select Case GetDataFromXmlNode(profile.SelectSingleNode("response/user/sex")) 
            Case "1" 
                Label6.Text = "женский" 
                Exit Sub 
            Case "2" 
                Label6.Text = "мужской" 
                Exit Sub 
            Case Else 
                Label6.Text = "голубой" 
                Exit Sub 
        End Select 
Аналогично сделано и на другие функции..Может тут что то не так..Да фотка в снифер грузится.
А насчет отправки на стену такой отчет : Query string : access_token - пусто/ owner_id - 1 / count- message.

[- к содержанию -]

Ответ #3 @Aleksey Nemiro 24.08.2011 18:23
Dim AccessToken As String = ""
Dim VKAPI As String = AccessToken
В данном случае AccessToken будет пустым.
Нужно его передать с формы авторизации в форму, на которой происходит работа с API. Например, через конструктор.
'код формы, в которой будет происходить работа с API 
'допустим Form1 
 
Private AccessToken As String = "" 
 
Public Sub New(ByVal at As String) 
  ' Этот вызов является обязательным для конструктора. 
  InitializeComponent() 
  'передача AccessToken 
  Me.AccessToken = at 
End Sub

Код запуска формы (в форме авторизации, после входа)
Dim frm As New Form1("сюда нужно передать полученный при авторизации AccessToken") 
frm.Show() 
'или одной строкой 
Call New Form1("сюда нужно передать полученный при авторизации AccessToken").Show()
и полученный ключ можно будет использовать:
Dim myVK As New VKAPI(Me.AccessToken)

[- к содержанию -]

Добавить свой ответ в эту тему
Как реализовать скачивание с depositfiles на c#?

[- к содержанию -]

VB+Mssql @rastamans 15.08.2011 18:59
Добрый день!
Столкнулся с проблемой так как в программирование не так уж давно только учуся. Делаю лаунчер для онлайн игры для собственного сервера, в нем предусмотрена регистрация аккаунта БД игрового сервера основана на Mssql. Проверку тоже реализовал но вот какое дело, если ввести который логин имеется он выдаст сообщение что такой логин есть а если повторно ввести логина которого не существует то он все равно пишет что такой логин есть не могу понять почему"
Imports System.Data 
Imports System.Data.SqlClient 
Imports System.Security.Cryptography 
Imports System.Text 
Public Class Form1 
 Dim Connection As New SqlClient.SqlConnection 
 Dim Command As New SqlClient.SqlCommand 
 Dim Adaptor As New SqlClient.SqlDataAdapter 
 Dim Dataset As New DataSet 
 'MD5 кодер 
 Private Function StringtoMD5(ByVal Content As String) As String 
  Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider 
  Dim UnicodeString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content) 
  UnicodeString = M5.ComputeHash(UnicodeString) 
  Dim FinalString As String = Nothing 
  For Each bt As Byte In UnicodeString 
   FinalString &= bt.ToString("x2") 
  Next 
  Return FinalString 
 End Function 
 Public Sub Connect() 
  Connection.ConnectionString = "Data Source=SAMLAB;Initial Catalog=Auth;User ID=sa" 
  Try 
   Connection.Open() 
  Catch ex As Exception 
   MsgBox("Нет конекта" + ex.ToString, MsgBoxStyle.Critical) 
  End Try 
  
 End Sub 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
  Dim login As String 
  Dim pass As String 
  login = "'" & Me.TextBox1.Text & "'" 
  pass = "'" & Me.TextBox3.Text & "'" 
  If Len(TextBox1.Text) < 5 Or Len(TextBox2.Text) < 5 Then 
   MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) 
  Else 
   Connect() 
   Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';" 
   Command.Connection = Connection 
   Adaptor.SelectCommand = Command 
   Adaptor.Fill(Dataset, "0") 
   Dim count = Dataset.Tables(0).Rows.Count 
   If count > 0 Then 
    MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) 
    TextBox1.Clear() 
    TextBox2.Clear() 
    Connection.Close() 
   Else 
    TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) 
    Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & login & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", Connection) 
    cmd.ExecuteNonQuery() 
    Connection.Close() 
    MsgBox("Вы зарегестрированны") 
    TextBox1.Clear() 
    TextBox2.Clear() 
   End If 
  End If 
 End Sub 
  
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
  Me.Close() 
 End Sub

[- к содержанию -]

Ответ #1 @Aleksey Nemiro 16.08.2011 09:52
Скорей всего ошибка происходит из-за дубликатов кавычек:
login = "'" & Me.TextBox1.Text & "'"
Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';"
Чтобы подобных ошибок даже теоретически не возникало, нужно использовать параметризованные запросы, это также решит проблему безопасности базы данных.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 Dim login As String 
 Dim pass As String 
 login = "'" & Me.TextBox1.Text & "'" 
 pass = "'" & Me.TextBox3.Text & "'" 
 If Len(TextBox1.Text) < 5 Or Len(TextBox2.Text) < 5 Then 
 MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) 
 Else 
 Connect() 
 Command.CommandText = "SELECT * FROM [Accounts] WHERE login_name='" & login & "';" 
 Command.Connection = Connection 
 Adaptor.SelectCommand = Command 
 Adaptor.Fill(Dataset, "0") 
 Dim count = Dataset.Tables(0).Rows.Count 
 If count > 0 Then 
 MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) 
 TextBox1.Clear() 
 TextBox2.Clear() 
 Connection.Close() 
 Else 
 TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) 
 Dim cmd As New SqlCommand("INSERT INTO Accounts VALUES (" & login & "," & pass & ", 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null )", Connection) 
 cmd.ExecuteNonQuery() 
 Connection.Close() 
 MsgBox("Вы зарегестрированны") 
 TextBox1.Clear() 
 TextBox2.Clear() 
 End If 
 End If 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 If TextBox1.Text.Length < 5 OrElse TextBox2.Text.Length < 5 Then 
  MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) 
  Return ' выходим из процедуры 
 End If 
 
 Connect() 
 Dim myCmd As New SqlCommand("SELECT COUNT(login_name) FROM [Accounts] WHERE login_name= @login_name", Connection) 
 myCmd.Parameters.Add("@login_name", SqlDbType.NVarChar).Value = Me.TextBox1.Text 
 
 If myCmd.ExecuteScalar() > 0 Then 
  MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) 
  TextBox1.Clear() 
  TextBox2.Clear() 
  Connection.Close() 
  Return ' выходим из процедуры 
 End If 
 
 myCmd = New SqlCommand("INSERT INTO Accounts VALUES (@login, @pass, 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null)", Connection)'запрос может быть неправильным, т.к. не указан список колонок перед VALUES 
 myCmd.Parameters.Add("@login", SqlDbType.NVarChar).Value = Me.TextBox1.Text 'желательно привести параметры к общему знаменателю, а то в первом запросе вместо login используется login_name 
 myCmd.Parameters.Add("@pass", SqlDbType.NVarChar).Value = Me.TextBox2.Text 
 myCmd.ExecuteNonQuery() 
 Connection.Close() 
 MsgBox("Вы зарегестрированны") 
 TextBox1.Clear() 
 TextBox2.Clear() 
End Sub
(код не проверял)

[- к содержанию -]

Ответ #2 @rastamans 16.08.2011 12:19
Спасибо вам большое код рабочий. Немного в него добавил так мне надо было чтоб пароль отправлялся в md5
Вот выложу полностью свой код может кому пригодится:
Imports System.Data 
Imports System.Data.SqlClient 
Imports System.Security.Cryptography 
Imports System.Text 
Public Class Form1 
    Dim Connection As New SqlClient.SqlConnection 
    Dim Command As New SqlClient.SqlCommand 
    Dim Adaptor As New SqlClient.SqlDataAdapter 
    Dim Dataset As New DataSet 
    Public count 
    'MD5 кодер 
    Private Function StringtoMD5(ByVal Content As String) As String 
        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider 
        Dim UnicodeString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content) 
        UnicodeString = M5.ComputeHash(UnicodeString) 
        Dim FinalString As String = Nothing 
        For Each bt As Byte In UnicodeString 
            FinalString &= bt.ToString("x2") 
        Next 
        Return FinalString 
    End Function 
    Public Sub Connect() 
        Connection.ConnectionString = "Data Source=SAMLAB;Initial Catalog=Auth;User ID=sa" 
        Try 
            Connection.Open() 
        Catch ex As Exception 
            MsgBox("Нет конекта" + ex.ToString, MsgBoxStyle.Critical) 
        End Try 
 
    End Sub 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        If TextBox1.Text.Length < 5 OrElse TextBox2.Text.Length < 5 Then 
            MsgBox("Логин/пароль не может быть короче 5(Пяти) символов!!!", MsgBoxStyle.Critical) 
            Return ' выходим из процедуры 
        End If 
 
        Connect() 
        Dim myCmd As New SqlCommand("SELECT COUNT(login_name) FROM [Accounts] WHERE login_name= @login_name", Connection) 
        myCmd.Parameters.Add("@login_name", SqlDbType.NVarChar).Value = Me.TextBox1.Text 
 
        If myCmd.ExecuteScalar() > 0 Then 
            MsgBox("Такой логин уже есть", MsgBoxStyle.Critical) 
            TextBox1.Clear() 
            TextBox2.Clear() 
            Connection.Close() 
            Return ' выходим из процедуры 
        End If 
        TextBox3.Text = StringtoMD5("2011" + TextBox2.Text) 
        myCmd = New SqlCommand("INSERT INTO Accounts VALUES (@login, @pass, 0 , 0 , 18 , 1 , 1 , 1 , 0 , null , 1 , null , null , null)", Connection) 'запрос может быть неправильным, т.к. не указан список колонок перед VALUES 
        myCmd.Parameters.Add("@login", SqlDbType.NVarChar).Value = Me.TextBox1.Text 'желательно привести параметры к общему знаменателю, а то в первом запросе вместо login используется login_name 
        myCmd.Parameters.Add("@pass", SqlDbType.NVarChar).Value = Me.TextBox3.Text 
        myCmd.ExecuteNonQuery() 
        Connection.Close() 
        MsgBox("Вы зарегестрированны") 
        TextBox1.Clear() 
        TextBox2.Clear() 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Me.Close() 
    End Sub 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 32) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 58) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 59) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 60) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 61) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 62) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 63) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 64) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 92) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 93) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 94) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 95) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 96) Then 
            If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then 
                e.Handled = True 
            End If 
        End If 
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then 
            e.Handled = False 
        End If 
    End Sub 
 
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress 
        If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 122) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 32) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 58) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 59) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 60) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 61) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 62) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 63) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 64) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 91) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 92) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 93) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 94) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 95) _ 
    Or (Microsoft.VisualBasic.Asc(e.KeyChar) = 96) Then 
            If (Microsoft.VisualBasic.Asc(e.KeyChar) <> 32) Then 
                e.Handled = True 
            End If 
        End If 
        If (Microsoft.VisualBasic.Asc(e.KeyChar) = 8) Then 
            e.Handled = False 
        End If 
    End Sub 
End Class 
 

[- к содержанию -]

Добавить свой ответ в эту тему

Все темы и обсуждения

Вакансии в IT

Инженер-программист SCADA

Россия, Москва | Работа в офисе

Программист SCADA

Россия, Москва | Работа в офисе

Программист Flash

Россия, Москва | Работа в офисе | 85 000.00 RUB

Программист

Россия, Москва | Работа в офисе | 60 000.00 RUB

Инженер-программист

Россия, Москва | Работа в офисе | 43 000.00 RUB

Инженер-программист (АСУ нефтебазы)

Россия, Москва | Работа в офисе

Программист C# . NET

Россия, Москва | Работа в офисе | 80 000.00 RUB

Программист C++

Россия, Москва | Работа в офисе | 40 000.00 RUB

Программист C# (2D)

Россия, Москва | Работа в офисе | 50 000.00 RUB

ВЕБ ДИЗАЙНЕР УДАЛЕННАЯ РАБОТА

Россия, Москва | Работа в офисе

Все вакансии в IT · Создать резюме

[- к содержанию -]

Новости мира IT

Lenovo выпускает новые Android-планшеты для бизнеса

Китайский производитель компьютеров Lenovo сегодня начал продажи своего нового поколения интернет-планшетов ThinkPad, ориентированных на использование в бизнес-сфере. Напомним, что ранее производитель запустил в продажу похожие планшеты IdeaPad K1, предназначенные для индивидуальных пользователей.

Новые планшеты ThinkPad c 10,1-дюймовым экраном работают с операционной системой Android и имеют ряд сервисов, специально предназначенных для бизнес-пользователей. Одной из изюминок бизнес-планшетов является наличие стилуса, при помощи которого пользователи могут записывать те или иные данные, либо просто рисовать и делать пометки, как в блокноте. Для работы с "цифровыми заметками" планшеты оснащены программой Documents to Go. Эта программа совместима с форматами Microsoft Office и позволяет синхронизироваться с популярным офисным пакетом. Также планшеты поддерживают пакет Citrix Receiver для работы с настольными бизнес-приложениями через систему виртуализации.

Стоимость планшетов варьируется в зависимости от объема памяти - 16-гигабайтная версия стоит 500 долларов, 32-гигабайтная - 600 долларов, 64-гигабайтная - 700 долларов. Новинки созданы на базе SoC-чипа Nvidia Tegra 2 и работают в разрешении 1280х800 пикселей. Дополнительно пользователям предлагается поддержка Wi-Fi, Bluetooth, USB и HDMI.

Напомним, что ранее Lenovo заявляла о планах по выпуску и Windows-планшетов. Выпустить подобные модели планируется до конца года. В 2012 году китайский производитель намерен выпустить модели на базе ОС Windows 8.

25.08.2011 10:32 · Категория: Железо · Источник: CyberSecurity.ru

[- к содержанию -]

"Апорт" перешел на поиск "Яндекса"

Российская поисковая система "Апорт", функционирующая с 1997 года, перешла на поиск "Яндекса". Владеющая поисковиком компания "Вымпелком" заявила, что "Апорт" не является для нее приоритетным бизнесом, поэтому собственную поисковую технологию "Апорта" было решено не развивать.

25.08.2011 10:31 · Категория: Бизнес в IT · Источник: Lenta.ru

[- к содержанию -]

Стив Джобс покинул пост гендиректора Apple

Стив Джобс покинул пост главы Apple. Об этом говорится в официальном заявлении компании. На посту генерального директора Джобса заменит Тим Кук. С 17 января 2011 года основатель Apple находился на больничном по причинам, о которых не сообщалось публично.

25.08.2011 10:30 · Категория: Бизнес в IT · Источник: Lenta.ru

[- к содержанию -]

AMD выпускает новые процессоры Fusion для бюджетных ноутбуков

Второй крупнейший мировой производитель микропроцессоров Advanced Micro Devices вчера представил обновленную линейку чипов Fusion, объединяющих в себе как центральное процессорное ядро x86, так и видеографические ядра. В заявлении AMD говорится, что при помощи новых версий Fusion компьютеры бюджетных ценовых категорий смогут обзавестись функциями, которые прежде присутствовали только в дорогих решениях.

Обновлены были чипы Fusion E- и C-серий. Обе этих серии являются экономичными решениями, у первой TDP составляет 18 ватт, у второй - 9 ватт. Первые позиционируются как решения для бюджетных ноутбуков, вторые - для нетбуков. Более мощные Fusion А-серии получили обновления ранее. 


Что касается E-серии, то здесь AMD показывает новый топовый чип E-450, приходящий на смену E-350 (данный чип по-прежнему остается в линейке компании). Fusion E-450 имеет ЦПУ с двумя ядрами, работающими на частоте 1,65 ГГц, против 1,6 ГГц у E-350, а также графические ядра Radeon HD 6320, имеющие базовую частоту 508 МГц, но способные разгоняться до 600 МГц.

Чипы E-300 также удваивают количество x86-ядер и приходят на смену E-240, которые до этого работали с одним ядром. Однако у двухъядерной модели E-300 частота понижена до 1,3 ГГц, против 1,5 ГГц у одноядерного E-240.

Процессоры Fusion C-серии получили новые чипы C-60, заменяющие собой C-50. У C-60 имеется ЦПУ, работающий на частоте 1,33 ГГц и графическое ядро Radeon HD 6310 с частотой 500 МГц. С-50 имел процессорное ядро, работающее на частоте в 1 ГГц и видеографическое ядро HD 6250.

В заявлении чипмейкера говорится, что новые чипы также получили поддержку чипов памяти DDR3 1333, а также выходов HDMI 1.4a для работы с трехмерным HD-видео. Также все три чипа имеют аппаратную возможность декодирования MPEG-4 Part 2 и работают с портами DisplayPort++.

25.08.2011 10:27 · Категория: Железо · Источник: CyberSecurity.ru

[- к содержанию -]

Samsung представила в России сервис 3D VOD «Explore 3D»

Компания Samsung Electronics сегодня представила в России бесплатный сервис 3D VOD «Explore 3D». Сервисы Video on Demand (видео по запросу) позволяют пользователю смотреть в потоковом режиме именно то видео, которое ему нравится, именно тогда, когда этого хочется. В телевизорах Samsung подобные сервисы стали возможными благодаря реализации концепции Smart TV. Владельцу умного телевизора достаточно зайти в меню Smart Hub и выбрать нужное приложение из магазина Samsung Apps. Далее – выбрать фильм и приступить к просмотру.

Сервис Samsung «Explore 3D» призван решить проблему ограниченного количества доступного 3D-контента и позволить пользователям смотреть изображение в трехмерном формате не только через спутниковую тарелку или blu-ray плеер. Приложение предлагает различные фильмы в формате 3D, в том числе трейлеры к кинофильмам всемирно известных студий, музыкальные клипы, фильмы и программы культурно-образовательного содержания. Сейчас в меню сервиса доступно около сорока видео. В дальнейшем количество контента будет увеличено. 

Александр Ткачук, директор департамента аудио-видео компании Samsung Electronics, рассказывает: «Мы стремимся к тому, чтобы наши Smart TV устройства позволяли получать наибольшее удовольствие от просмотра, особенно, когда речь идет о 3D. Запуск сервиса «Explore 3D» в России — это следующий этап нашей программы по расширению количества доступного пользователям 3D-контента».

24.08.2011 10:25 · Категория: Бизнес в IT · Источник: CyberSecurity.ru

[- к содержанию -]

Все новости


Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей:

Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC

Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter.

Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.


Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.


В избранное