Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Şimdi Ara
D
@daadaass
onbaşı
"onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir.
Diğer rütbeleri gör

0 takipçi
Özel Mesaj

Onbaşı
28 Nisan 2008
Tarihinde Katıldı
Takip Ettikleri
0 üye
Görüntülenme
Toplam: 3 (Bu ay: 0)
Fırsat Ekle
Gönderileri
D
daadaass (Ridvan Türk) · Projeler altına konu açtı. 16 yıl

Yapdığım Araba Yarışındaki Eksiklikler İçin Yardım

evet abilelerim. okuldan verilen 3. sınav notumuzu almak için verilen ödevlerden aldığım araba yarışını Yapdım. ama eksıklıklerım çok var bunlar için yardım istiyorum... (araba yarışı 2 arabayı yarıstırmak deil üstten gelen butonlardan arabayı sağa sola kaçırmak eskiden tetrislerimizde vardı... sağa sola kaçardık hızlanırdı... bunlar seviye seviye..)



İŞTE KODLAR;


PublicClass Form1
Dim randomclass AsNew Random
Dim a, b AsIntegerDim yeni, yeni1 AsNew Button

PrivateSub Button1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp

If e.KeyCode = Keys.Right Then
Button1.Left += 20
ElseIf e.KeyCode = Keys.Left Then
Button1.Left -= 20
ElseIf e.KeyCode = Keys.Down Then
Button1.Top += 20
ElseIf e.KeyCode = Keys.Up Then
Button1.Top -= 20
EndIf
EndSub



PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.KeyPreview = True
Timer5.Start()
EndSub

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
a = randomclass.Next(35, 275)
yeni.SetBounds(a, 0, 50, 20)Me.Controls.Add(yeni)
Timer2.Start()
Timer1.Stop()
EndSub

PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
yeni.Top += 5
If yeni.Top > Button1.Top Then
Timer1.Start()
Timer2.Stop()
EndIf
If (yeni.Top > Button1.Top - 100) And yeni.Top < Button1.Top - 190 Then
Timer3.Start()
EndIf

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer5.Start()
Timer1.Start()
Button2.Visible = False
EndSub


PrivateSub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
yeni1.Top += 5
If yeni1.Top > Button1.Top Then
Timer3.Start()
Timer4.Stop()
EndIf
EndSub

PrivateSub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
a = randomclass.Next(35, 275)
yeni1.SetBounds(a, 0, 50, 20)Me.Controls.Add(yeni1)
Timer3.Stop()
Timer4.Start()
EndSub

PrivateSub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If yeni.Top = Button1.Top Or yeni1.Top = Button1.Top ThenMsgBox("yandın")
Me.Close()
EndIfEndSub
EndClass



eksiklikler;

1-Yukarıdan gelen Butonlar, benım butona(arabaya) çarptıkları zaman msgboxda yandın çıkıo bidaha deva edior.

2- sağ ve sol tarafa kırmızı alan yapdım pictureboxda, orta taraf siyah butonlar siyah tarafdan gelsın dıe(yol olsun die yani) kırmızı tarafdan yolun dışı gözüksün die yani ama benım araba o kırmızı nın yanı yolun sağına solunada gidio. bunu engellemek istiyom.

3- seviye koymak istiyorum level atmasını istiyorum...
1 Yanıt Yanıtla Favorilere Ekle 0
D
daadaass (Ridvan Türk) · Delphi / C++ /Vb altına konu açtı. 16 yıl

Yapdığım Araba Yarışındaki Eksiklikler İçin Yardım...

evet abilelerim. okuldan verilen 3. sınav notumuzu almak için verilen ödevlerden aldığım araba yarışını Yapdım. ama eksıklıklerım çok var bunlar için yardım istiyorum... (araba yarışı 2 arabayı yarıstırmak deil üstten gelen butonlardan arabayı sağa sola kaçırmak eskiden tetrislerimizde vardı... sağa sola kaçardık hızlanırdı... bunlar seviye seviye..)



İŞTE KODLAR;


PublicClass Form1
Dim randomclass AsNew Random
Dim a, b AsIntegerDim yeni, yeni1 AsNew Button

PrivateSub Button1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp

If e.KeyCode = Keys.Right Then
Button1.Left += 20
ElseIf e.KeyCode = Keys.Left Then
Button1.Left -= 20
ElseIf e.KeyCode = Keys.Down Then
Button1.Top += 20
ElseIf e.KeyCode = Keys.Up Then
Button1.Top -= 20
EndIf
EndSub



PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.KeyPreview = True
Timer5.Start()
EndSub

PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
a = randomclass.Next(35, 275)
yeni.SetBounds(a, 0, 50, 20)Me.Controls.Add(yeni)
Timer2.Start()
Timer1.Stop()
EndSub

PrivateSub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
yeni.Top += 5
If yeni.Top > Button1.Top Then
Timer1.Start()
Timer2.Stop()
EndIf
If (yeni.Top > Button1.Top - 100) And yeni.Top < Button1.Top - 190 Then
Timer3.Start()
EndIf

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer5.Start()
Timer1.Start()
Button2.Visible = False
EndSub


PrivateSub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
yeni1.Top += 5
If yeni1.Top > Button1.Top Then
Timer3.Start()
Timer4.Stop()
EndIf
EndSub

