HTML Code:
Private Sub Command1_Click() If Text4 = "" Then Text4 = "KOD GİRMELİSİNİZ": Exit Sub altili = Right(Text4, 6) a = Left(altili, 2) b = Mid(altili, 3, 2) c = Right(altili, 2) a1 = UCase(Left(a, 1)) a2 = UCase(Right(a, 1)) b1 = UCase(Left(b, 1)) b2 = UCase(Right(b, 1)) c1 = UCase(Left(c, 1)) c2 = UCase(Right(c, 1)) If a1 = "F" Then a1 = 15 If a1 = "E" Then a1 = 14 If a1 = "D" Then a1 = 13 If a1 = "C" Then a1 = 12 If a1 = "B" Then a1 = 11 If a1 = "A" Then a1 = 10 If a2 = "F" Then a2 = 15 If a2 = "E" Then a2 = 14 If a2 = "D" Then a2 = 13 If a2 = "C" Then a2 = 12 If a2 = "B" Then a2 = 11 If a2 = "A" Then a2 = 10 If b1 = "F" Then b1 = 15 If b1 = "E" Then b1 = 14 If b1 = "D" Then b1 = 13 If b1 = "C" Then b1 = 12 If b1 = "B" Then b1 = 11 If b1 = "A" Then b1 = 10 If b2 = "F" Then b2 = 15 If b2 = "E" Then b2 = 14 If b2 = "D" Then b2 = 13 If b2 = "C" Then b2 = 12 If b2 = "B" Then b2 = 11 If b2 = "A" Then b2 = 10 If c1 = "F" Then c1 = 15 If c1 = "E" Then c1 = 14 If c1 = "D" Then c1 = 13 If c1 = "C" Then c1 = 12 If c1 = "B" Then c1 = 11 If c1 = "A" Then c1 = 10 If c2 = "F" Then c2 = 15 If c2 = "E" Then c2 = 14 If c2 = "D" Then c2 = 13 If c2 = "C" Then c2 = 12 If c2 = "B" Then c2 = 11 If c2 = "A" Then c2 = 10 Text1 = a1 * 16 + a2 Text2 = b1 * 16 + b2 Text3 = c1 * 16 + c2 End Sub Private Sub Command2_Click() If Text5 = "" And Text6 = "" And Text7 = "" Then Text8 = "KOD GİRMELİSİNİZ": Exit Sub If Text5 = "" Then Text5 = "000" If Text6 = "" Then Text6 = "000" If Text7 = "" Then Text7 = "000" If Text5 > 255 Then Text8 = "Maximum değer 255": Exit Sub If Text6 > 255 Then Text8 = "Maximum değer 255": Exit Sub If Text7 > 255 Then Text8 = "Maximum değer 255": Exit Sub If Text5 < 16 Then sonuc1 = "0" & Hex(Text5) Else sonuc1 = Hex(Text5) If Text6 < 16 Then sonuc2 = "0" & Hex(Text6) Else sonuc2 = Hex(Text6) If Text7 < 16 Then sonuc3 = "0" & Hex(Text7) Else sonuc3 = Hex(Text7) Text8 = "#" & sonuc1 & sonuc2 & sonuc3 End Sub
Arama yaptırdım bole bişey goremedim verildiyse affola..
__________________