Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Малко помощ за 1 програма че съм начинаещ моля.

Последователи

22 януари 201016 г.

Здравейте.Имам една задачка,с която си блъскам главата вече седмица но немога да я напиша правилно,моля ви някой да ми даде някакво решение.Задачата е следната Имам един NumericUpDown и един Button във формата,трябва след въвеждане на число във NumericUpDown-a ,което е в десетична бройна система ,то да се преобразува във шеснайсетична бройна система с натискането на Button1. Задачата не изглежда голяма или много сложна,но за мене като нов в тази област си е непосилна задача,Моля ви някой да ми помогне.Благодаря ви.

25 януари 201016 г.

Автор

Никой ли неможе да ми помогне.МОЛЯ ВИ

25 януари 201016 г.

Никой ли неможе да ми помогне.МОЛЯ ВИ

Ами то е един ред :

        TextBox1.Text = Hex(NumericUpDown1.Value)

25 януари 201016 г.

Автор

Благодаря много това е кода но може ли резултата да излиза във MessagesBox и как ще е кода ако е възможно.Моля за info.

Редактирано 26 януари 201016 г. от NeWinPrograming (преглед на промените)

26 януари 201016 г.

А за преобразяване на десетични в двуични може ли да ми кажеш.

26 януари 201016 г.

Функцията за преобразуване от десетично в двоично число :

    Function Dec2Bin(ByVal n As Long) As String

        Do Until n = 0

            If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin

            n = n \ 2

        Loop

    End Function

и съответните MessageBox за двете преобразувания :

        MessageBox.Show(Str(NumericUpDown1.Value) & " в шестнадесетичен вид е = " & Hex(NumericUpDown1.Value), "Резултат", MessageBoxButtons.OK, MessageBoxIcon.Information)

        MessageBox.Show(Str(NumericUpDown1.Value) & " в двоичен вид е = " & Dec2Bin(NumericUpDown1.Value), "Резултат", MessageBoxButtons.OK, MessageBoxIcon.Information)