End End Sub Form4 Kod: Private Sub Form_Activate WindowsMediaPlayer1. URL = Text1. Text End Sub Private Sub Form_KeyUp If KeyCode = vbKeyB Then Form2. Label14. Caption = "3" Form2. Text3. Visible = True Form2. Text3 = "3" Form2. Timer3. Enabled = True WindowsMediaPlayer1. Controls. stop Form2. Show Form4. Hide ElseIf KeyCode = vbKeyC Then Close

çok bilgim olsa kendime bir şirket açar daha keyifli oyunlar yapardım ama elimden geleni bu exe diyorsan burada yaptığım var. http://vbasic-kupu.awardspace. biz/car_race.htm

tabiki kötü bir durum. yazılımın virüs uyarısı veriyor. nedeni de bir web sitesinden veri çekmen. bu yüzden uyarı verenler hemen silecektir ve oyununu oynamayacaklardır. üstüne de virüs var diye yorumlar yazacaklar. bir web sitesinden veri çekersen başka bir amaç için kullanılabileceğinden dolayı uyarı verecektir. bu yüzden güncelleme sistemini silmen yada değişik bir yöntem kullanman gerekir. http://www.wardom.org/trojanimtrak-codec-asiatico-d-t216004.html mesela bu uygulama senin kullandığın güncelleme sistemi ile aynı yöntemi kullanıyor. bu yüzden antivirüs yazılımları bunu virüs olarak tanımlamışlar. forumda bir arkadaşın yaptığı video izleme programında da aynı sorun vardı. güncelleme sistemi senin kullandığın yöntemi kullanıyordu virüs var diyenler olmuştu http://www.wardom.org/hyper-sinevizyon-v1-0-guncellestirme-online-sinema-keyfi-t226202.html yaptığın bir yazılımda virüs uyarısı vermesi birçok kişinin kullanmama nedeni olacaktır. ne kadar iyi bir yazılım olsa da. -

End ElseIf KeyCode = vbKeyO Then If Frame1. Visible = False Then Frame1. Visible = True ElseIf Frame1. Visible = True Then Frame1. Visible = False End If ElseIf KeyCode = vbKeyG Then Dim bag bag = Inet1. OpenURL Text2. Text = bag If Text2 = "" Then a = MsgBox ElseIf Text2 = Text3 Then b = MsgBox Else c = MsgBox If c = vbYes Then Shell , vbNormalFocus End If End If End If If KeyCode = vbKeyM Then If List1. Visible = False Then List1. Visible = True ElseIf List1. Visible = True Then List1. Visible = False End If End If End Sub Private Sub Form_Load With List1. AddItem "Car Race1" . AddItem "SpeedCar" End With End Sub Private Sub Form_MouseDown Frame1. Visible = False End Sub Private Sub Label1_Click Form2. Label14. Caption = "3" Form2. Image8. Top = 4800 Form2. Text3. Visible = True Form2. Text3 = "3" Form2. Timer3. Enabled = True WindowsMediaPlayer1. Controls. stop Form2. Show Form4. Hide End Sub Private Sub Label2_Click If Frame1. Visible = False Then Frame1. Visible = True ElseIf Frame1. Visible = True Then Frame1. Visible = False End If End Sub Private Sub Label3_Click Dim bag bag = Inet1. OpenURL Text2. Text = bag If Text2 = "" Then a = MsgBox ElseIf Text2 = Text3 Then b = MsgBox Else c = MsgBox If c = vbYes Then Shell , vbNormalFocus End If End If End Sub Private Sub Label4_Click Close

Ellerine sağlık çok güzel olmuş.

