Jump to content

yakupnun

Üye
  • Posts

    87
  • Joined

  • Last visited

Posts posted by yakupnun

  1. string or binary data would be hatası

    string or binary data would be truncated.the statement has been terminated hatsı alıyorum kodum aşağıdaki gibidir . bu kodun neresinde yanlışlık var.

    ayrıca ; conversion failed when converting the varchar value hatası da alıyorum

     private void BtnDersDersEkle_Click(object sender, EventArgs e)
            {
                if (txtDersDersAdi.Text.Trim() != "" && txtDersDersKodu.Text.Trim() != "" && txtDersAKTS.Text.Trim() != "" )
                try
                {
                        baglan.Open();
                        SqlCommand kmtDersEkle = new SqlCommand("insert into TblDers(DersAdi,DersKodu,DersKredi,DersAKST,DersZorunlu,DersDonem,BolumId) values ('" + txtDersDersAdi.Text + "','" + txtDersDersKodu.Text + "','" + txtDersDersKredi.Text + "','" + txtDersAKTS.Text + "','" + chkZorunlu.Checked + "','" + cmbDersDonem.Text + "','" + lblDersBolumId.Text + "')", baglan);
                            kmtDersEkle.ExecuteNonQuery();
    
                        MessageBox.Show("Kayıt Tamamlandı");
                        txtDersDersAdi.Text = ""; txtDersDersKodu.Text = ""; txtDersDersKredi.Text = ""; txtDersAKTS.Text = "";cmbDersDonem.Text = ""; lstDersDersler.Items.Clear();
                        SqlCommand kmtBlmSec = new SqlCommand("Select DersAdi from tblDers",baglan);
                        SqlDataReader oku = kmtBlmSec.ExecuteReader();
                        while (oku.Read()==true)
                        {
                            lstDersDersler.Items.Add(oku[0]);
                        }
                        baglan.Close();
                }
                catch (Exception hata)
                {
                    MessageBox.Show("Dersler Sekmesindeki Ders Ekleme Butonu çalışmıyor. \n"+hata.Message);
                }
                finally
                {
                    baglan.Close();
                }

     

    Adsız.jpg

    Adsıza.png

  2. Çözdüm insert into kullanırken bir tana , fazladan koymuşum başlık nasıl sılınır bil miyorum adminler silebilirler gereksiz yer işgal etmesin.

    merhabalar acces veri tabanına birşeyler eklameya calışıyorum öğrenme amaçlı. kodum bu

    using System;
    using System.Collections.Generic;
    using System.ComponentModel;
    using System.Data;
    using System.Drawing;
    using System.Linq;
    using System.Text;
    using System.Threading.Tasks;
    using System.Windows.Forms;
    using System.Data.OleDb;
    
    namespace acces_veri_tabanı
    {
        public partial class Form1 : Form
        {
            public Form1()
            {
                InitializeComponent();
            }
    
            OleDbConnection baglantı = new OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Kişiler.mdb");
            private void VerileriGörüntüle()
            {
                listView1.Items.Clear();
                baglantı.Open();
                OleDbCommand komut = new OleDbCommand ();
                komut.Connection = baglantı;
                komut.CommandText = ("SELECT * from Bilgiler");
                OleDbDataReader oku = komut.ExecuteReader();
                while (oku.Read())
                {
                    ListViewItem ekle = new ListViewItem();
                    ekle.Text = oku["Ad"].ToString();
                    ekle.SubItems.Add(oku["Soyad"].ToString());
                    ekle.SubItems.Add(oku["Yaş"].ToString());
                    ekle.SubItems.Add(oku["İlçe"].ToString());
    
                    listView1.Items.Add(ekle);
                    
                }
                baglantı.Close();
            }
    
            private void Form1_Load(object sender, EventArgs e)
            {
    
            }
    
            private void button1_Click(object sender, EventArgs e)
            {
                VerileriGörüntüle();
            }
    
            private void button2_Click(object sender, EventArgs e)
            {
                baglantı.Open();
                OleDbCommand komut = new OleDbCommand("inset into Bilgiler (Ad,Soyad,Yaş,İlçe) values ('" + textBox1.Text.ToString() + "','" + textBox2.Text.ToString() + "','" + textBox3.Text.ToString() + "','" + textBox4.Text.ToString() + "',)", baglantı);
                komut.ExecuteNonQuery();
                baglantı.Close();
                VerileriGörüntüle();
            }
        }
    }
    

    yalnız listeleme yapabiliyorum ama kaydet tuşunu tıkladığımda program şu hatayı veriyor hata.png yardımcı olabilirseniz sevinirim.

  3. Fonksiyonelden kastın daha rahat olması ise BANA GÖRE text dosyasına girip bir şeyleri değiştirmek benim için daha rahattır. Tabii ki senin dediğinde kötü fikir değil. Diğer konuda da bana tam olarak girdiğin linki yazarsan bende o link üzerinden deneyip test edebilirim. Normal internet explorer'da doğru çalışıyorsa burada da çalışır ama ek olarak yazılması gereken kodlar var mı onu tam olarak bilmiyorum. Dediğim gibi sen bana girdiğin siteyi bana özelden veya buradan yaz bende o site üzerinde deneyeyim. 

    girdiğim link bu    https://docs.google.com/forms/d/1xWAKnIIzAGTpatPacr67jBTI2EMl9QAf9LP4OsYsbBg/viewform

  4. Bu arada bir tane linki atladığımı fark ettim. Son halini buradan indirebilirsin. Fonksiyona gönderdiğin sayılar butonun sıralamasını belirliyor. Ben 0'dan başladığım halde 4 numarayı atlamışım. Bunu dün fark ettim fakat anca bugün fırsatım oldu.

    ilgin için teşekkür ederim ben dün farkettim ve düzelltim, bir şey sormak istiyorum.

    1- bir ayar sayfası yapıp txt yrtinr buradaki tex box lara yapıştırsam linkleri ve buradan mı okutsam daha fonksiyonel olur yoksa txt den mi okutsam daha fonksiyonel olur.

    2- aldığım script hatası söğlediğin kodla susutu ama sayafada scrip düzgüncalışmadıoı için sayfa dügün görüntülenemiyor bu hatanın kaynağı nedir bir bilgin varmı acaba chormrde düzgün görüntülrniyor  normal expolorerde düzgün görünteliniyor ama programın içindeki web brovserde hata veriyor.

  5. Ben sana yardımcı olmak istiyorum fakat yapmak istediğini tam olarak anlayamadım. Şimdi 4. Sınıf 5. Sınıf 6. Sınıf 7. Sınıf ve 8. Sınıf butonları var. Bunların da her birinin altında üçer buton var. Senin istediğin şeye gelincede Şimdi 4. Sınıf 5. Sınıf 6. Sınıf 7. Sınıf ve 8. Sınıf butonlarına tıklayınca onların görevi zaten belli sadece diğer butonları görünür yapmak. A B C butonlarının her birine bir site eklemek istiyorsun ve ona tıklayınca o siteye gitsinler istiyorsun. Şimdi 1. sorum şu bu Text dosyaları her sınıf için ayrı mı ? Yoksa aynı Txt dosyasını hepsi için mi kullanacaksın ? Eğer buradan da anlaşamazsak Tam Viewer ile özelden id ve şifre gönder bağlanıp bakayım yardımcı olabilirsem yapayım.

    tek bir txt ninn içeriğiniş yukardan aşağıya okuyup .satırdaki url yi 8.sınıf a şubesine önlendirecek aya tıklayınca web objecte açacak . satırı 8. sınıf b şubesi 3. satırı 8.sın. e şubesi 4 ü 7a ya böylece aşağiya doğru sırayla linki atayacak mesela arada satır boşsa sırası gelen butona link koymayacak istediğim şey bu daha kolay bir yolu var mı bil miyorum  linkleri tek bir txt tede tutmamın amacı vazen linkler değişiyor değiştirmek kolay olsun diye. yardımın için teşekkürler

  6. // En üste using System.IO; kütüphanesini eklemen gerekiyor.
     
       try
                {
                   var satirlar = File.ReadAllLines("Linkler.txt");
                    foreach (var satir in satirlar)
                    {
                       // Burada her link için yaptırmak istediğin şeyi yazabilirsin. Yani satirlar dizisini okuyorsun.
                    }
                }
                catch (Exception ex) { MessageBox.Show(ex.ToString()); }
    
            }
    

    Buradan yaptığım ufak uygulamaya bakabilirsin. Belki işine yarar. 

     

    merhabalar öncelikle teşekkürler;

    siz link txt yi okutup bir buton oluşturmasını yaz mışsınız benim istediğimde Burada https://yadi.sk/d/5IP0z9P4mBu4tprojeyi ekledim yardımcı olabilirseniz sevinirim.

  7. TextBox1 veya 2 de değil pc deki bir txt dosyasından satır satır okusun ve butonlara txt dosyasında yazan url yi atasın istiyorum

    function urlYukle(satir)
    tDosya = TextFile.ReadToTable("AutoPlay\\Docs\\url.txt")
    	if tDosya then
    	return tDosya[satir];
    	else
    	Dialog.Message("Hata", "Dosya içeriği boş");
    	end 

    burdaki fonksiyonu c# a göre nasıl düzenleye bilirim yardımcı olabilir misiniz

  8. bunu auto playla  kintaro nun yardımi ile çözmüştüm ama web objesindeki java sorunu yüzünden problemim tam çözülmedi c#la yapmayı deneyacem ama hiç bilmiyorum yapmak istediğim şy 1. butona basınca txt 1. satırdaki url yi webde açsın 2. butona basınca 2. satırdakileri açsın böyle bişeye yardımcı olabilirmisinizç

    url.txt içeriği:
    
    http://www.google.com
    http://www.yahoo.com
    http://www.tnctr.com
    
    Global Functions:
    
    function urlYukle(satir)
    tDosya = TextFile.ReadToTable("AutoPlay\\Docs\\url.txt")
    	if tDosya then
    	return tDosya[satir];
    	else
    	Dialog.Message("Hata", "Dosya içeriği boş");
    	end
    end
    
    Button1:
    
    Web.LoadURL("Web1", urlYukle(1));
    
    Button2
    
    Web.LoadURL("Web1", urlYukle(2));
    ...
    
  9.  

     

    Aslında hata tamamen senin verdiğin kod ile alakalı , (copy&paste) kod :rolleyes:

    Ayrıca kodda Lua 4 stili var hernekadar Lua 5 tede geçerli olsada artık kullanılmamaldır

     

    Lua 4 :

    os.time{day=dd,month=mm,year=yy}

    Lua 5 :

    os.time({day=dd,month=mm,year=yy});

    Hata nın sebebi ise ,kod örneği ISO standart tarihine göre yazılmış  (yyyy-mm-dd) bu yüzden yerel format ile uyumsuz

     

    get_date_parts isimli fonsiyon senin beklediğinin tam tersi bir veri döndürmektedir

     

     

    aşağıdaki örnekte y,m,d değişkenleri sırası ile yıl,ay,gün değerlerini alabilmeleri için tarih şu şekilde yazılmalıdır 2015-11-05

    _,_,y,m,d=string.find(date_str, "(%d+)-(%d+)-(%d+)")

    bu yüzden y ve d değişknlerinin yerini değiştirmelisiniz

    çünkü bulunan veriler soldan sağa doğru sıralanır , sağdan sola değil

     

    isterseniz yer değiştirme işlemini bir alt satırdaki dönüş bölümündede yapabilirsiniz tonumber(y),tonumber(m),tonumber(d)

     

    ayrıca aşağıdaki kodda yy,mm,dd değişkenleri nil dönebilir , buda kontrol edilmeli ,aksi halde yine benzer bir hata olabilir

    çünkü os.time() fonksiyonu year,month,day alanları geçerli bir tablo bekler ve bunun dışındaki durumlarda o ekran görüntüsündeki hatayı alırsınız

    local yy,mm,dd = get_date_parts(trim(gTarih))

    ayrıca ,aşağıdaki kod şuanki haliyle hep o anki tarihi verir çünkü os.time() dan dönen nil yada 0

    bunun nedenide year bölümüne gün ve day bölümüne de yıl eklenmesidir

    Dialog.Message("",os.date("*t",os.time{year=yy, month=mm, day=dd}).yday);

    daha öce senin dediğin gibi olabileceğini düşünüp günle yılın yerlerini değiştirmiştim 

    local gTarih = Input.GetText("txtTarih");
    if trim(gTarih) ~= "" then
    	local dd,mm,yy = get_date_parts(trim(gTarih))
    	Dialog.Message("",os.date("*t",os.time{day=dd,month=mm,year=yy }).yday); -- bu satırda hata alıyorum zannederim "day" günle alakalı bir sorun 
    end
    

    bu şekilde  ama sonuç değişmemişti .bunlar pairs in bana veridiği kodlardı bunlardan anlamaya çalıştım ama hatayı bulamadim 

    ben ise daha basit bir mantıkla hareket etmek istemiştim "os.date("%j") "

     ile kaçıncı günde olduğumuzu buldurup inbox tan gelen verininde yılın kaçıncı günü olduğunu bulup - ki bunu henüz nasıl yapacağımı bilmiyorum- ikisini karşılaştırıp sistem günü inboxtan küçük ise doğum gününe xx gün xx dakka xx saat xx saniye diye geri sayım yaptırmayı planlıyorudum ama benim kodbilgimle benim için bir hayal olarak kalacak galiba . bu verdiğiniz bilgiler değerli teşekkürker

  10. function trim(s)
      return (s:gsub("^%s*(.-)%s*$", "%1"))
    end
    
    function get_date_parts(date_str)
      _,_,y,m,d=string.find(date_str, "(%d+)-(%d+)-(%d+)")
      return tonumber(y),tonumber(m),tonumber(d)
    end
    
    local gTarih = Input.GetText("txtTarih");
    if trim(gTarih) ~= "" then
    	local yy,mm,dd = get_date_parts(trim(gTarih))
    	Dialog.Message("",os.date("*t",os.time{year=yy, month=mm, day=dd}).yday);
    end
    

    input a tarihi 

    gg-aa-yyyy
    

    şeklinde girmelisin.

     

    olmadı sonsuz döngüye girerek hata veriyor yinede teşekkür ederim

  11. Merhabalar formda ve indigo formda aramama ramen pek birşey bulamadım bu zaman ve timer fonksiyonlarını öğrenmek için yaptığım bir proje belli bir tarih ve saate geri sayım yaptırmak istiyorum  kodları şöyle yazdım ama hata verdi yanlış yaptığımyesi söyleye bilirseniz sevinirim.

    nSaat= os.clock();
    nTarih=os.date("%j");
    nDeger=Input.GetText("Input1");
    
    if nTarih < nDeger then
     
    Label.SetText("nTarih - 1");
    else
    Label.SetText("Lütfen Tarih giriniz");
    end

    inputtan girdiğim tarih ve saati sistem saat vetarihi ile karşılaştırıp geri saydıracam eşit olunca inputları ve butonu gösterip tarih ve saat girdirteceğim 

    örnek proje; https://yadi.sk/d/PaimwqRskEwCi

     

    yardımlarınız için teşekkürler;

    o kısmi anladım benim yapmak istediğim 

     mesala yılın kaçıncı günündeğiz atıyorum 120

             girilen tarih kaçıncı günde atıyorum 224

    -lua .orgdan baktığımda os.date("%j") ile bu gün sayısını alıyordu yanlış anlamadıysam-

    şimdi sistem günü 224 ile eşitse inputları gösterecek lütfen tarih girin diyecek değilse

     

    doğum gününe xx gün xx saat xx dakka xxsaniye kaldı diyecek. yılın gününü imputtan tarih olarak girip güne nasıl çevirteceğimi

    bulamadım  

  12. Merhabalar formda ve indigo formda aramama ramen pek birşey bulamadım bu zaman ve timer fonksiyonlarını öğrenmek için yaptığım bir proje belli bir tarih ve saate geri sayım yaptırmak istiyorum  kodları şöyle yazdım ama hata verdi yanlış yaptığımyesi söyleye bilirseniz sevinirim.

    nSaat= os.clock();
    nTarih=os.date("%j");
    nDeger=Input.GetText("Input1");
    
    if nTarih < nDeger then
     
    Label.SetText("nTarih - 1");
    else
    Label.SetText("Lütfen Tarih giriniz");
    end

    inputtan girdiğim tarih ve saati sistem saat vetarihi ile karşılaştırıp geri saydıracam eşit olunca inputları ve butonu gösterip tarih ve saat girdirteceğim 

    örnek proje; https://yadi.sk/d/PaimwqRskEwCi

     

    yardımlarınız için teşekkürler;

  13. tabi o donecek tablodan rastgele bir metin cekiyorsun, ve bu tabloda sadece nSoz yaziyor :D

    text file read to table kullan ve bu tablodan rastgele yazdir telden yaziyorum kusura bakma orn:

    soz = textfile.readtotable(text.txt);
    for i=1,10 do
    nsoz = soz[math.random[1,10]];
    end
    paragraph.settext(nsoz);

    soz = TextFile.ReadToTable("AutoPlay\\Docs\\soz.txt");
    for i=1,100 do
    nsoz = soz[Math.Random "[1,100]"];
    end
    Paragraph.SetText("nsoz"); 
    --Paragraph.SetText("soz", nSoz);
    
    

    bu şekilde yaptım ama şöyle bir hata veriyor [url=http://hizliresim.com/n2Nq11]n2Nq11.png[/url]

  14. örnek çalışmalarda html  ve javascriptle yapılmış bir çalışma var ama benim isteğimi karşılamıyor. ben Maht random komutuyla çekiyorum ama benim istediğim metni docs taki soz txt den çekmek istiyorum.

    tblPath = {} 
    tblPath[1]="Eline, diline, beline sahip ol ki, kötülükler senden uzak dursun."
    tblPath[2]="Musibet zekayı eğitir."
    tblPath[3]="Kişinin sözü, amelinden çok olursa aklı noksandır." 
    tblPath[4]="Ne kadar okursan oku, bilgine yakışır şekilde davranmazsan cahilsin demektir.(Sadi) "
    tblPath[5]="Tek dostum kitaplarım, tek düşmanım cahil dostlarım. (Diderot) "
    tblPath[6]="Felaketler, ayak seslerini duymayanlara geliyorum demez. "
    tblPath[7]="Harekette birlik olmazsa, fikirde bilgi faydasızdır. (Muhammed ikbal) "
    tblPath[8]="Zalime, ancak, onu zulümden alıkoymak için yardım et. "
    tblPath[9]="Yarın, yorgun kimselerin değil, rahatlarına kıyabilenlerindir. (N. Atac) "
    tblPath[10]="Kuvvetine güvenenler, korkutma küçüklüğünde bulunmazlar. (Abdulhamid Han)" 
    
    Paragraph.SetText( "soz", tblPath[Math.Random(1, 10)], true, true);
    

    bunlar çaılışan kodlar  ancak işin içine txt girince problem oluyor.

    nSoz = TextFile.ReadToString("AutoPlay\\Docs\\soz.txt");
    
    tblPath = {} 
    tblPath[1]="nSoz"
    tblPath[2]="nSoz"
    tblPath[3]="nSoz" 
    tblPath[4]="nSoz"
    tblPath[5]="nSoz"
    tblPath[6]="nSoz"
    tblPath[7]="nSoz"
    tblPath[8]="nSoz"
    tblPath[9]="nSoz"
    tblPath[10]="nSoz" 
    
    Paragraph.SetText( "soz", tblPath[Math.Random(1, 10)], true, true);
    
    

    Böyle yapınca değer nSoz dönüyor

     

    ilk kodların apz.  örneğini aşağıya ekliyorum https://yadi.sk/d/-aiXid-6k9jEh


  15. hafta içi ve hafta sonu listesi için olan txt dosyalarının yollarını Global Functions bölümünden düzenliyebilirsiniz

    PT_ALARMS_FILE_WEEKDAYS = _SourceFolder.."\\AutoPlay\\Docs\\weekdays.txt"
    PT_ALARMS_FILE_WEEKEND = _SourceFolder.."\\AutoPlay\\Docs\\weekend.txt"

    On Show bölümüne Türkçe açıklamalarda ekledim ,örnek proje şu haliyle çalışıyor
     
    sizin yapmanız gereken ise ,sunucudan verileri çekip bu txt dosyalarına yazmak tır
    proje ,program kapanmasa bile otomatik olarak bir sonraki güne alarmları ayarlar
     

     

    Çok teşekkür le türkçe açıklamalardan sonra anladım nasıl yapıldığını gunucudan veri çekmek demişsin ben veri çekmek istemiyorum bunun direk  ana makinadaki weekdays.txt  weekend.txt leri okuyup ordan çalışmasını istiyorum glo baldan dosya yolunu değiştirdim ama okuma di bir ağdan txt okutmak için farkli bir kod mu kullanıyoruz? 

    ID_ALARM_TIMER = 100;
    PT_ALARMS_FILE_WEEKDAYS = _SourceFolder.."AKASA-PC\\HG_Zil_3.32\\saatler\\weekdays.txt"
    PT_ALARMS_FILE_WEEKEND = _SourceFolder.."AKASA-PC\\HG_Zil_3.32\\saatler\\weekend.txt"
    tblAlarmsTable = {};
    
    
    tblDays = {"Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi"};
    

    globaldeki yolu böyle düzenledim 

  16.  

    Merhaba Hocam
     
    aslında bu işlem daha basit şekilde yapılabilir ,hemde hiç if else ler ile uğraşmadan
    ayrıca , if else ler içinde stringleri karşılaştırmak hatalara sebep olur
    string karşılaştırması sadece her iki string ingilizce karakterler içeriyorsa uygun olabilir ama buda kısa olanlar için
     
    verdiğiniz kod örneğinde önemli olan bölümü sizin için tekrar düzenledim ,isterseniz bir butona ekleyip hemen deniyebilirsiniz
    sonra uygun ise kendi projenizde kullanırsınız
     

    local tblGunler = {"Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi"};
    local nGun = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK));
    if(nGun == 1 or nGun == 7) then
        -- hafta sonu yapılacak işlemi uygula
        Dialog.Message("Notice", "Şu anda hafta sonundayız ve günlerden "..tblGunler[nGun]);
    else
        -- hafta içi yapılacak işlemi uygula
        Dialog.Message("Notice", "Şu anda hafta içindeyiz ve günlerden "..tblGunler[nGun]);
    end

    evet kod bu şekilde çalışıyor yalnız ben sizin dün verdiğiniz apz deki kodları bununla birleştirince hata veriyor burada ki hatalar nelerdir nasıl düzeltebilirim

    local tblGunler = {"Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi"};
    local nGun = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK));
    if(nGun == 1 or nGun == 7) then
        -- hafta sonu yapılacak işlemi uygula
    
     result = DateTimePicker.SetFormat("Plugin1", "HH.mm");
    
    tblSavedAlarms = TextFile.ReadToTable("AutoPlay\\Docs\\alarms.txt");
    if(tblSavedAlarms ~= nil) then
    	for i=1 , #tblSavedAlarms do
    		if(#tblSavedAlarms[i] > 0) then
    			
    			local h,m,_ = string.match(tblSavedAlarms[i],"(%d+):(%d+)");
    			-- Değiştirmek için geçerli tarih / zaman almak
    			-- get current date/time to modify
      			local tmAlarm = os.date("*t");
      	        
    			-- Saat ve dakikayı ayarlamak için alarm saatini değiştirmek
      			-- modify alarm time to set hour and minute
      			tmAlarm.hour = h;
      			tmAlarm.min = m;
    			tmAlarm.sec = 0;
    			
    	        -- Alarm zamanının zaman damgası olsun
    			-- get the time-stamp of alarm time
    			local nTimeStamp = os.time(tmAlarm);
    	     
    	     	-- Küresel tabloya bu zaman damgası ekleme
    			-- add this time-stamp to global table
    			table.insert(tblAlarmsTable,nTimeStamp);
    	        
    			
    			-- Ve kullanıcıya alarm görsel göstermek için liste için kullanıcı - dostu sürüm eklemek
    			-- and add a user-friendly version to listbox to show alarms to user visually
    			ListBox.AddItem("ListBox1", string.format("Alarm : %02.f:%02.f",h,m), "");
    		end
    	end
    	end
    end
    Page.StartTimer(1000, ID_ALARM_TIMER);
    
    else
        -- hafta içi yapılacak işlemi uygula
        result = DateTimePicker.SetFormat("Plugin1", "HH.mm");
    
    tblSavedAlarms = TextFile.ReadToTable("AutoPlay\\Docs\\alarms2.txt");
    if(tblSavedAlarms ~= nil) then
    	for i=1 , #tblSavedAlarms do
    		if(#tblSavedAlarms[i] > 0) then
    			
    			local h,m,_ = string.match(tblSavedAlarms[i],"(%d+):(%d+)");
    			-- Değiştirmek için geçerli tarih / zaman almak
    			-- get current date/time to modify
      			local tmAlarm = os.date("*t");
      	        
    			-- Saat ve dakikayı ayarlamak için alarm saatini değiştirmek
      			-- modify alarm time to set hour and minute
      			tmAlarm.hour = h;
      			tmAlarm.min = m;
    			tmAlarm.sec = 0;
    			
    	        -- Alarm zamanının zaman damgası olsun
    			-- get the time-stamp of alarm time
    			local nTimeStamp = os.time(tmAlarm);
    	     
    	     	-- Küresel tabloya bu zaman damgası ekleme
    			-- add this time-stamp to global table
    			table.insert(tblAlarmsTable,nTimeStamp);
    	        
    			
    			-- Ve kullanıcıya alarm görsel göstermek için liste için kullanıcı - dostu sürüm eklemek
    			-- and add a user-friendly version to listbox to show alarms to user visually
    			ListBox.AddItem("ListBox1", string.format("Alarm : %02.f:%02.f",h,m), "");
    		end
    	end
    end
    Page.StartTimer(1000, ID_ALARM_TIMER);
    
×
×
  • Create New...