Basiclerde Yapay Zeka
-
evet arkadaşlar beyler bayanlar ben visual yada qbasicte yapay zeka ile bi sanal sohbet programı yapmak istiyorum bana temelini anlatırsanız çok sewinirim.
Hadi neyse irtibatı koparmayalım -
yapay zeka derin bir konu, boyle bi programin bircok deisik altyapisi olabilir. Artifical Intelligence olayında bi insani simule edeceksen kendi hazir cumleleri yazmicak kendi cümle uretebilicek bişe yapmalisin.
oncelikle proramin en basit halini yarat, mesela yazilan seyde naber geciosa ona uygun onceden girdiin 5 tane cewaptan rastgele birini versin.
eger soru yazdiysa bunu bi sekilde hafizasinda tutsun ki adam yazdii obur seyi neye karsilik yazio bilesin.
mesela sen adin ne dedin
kullanici osman dedi.
bu ismin tek basina hicbi manasi yok ama soruyu aklinda tuttuysan tanistimiza memnun oldum diyebilirsin.
yani baya bi düsünmen lazim, ne kadar cok ihtimali düsünürsen o kadar ii calisir. adam gibi yaptiktan sora istersen yazıyı sesli okumasini falanda sagliyabilirsin Microsoft Text to Speech SDK da bunu kolaylikla yapabiliceğin ornek kodlar bulabilirsin ama hem ingilizce okur hemde SDK nin boyutu büyüktür.
sana en basit olarak karabasan.exeyi oneririm. basit ama eglendiricidir, az bi parca AI si de vardir.
download/karabasan.exe
-
İnsan beynine hesap makinesi çipi yerlestirilebilir mi? Bu sekilde hesap yapma lüxü ortadan kalkar ve insan hesap konusunda mükemmel olur. İşlem yapma işini sağlayan her siniri çipe bağlarsın, çip sinirden gelen iletileri sayısal olarak algılar işlem yapar ve impuls olarak geri gönderir. eğer böyle yapılabilirse, PC oyun devri ortadan kalkıp, 2 maymuna 2 çip koyar, joystick lerle mortal kombat oynatirsiniz. Yada Double Dragon :) Olamaz mi? Otonom sinir sistemine çip bağlarsin, her girdiğin iletiyi sinire impuls olarak gönderir. ama müthiş bi çalışma gerekir.
http://www.yapay-zeka.org -
holyone sana katılıyorum ama bana 1-2 source code verseydin daha iyi anlardım :)) ben visual le q basice yeni başladımda ondan fazla kod bilmiom
-
ya ben dalnet te bir bota takilmistim deli gibi sohbet ediyodu bayan bot :) ingilizceydi. walla bir iki saat sonra anladim bot oldugunu. cunku takildi ve surekli perhaps yazmaya basladi :) Cok komplike bisiydi bir yazdigini bir daha yazmiyordu kaltak bot.
-
qbasic için biraz ingilizce yeterli..help bölümnden de hazır ufak kodlar örnekler alıp değiştirip geliştirebilirsin ama qbasic hakkaten de pek bişi yapamıyo..hele grafiksel şey açısından üç-beş bişi çizmek zor geliyo bana..neyse bu sobet olayı da şöyle:
INPUT "naber="; x$
IF x="idir.." then PRINT"bla..bla"
IF x="siktir.." then PRINT"..."
bide else IF var o da bunun dışında ki tüm seçenekler için örneğin adamın "y" ye basarsa 1 e "n" ya basarsa 2 ye gıder..else if le de başka neye basarsa bassın error vermesini sağlarsın mesela..yanlış bi şi de yazmış olabilirim ama dene genede.. -
Evet oyle olabilir, yada belli basli kelimeleri bulup ona gore cevap veren bir sey olabilir. mesela "nasilsin" kelimesini bulunca. "iyiyim" cevabini verecek bir uygulama.
VB'de daha kolay olur. -
Bir ara ben belli bir paragrafin içinden kelimeleri tek tek ayiran bir şey yapmistim. Bulabilirsem sana bir ara vereyim kreston kardas. Yani yukaridaki mantiga gore duzenleyebilirsin.
-
Hoca o zimbirtiyi banada yolluyabilirmisin.
naki@naki.cjb.net -
Kod veremem ki nasi verim, yapay zeka dediin sey ole kalıp şeklinde bişey deilki, yapay zeka mantigi deneme yanilma seklinde isler bilgisayarlarda mesela bi satranc proraminin sanal zekasi olabilicek her olasiligi hafizada karsilastirarak sonuca puanlama yapar.
en ii puani yapan en mantikli hamleyi uygular.
Eger yeni basladi isen sanal zeka ugrasman icin en ii secim deil bastan soliim. -
HolyOne bunu yazdı:
Kod veremem ki nasi verim, yapay zeka dediin sey ole kalıp şeklinde bişey deilki, yapay zeka mantigi deneme yanilma seklinde isler bilgisayarlarda mesela bi satranc proraminin sanal zekasi olabilicek her olasiligi hafizada karsilastirarak sonuca puanlama yapar.
en ii puani yapan en mantikli hamleyi uygular.
Eger yeni basladi isen sanal zeka ugrasman icin en ii secim deil bastan soliim.Aslında mesaj çok eski ama yinede cevap verim dedim..
HolyOne nin de dediği gibi yeni baslamıssın ve qbasic..Bencede ii seçim değil hemde hiç deil..
Kod istiyosan bişeler sölim visual basic bunlar,qbasicle uraşmıyom çünkü..
'Mesela
Chat programı yapıyoz diyelim..Winsock ile dataları çekip bir textbox a yansıttık ya..
mesela newgelen winsockun aldıı yazıların degiskeni olsun..
dim a
a=instr(1,newgelen,"Merhaba")
if a=true then text1.text=text1.text & "Sanada merhaba" & vbcrlf
'Bu bir örnek sadece biraz anlatmak istedim olayı..
'İnşallah işinize yarar,hade eyvallah..