(visual basic)

[bddm]

arkadaşlar visual basic te bir program yapmam gerekli yardım eder misiniz???program renklerin ascii kodlarını içeriyor.renk ismi girince o rengin asci kodu gelicek,asci kodu girince renk gelicek.256 renk için bunu yapmam gerekli önerilerinizi bekliyorum şimdiden teşekkürler

[sato38]

İnşallah isteğini karşılayan bir fonsiyondur

Private Function renkkodundanisme(ByVal renkkodu As Long) As String

renkkodu = renkkodu And &HFFFFFF


Dim iKirmizi As Integer, iYesil As Integer, iMavi As Integer
iKirmizi = renkkodu And &HFF
iYesil = (renkkodu \ &H100) And &HFF
iMavi = renkkodu \ &H10000


Dim renkismi As String
Select Case iKirmizi
Case Is > 170 'çok kırmızı
Select Case iYesil
Case Is > 170 'çok yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Beyaz"
Case Is > 85: renkismi = "Açık Sarı"
Case Else: renkismi = "Sarı"
End Select
Case Is > 85 'Orta Yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Pembe"
Case Is > 85: renkismi = "Eflatun"
Case Else: renkismi = "Turuncu."
End Select
Case Else 'little green
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Mor"
Case Is > 85: renkismi = "Koyu Pembe"
Case Else: renkismi = "Kırmızı"
End Select
End Select

Case Is > 85 'orta kırmızı
Select Case iYesil
Case Is > 170 'çok yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Cyan"
Case Is > 85: renkismi = "Yeşil"
Case Else: renkismi = "Açık Yeşil"
End Select
Case Is > 85 'orta yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Koyu Mavi"
Case Is > 85: renkismi = "Koyu Gri"
Case Else: renkismi = "Koyu Yeşil"
End Select
Case Else 'az yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Koyu Mavi"
Case Is > 85: renkismi = "Mor"
Case Else: renkismi = "Koyu Kırmızı"
End Select
End Select

Case Else 'az kırmızı
Select Case iYesil
Case Is > 170 'çok yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Cyan"
Case Is > 85: renkismi = "Yeşil"
Case Else: renkismi = "Açık Yeşil"
End Select
Case Is > 85 'orta yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Mavi"
Case Is > 85: renkismi = "Koyu Cyan"
Case Else: renkismi = "Koyu Yeşil"
End Select
Case Else 'az yeşil
Select Case iMavi 'Mavi: çok/orta/az
Case Is > 170: renkismi = "Açık Mavi"
Case Is > 85: renkismi = "Koyu Mavi"
Case Else: renkismi = "Siyah"
End Select
End Select
End Select

renkkodundanisme = renkismi

End Function

[sato38]

bu arada başlığını değiştirki başlık kitlenmesin belki daha güzel örnekler çıkabilir

[bddm]

çok teşekkür ederim.çok uğraştırdı bunlar beni....