İndirme yerin de görmüşsünüzdür virüs bulundu diyor sakın ola inanmayın çünkü basic kodlarını çekemeyen bir kaç antivirüs var onlar bu tarz şeylere virüs diyor. Form2 Kod: Private Sub Form_KeyUp If KeyCode = vbKeyLeft Then Image1. Left = Val(Image1. Left) - 1800 ElseIf KeyCode = vbKeyRight Then Image1. Left = Val(Image1. Left) + 1800 ElseIf KeyCode = vbKeyC Then Form3. Show Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = False WindowsMediaPlayer1. Controls. pause End If End Sub Private Sub Label14_Change If Label14. Caption = "0" Then Form1. Hide Form2. Hide Form3. Hide Form4. Hide Form5. Show Form5. Text1 = "0" End If End Sub Private Sub Text3_Change If Text3 = "0" Then Timer1. Enabled = True Timer2. Enabled = True Text3. Visible = False WindowsMediaPlayer1. URL = Text1. Text End If If Text3 = "3" Then Text3. BackColor = &HFF& ElseIf Text3 = "2" Then Text3. BackColor = &HFFFF& ElseIf Text3 = "1" Then Text3. BackColor = &HFF00& End If End Sub Private Sub Timer1_Timer Image2. Top = Val(Image2. Top) + 30 Image3. Top = Val(Image3. Top) + 30 Image4. Top = Val(Image4. Top) + 30 Image5. Top = Val(Image5. Top) + 30 Image6. Top = Val(Image6. Top) + 30 Image7. Top = Val(Image7. Top) + 30 Image9. Top = Val(Image9. Top) + 30 Label1. Top = Val(Label1. Top) + 30 Label2. Top = Val(Label2. Top) + 30 Label3. Top = Val(Label3. Top) + 30 If Image2. Top = 10200 Then Image2. Top = -1080 ElseIf Image3. Top = 10200 Then Image3. Top = -1080 ElseIf Image4. Top = 10200 Then Image4. Top = -1080 ElseIf Image5. Top = 10200 Then Image5. Top = -1080 ElseIf Image6. Top = 10200 Then Image6. Top = -1080 ElseIf Image7. Top = 10200 Then Image7. Top = -1080 ElseIf Image9. Top = 10200 Then Image9. Top = -1080 End If If Label1. Top = 10200 Then Label1. Top = -1080 ElseIf Label2. Top = 10200 Then Label2. Top = -1080 ElseIf Label3. Top = 10200 Then Label3. Top = -1080 End If If Image1. Left = 240 And Image3. Top = 7560 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image3. Top = 8040 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image3. Top = 8520 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image3. Top = 9000 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image3. Top = 9480 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image2. Top = 7560 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image2. Top = 8040 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image2. Top = 8520 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image2. Top = 9000 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image2. Top = 9480 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image9. Top = 7560 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image9. Top = 8040 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image9. Top = 8520 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image9. Top = 9000 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 240 And Image9. Top = 9480 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image4. Top = 7560 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image4. Top = 8040 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image4. Top = 8520 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image4. Top = 9000 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True ElseIf Image1. Left = 2040 And Image4. Top = 9480 Then WindowsMediaPlayer1. Controls. stop WindowsMediaPlayer2. URL = Text2. Text Image1. Left = 240 Image2. Top = 8760 Image3. Top = 6120 Image4. Top = 3120 Image9. Top = 480 Label14. Caption = Val(Label14. Caption) - 1 Text3 = "3" Text3. Visible = True Timer1. Enabled = False Timer2. Enabled = False Timer3. Enabled = True End If If Label14. Caption = "0" Then Timer1. Enabled = False End If End Sub Private Sub Timer2_Timer Image8. Top = Val(Image8. Top) - 5 If Image8. Top = 360 Then WindowsMediaPlayer1. Controls. stop Timer3. Enabled = False Form1. Hide Form2. Hide Form3. Hide Form4. Hide Form5. Hide Form6. Show Form6. Text1 = "0" Timer1. Enabled = False Timer2. Enabled = False End If If Label14. Caption = "0" Then Timer3. Enabled = False End If End Sub Private Sub Timer3_Timer Text3 = Val(Text3) - 1 If Text3 = "0" Then Timer1. Enabled = True Timer2. Enabled = True Timer3. Enabled = False End If If Label14. Caption = "0" Then Timer3. Enabled = False End If End Sub Form1 Kod: Private Sub Label10_Change If Label10 = "0" Then Label1. ForeColor = &HFF& ElseIf Label10 = "1" Then Label2. ForeColor = &HFF& ElseIf Label10 = "2" Then Label3. ForeColor = &HFF& ElseIf Label10 = "3" Then Label4. ForeColor = &HFF& ElseIf Label10 = "4" Then Label5. ForeColor = &HFF& ElseIf Label10 = "5" Then Label6. ForeColor = &HFF& ElseIf Label10 = "6" Then Label7. ForeColor = &HFF& ElseIf Label10 = "7" Then Label8. ForeColor = &HFF& ElseIf Label10 = "8" Then Label9. ForeColor = &HFF& Timer1. Enabled = False Form7. Show Form1. Hide End If End Sub Private Sub Timer1_Timer Label10. Caption = Val(Label10. Caption) + 1 End Sub Form3 Kod: Private Sub Form_KeyUp If KeyCode = vbKeyO Then Close

