Nota Aralık Tablosu

[erendeniz]

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]

[galetis]

Fikir versin diye söylüyorum, matris kullanarak yapabilirsin.

[erendeniz]

matrisin ne oldugunu bilmiyorum

[galetis]

Matematikteki matris. Burayada tablo olarak eklersin, 2 combobox'ın index değerini x,y olarak matristen çekersin.

[NotToday]

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

[erendeniz]

müsait oldugunuz zaman bana bir tane küçük örnek hazırlayabilirmisiniz? zahmet olmazsa.

[NotToday]

Sabah hazırlarım.Yanlız bu mesajı editler eklerim.O yüzden bakarak olun

[KintaRo]

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.

[dragon3781]

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

[KintaRo]

gene de galetisin dediği gibi bir matris hazırlamak gerek.

[blackman12]

ne yazdırmak istiyosun seçilince ona göre bi örnek hazırlıcam.

[NotToday]

Benimde yok abi sadece bir fikir verdim ama çok zor onu da dedim

[dragon3781]

İş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

[El-Arabi]

Aslında istediği şey çok basit bu kadar koda gerek yok.

bir if döngüsü ile halledilir.

[KintaRo]

[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?

[El-Arabi]

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.

[erendeniz]

blackman12 yazdırmak istediğim
do-re --> B2
Do-mi --> B3 b2-b3-t4-+4vs müzikteki aralıklar

[El-Arabi]

erendeniz sen bana do-do ile do-re ile bu şekilde seçilirse gelecek aralıkları listele ben proje yapayım sana.

[KintaRo]

sence?

[NotToday]

8. mesaja baksan ?

[El-Arabi]

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.

[blackman12]

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]

[erendeniz]

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 ...