erendeniz Posted February 29, 2012 Share Posted February 29, 2012 S.a arkadaşlar ben fakülte içinbir ödev hazırlıyacam ama bir türlü yapamadım iki tane combox notaları yerleştirdim birinci comboboxda bir veriyi şeçicem sonra 2. comboboxda ta bir veri şececem sonra benim atadığım yazı inputta cıkacak yardımlarınızı esirgemeyin şimdidden teşekürler Do --> Do = benim belirlediğim yazıyı yazacak Do --> Re = benim belirlediğim yazıyı yazacak . . Sol --> Si = benim belirlediğim yazıyı yazacak [img]http://c1202.hizliresim.com/u/x/34du8.jpg[/img] Dosya : [code]http://www.upload.gen.tr/d.php/www/9omlm0jm/aral__ktablosu.apz.html[/code] Quote Link to comment Share on other sites More sharing options...
galetis Posted February 29, 2012 Share Posted February 29, 2012 Fikir versin diye söylüyorum, matris kullanarak yapabilirsin. Quote Link to comment Share on other sites More sharing options...
erendeniz Posted February 29, 2012 Author Share Posted February 29, 2012 matrisin ne oldugunu bilmiyorum Quote Link to comment Share on other sites More sharing options...
galetis Posted February 29, 2012 Share Posted February 29, 2012 Matematikteki matris. Burayada tablo olarak eklersin, 2 combobox'ın index değerini x,y olarak matristen çekersin. Quote Link to comment Share on other sites More sharing options...
NotToday Posted February 29, 2012 Share Posted February 29, 2012 pcde değilim kod yazamam ama mesela x=Combo.GetText() y=Combo.GetText() İf x=="Do" and y== "Do" than --Do-Do seçiliyken çalılacak kod. end Şeklinde yapılır ama hepsine ayrı ayrı yazman lazım Quote Link to comment Share on other sites More sharing options...
erendeniz Posted February 29, 2012 Author Share Posted February 29, 2012 müsait oldugunuz zaman bana bir tane küçük örnek hazırlayabilirmisiniz? zahmet olmazsa. Quote Link to comment Share on other sites More sharing options...
NotToday Posted February 29, 2012 Share Posted February 29, 2012 Sabah hazırlarım.Yanlız bu mesajı editler eklerim.O yüzden bakarak olun Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 realyman, her iki comboboxa 100'er satır veri girilecekse o zaman 100 üssü 100 olasılık oluyor ya da 100x100 işte her neyse. Hepsini bu şekilde mi belirleyecek? şu an için alternatif bir çözümüm yok ama bu şekilde de olmaz. Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted March 1, 2012 Share Posted March 1, 2012 (edited) Bilmediğimden tahmin yürüterek söylüyorum ; Excelde Veriyi hazırlayıp db ye atsak sonra db den verileri comboxa yazdırsak olmazmı ? ComboBox tan secilen verinin satırıda ınputa yazdırılsa. Bu arada Combinasyon bu kadar sanırım ( Tüm notaların Dönüşümü ) [codebox] ComboBox 1 ComboBox2 Açıklama Do Do Deneme Re Re Deneme Mi Mi Deneme Fa Fa Deneme Sol Sol Deneme La La Deneme Si Si Deneme Do Re Deneme Do Mi Deneme Do Fa Deneme Do Sol Deneme Do La Deneme Do Si Deneme Re Do Deneme Re Mi Deneme Re Fa Deneme Re Sol Deneme Re La Deneme Re Si Deneme Mi Do Deneme Mi Re Deneme Mi Fa Deneme Mi Sol Deneme Mi La Deneme Mi Si Deneme Fa Do Deneme Fa Re Deneme Fa Mi Deneme Fa Sol Deneme Fa La Deneme Fa Si Deneme Sol Do Deneme Sol Re Deneme Sol Mi Deneme Sol Fa Deneme Sol La Deneme Sol Si Deneme La Do Deneme La Re Deneme La Mi Deneme La Fa Deneme La Sol Deneme La Si Deneme Si Do Deneme Si Re Deneme Si Mi Deneme Si Fa Deneme Si Sol Deneme Si La Deneme Re Do Deneme Mi Do Deneme Fa Do Deneme Sol Do Deneme La Do Deneme Si Do Deneme Do Re Deneme Mi Re Deneme Fa Re Deneme Sol Re Deneme La Re Deneme Si Re Deneme Do Mi Deneme Re Mi Deneme Fa Mi Deneme Sol Mi Deneme La Mi Deneme Si Mi Deneme Do Fa Deneme Re Fa Deneme Mi Fa Deneme Sol Fa Deneme La Fa Deneme Si Fa Deneme Do Sol Deneme Re Sol Deneme Mi Sol Deneme Fa Sol Deneme La Sol Deneme Si Sol Deneme Do La Deneme Re La Deneme Mi La Deneme Fa La Deneme Sol La Deneme Si La Deneme Do Si Deneme Re Si Deneme Mi Si Deneme Fa Si Deneme Sol Si Deneme La Si Deneme [/codebox] Edited March 1, 2012 by dragon3781 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 gene de galetisin dediği gibi bir matris hazırlamak gerek. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted March 1, 2012 Share Posted March 1, 2012 ne yazdırmak istiyosun seçilince ona göre bi örnek hazırlıcam. Quote Link to comment Share on other sites More sharing options...
NotToday Posted March 1, 2012 Share Posted March 1, 2012 Benimde yok abi sadece bir fikir verdim ama çok zor onu da dedim Quote Link to comment Share on other sites More sharing options...
dragon3781 Posted March 1, 2012 Share Posted March 1, 2012 (edited) İşine Yararmı bilmiyorum ama elimdeki bir projeyi ( Bu Forumda Paylaşılan ) editledim senin istegine göre ; [img]http://www.tnctr.com/uploads/imgs/pre_1330603396__do.jpg[/img] PC de Upload yetkisi yok firevall kısıtlıyor onun için kodları tamamıyla yazıyorum projene yerleştirirsen çalışır. [b]Project : Global Fonctions Kodları[/b] [codebox] Do_liste = { "DO - DO", "DO - RE", "DO - Mİ", "DO - FA", "DO - SOL", "DO - LA", "DO - Sİ" } DoTR = { "Do Do Çalar.", "Do Re Çalar.", "Do Mi Çalar.", "Do Fa Çalar.", "Do Sol Çalar.", "Do La Çalar.", "Do Si Çalar." } Re_liste = { "RE - DO", "RE - RE", "RE - Mİ", "RE - FA", "RE - SOL", "RE - LA", "RE - Sİ" } ReTR = { "Re Do Çalar.", "Re Re Çalar.", "Re Mi Çalar.", "Re Fa Çalar.", "Re Sol Çalar.", "Re La Çalar.", "Re Si Çalar." } Mi_liste = { "Mİ - DO", "Mİ - RE", "Mİ - Mİ", "Mİ - FA", "Mİ - SOL", "Mİ - LA", "Mİ - Sİ" } MiTR = { "Mi Do Çalar.", "Mi Re Çalar.", "Mi Mi Çalar.", "Mi Fa Çalar.", "Mi Sol Çalar.", "Mi La Çalar.", "Mi Si Çalar." } Fa_liste = { "FA - DO", "FA - RE", "FA - Mİ", "FA - FA", "FA - SOL", "FA - LA", "FA - Sİ" } FaTR = { "Fa Do Çalar.", "Fa Re Çalar.", "Fa Mi Çalar.", "Fa Fa Çalar.", "Fa Sol Çalar.", "Fa La Çalar.", "Fa Si Çalar." } Sol_liste = { "SOL - DO", "SOL - RE", "SOL - Mİ", "SOL - FA", "SOL - SOL", "SOL - LA", "SOL - Sİ" } SolTR = { "Sol Do Çalar.", "Sol Re Çalar.", "Sol Mi Çalar.", "Sol Fa Çalar.", "Sol Sol Çalar.", "Sol La Çalar.", "Sol Si Çalar." } La_liste = { "LA - DO", "LA - RE", "LA - Mİ", "LA - FA", "LA - SOL", "LA - LA", "LA - Sİ" } LaTR = { "La Do Çalar.", "La Re Çalar.", "La Mi Çalar.", "La Fa Çalar.", "La Sol Çalar.", "La La Çalar.", "La Si Çalar." } Si_liste = { "Sİ - DO", "Sİ - RE", "Sİ - Mİ", "Sİ - FA", "Sİ - SOL", "Sİ - LA", "Sİ - Sİ" } SiTR = { "Si Do Çalar.", "Si Re Çalar.", "Si Mi Çalar.", "Si Fa Çalar.", "Si Sol Çalar.", "Si La Çalar.", "Si Si Çalar." } tbAnaListe = { "Do", "Re", "Mi", "Fa", "Sol", "La", "Si", } [/codebox] [b]Page : On Show Kodları[/b] [code] Application.SetRedraw(false); ComboBox.ResetContent("AnaListe"); for a = 1, #tbAnaListe do ComboBox.AddItem("AnaListe", tbAnaListe[a], ""); end ComboBox.SetSelected("AnaListe", 1); Application.SetRedraw(true); [/code] [b]ComboBox : On Select Kodları [/b] [code] local sVeri = ComboBox.GetItemText(this, e_Selection); if sVeri ~= "" then if sVeri == "Do" then strMax = Do_liste;strTR = DoTR; end if sVeri == "Re" then strMax = Re_liste;strTR = ReTR; end if sVeri == "Mi" then strMax = Mi_liste;strTR = MiTR; end if sVeri == "Fa" then strMax = Fa_liste;strTR = FaTR; end if sVeri == "Sol" then strMax = Sol_liste;strTR = SolTR; end if sVeri == "La" then strMax = La_liste;strTR = LaTR; end if sVeri == "Si" then strMax = Si_liste;strTR = SiTR; end if strMax then ListBox.DeleteItem("AltListe", -1); for z = 1, Table.Count(strMax) do ListBox.AddItem("AltListe", strMax[z], strTR[z]); end ListBox.SelectItem("AltListe", 1); end strMax = nil; strTR = nil; sVeri = nil; end [/code] [b]ListBox : On Select Kodları[/b] [code] nmSecilen = ListBox.GetSelected("AltListe") if nmSecilen then sKomutIsmi = ListBox.GetItemText("AltListe", nmSecilen[1]); sKomutAciklamasi= ListBox.GetItemData("AltListe", nmSecilen[1]); if sKomutIsmi ~= "" and sKomutAciklamasi ~= "" then Input.SetText("Input1", "Görev : " .. sKomutAciklamasi) Input.SetText("Input2", "Komut : " .. sKomutIsmi) end end [/code] Projede Kullanacagın Itemler ; Input1 Input2 ComboBox ( AnaListe ) ListBox ( AltListe ) İşini Görür Umarım ; Bu kısıtlamada Çok uğraştım inan bunları yazana kadar Edited March 1, 2012 by dragon3781 Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 1, 2012 Share Posted March 1, 2012 Aslında istediği şey çok basit bu kadar koda gerek yok. bir if döngüsü ile halledilir. Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 [quote name='El-Arabi' date='01 March 2012 - 14:46 ' timestamp='1330605986' post='1163344'] Aslında istediği şey çok basit bu kadar koda gerek yok. bir if döngüsü ile halledilir. [/quote] halletde bizde öğrenelim? Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 1, 2012 Share Posted March 1, 2012 Comboboxlardan seçilenleri getirecek karşılaştıracak inputa yazdıracak bu kadar. İşten döndükten sonra evde ufak bir proje hazırlarım. Quote Link to comment Share on other sites More sharing options...
erendeniz Posted March 1, 2012 Author Share Posted March 1, 2012 blackman12 yazdırmak istediğim do-re --> B2 Do-mi --> B3 b2-b3-t4-+4vs müzikteki aralıklar Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 1, 2012 Share Posted March 1, 2012 erendeniz sen bana do-do ile do-re ile bu şekilde seçilirse gelecek aralıkları listele ben proje yapayım sana. Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 sence? Quote Link to comment Share on other sites More sharing options...
NotToday Posted March 1, 2012 Share Posted March 1, 2012 8. mesaja baksan ? Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 1, 2012 Share Posted March 1, 2012 Eren deniz senden haber bekliyorum kardeşim eğer verirsen notaların seçildiği zaman yazılmasını istediğin yazıları projeni kodlayabilirim. Quote Link to comment Share on other sites More sharing options...
blackman12 Posted March 1, 2012 Share Posted March 1, 2012 Autoitle yazdım ama en azından fikir verir, kaynak kod ve exe hali için link: http://www.mediafire.com/?mdn8bd3bdm3hdf5 [code]Dim $notalar[7] = ["Do","Re","Mi","Fa","Sol","La","Si"] Dim $sonuclar[7][7] = [["DODO","DORE","DOMİ","DOFA","DOSOL","DOLA","DOSİ"],["REDO","RERE","REMİ","REFA","RESOL","RELA","RESİ"], _ ["MİDO","MİRE","MİMİ","MİFA","MİSOL","MİLA","MİSİ"],["FADO","FARE","FAMİ","FAFA","FASOL","FALA","FASİ"], _ ["SOLDO","SOLRE","SOLMİ","SOLFA","SOLSOL","SOLLA","SOLSİ"],["LADO","LARE","LAMİ","LAFA","LASOL","LALA","LASİ"], _ ["SİDO","SİRE","SİMİ","SİFA","SİSOL","SİLA","SİSİ"]] GUICreate("Müzikten keşke anlasam",300,80) $birinci = GUICtrlCreateCombo("",30,15,100) $ikinci = GUICtrlCreateCombo("",150,15,100) $ver = GUICtrlCreateButton("Değeri ver",30,45,220) $nota = "" for $i = 0 to 6 $nota &= $notalar[$i] & "|" Next GUICtrlSetData($birinci,$nota) GUICtrlSetData($ikinci,$nota) GUISetState() While 1 $n = GUIGetMsg() Switch $n Case -3 Exit Case $ver $b = GUICtrlRead($birinci) $t = guictrlread($ikinci) for $i = 0 to 6 if $b = $notalar[$i] Then $islemtamam = False for $a = 0 to 6 if $t = $notalar[$a] Then MsgBox(0,"",$sonuclar[$i][$a]) $islemtamam = true ExitLoop EndIf Next if $islemtamam = True then ExitLoop EndIf Next EndSwitch WEnd [/code] Quote Link to comment Share on other sites More sharing options...
erendeniz Posted March 1, 2012 Author Share Posted March 1, 2012 Arkadaşlar bu öyle bir kombinasyonki 5000 tane değer cıkıyor bunları yazmak hem zamn kaybı hemde cok uğraştıracak birde örnekte eklemediğim do-re-mi-fa-sol-la-si notalarının yanında diyez ve bemol lerinde olması buda işi iyice cıkmaza sokuyor hepinizden özür dilerim fakültenin verdiği ödevi değiştirmek için hocalarla konustum kabul ettiler kendileri de anladı işin zor oldugunu . Hepinizden cok özür dilerim zamnınızı harcadım konu silinirse iyi olur ... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.