Chciałbym przedstawić wam (autorski) program do generowania kolorów w systemie szesnastkowym. Używane są one najczęściej w języku HTML. Dokładny opis działania znajdziecie pod TYM LINKIEM
Screen programu:
Cały program został napisany w Visual Studio Express 2013. Poniżej wstawiam kod programu:
[syntax=vbnet]Public Class Form1
Dim red, green, blue As Byte 'zmienne przechowujące wartości danych kolorów
Dim hex_red, hex_green, hex_blue As String 'zmienne pomocnicze
Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
red = HScrollBar1.Value 'wpisywanie wartości suwaka do zmiennej odpowiadającej kolorowi czerwonemu
Panel1.BackColor = Color.FromArgb(red, green, blue) 'zmiana koloru Panel1 (podgląd koloru)
hex_red = Hex(red) 'konwersja z liczby decymalnej na hexadecymalną
hex_green = Hex(green) 'konwersja z liczby decymalnej na hexadecymalną
hex_blue = Hex(blue) 'konwersja z liczby decymalnej na hexadecymalną
'początek formatowania kodu
Select Case hex_red
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_red = "0" & hex_red
End Select
Select Case hex_green
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_green = "0" & hex_green
End Select
Select Case hex_blue
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_blue = "0" & hex_blue
End Select
'koniec formatowania kodu
RichTextBox1.Text = ("#" & hex_red & hex_green & hex_blue) 'wyświetlanie kodu w RichTextBox1
End Sub
Private Sub HScrollBar2_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar2.Scroll
green = HScrollBar2.Value 'wpisywanie wartości suwaka do zmiennej odpowiadającej kolorowi zielonemu
Panel1.BackColor = Color.FromArgb(red, green, blue) 'zmiana koloru Panel1 (podgląd koloru)
hex_red = Hex(red) 'konwersja z liczby decymalnej na hexadecymalną
hex_green = Hex(green) 'konwersja z liczby decymalnej na hexadecymalną
hex_blue = Hex(blue) 'konwersja z liczby decymalnej na hexadecymalną
'początek formatowania kodu
Select Case hex_red
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_red = "0" & hex_red
End Select
Select Case hex_green
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_green = "0" & hex_green
End Select
Select Case hex_blue
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_blue = "0" & hex_blue
End Select
'koniec formatowania kodu
RichTextBox1.Text = ("#" & hex_red & hex_green & hex_blue) 'wyświetlanie kodu w RichTextBox1
End Sub
Private Sub HScrollBar3_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar3.Scroll
blue = HScrollBar3.Value 'wpisywanie wartości suwaka do zmiennej odpowiadającej kolorowi niebieskiemu
Panel1.BackColor = Color.FromArgb(red, green, blue) 'zmiana koloru Panel1 (podgląd koloru)
hex_red = Hex(red) 'konwersja z liczby decymalnej na hexadecymalną
hex_green = Hex(green) 'konwersja z liczby decymalnej na hexadecymalną
hex_blue = Hex(blue) 'konwersja z liczby decymalnej na hexadecymalną
'początek formatowania kodu
Select Case hex_red
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_red = "0" & hex_red
End Select
Select Case hex_green
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_green = "0" & hex_green
End Select
Select Case hex_blue
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"
hex_blue = "0" & hex_blue
End Select
'koniec formatowania kodu
RichTextBox1.Text = ("#" & hex_red & hex_green & hex_blue) 'wyświetlanie kodu w RichTextBox1
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Panel1.BackColor = Color.Black
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Clipboard.Clear()
Clipboard.SetText(RichTextBox1.Text)
End Sub
End Class[/syntax]
Statystyki: Napisane przez domcio512 — 31 mar 2015, o 20:50
]]>