Jump to content

bilgitron

Üye
  • Posts

    89
  • Joined

  • Last visited

Everything posted by bilgitron

  1. Benzer bir problemle uğraşmıştım. Tüm donanımlar diğer yerlerde sorunsuz olarak çalışıyor, fakat o lokasyonda problem yaratıyordu. Problem olarak UPS çıkışı 58 hz olarak ve değişen frekanslarday dı.   Elektrik girişine filitre veya UPS bağlayarak bir dene..
  2. combofix ile silebilirsin.
  3. Ses Kalitesi fena değil. Önemli olan kaset adaptör düzeneği. Kaliteli olan ve frekans aralığı iyi olanı seç. 
  4. MP3 Player i kasetli teypler için mi kullanacaksın.
  5. Kaba boyayı koyacaksan sineklik teli gibi bir şeyin üstünde boyaya daldır.  ve 2-3 dk beklet çıkar ama sağa sola sallama boya bulaşır. kuruması için bir gazete üzerine telle birlikte bırak. 1 - 2 saate kadar sertleşir. kadife ile fazla bastırmadan parlatabilirsin. Sonra sprey vernik kullanabilirsin. Ama Boncukları dikkat et birbirine sürtme. boya çıkar..
  6. Program nereye indiriyor. pc de arattım. yok. dizin seçme ekranı yapılsa iyi olmazmıydı?
  7. Araçlar için geri kameraları var. arkasındaki mili çıkartırsın. işini görür.Çıkışı AV. dir AV birişi olan bir 3-7 inç lcd ye bağlarsın.
  8. Boncukların yüzeyi çok parlak mı? mat mı?. Boncukların cilt ile teması var mı?. Selülozik boya (kırtasiyelerde ki cam boyası) kullanabilirsin. 
  9. Appdata altında google altında user dizini var. sil chorome tüm eklentileri kaldırır.
  10. Hücrelerden veri okunacak.Bana sadece Baştaki tarih Magaza No ve toplam olması yeterli. Program SQL den (verileri şifrelenmiş)  veri alıyor. Ama Kendi DB si ve IBM POS Genius programları aracılığı  ile bilgi alıyor. Ekrana yazıyor.    Program yapımcısıyla irtibat kurmaya çalıştım. fakat nafile.    Tüm alanları seçip koplayala yapıştır yapıyoruz. ama saatler  konusunda sıkıntılar oluyor.    Lütfen konu ile ilgili yardımlarınızı bekliyorum. 
  11. Birde Windows sesini kapasa iyi olur Biraz Scipt ile oynadım  [spoiler] #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=Icons\icon.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Res_Comment=www.sanaldosya.org tarafından hazırlanan bu uygulama ile imsak ve iftar vakitlerini takip edebilirsiniz. #AutoIt3Wrapper_Res_Description=www.sanaldosya.org #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=Sanal Dosya #AutoIt3Wrapper_Res_Language=1055 #AutoIt3Wrapper_Res_Field=CompanyName|Sanal Dosya Takımı #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Global $countries, $cities, $city_names, $city_id, $city_name, $county_names, $county_id, $done = 1, $country_id, $downloadcities, $downloadcounties, $last_country, $last_city, $last_county, $update, $underlined = 0, $time = 0, $hour = @HOUR & @MIN, $date = @MDAY & @MON & @YEAR, $sendwarn = 1, $play = 0, $stop = 0, $playing = 0, $sendsoundon, $sendwarn, $TRAY_EVENT_PRIMARYDOUBLE = -13, $combostyle = 0x0003 + 0x00200000, $update_ramadan = 0, $update_ramadan1 = 0, $last_time, $PT Opt("TrayMenuMode", 1) Opt("TrayOnEventMode", 1) #include-once ProcessSetPriority(@AutoItPID, 0) #include <Sound.au3> #include "Includes\Memory.au3" #include "Includes\JSMN.au3" #include "Includes\WinHttp.au3" #include "Includes\functions.au3" #include "Includes\_UskinLibrary.au3" #include "Includes\Table.au3" If _Singleton("ptimessanal", 1) = 0 Then MsgBox(16, "Hata", "Programın bir kopyası zaten çalışıyor.") Exit EndIf DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes") DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds") DirCreate(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons") FileInstall("Themes\Theme.msstyles", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes\Theme.msstyles") FileInstall("Sounds\EzanSesi.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\EzanSesi.mp3") FileInstall("Sounds\Alarm01.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm01.mp3") FileInstall("Sounds\Alarm02.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm02.mp3") FileInstall("Sounds\Alarm03.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm03.mp3") FileInstall("Sounds\Alarm04.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm04.mp3") FileInstall("Sounds\Alarm05.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm05.mp3") FileInstall("Sounds\Alarm06.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm06.mp3") FileInstall("Sounds\Alarm07.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm07.mp3") FileInstall("Sounds\Alarm08.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm08.mp3") FileInstall("Sounds\Alarm09.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm09.mp3") FileInstall("Sounds\Alarm10.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm10.mp3") FileInstall("Sounds\Alarm11.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm11.mp3") FileInstall("Sounds\Alarm12.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm12.mp3") FileInstall("Sounds\Alarm13.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm13.mp3") FileInstall("Sounds\Alarm14.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm14.mp3") FileInstall("Sounds\Alarm15.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm15.mp3") FileInstall("Sounds\Alarm16.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm16.mp3") FileInstall("Sounds\Alarm17.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm17.mp3") FileInstall("Sounds\Alarm18.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm18.mp3") FileInstall("Sounds\Alarm19.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm19.mp3") FileInstall("Sounds\Alarm20.mp3", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\Alarm20.mp3") FileInstall("Icons\play.ico", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") FileInstall("Icons\stop.ico", @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\stop.ico") _Uskin_LoadDLL() _USkin_Init(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Themes\Theme.msstyles") TraySetToolTip("Namaz Vakitleri") $tray_showhide = TrayCreateItem("Gizle") TrayCreateItem("") $tray_about = TrayCreateItem("Hakkında") $tray_exit = TrayCreateItem("Çıkış") TraySetState() TraySetClick(16) TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "showGUI") GUIRegisterMsg(0x0024, "WM_GETMINMAXINFO") $warn = getSettings("warn") $sound_on = getSettings("sound_on") $sound = StringReplace(getSettings("sound"), "Alarm", "Alarm ") $warnprice = getSettings("warnprice") $warnstyle = getSettings("warnstyle") $warntop = getSettings("warntop") $warnlocation = getSettings("warnlocation") $gui_settings = GUICreate("Ayarlar", 300, 270) GUICtrlCreateGroup("Bildirimler", 10, 10, 277, 120) $ctrl_startup = GUICtrlCreateCheckbox("Programı başlangıçta çalıştır", 20, 30) $reg_startup = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal") If Not @error Then GUICtrlSetState(-2, 1) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal", "REG_SZ",'"' & @ScriptFullPath & '" -startup') EndIf $ctrl_warn = GUICtrlCreateCheckbox("Namaz vaktinden 5 dakika önce uyar", 20, 50) GUICtrlSetState(-1, $warn) $ctrl_sound_on = GUICtrlCreateCheckbox("Ses çal:", 35, 75) GUICtrlSetState(-1, $sound_on) $ctrl_sound = GUICtrlCreateCombo("", 95, 75, 110, 20, $combostyle) GUICtrlSetData(-1, "Ezan Sesi|Alarm 01|Alarm 02|Alarm 03|Alarm 04|Alarm 05|Alarm 06|Alarm 07|Alarm 08|Alarm 09|Alarm 10|Alarm 11|Alarm 12|Alarm 13|Alarm 14|Alarm 15|Alarm 16|Alarm 17|Alarm 18|Alarm 19|Alarm 20", $sound) $ctrl_play = GUICtrlCreateButton("", 210, 74, 30, 22, 0x0040) GUICtrlSetImage(-1, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") GUICtrlSetFont(-1, 10) $ctrl_warnprice = GUICtrlCreateCheckbox("Namaz vakti gelince ezan sesi çal", 20, 100) GUICtrlSetState(-1, $warnprice) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Süre Gösterimi", 10, 135, 277, 120) $ctrl_warnstyle = GUICtrlCreateCombo("", 20, 160, 200, 20, $combostyle) GUICtrlSetData(-1, "Kare içerisinde göster|Balon içerisinde göster", $warnstyle) $ctrl_warntop = GUICtrlCreateCombo("", 20, 190, 200, 20, $combostyle) GUICtrlSetData(-1, "Her zaman göster|Masaüstünde göster", $warntop) $ctrl_warnlocation = GUICtrlCreateCombo("", 20, 220, 200, 20, $combostyle) GUICtrlSetData(-1, "Sağ altta göster|Sol altta göster|Sağ üstte göster|Sol üstte göster", $warnlocation) GUICtrlCreateGroup("", -99, -99, 1, 1) $gui = GUICreate("Namaz Vakitleri", 520, 350, Default, Default, 0x00040000 + 0x00020000 + 0x00010000) GUISetState(@SW_SHOW) For $id In $CountryIds $countries = $countries & "|" & getCountryName($id) Next $countries = StringReplace($countries, "|", "", 1) $ctrl_countries = GUICtrlCreateCombo("", 10, 20, 120, 20, $combostyle) GUICtrlSetData(-1, $countries) GUICtrlSetTip(-2, "Ülke") $ctrl_cities = GUICtrlCreateCombo("", 135, 20, 120, 20, $combostyle) GUICtrlSetTip(-1, "Şehir - Eyalet") $ctrl_counties = GUICtrlCreateCombo("", 260, 20, 120, 20, $combostyle) GUICtrlSetTip(-1, "İlçe") GUICtrlCreateDate("", 385, 20, 120, 20, 0) GUICtrlSetState(-1, 128) $ramadan = GUICtrlCreateCheckbox("İftar / İmsak Vakti İçin Kalan Süreyi Göster", 10, 250, 220, 20) $ramadan1 = GUICtrlCreateCheckbox("Bilgisayar Sesini Kapat", 10, 280, 220, 20) $ramadan_reg = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan") $ramadan1_reg = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan1") GUICtrlSetState(-2, $ramadan_reg) GUICtrlSetState(-3, 128) GUICtrlSetState(-1, $ramadan1_reg) GUICtrlSetState(-1, 128) $ctrl_settings = GUICtrlCreateButton("Ayarlar", 240, 250, 105, 20) $link_s = GUICtrlCreateLabel("www.sanaldosya.org", 396, 250, 120, 20) GUICtrlSetFont(-1, Default, Default, Default) GUICtrlSetColor(-2, 0x0081e6) GUICtrlSetCursor(-3, 0) Global $Table = _GUICtrlTable_Create(10, 60, 246, 25, 6, 2) _GUICtrlTable_Set_Justify_All($Table, 1, 1) _GUICtrlTable_Set_TextFont_All($Table, 8.5, 800, 0, "Tahoma") _GUICtrlTable_Set_TextColor_All($Table, 0x555555) For $i = 1 To 6 setTable($i) Next _GUICtrlTable_Set_Border_Table($Table, 0x555555) $sel_country = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_country") $sel_city = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_city") $sel_county = RegRead("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_county") If ($sel_country = False) Or ($sel_city = False) Or ($sel_county = False) Then $sel_country = "2" $sel_city = "539" $sel_county = "9541" EndIf If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then GUISetState(@SW_HIDE) TrayItemSetText($tray_showhide, "Göster") EndIf While 1 $pos = WinGetPos($gui) $msg = GUIGetMsg(1) _ReduceMemory() Global $date = @MDAY & @MON & @YEAR If Not $msg[1] = $gui_settings Then If Not ($hour = @HOUR & @MIN) Then $hour = @HOUR & @MIN $update = 1 $msg[0] = $ctrl_counties $msg[1] = $gui EndIf EndIf If $update_ramadan = 1 Then If GUICtrlRead($ramadan) = 1 Then $msg[0] = $ramadan $msg[1] = $gui Else ToolTip("") EndIf $update_ramadan = 0 EndIf If $update_ramadan1 = 1 Then If GUICtrlRead($ramadan1) = 1 Then $msg[0] = $ramadan1 $msg[1] = $gui Else ToolTip("") EndIf $update_ramadan1 = 0 EndIf If ($done <= 4) Then Switch $done Case 1 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf $name = getCountryName($sel_country) GUICtrlSetData($ctrl_countries, $name) $msg[0] = $ctrl_countries $msg[1] = $gui Case 2 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcities Then $cities = getCities($country_id) For $i = 1 To UBound($cities) - 1 If $cities[$i][1] = $sel_city Then $name = $cities[$i][2] ExitLoop EndIf Next GUICtrlSetData($ctrl_cities, $name) $msg[0] = $ctrl_cities $msg[1] = $gui EndIf Case 3 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcounties Then $counties = getCounties($city_id) For $i = 1 To UBound($counties) - 1 If $counties[$i][1] = $sel_county Then $name = $counties[$i][2] ExitLoop EndIf Next GUICtrlSetData($ctrl_counties, $name) $msg[0] = $ctrl_counties $msg[1] = $gui EndIf Case 4 If Not($cmdline[0] = 0) And ($cmdline[1] = "-startup") Then $update = 1 EndIf If $downloadcounties Then $msg[0] = $ramadan $msg[0] = $ramadan1 $msg[1] = $gui EndIf EndSwitch $done+=1 EndIf Switch $msg[1] Case $gui Switch $msg[0] Case -3, -4 GUISetState(@SW_HIDE, $gui) TrayItemSetText($tray_showhide, "Göster") Case $link_s ShellExecute("http://sanaldosya.org") Case $ramadan1 Local $remaining RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan1", "REG_SZ", GUICtrlRead($ramadan1)) Case $ramadan Local $remaining RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "ramadan", "REG_SZ", GUICtrlRead($ramadan)) If ($time = 0) Or ($time = 5) Or ($time = 6) Then If Not($time = 0) Then If getMin($PT[6]) > getFajr() Then $remaining = returnMin("24:00") - returnMin(@HOUR & ":" & @MIN) + returnMin(getFajr()) $remaining = convertFullHour($remaining) Else $fajr = getFajr() $remaining = convertFullHour(returnMin($fajr) - returnMin(@HOUR & ":" & @MIN)) EndIf Else $fajr = getFajr() $remaining = convertFullHour(returnMin($fajr) - returnMin(@HOUR & ":" & @MIN)) EndIf If GUICtrlRead($ramadan) = 1 Then setTip("İmsağa kalan süre", "İmsağa " & getHour($remaining) & " saat " & getMin($remaining) & " dakika kaldı.") Else ToolTip("") EndIf Else $remaining = convertFullHour(returnMin($PT[5]) - returnMin(@HOUR & ":" & @MIN)) If GUICtrlRead($ramadan) = 1 Then setTip("İftara kalan süre", "İftara " & getHour($remaining) & " saat " & getMin($remaining) & " dakika kaldı.") Else ToolTip("") EndIf EndIf Case $ctrl_settings GUISetState(@SW_DISABLE, $gui) GUISetState(@SW_LOCK, $gui) GUISetState(@SW_SHOW, $gui_settings) Case $ctrl_countries If Not StringInStr($last_country, GUICtrlRead($ctrl_countries), 1) Then $country_id = getCountryId(GUICtrlRead($ctrl_countries)) $downloadcities = downloadCities($country_id) If $downloadcities Then $last_country = GUICtrlRead($ctrl_countries) resetcombo($ctrl_cities) resetcombo($ctrl_counties) $city_names = "" $cities = getCities($country_id) For $i = 1 To UBound($cities) - 1 If StringInStr($cities[$i][2], "--") Then ContinueLoop EndIf $city_names = $city_names & "|" & $cities[$i][2] Next GUICtrlSetData($ctrl_cities, $city_names) GUICtrlSetState($ramadan, 128) ToolTip("") Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf Case $ctrl_cities If Not StringInStr($last_city, GUICtrlRead($ctrl_cities), 1) And $downloadcities Then $city_name = GUICtrlRead($ctrl_cities) For $i = 1 To UBound($cities) - 1 If $cities[$i][2] = $city_name Then $city_id = $cities[$i][1] ExitLoop EndIf Next $downloadcounties = downloadCounties($city_id) If $downloadcounties Then $last_city = GUICtrlRead($ctrl_cities) resetcombo($ctrl_counties) $county_names = "" $counties = getCounties($city_id) For $i = 1 To UBound($counties) - 1 $county_names = $county_names & "|" & $counties[$i][2] Next GUICtrlSetData($ctrl_counties, $county_names) GUICtrlSetState($ramadan, 128) ToolTip("") Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf Case $ctrl_counties If (StringInStr($last_county, GUICtrlRead($ctrl_counties), 1) = False) Or ($update = 1) Then If $downloadcities And $downloadcounties Then If $update = 0 Then $last_time = 0 $county_name = GUICtrlRead($ctrl_counties) For $i = 1 To UBound($counties) - 1 If $counties[$i][2] = $county_name Then $county_id = $counties[$i][1] ExitLoop EndIf Next If downloadPrayerTimes($country_id, $city_id, $county_id) Then $last_county = GUICtrlRead($ctrl_counties) For $i = 1 To 6 setTable($i) Next $PT = getPrayerTimes($country_id, $city_id, $county_id) $time = 0 For $i = 6 To 1 Step -1 If GetUnixTimeStamp() > GetUnixTimeStamp(0, 0, 0, getHour(backMin($PT[$i])), getMin(backMin($PT[$i]))) Then _GUICtrlTable_Set_TextColor_All($Table, 0x555555) _GUICtrlTable_Set_TextColor_Row($Table, $i, 0xff0000) $time = $i ExitLoop EndIf Next For $i = 1 To 6 setTable($i, $PT[$i]) Next RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_country", "REG_SZ", $country_id) RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_city", "REG_SZ", $city_id) RegWrite("HKEY_CURRENT_USER\Software\Sanal Dosya\Namaz Vakitleri", "sel_county", "REG_SZ", $county_id) $last_time = $PT[$time] If $update = 1 Then If Not $time = 0 Then If $PT[$time] = @HOUR & ":" & @MIN Then If $warnprice = "1" Then $pricesound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\EzanSesi.mp3") _SoundPlay($pricesound) MsgBox(64, "Bilgi", getTime($time)) _SoundStop($pricesound) EndIf EndIf EndIf EndIf If $warn = 1 Then Local $reminute, $pid If $time = 6 Then $reminute = returnMin(getFajr()) - returnMin(@HOUR & ":" & @MIN) Else $reminute = returnMin($PT[$time + 1]) - returnMin(@HOUR & ":" & @MIN) EndIf If $reminute = 5 Then If $sound_on = 1 Then $alarmsound = StringReplace($sound, " ", "") $warnsound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $alarmsound & ".mp3") _SoundPlay($warnsound) EndIf Switch $time Case 1 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Sabah namazına 5 dakika kaldı.'')"') Case 2 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Öğle namazına 5 dakika kaldı.'')"') Case 3 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İkindi namazına 5 dakika kaldı.'')"') Case 4 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Akşam namazına 5 dakika kaldı.'')"') Case 5 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''Yatsı namazına 5 dakika kaldı.'')"') Case 6 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İmsağa 5 dakika kaldı.'')"') Case 0 $pid = Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(64, ''Bilgi'', ''İmsağa 5 dakika kaldı.'')"') EndSwitch If $sound_on = 1 Then WinWait("Bilgi") While 1 Sleep(100) $pidexists = ProcessExists($pid) $sexists = StringInStr(_SoundStatus($warnsound), "stopped") If $pidexists Then If $sexists Then $warnsound = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $alarmsound & ".mp3") _SoundPlay($warnsound) EndIf Else _SoundStop($warnsound) ExitLoop EndIf Wend EndIf EndIf EndIf If $time = 6 Then $tip_time = returnMin(getFajr()) - returnMin(@HOUR & ":" & @MIN) Else $tip_time = returnMin($PT[$time + 1]) - returnMin(@HOUR & ":" & @MIN) EndIf $tip_time_formatted = convertFullHour($tip_time) $tip_hour = getHour($tip_time_formatted) $tip_min = getHour($tip_time_formatted) Switch $time Case 1 TraySetToolTip("Sabah namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 2 TraySetToolTip("Öğle namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 3 TraySetToolTip("İkindi namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 4 TraySetToolTip("Akşam namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 5 TraySetToolTip("Yatsı namazına " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 6 TraySetToolTip("İmsak vaktine " & $tip_hour & " saat " & $tip_min & " dakika var.") Case 0 TraySetToolTip("İmsak vaktine " & $tip_hour & " saat " & $tip_min & " dakika var.") EndSwitch $update = 0 GUICtrlSetState($ramadan1, 64) $update_ramadan1 = 1 GUICtrlSetState($ramadan, 64) $update_ramadan = 1 Else If Not $update = 1 Then noConnection() EndIf EndIf EndIf $update = 0 EndIf EndSwitch Case $gui_settings $play_status = _SoundStatus($play) If ($play_status = "stopped") And ($playing = 1) Then GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 EndIf If $sendwarn = 1 Then $msg[0] = $ctrl_warn $sendwarn = 0 EndIf If $sendsoundon = 1 Then $msg[0] = $ctrl_sound_on $sendsoundon = 0 EndIf Switch $msg[0] Case -3 _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 setSettings("warn") setSettings("sound_on") setSettings("sound") setSettings("warnprice") setSettings("warnstyle") setSettings("warntop") setSettings("warnlocation") $warn = getSettings("warn") $sound_on = getSettings("sound_on") $sound = StringReplace(getSettings("sound"), "Alarm", "Alarm ") $warnprice = getSettings("warnprice") $warnstyle = getSettings("warnstyle") $warntop = getSettings("warntop") $warnlocation = getSettings("warnlocation") If GUICtrlRead($ctrl_startup) = 1 Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal", "REG_SZ",'"' & @ScriptFullPath & '" -startup') Else RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "ptimessanal") EndIf GUISetState(@SW_ENABLE, $gui) GUISetState(@SW_UNLOCK, $gui) GUISetState(@SW_SHOW, $gui) GUISetState(@SW_HIDE, $gui_settings) If GUICtrlRead($ramadan) = 1 Then $update_ramadan = 1 EndIf If GUICtrlRead($ramadan1) = 1 Then $update_ramadan1 = 1 EndIf Case $ctrl_warn _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 If GUICtrlRead($ctrl_warn) = 1 Then GUICtrlSetState($ctrl_sound_on, 64) $sendsoundon = 1 Else GUICtrlSetState($ctrl_sound_on, 128) GUICtrlSetState($ctrl_sound_on, 4) $sendsoundon = 1 EndIf Case $ctrl_sound_on _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 If GUICtrlRead($ctrl_sound_on) = 1 Then GUICtrlSetState($ctrl_sound, 64) GUICtrlSetState($ctrl_play, 64) Else GUICtrlSetState($ctrl_sound, 128) GUICtrlSetState($ctrl_play, 128) EndIf 8) Case $ctrl_sound _SoundStop($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\play.ico") $playing = 0 Case $ctrl_play If $playing = 1 Then _SoundStop($play) Else $read = GUICtrlRead($ctrl_sound) $sound = StringReplace($read, " ", "") If FileExists(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $sound & ".mp3") Then $play = _SoundOpen(@AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Sounds\" & $sound & ".mp3") _SoundPlay($play) GUICtrlSetImage($ctrl_play, @AppDataDir & "\Sanal Dosya\Namaz Vakitleri\Icons\stop.ico") $playing = 1 EndIf EndIf EndSwitch EndSwitch $ci = GUIGetCursorInfo() If IsArray($ci) Then If $ci[4] = $link_s Then If $underlined = 0 Then GUICtrlSetFont($link_s, Default, Default, 4) $underlined = 1 EndIf Else If $underlined = 1 Then GUICtrlSetFont($link_s, Default, Default, Default) $underlined = 0 EndIf EndIf Else If $underlined = 1 Then GUICtrlSetFont($link_s, Default, Default, Default) $underlined = 0 EndIf EndIf If TrayItemGetState($tray_exit) = 65 Then TrayItemSetState($tray_exit, 4) Exit ElseIf TrayItemGetState($tray_about) = 65 Then TrayItemSetState($tray_about, 4) about() ElseIf TrayItemGetState($tray_showhide) = 65 Then TrayItemSetState($tray_showhide, 4) If TrayItemGetText($tray_showhide) = "Gizle" Then GUISetState(@SW_HIDE) TrayItemSetText($tray_showhide, "Göster") Else GUISetState(@SW_SHOW) GUISetState(@SW_RESTORE) WinActivate("Namaz Vakitleri") TrayItemSetText($tray_showhide, "Gizle") EndIf EndIf WEnd[/spoiler]
  12. Selam Arkadaşlar; Bizim POS Yazarkasalardan ciroları alan bir program var. Ekran görüntüsü ektedir. Fakat o anki değerleri alıyor. Bunları belli aralıklarla Ekrandaki değerleri okutup (10,15,20,25,30 dk gibi) excel veya text farketmez kaydedip bir programa ihtiyacım var. AutoIT konusunu bilmiyorum vb .net te vasatın üzerindeyim. Bu konuda yardımlarınızı ve fikirlerinizi bekliyorum.
  13. Program çok iyi birde vakit gelince seçekli olarak ezan okusun veya bilgisayar sesini mute yapsın. istersen bir batch ile yapabilirsin.    Orn. Shell("Nircmd.exe mutesysvolume 2")         --- 1 Mute                                                                            --- 0 on volume                                                                            --- 2 toogle volume   gibi nircmd yi araştır. bayağı özellikleri var.
  14. 2,5 '' dik USB kutuda dikkat ederseniz USB Giriş ve chip var bunları plastik içerisine almışlar. Bu olabilir. Fakat Bu sistemler uzun süreli kullanımlar için uygun olmaz. 
  15. pascal multiboot diye aratabilirsin.   veya linki  https://www.wetransfer.com/downloads/c3e1e7f193b8cd1074a0680677f4ade520140128181020/f0420cef016526cc5d73f950bcf7268820140128181020/6364f2
  16. Projene ana fikir olarak ve detayları olarak yazıya geçir ve patent alma için başvur. Bu süreç 6 ay ile 2yıl arasında sürer. Bu konuda yetkin bir avukatla görüş. Süreyi daralta bilir.    Patent sende olunca kim bir alıntı veya çalma işleminde bulunursa yasal yollara başvurabilirsin.
  17. Hp va Compaq mokdellerde WİFİ çekim problemine rastladım. Wifi Kartına Anten kablosu yanlış yere takılmıstı.(Yani Wİfi Antensiz çalışıyordu) Düzeltince çok iyi çekmeye başlamıstı. Bunun fabrakasyon hata olması muhtemeldir.Notebooklardaki anten ise 1 db i bile geçmez
  18.  Bir yazılımla Oyunun prosesin den veri çekilip Usb ye bilgi aktarılır. Bu işlem için PC den çıkış almak gerekir.(USB olabilir). PIC (Elektronik bilgisi gerekli.) ile PC den gelen veri kadranın algılacayağı voltaja dönüştürülür. vb.vb.
  19. Arkadaşlar  net hızını değil (kbit/sn) değil sadece kablosuz seviyesini gösterir.
  20. Arkadaşlar link ölmüş Yenilemek mümkün mü?
  21. ben 600 verebilirim..    Bir kaç cihazla ilgili resim ekle.. daha inandırıcı olur..
  22. Şu anda sipariş tamamlanmış görünüyor. Başka ürünlerde ödeme şeklini tekrar soracaktır.    Yanlış bilmiyorsam; K.K. ile ödemelerde %1,95 lik bir + fark oluyor. .Site bankadan bankadan ertesi gün parayı alırken banka kesinti yapıyor. Bunu son kullanıcıya yansıtıyorlar.   -- Son mesajımı dikkate almayın. Web ten kaynaklı 2 defa gönderilmiş...
×
×
  • Create New...