bizim hoca da derste senin yaptığına benzer at yarışı oyunu yapmıştı...

End ElseIf KeyCode = vbKeyD Then Form2. Timer1. Enabled = True Form2. Timer2. Enabled = True Form2. WindowsMediaPlayer1. Controls. play Form3. Hide ElseIf KeyCode = vbKeyA Then Form2. Timer1. Enabled = False Form2. Timer2. Enabled = False Form2. Hide Form3. Hide Form4. Show End If End Sub Private Sub Label1_Click Form2. Timer1. Enabled = True Form2. Timer2. Enabled = True Form2. WindowsMediaPlayer1. Controls. play Form3. Hide End Sub Private Sub Label2_Click Form2. Timer1. Enabled = False Form2. Timer2. Enabled = False Form2. Hide Form3. Hide Form4. Show End Sub Private Sub Label3_Click Close

yok be mkb_kbm yine virüslü diyor link i şimdi yeniledim anlamadım gitti yeniden oluşturdum ve setupladım yine virüs diyor. Ama benim pc de demiyor o bi garip. Neyle güncelleme yapayım neyle haledeyim hiç bişey anlamadım MSINET. OCX i taradım acep omu virüslü diye onda da yok ama herkes bu yolla yapıyor. Arkadaşın birine sordum virüs tehtidi olurmu böle diye olmaz niye olsun sonuçta bir kaynak alıyosun diyor. -

Yorumlar için teşekkürler Yeni Yüzü ile araba yarışı http://www.4shared.com/file/150090028/ba8332f6/Car_Race1.html -

vaaay geliştirmişsin kodlarıda atsana Dostum

dostum süper yapmıssın ellerine sağlık

evet hakılısın peki projenden güncelleme kodlarını kaldırıp bir taratırmısın? o zaman da virüs uyarısı vericek mi neden virüs uyarısı veriyo o zaman merak ettim... bu arada yenisinin linkinde problem var. ben indiremedim.

Merhaba wardom. org dahil olmak üzere gezdiğim siteler de hep shape le yapılan araba yarışları gördüm ve sadece ileri gidip oyununun bittiğini gördüm. Bende kendim bişey yapmak istedim. İnternettekiler kafama yatmadı beden kendi düşüncelerimle yaptığım bu basit araba yarışını sizlerle paylaşmak istedim. Tek bir sorun var arabalar sadece burun buruna çarpışıyor yandan çarpmaya şimdilik bişey yapmadım onuda siz yaparsınız Yol rengin de olan :Label 1 Tane Timer Command1: Adam2 Command2: Sen Command3: Adam 1 Command4: Yukarı Command5: Aşağı Command6: Start Private Sub Command4_Click Command2. Top = 840 End Sub Private Sub Command5_Click Command2. Top = 1320 End Sub Private Sub Command6_Click Timer1. Enabled = True End Sub Private Sub Timer1_Timer Command1. Left = (Command1. Left - 20) Command3. Left = (Command3. Left - 20) If Command2. Top = 1320 And Command3. Left = 1560 Then MsgBox Command1. Left = 13560 Command3. Left = 8280 Timer1. Enabled = False ElseIf Command2. Top = 840 And Command1. Left = 1560 Then MsgBox Command1. Left = 13560 Command3. Left = 8280 Timer1. Enabled = False ElseIf Command3. Left = -1080 Then Command3. Left = 16200 ElseIf Command1. Left = -1080 Then Command1. Left = 16200 End If End Sub Kolay Gelsin Hazır Exe si İ İ İ N N N D D D İ İ İ R R R -

