- Konum
- BERTUNA
-
- Üyelik Tarihi
- 2 Haz 2020
-
- Mesajlar
- 5,338
-
- MFC Puanı
- 16,230
Merhabalar
Uzun zamandır aklımın bir köşesinde (2-3 gündür) olan bir betik kodlaması idi...
Önce betiğin içeriğini verelim....
Kod İçeriğinin Basit Açıklaması :
Basit bir VBS (Visual Basic Script) kullanarak nasıl renkli metinler oluşturabileceğinizi göstereceğim. Bu script, RGB (Kırmızı, Yeşil, Mavi) değerlerini alarak bir HTML dosyası oluşturuyor.
1. RGB Değerlerini Girme
Script çalıştığında, sizden Kırmızı, Yeşil ve Mavi değerlerini girmenizi isteyecek. Bu değerler 0 ile 255 arasında olmalı. Örneğin:
Kırmızı (R): 255
Yeşil (G): 0
Mavi (B): 0
2. Değerlerin Kontrolü
Girdiğiniz değerlerin geçerli olup olmadığını kontrol ediyor. Eğer sayısal bir değer girmezseniz veya değerler belirtilen aralıkta değilse, bir hata mesajı alacaksınız. Yani, "Lütfen geçerli sayılar girin." gibi bir uyarı göreceksiniz.
3. HEX Kodu Oluşturma
Girdiğiniz RGB değerlerine göre bir HEX kodu oluşturuluyor. HEX kodu, web sayfalarında renkleri tanımlamak için kullanılır. Örneğin, kırmızı için "#FF0000" gibi bir kod oluşur.
4. BBCode ve HTML İçeriği
Script, oluşturulan HEX kodunu kullanarak bir BBCode (forumlarda renkli metin için kullanılan bir format) ve bir HTML içeriği oluşturuyor. HTML, web sayfalarının temel yapısını oluşturur.
5. Masaüstünde Dosya Oluşturma
Oluşturulan HTML içeriği, bilgisayarınızın masaüstünde "renkli_metin.html" adında bir dosya olarak kaydediliyor. Yani, bu dosyayı açarak oluşturduğunuz renkli metni görebileceksiniz.
6. Bilgilendirme Mesajı
Son olarak, script çalışmayı tamamladığında size bir mesaj kutusu gösteriyor. Bu kutuda "HTML dosyası masaüstüne oluşturuldu." yazıyor. Böylece işlemin başarılı olduğunu öğreniyorsunuz.
Özetle ;
Bu basit script sayesinde, istediğiniz renklerde metinler oluşturabilir ve bunları HTML dosyası olarak kaydedebilirsiniz. Denemek isterseniz, kodu bilgisayarınıza yapıştırıp çalıştırabilirsiniz.Ve bbcode kodunu da phpBBForumlar'da da kullanabilirsiniz.
Ekran Görüntüsü :
NOT:
Kod'taki
kod parçacıklarındaki değerleri (sayısal-sözel) kendinize göre değiştirebilirsiniz.
Güle güle kullanın...!
Uzun zamandır aklımın bir köşesinde (2-3 gündür) olan bir betik kodlaması idi...
Önce betiğin içeriğini verelim....
Kod:
' Kullanıcıdan RGB değerlerini al
Dim r, g, b
r = InputBox("Lütfen Kırmızı (R) değerini girin (0-255):")
g = InputBox("Lütfen Yeşil (G) değerini girin (0-255):")
b = InputBox("Lütfen Mavi (B) değerini girin (0-255):")
' Değerlerin geçerliliğini kontrol et
If Not IsNumeric(r) Or Not IsNumeric(g) Or Not IsNumeric(b) Then
MsgBox "Lütfen geçerli sayılar girin."
WScript.Quit
End If
If r < 0 Or r > 255 Or g < 0 Or g > 255 Or b < 0 Or b > 255 Then
MsgBox "RGB değerleri 0 ile 255 arasında olmalıdır."
WScript.Quit
End If
' HEX kodunu oluştur
Dim hexKodu
hexKodu = "#" & Right("0" & Hex(r), 2) & Right("0" & Hex(g), 2) & Right("0" & Hex(b), 2)
' BBCode içeriğini oluştur
Dim bbcode
bbcode = "[color=" & hexKodu & "]Bu bir örnek metin.[/color]"
' HTML içeriğini oluştur
Dim htmlContent
htmlContent = "<html><head><title>Renkli Metin</title>" & _
"<script type='text/javascript'>" & _
"window.onload = function() {" & _
"window.resizeTo(640, 480);" & _
"};" & _
"</script></head><body style='background-color: white; font-size: 108%;'>" & _
"<h1 style='color:" & hexKodu & ";'>Bu bir örnek metin.</h1>" & _
"<p>RGB Değerleri: (" & r & ", " & g & ", " & b & ")</p>" & _
"<p>HEX Kodu: " & hexKodu & "</p>" & _
"<p>BBCode: " & bbcode & "</p>" & _
"</body></html>"
' Masaüstü yolunu al
Dim desktopPath
desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
' HTML dosyasını oluştur
Dim fso, htmlFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set htmlFile = fso.CreateTextFile(desktopPath & "\renkli_metin.html", True)
htmlFile.WriteLine(htmlContent)
htmlFile.Close
' Kullanıcıya bilgi ver
MsgBox "HTML dosyası masaüstüne oluşturuldu. 'renkli_metin.html' dosyasını açarak sonucu görebilirsiniz."Kod İçeriğinin Basit Açıklaması :
Basit bir VBS (Visual Basic Script) kullanarak nasıl renkli metinler oluşturabileceğinizi göstereceğim. Bu script, RGB (Kırmızı, Yeşil, Mavi) değerlerini alarak bir HTML dosyası oluşturuyor.
1. RGB Değerlerini Girme
Script çalıştığında, sizden Kırmızı, Yeşil ve Mavi değerlerini girmenizi isteyecek. Bu değerler 0 ile 255 arasında olmalı. Örneğin:
Kırmızı (R): 255
Yeşil (G): 0
Mavi (B): 0
2. Değerlerin Kontrolü
Girdiğiniz değerlerin geçerli olup olmadığını kontrol ediyor. Eğer sayısal bir değer girmezseniz veya değerler belirtilen aralıkta değilse, bir hata mesajı alacaksınız. Yani, "Lütfen geçerli sayılar girin." gibi bir uyarı göreceksiniz.
3. HEX Kodu Oluşturma
Girdiğiniz RGB değerlerine göre bir HEX kodu oluşturuluyor. HEX kodu, web sayfalarında renkleri tanımlamak için kullanılır. Örneğin, kırmızı için "#FF0000" gibi bir kod oluşur.
4. BBCode ve HTML İçeriği
Script, oluşturulan HEX kodunu kullanarak bir BBCode (forumlarda renkli metin için kullanılan bir format) ve bir HTML içeriği oluşturuyor. HTML, web sayfalarının temel yapısını oluşturur.
5. Masaüstünde Dosya Oluşturma
Oluşturulan HTML içeriği, bilgisayarınızın masaüstünde "renkli_metin.html" adında bir dosya olarak kaydediliyor. Yani, bu dosyayı açarak oluşturduğunuz renkli metni görebileceksiniz.
6. Bilgilendirme Mesajı
Son olarak, script çalışmayı tamamladığında size bir mesaj kutusu gösteriyor. Bu kutuda "HTML dosyası masaüstüne oluşturuldu." yazıyor. Böylece işlemin başarılı olduğunu öğreniyorsunuz.
Özetle ;
Bu basit script sayesinde, istediğiniz renklerde metinler oluşturabilir ve bunları HTML dosyası olarak kaydedebilirsiniz. Denemek isterseniz, kodu bilgisayarınıza yapıştırıp çalıştırabilirsiniz.Ve bbcode kodunu da phpBBForumlar'da da kullanabilirsiniz.
Ekran Görüntüsü :
NOT:
Kod'taki
Kod:
' BBCode içeriğini oluştur
Dim bbcode
bbcode = "[color=" & hexKodu & "]Bu bir örnek metin.[/color]"
Kod:
htmlContent = "<html><head><title>Renkli Metin</title>" & _
Kod:
"window.resizeTo(640, 480);" & _
Kod:
"</script></head><body style='background-color: white; font-size: 108%;'>" & _kod parçacıklarındaki değerleri (sayısal-sözel) kendinize göre değiştirebilirsiniz.
Güle güle kullanın...!