kardeş o rnd 100 den önce randomize yaz

Suk1y3n hemen sorulara cevap bulmuşun

Merhaba arkadaşlar vb'de yeniyim bi kaç sorum olacak... 1-)VB'de rnd sayı komutunu verdiğimde neden programı her çalıştırdığımda aynı değerleri veriyor. Bunu nasıl önleyebilirim?... 2-)Mesela fotoşop )) ta arka planı transparan yapabiliyoruz. Bende transparan yapabilmeyi isterdim rgb kodunda k y m yerine ne yazmam gerekiyor yada başka yolu mu var? 3-)Modül ne işe yarıyor tam olarak anlamadım. Önemli bi rolu var galiba... Şimdiden teşekkürler... 4-)Ha unutmadan bi paint yapayım dedim ama daireyle karede takılıyorum. mesela daire butonuna tıkladıktan sonra fareyle tıkladığım yeri merkez alıyorum sonra farenin x ekseninde aldıgı yol ile merkezin mutlak değerini yarı çap veriyorum. Buraya kadar her şey normal fakat fareyi çap belirlemek için oynatırken bir sürü istenmeyen daire çiziyor. Farenin tuşunu bıraktıgımda 1 tane daire olmasını istiyorum. bunuda şöyle çözerim dedim. Fare oynatışlarımda picture1. cls veya picture1. refresh yapıyorum bu sefer önceden çizdiğim çizgi yada daireler kayboluyo... Biraz uzun oldu ama daha başlangıçtayım kafamda çok soru var... Tekrar teşekkürler.

öncelikle teşekkürler ilgilendiğin için... malum final zamanı bayramdan beri dışarıya çıkamadım. 1. sorum: ben mesela söyle bi program yazıyorum private sub command1_click print rnd 100 end sub kodlar yanlışsa kusura bakma daha acemiyim ama önemli olan "print rnd 100" kısmı. şimdi bu programı çalıştırdığımda butona tıkladığımda foruma 78 yazıyo 2. tıklayışımda 52 3. tıklayışımda 24 yazıyo... programı tekrar çalıştırıyorum butona tıklıyorum yime 78 2. tıklayışta yine 52 3. tıkda yine 24... neden hep aynı rast gele degerleri veriyor?ben her program çalışmasında butona tıkladığımda ayrı değerler vermesini istiyorum. 2. soru: visual basic transparan yapamıyormu?bu büyük bi eksiklik değilmi? 3. soruyu yanlış anlamışsınız sanırım."mod" fonksiyonunu değilde hani programa yeni "form", "modül", "user controls" falan ekliyoruz ya, ben o modülü sormuştum. 4. sorunun cevabını indirdim evde inceliyecem... Tekrar tekrar çok teşekkür ettim ilgilendiğin için...

1-) Bu Soruyu Biraz Açıklarsan iyi Olur.. 2-) Sanırım VB'de Arkapilan'ı Transparan Yapma Yoktu Ama Ona Benzer Şeyleri NET'te Arıyarak Bulabilirsin.. 3-) Kod: Mod fonksiyonu kullanımı Merhaba arkadaşlar, mod fonksiyonu bilindiği üzere önemli bir matematik konusu olan Modüler Aritmetik'in kısaltılmış biçimidir. Bu konunun neyi amaçladığı yönünde fazla detaylı bilgiye girmeden şunu bilmek yeterli, modüler aritmetik bir sayının diğer sayıya bölünmesinden kalan sayıları dikkate alır. Hazırladığım programda bu komuttan yararlandım. Bu komutun yazılış biçimi şöyledir: = c Burada "a" bir sayı, "b" diğer sayı, "c" ise "a" nın "b" ile bölümünden kalan sayıdır. Bu ifade programda kullandığım gibi çeşitli döngülerle şartlandırılabilir. Örneğin 1'den 10'a kadar olan sayılardan tek olanları bulan bir program olabilir. Form üzerine 1 adet list box ve formu çift tıklayıp aşağıdaki kodu yapıştırın. Dim i as Integer For i = 1 To 10 If (i Mod 2) &lt&gt 0 Then List1. AddItem i End If Next Şimdi mod fonksiyonunu kullanarak benzer işlemleri yapan programı hazırlayalım. Gerekli malzeme 1 adet ListBox, 2 adet TextBox, 1 adet CommandButton, 3 adet Label, 1 adet Frame ve bu Frame'nin üzerine 3 adet OptionButton 1 adet ProgressBar. Malzemeleri form üzerine aşağıdaki gibi yerleştirebilirsiniz. Formda görüldüğü gibi button üzerine resim isterseniz yapıştırabilirsiniz. Şimdi ise aşağıdaki kodu General Declarations kısmına yapıştırın. Private Sub Command1_Click Dim i, j As Integer On Local Error Resume Next Label1. Visible = True ProgressBar1. Visible = True ProgressBar1. Min = 0 ProgressBar1. Max = Val(Text2) ' If Option1. Value = True Then 'Tek sayılar sekmesi seçili ise List1. Clear For i = Val(Text1) To Val(Text2) If (i Mod 2) <> 0 Then List1. AddItem i ProgressBar1. Value = i End If Next End If ' If Option2. Value = True Then 'Çift sayılar sekmesi List1. Clear For i = Val(Text1) To Val(Text2) If (i Mod 2) = 0 Then List1. AddItem i ProgressBar1. Value = i End If Next End If ' If Option3. Value = True Then 'Asal sayı sekmesi List1. Clear ProgressBar1. Min = 0 ProgressBar1. Max = Val(Text2) - Val(Text1) For i = Val(Text1) To Val(Text2) asal = True ProgressBar2. Min = 2 ProgressBar2. Max = i ProgressBar1. Value = i - Val(Text1) For j = 2 To i - 1 ProgressBar2. Value = j DoEvents If = 0 Then '&lt--Eğer tam bölünüyorsa asal = False '&lt--Asal değildir Exit For End If Next If asal Then List1. AddItem i Next End If End Sub Private Sub Form_Load ProgressBar1. Visible = False Label1. Visible = False End Sub Private Sub Form_MouseMove ProgressBar1. Visible = False Label1. Visible = False End Sub Şimdi artık run (F5) ve program hazır TextBox1 ile TextBox2 arasındaki sayılar için tek olanlar, çift olanlar ve asal olanları bulan operatörünüz sizi bekliyor. Bütün programcı arkadaşlara başarılar diliyorum. Kaynak : Mustafa Aygün 4-) Bu Sorunun için 3 Tane Çizim Örneği Upload Ettim Burdan İndirebilirsin..