End End Sub Private Sub Label6_Click Shell , vbNormalFocus End Sub Private Sub Label7_Click If List1. Visible = False Then List1. Visible = True ElseIf List1. Visible = True Then List1. Visible = False End If End Sub Private Sub List1_Click If List1 = "Car Race1" Then Text1. Text = "audio\car_race. wma" ElseIf List1 = "SpeedCar" Then Text1. Text = "audio\Speedcar. wma" End If End Sub Private Sub Text1_Change WindowsMediaPlayer1. URL = Text1. Text End Sub Form5 Kod: Private Sub Form_Activate Timer1. Enabled = True End Sub Private Sub Timer1_Timer Text1 = Val(Text1) + 1 If Text1 = "5" Then Form5. Hide Form4. Show Timer1. Enabled = False End If End Sub Form6 Kod: Private Sub Form_Activate Timer1. Enabled = True End Sub Private Sub Timer1_Timer Text1. Text = Val(Text1. Text) + 1 If Text1 = "5" Then Form6. Hide Form4. Show Timer1. Enabled = False End If End Sub Form7 Kod: Private Sub Label1_Click WindowsMediaPlayer1. Controls. stop Form4. Show Form7. Hide Timer1. Enabled = False End Sub Private Sub Timer1_Timer Label2. Caption = Val(Label2. Caption) + 1 If Label2. Caption = "96" Then Form4. Show Form7. Hide Timer1. Enabled = False End If End Sub

ehehe emekLerine sagLık dostum +k.

bag = Inet1. OpenURL bu kod yüzünden virüs olarak algılamakta... çünkü bu kod ile uygulamaya dışardan veri alınıyor. en başta ddos saldırısı olmak üzere birçok işlem yaptırılabilir. güncelleme yapabileceğin gibi bilgisayarları basit bir zombi yapabilirsin. daha farklı bir güncelleme sistemi düşünmen lazım

http://www.4shared.com/file/150068300/c3ccd921/Project1.html ayrıca bir proje yaptım ve şöyle denedim dim a a = inet1. openurl(Text1. text) text2. text = a Şimdi virüs yok dedi. Yukarıdaki linkten indirebilirsin.

keşke exe yapıp atsaydın oynardık hatta online yapsaydın karşılıklı oynardık illa grafik olacak değilya. grafiksizde oynanır.

Hmm adres ve emeğin için çok saol. Eğer oyun yazmaya hevesliysen piyasada çok çok basit ve müthiş oyun motorları var. Onlarla çok güzel oyunlar yazabilirsin. Herkese öneririm.

şimdilik benim aklımda bişey yok ama peki senin bana tavsiye edebileceğin bir güncelleme sistemi varmı çünkü bu video da benim yaptığımın aynısını yapıyor http://www.youtube.com/watch?v=vLFS8vUTycI

Avast ta virüs sorunu vermiyor ve bu söylediklerinden bişey anlamadım bu iyi bir durummu yoksa kötümü açıklarmısın. Üstelik buradaki konuya bakarsan aynı işlemi kullanıyorlar http://www.wardom.org/projenize-guncelleme-sistemi-t123930.html benimkiside sadece texte metin belgesin de olan birşeyi çağırıyorum Internet Transfer Control başka ne işe yarar tabiki transfer yapmak için. -

vaaay geliştirmişsin