PrivateSub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
a = randomclass.Next(35, 275)
yeni1.SetBounds(a, 0, 50, 20)Me.Controls.Add(yeni1)
Timer3.Stop()
Timer4.Start()
EndSub

PrivateSub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If yeni.Top = Button1.Top Or yeni1.Top = Button1.Top ThenMsgBox("yandın")
Me.Close()
EndIfEndSub
EndClass



eksiklikler;

1-Yukarıdan gelen Butonlar, benım butona(arabaya) çarptıkları zaman msgboxda yandın çıkıo bidaha deva edior.

2- sağ ve sol tarafa kırmızı alan yapdım pictureboxda, orta taraf siyah butonlar siyah tarafdan gelsın dıe(yol olsun die yani) kırmızı tarafdan yolun dışı gözüksün die yani ama benım araba o kırmızı nın yanı yolun sağına solunada gidio. bunu engellemek istiyom.

3- seviye koymak istiyorum level atmasını istiyorum...
Yanıt Yok Yanıtla Favorilere Ekle 0
D
daadaass (Ridvan Türk) · Projeler altına konu açtı. 16 yıl

vs Basic Bilenler YARINA KADAR BANA YARDIMM

ir işletme çalışanlara normal maaşlarından ayrı ek ücret ödiyecekmiş ek ücret aşağıdaki gibidir..

erkeler için;
çalıştığı fazla mesai saati 10 dan az ise 50 ytl /saat
çalıştığı fazla mesai saati 10 ile 20 arasında ise 65 ytl/saat
çalıştığı fazla mesai saati 20 den fazla ise 80 ytl/saat


bayanlar için;

Çalıştığı Fazla Mesai Saati 10 dan az ise 60 ytl/saat
Çalıştığı Fazla Mesai Saati 10 dan fazla ise 80ytl/saat


ayrıca personele ürettiği ürün başına 30 ytl ek ücret verilecektir buna göre personelin girilecek değere göre bir personelin alacağı parayı hesaplayan programı yapınız.....





Bu program belki basıt olabılır ama biri bana bu kodları yollarsa çok sevinirim zamanım çok kısıtlı ABİLERİM ABLALARIM Lütfen YARDIM
7 Yanıt Yanıtla Favorilere Ekle 0
D
daadaass (Ridvan Türk) · Projeler altına konu açtı. 16 yıl

en sıfırdan bilgi sahıbı olmak istiyorum. YARDIM

meslek lisei 3 sınıf öğrencisiyim sitede yenıyım öncelikle hangı konu nerde açılır onu bılmedıgım ıcn burya yazdım yanlışsa özür dilerim


wep tasarım dersleri okulda verilmediği için kendım öğrenmeye çalışıyorum. bu wep tasarım en bastan en sona nasıl olur biri bana anlatabılırmı...

yani;
en basta hostdomaınmı alınır.hangi program kurulur,nasıl yayınlanır gibisinden...
5 Yanıt Yanıtla Favorilere Ekle 0
D
daadaass (Ridvan Türk) · Yazılım Genel altına konu açtı. 17 yıl

autocat dersleri verebilecek ücretsiz site aranıyor. YARDIM!!!

arkadaşlar ücretsiz autocat dersleri veren siteleri biliyorsanız yazabilirmisiniz.ama aotucat ile ilgili herşeyi öğreten videolarla felan hiç bilmeyen birinin orda herşeyi öğrenebileceği bir site arıyorum... yardımlarınızı bekliyorum...
3 Yanıt Yanıtla Favorilere Ekle 0
D
daadaass (Ridvan Türk) · Projeler altına konu açtı. 17 yıl

PAZARTESINE KADAR ÇOK ACIL YARDIM....

OKULDAN VERILEN BIR ÖDEVDIR BU ÇOK UĞRAŞDIM YAPAMADIM..

ÖDEV KONUSU: QBASİC PROGRAMINDA ÇALIŞTIRALCAK DIR BU PROGRAM BİR İSİM GİRDİKDEN SONRA BU İSMİ "ÖRNEĞİN MAHMUT DİYELİM BU İSME"

M
MA
MAH
MAHM
MAHMU
MAHMUT

DİE YAZDIRSIN BİRİ BANA BUNUN KODLARINI YOLLAYABILIRMI



NOT:HANGİ BAŞLIK HANGİ BÖLÜMÜ YAZILDIĞINI BİLMEDİĞİM İÇİN YAZILIM BÖLÜMÜNE YAZDIM EĞER YANLIŞ BÖLÜME YAZMIŞSAM SA LÜTFEN KALDIRMAYIN OKULUN SON GÜNLERİ BU ÖDEV BANA ÇOK LAZIM....
4 Yanıt Yanıtla Favorilere Ekle 0
Hakkında
Konum: Erzurum
Forum İmzası:
.........
Temel Bilgiler ve İstatistikler
Aktiflik: Şu anda DH'de değil
Son Giriş: 15 yıl önce
Son Mesaj Zamanı: 16 yıl
Mesaj Sayısı: 27
Gerçek Toplam Mesaj Sayısı: 30
İkinci El Bölümü Mesajları: 2
Konularının görüntülenme sayısı: 649 (Bu ay: 18)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Web Tasarım - Programlama
Mesajları
İkinci El Referansları
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum