Toplam 1 adet sonuctan sayfa basi 1 ile 1 arasi kadar sonuc gösteriliyor
-
02.Şubat.2015, 12:55 #1Pro Üye
- Üyelik tarihi
- 06.Kasım.2014
- Mesajlar
- 405
Visual Basic Ekran Koruyucu Kodu
Merhaba arkadaşlar;
Kod:
Public Sub drawcircle()
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99) + 1) * Rnd
Circle (xPos, yPos), radius, RGB(red, blue, green)
End Sub
Private Sub Timer1_Timer()
Call drawcircle
End Sub
Konu Bilgileri
Bu Konuya Gözatan Kullanıcılar
Şu anda 1 kullanıcı bu konuyu görüntülüyor. (0 kayıtlı ve 1 misafir)
Benzer Konular
-
Visual Basic İpuçları
Konu Sahibi emreonal Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 21.Temmuz.2015, 11:50 -
Visual Basic'te Değişkenler
Konu Sahibi donjuanhose81 Forum .Net ProgramlamaCevap: 0Son Mesaj : 23.Mart.2015, 21:15 -
Visual Basic İle Bilgisayarınızı Kapatın
Konu Sahibi donjuanhose81 Forum .Net ProgramlamaCevap: 0Son Mesaj : 24.Şubat.2015, 21:49 -
Visual Basic Hakkında
Konu Sahibi donjuanhose81 Forum Görsel Proğramlama DilleriCevap: 0Son Mesaj : 02.Şubat.2015, 13:14 -
Visual Basic Hakkında
Konu Sahibi donjuanhose81 Forum ASP.NetCevap: 0Son Mesaj : 02.Şubat.2015, 13:14
Shopsocks5 - Service Socks5 Cheap...
03.Haziran.2024, 14:56 in Güvenlik