Visual Basic / Yilan Oyunu - Hazır Kod

toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler Hoşgeldiniz, bugün 18 December 2025 aktif üye 8,903 Yeni Üyelik Üye Girişi Şifremi Unuttum

• ANASAYFA
• YENİ ÜYELİK
• ÜYE GİRİŞİ
• SEN DE YAZ
• İLETİŞİM

SEN DE YAZ HazırKod ziyaretçilerinin katkıları bizim için çok önemli! Sizde hazırkod üyesi olun, ekleyeceğiniz kodlar yapacağınız yorumlarla hazirkod.com'a katkıda bulunun. ETİKETLER toplu mesaj toplu mesaj gönderme toplu sms gönderme toplu sms paketleri toplu sms programı toplu mesaj atma sms paketleri başlıklı sms toplu mesaj gönderme programı toplu sms sistemi toplu sms firmaları kurumsal sms paketler yaziya karakter araba access hesap açma kutusunu resim sayi active-x eliptik titreyen tarih küçük yuvarlak zaman metin form ekran açip basit paralel saat kontrol rakamlari kutusunda windows kendi kayit veya dosyayi yeni kayan makinesi program text visual dosya girilen kutusuna yazi textbox formu güzel rakam karakterlerin mouse basic satir nasil Lütfen bekleyiniz.. İşleminiz gerçekleştiriliyor... Geçen süre:

Konu:

Yorum:

<HK>buraya kod</HK>

Ekle Vazgeç

Programalama > VISUAL BASIC VISUAL BASIC / Yılan Oyunu Harika Bir Yylan Oyunu Etiketler: yılan, oyunu Ort. 0 Puan ver: hazirkod 27 June 19:34 0 0 kişiden 0 puan aldı 16615 Forma 4 tane command butonu,4 tane option nesnesi,biri kare , di?erleri yuvarlak 5 tane shape nesnesi, bir tane de timer yerle?tiriniz. Private Sub Timer1_Timer() If Shape1.Left >= 15120 Or Shape1.Left <= 0 Or Shape1.Top <= 0 Or Shape1.Top > 8160 Then Label3.Visible = True Label4.Visible = True yen.Visible = True End If Text2.Text = Shape1.Left Text3.Text = Shape1.Top If a1.Value = True Then Shape1.Left = Shape1.Left - 120 End If If a2.Value = True Then Shape1.Left = Shape1.Left + 120 End If If a3.Value = True Then Shape1.Top = Shape1.Top + 120 End If If a4.Value = True Then Shape1.Top = Shape1.Top - 120 End If If Shape2.Visible = True And Shape1.Top = 1920 And Shape1.Left = 840 Then Text1.Text = Val(Text1.Text) + 10 Shape2.Visible = False Shape3.Visible = True End If If Shape3.Visible = True And Shape1.Top = 1320 And Shape1.Left = 5760 Then Text1.Text = Val(Text1.Text) + 10 Shape3.Visible = False Shape4.Visible = True End If If Shape4.Visible = True And Shape1.Top = 4200 And Shape1.Left = 1560 Then Text1.Text = Val(Text1.Text) + 10 Shape5.Visible = True Shape4.Visible = False End If If Shape5.Visible = True And Shape1.Top = 6360 And Shape1.Left = 8760 Then Text1.Text = Val(Text1.Text) + 10 Shape2.Visible = True Shape5.Visible = False Shape3.Visible = False Shape4.Visible = False End If End Sub Private Sub Timer2_Timer() If Text4.Text = "1" Then Shape1.Visible = False Else Shape1.Visible = True End If Text4.Text = Val(Text4.Text) + 1 If Text4.Text = "3" Then Text4.Text = "0" End If End Sub nacar malatya Yorumlar Yorum Yaz Bu hazır kod'a ilk yorumu siz yapın! KATEGORİLER ADO.NET - ADO - 8ASP - 240ASP.NET - 24C# - 75C++ - 174CGI - 8COMPONENT - 5DATABASE - 8DELPHI - 247FLASH - 49HTML - 536JAVA - JSP - 43JAVA SCRIPT - 494PASCAL - 246PERL - 11PHP - 160VISUAL BASIC - 337VISUAL BASIC.NET - 39WML - 9XML - 2Tüm Kategoriler GİZLİLİK İLKELERİ | BİZE ULAŞIN Copyright © 2002 - 2025 Hazır Kod - Tüm Hakları Saklıdır. Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz. hazirkod.com bir İSOBİL projesidir.