Yazar: troyx
YTL formatındaki değeri yazıya çeviri 1milyon ytl ye kadar destekliyor .Kod biraz uzun ama %100 çalışıyor... BİLGİ PAYLAŞTIKÇA GÜZELDİR:::
Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız. Vbasicmaster.com'a link verin! Aşağıdaki minik banneri sitenize eklemek için tıklayın!
'Değişkenler Dim R AsInteger, G AsInteger, B AsInteger
PrivateSub Form_Click() For i = 0 To 6000 Step 15 Me.Circle (Me.Width / 2, Me.Height / 2), 6000 - i, RGB(R, G, B) 'Formun merkezine Doğru çizgiler çiziyoruz.
R = R + 1 'Renk Kuşağı If R > 255 Then G = G + 3 If G > 255 Then B = B + 3 If B > 255 Then R = 0: G = 0: B = 0 Next EndSub