Gönderen Konu: Basit Sözlük Uygulaması Yapmak  (Okunma sayısı 642 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Depresif

  • Yeni Penguen
  • *
  • İleti: 73
  • Dağıtım: Linux Mint 18.2
  • Masaüstü: Cinnamon
  • Grafik Kartı: GeForce 9400 GT
  • İşlemci: Celeron 2.50 GHz x 2
Basit Sözlük Uygulaması Yapmak
« : 28 Haziran 2017, 19:29:54 »
     Kişisel kullanımım için Mint üzerinde basit bir sözlük uygulaması yapmak istiyorum. Fakat konuya çok yabancıyım. Nereden başlamalı ve hangi yolları izlemeli ? Fikirlerinizi alalım.

Çevrimdışı kembağal

  • Çok Yeni Penguen
  • *
  • İleti: 2
Ynt: Basit Sözlük Uygulaması Yapmak
« Yanıtla #1 : 03 Şubat 2018, 15:21:48 »
BaCon programlama dili ile yazılmış bir çevrimiçi sözlük örneği:

 

INCLUDE "hug.bac"
INIT
a$="3"

SUB ara
     araB$=GRAB$(arama)
     araB2$=REPLACE$(araB$, " ", "%20")
     TEXT(arama, "")
     TEXT(EDIT_BOX, "")
     result$=EXEC$("curl -s 'http://sozluk.net.in/sorgu.php?&kelime="&araB2$&"&arama=" & a$ & "'")
     TEXT(EDIT_BOX, result$)
END SUB

SUB dil_ing
     a$="3"
END SUB

SUB dil_tur
     a$="4"
END SUB

window = WINDOW("İngilizce Sözlük", 600, 400)

arama= ENTRY("", 200, 25)
ATTACH(window, arama, 200, 15)
CALLBACK(arama, ara)

dil1 = RADIO("İngilizce", 80, 25, 0)
ATTACH(window, dil1, 220, 50)
CALLBACK(dil1, dil_ing)

dil2 = RADIO("Türkçe", 80, 25, dil1)
ATTACH(window, dil2, 300, 50)
CALLBACK(dil2, dil_tur)

EDIT_BOX = EDIT(580, 300)
ATTACH(window, EDIT_BOX, 10, 80 )

DISPLAY
« Son Düzenleme: 03 Şubat 2018, 15:52:22 Gönderen: kembağal »