VB.Net

ktasezen

Öncelikle bu platformda ve vb.net dilinde gerçekten çaylak olduğumu bilmenizi isterim. Benim bir sorum var, yaklaşık 3 saattir hiç bir ilerleme kat edemediğim için sizlere sormak istedim. Bilen biri için çok basit olduğunu düşünüyorum.

Textbox’tan girilen sayı tek ise 3 ile çarpıp 1 eklenecek eğer çift ise 2 ile bölünecek bu işlem sayı "1" oluncaya kadar devam etmesi gerekiyor. Bu işlemin kaç adım sürdüğünü (işlem sayısı), işlem sırasında sayının aldığı maksimum değeri ve sayının hangi sayıdan sonra hep çift olarak 1’e ulaştığını bulan programın kodlarını VB.NET ile yazmaya çalışıyorum.

Yardımcı olabilecek var mı ? Gerçekten uğraştığımı, öğrenmeye çalıştığımı fakat yetmediğini bilmenizi isterim...

Halil Han BADEM

ktasezen Merhabalar,
kategoriden sorumlu moderatörümüz @ZekiGrsoy yardımcı olacaktır.

Yine de benimde yardımcı olabilmem adına kodlarınızı atarsanız düzenleme yapabilirim.

ktasezen

Halil Han BADEM Yukarıda dediğim gibi bişeyler karaladım ama doğru yoldamıyım onu bile bilmiyorum.

Dim sayi1 As Double
Dim tislem As Double
Dim sonuc As Double
Dim çislem As Double
Dim i As Double

Hesapla butonu click olayı

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
sayi1 = TextBox1.Text
çislem = sayi1 / 2
tislem = sayi1 * 3 + 1
If sayi1 Mod (2) = 1 Then
sonuc = tislem
MessageBox.Show("sayı tektir" + sonuc.ToString())
For i = 1 To i = 10
sonuc = sayi1 / 2
Next i
End If
End Sub

ZekiGrsoy

Kutuya yazılacak örnek bir sayı ile işlemlerin birkaç adımını yazarsanız soru daha anlaşılır olacak. Mevcut kod üzerinden soruda tarif edilenle kurulması beklenen algoritma (kendi adıma) pek anlaşılmıyor.