trll_pwll Posted November 7, 2010 Share Posted November 7, 2010 Arkadaslar Visual Basicte kullandigimiz : GoTo kodunu Autoitte kullanamiyoruz anladigim kadariyla. Peki yerine ne kullanilabilir? Okadar arastirmama ragmen isime yarayan birsey bulamadim. Saygilarimla... Link to comment Share on other sites More sharing options...
blackman12 Posted November 7, 2010 Share Posted November 7, 2010 goto yerine call u kullanabiliriz ya da direk fonksiyonu çalıştırabilirsin.sen tam bir örnek ver ne yapmak istediğine dair ona göre bakalım if then else endif kullanabilirsin mesela duruma göre. Link to comment Share on other sites More sharing options...
trll_pwll Posted November 7, 2010 Author Share Posted November 7, 2010 Kisaca sadece gerekli kismi yazarak anlatmaya calisayim... Bi form tablosu hazirladim. Button4e basilinca harf girilmesini istemiyorum. Oyüzden asagidaki if komutunu kullandim. Visual basicte if komutunun sonuna goto kodu ile islemi basa döndürebiliyoruz. ama bunda beceremedim. [code]While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button4 $sayi = InputBox("İsteğe Bağlı Sayı Girişi " , "Tahmin Edilmesini İstediğiniz Sayıyı Giriniz" , "" , "*2") If $sayi < 1 Then [color="#FF0000"][i]($Button4 islemini basa döndürmek istedigim yer)[/i][/color] EndSwitch WEnd[/code] Aciklayabildim mi? Link to comment Share on other sites More sharing options...
blue_life Posted November 7, 2010 Share Posted November 7, 2010 @trll_pwll Tekrar bir döngü içinde kontrol yapabilirsin... [codebox]Do $sayi = InputBox("İsteğe Bağlı Sayı Girişi " , "Tahmin Edilmesini İstediğiniz Sayıyı Giriniz" , "" , "*2") ;~ If @error Then ExitLoop ;~ If $sayi > 90 Then ExitLoop ;Sayı 90 den büyükse... Until $sayi < 1 ;$sayi 1 den küçük olana kadar... MsgBox(64,"",$sayi)[/codebox] Link to comment Share on other sites More sharing options...
trll_pwll Posted November 7, 2010 Author Share Posted November 7, 2010 [code] Case $Button4 Do $sayi = InputBox("İsteğe Bağlı Sayı Girişi " , "Tahmin Edilmesini İstediğiniz Sayıyı Giriniz" , "" , "*2") Until $sayi > 0 MsgBox(64,"",$sayi) [/code] Bu kod simdilik isimi gördü gibi. GoTo olmamasi gercekten büyük eksiklik ama sizin gibi degerli TNCTR ekibi sayesinde her eksiklik doldurulabiliyor. Cok tesekkürler. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.