metboy Mesaj tarihi: Temmuz 19, 2003 Mesaj tarihi: Temmuz 19, 2003 ya ben daha öncede açmıştım buraya topic v.basic le ilgili şimdi yazmaya çalıştığım program 2. derece denklem çözümü yapçak :) şimdik her şeyi ayrı ayrı formlarda sıraylan incelettim ama sabahtan akşama kadar uğraştığım şeylerin sonu yine aynı şeye çıktı böhüh. ben şu scripti nereye koymam lazım ki sonucunu alayım. en son formda timer a koydum yapmadı timer. scp ler öle bi karıştıki kendi yazdığım şeyleri bulamıom. siz yne bi bkaın If Label7.Tag = "küçük" And Label4.Tag = "büyük" Then lblSonuc1.Caption = "x1<0 ElseIf Label7.Tag = "küçük" And Label4.Tag = "küçük" Then lblSonuc1.Caption = "x2<0 ElseIf Label7.Tag = "eşit" And Label4.Tag = "büyük" Then lblSonuc1.Caption = "0 ElseIf Label7.Tag = "eşit" And Label4.Tag = "küçük" Then lblSonuc1.Caption = "x1,x2<0 yani iki kökte -" ElseIf Label7.Tag = "küçük" And Label4.Tag = "büyük" Then lblSonuc1.Caption = "x1=0, x2<0 yani köklerden biri 0 biri -" ElseIf Label7.Tag = "küçük" And Label4.Tag = "küçük" Then lblSonuc1.Caption = "x1=0, x2>0 yani köklerden biri 0 biri +" End If If Label8.Tag = "küçük" And Label5.Tag = "büyük" Then lblSonuc2.Caption = "x1<0 ElseIf Label8.Tag = "küçük" And Label5.Tag = "küçük" Then lblSonuc2.Caption = "x2<0 ElseIf Label8.Tag = "eşit" And Label5.Tag = "büyük" Then lblSonuc2.Caption = "0 ElseIf Label8.Tag = "eşit" And Label5.Tag = "küçük" Then lblSonuc2.Caption = "x1,x2<0 yani iki kökte -" ElseIf Label8.Tag = "küçük" And Label5.Tag = "büyük" Then lblSonuc2.Caption = "x1=0, x2<0 yani köklerden biri 0 biri -" ElseIf Label8.Tag = "küçük" And Label5.Tag = "küçük" Then lblSonuc2.Caption = "x1=0, x2>0 yani köklerden biri 0 biri +" End If If Label9.Tag = "küçük" And Label6.Tag = "büyük" Then lblSonuc3.Caption = "x1<0 ElseIf Label9.Tag = "küçük" And Label6.Tag = "küçük" Then lblSonuc3.Caption = "x2<0 ElseIf Label9.Tag = "eşit" And Label6.Tag = "büyük" Then lblSonuc3.Caption = "0 ElseIf Label9.Tag = "eşit" And Label6.Tag = "küçük" Then lblSonuc3.Caption = "x1,x2<0 yani iki kökte -" ElseIf Label9.Tag = "küçük" And Label6.Tag = "büyük" Then lblSonuc3.Caption = "x1=0, x2<0 yani köklerden biri 0 biri -" ElseIf Label9.Tag = "küçük" And Label6.Tag = "küçük" Then lblSonuc2.Caption = "x1=0, x2>0 yani köklerden biri 0 biri +" End If nereye koycam bunu böhüh verdiğim tag ler çok karışmasın overflow olmasın die. mesela -b/a < 0 dır ben onu "küçük" yapmışımdır. öle yani[hline]And I find it kinda funny, I find it kinda sad The dreams in which I'm dying are the best I've ever had
Mendoza Mesaj tarihi: Temmuz 19, 2003 Mesaj tarihi: Temmuz 19, 2003 Metboycum, -Ya programı buraya koy bakalım -Ya derdini tamamiyle anlat anlayalım. Ben birşey anlamdım neyi yapmaya çalıştığından. Biraz anladığım, bu kodu nereye koymak istediğin galiba. Command button'a koy. Inputları da düzgün yerşeltir çalışır neden çalışmasın... Kod kolay if then den başka birşey yok. Sen biraz daha açıkla, yardımcı olmaya çalışalım bildiğimiz kadarıyla...[hline]Lady Melina Uvu Ne kibar erkekler var şu dünyada...
metboy Mesaj tarihi: Temmuz 20, 2003 Konuyu açan Mesaj tarihi: Temmuz 20, 2003 abi commmand buttona koyamam ki en son formda artık olması lazım her şeyin :) ya bütün programı koyayım istiosan burayada çok uzun sürcek valla[hline]And I find it kinda funny, I find it kinda sad The dreams in which I'm dying are the best I've ever had
Mendoza Mesaj tarihi: Temmuz 20, 2003 Mesaj tarihi: Temmuz 20, 2003 Sen upload et biryere programı. Linkini de koy buraya. Biz bakmaya çalışalım...[hline]Lady Melina Uvu Ne kibar erkekler var şu dünyada...
DeMiRMaSKe Mesaj tarihi: Temmuz 20, 2003 Mesaj tarihi: Temmuz 20, 2003 metboy bu kodu bütün olayın sonuçlandığı yere koyacaksın. Mesela son girişin yapıldığı noktaya.[hline]What if the prophecy is true What if tomorrow the war could be over? Isn't that worth fighting for? Isn't that worth dying for?
metboy Mesaj tarihi: Temmuz 21, 2003 Konuyu açan Mesaj tarihi: Temmuz 21, 2003 abi şöle oldu bakın bu source bu da exe . Şimdilik kullanıcı arabirimini düzgünleştirmedim fln. Kusra bakmayın artık :)[hline]And I find it kinda funny, I find it kinda sad The dreams in which I'm dying are the best I've ever had [Bu mesaj metboy tarafından 21 July 2003 13:13 tarihinde değiştirilmiştir]
Öne çıkan mesajlar