Alperen.Kilicarslan Posted May 4, 2012 Share Posted May 4, 2012 [center][font="Palatino Linotype"][size="3"]İyi akşamlar arkadaşlar. Çalışmamda bir hata aldım ama nedenini anlayamadım butona tıkladığımda bu hatyı alıyorum. normal apz dosyasında çalışıyor ama kendi projeme kopyalama yaptığımda bu hatayı veriyor ve hata arda arda geliyor. Buyrun resim;[/size][/font] [/center][font="Palatino Linotype"][size="3"] [/size][/font][center][font="Palatino Linotype"][size="3"][img]http://c1205.hizliresim.com/x/4/59r8z.jpg[/img][/size][/font] [/center] Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 4, 2012 Editor Share Posted May 4, 2012 CMU plugini boş değer döndürüyor.Kodlarda hata olabilir. Quote Link to comment Share on other sites More sharing options...
Alperen.Kilicarslan Posted May 4, 2012 Author Share Posted May 4, 2012 [quote name='pairs' date='04 May 2012 - 21:22 ' timestamp='1336155777' post='1196508'] CMU plugini boş değer döndürüyor.Kodlarda hata olabilir. [/quote] Kodlar Bunlar. [font="'Microsoft Sans Serif"]-- SÜRÜCÜ DOLULUK GÖSTERGESİ [/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]Progress.SetRange("Progress1", 0, 100); [/font] [font="'Microsoft Sans Serif"]Progress.SetCurrentPos("Progress1", (Drive.GetUsedSpace ("C:")/Drive.GetSize("C:")) *100)[/font] [font="'Microsoft Sans Serif"]Label.SetText("Label1", Math.Round(Drive.GetFreeSpace ("C:")*0.001,1).." GB Boş, Toplam:"); [/font] [font="'Microsoft Sans Serif"]Label.SetText("Label2", Math.Round(Drive.GetSize ("C:")*0.001,1).." GB");[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]tDrives = Drive.Enumerate();[/font] [font="'Microsoft Sans Serif"]local R = 2;[/font] [font="'Microsoft Sans Serif"] nType = Drive.GetType(tDrives[R]);[/font] [font="'Microsoft Sans Serif"] tLabel = Drive.GetInformation(tDrives[R]);[/font] [font="'Microsoft Sans Serif"] sLabel = tLabel.Label;[/font] [font="'Microsoft Sans Serif"]Label.SetText("Label3", sLabel);[/font] [font="'Microsoft Sans Serif"]Label.SetText("Label4", tDrives [R]);[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- KULLANICI BİLGİLERİ[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]user = Registry.GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", "DefaultUserName", true)[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.user", user)[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- İŞLETİM SİSTEMİ BİLGİLERİ[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]osName = System.GetOSName(); -- işletim sistemi ismi[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.os", osName)[/font] [font="'Microsoft Sans Serif"]sistem = System.GetOSVersionInfo(); -- servis paketi[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.sp", sistem.CSDVersion)[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- İŞLEMCİ BİLGİLERİ[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]cpu = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", "ProcessorNameString", false);[/font] [font="'Microsoft Sans Serif"]Paragraph.SetText("parag.cpu", cpu)[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- HARD DİSK BİLGİLERİ[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]function GetHDDInfo(sDRIVE)[/font] [font="'Microsoft Sans Serif"] sDRIVE=String.Replace(sDRIVE,":","",false)[/font] [font="'Microsoft Sans Serif"] sDRIVE=String.Replace(sDRIVE,"\\","",false)[/font] [font="'Microsoft Sans Serif"] tbDrives = Drive.Enumerate();[/font] [font="'Microsoft Sans Serif"] if tbDrives then[/font] [font="'Microsoft Sans Serif"] nHDDCount=0[/font] [font="'Microsoft Sans Serif"] for i,v in pairs(tbDrives) do[/font] [font="'Microsoft Sans Serif"] if Drive.GetType(v) == 3 then[/font] [font="'Microsoft Sans Serif"] cDRIVE=String.Replace(v,":\\","",false)[/font] [font="'Microsoft Sans Serif"] cDRIVE=String.Upper(cDRIVE)[/font] [font="'Microsoft Sans Serif"] if String.Upper(sDRIVE) == cDRIVE then[/font] [font="'Microsoft Sans Serif"] tbRet={}[/font] [font="'Microsoft Sans Serif"] tbRet.VendorModel = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDVendorModel", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);[/font] [font="'Microsoft Sans Serif"] tbRet.HardwareSerial = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDHardwareSerial", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);[/font] [font="'Microsoft Sans Serif"] tbRet.FirmwareVersion = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDFirmwareVersion", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);[/font] [font="'Microsoft Sans Serif"] nHDDCount=nHDDCount+1[/font] [font="'Microsoft Sans Serif"] end[/font] [font="'Microsoft Sans Serif"] end[/font] [font="'Microsoft Sans Serif"] end[/font] [font="'Microsoft Sans Serif"] else[/font] [font="'Microsoft Sans Serif"] tbRet = 0[/font] [font="'Microsoft Sans Serif"] end[/font] [font="'Microsoft Sans Serif"] return tbRet[/font] [font="'Microsoft Sans Serif"]end[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]tbHDD=GetHDDInfo(_SourceDrive)[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.hddisim", tbHDD.VendorModel) -- hard disk modeli[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.serial", tbHDD.HardwareSerial) -- hard disk seriali[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- EKRAN KARTI BİLGİLERİ[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]ekran_ismi = Registry.GetValue(HKEY_LOCAL_MACHINE, "SYSTEM\\ControlSet001\\Control\\Class\\{4D36E968-E325-11CE-BFC1-08002BE10318}\\0000", "DriverDesc", true); -- e. kartı modeli[/font] [font="'Microsoft Sans Serif"]Label.SetText("label_ekran1", ekran_ismi);[/font] [font="'Microsoft Sans Serif"]ekran_uretici = Registry.GetValue(HKEY_LOCAL_MACHINE, "SYSTEM\\ControlSet001\\Control\\Class\\{4D36E968-E325-11CE-BFC1-08002BE10318}\\0000", "ProviderName", true); -- e. kartı ürreticisi[/font] [font="'Microsoft Sans Serif"]Label.SetText("label_ekran2", ekran_uretici);[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- RAM BİLGİLERİ[/font] [font="'Microsoft Sans Serif"]ram = System.GetMemoryInfo();[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.ram", ram.TotalRAM.." MB"); -- toplam ram[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.ramtotal", ram.AvailableRAM.." MB"); -- kullanılabilir ram[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- % kaç kullanılabilir olduğunu hesapla [/font] [font="'Microsoft Sans Serif"]fark = ram.TotalRAM-ram.AvailableRAM -- toplam ram ile kullanıclabilir ramaradaki farkı bul[/font] [font="'Microsoft Sans Serif"]yuzde1 = ram.TotalRAM/100 -- toplam ramin yüzde 1'ini bul[/font] [font="'Microsoft Sans Serif"]yuzde = ram.AvailableRAM/yuzde1 -- kullanılabilir ram'i toplam ram'in yüzde 1'ine böl ve % kaç olduğunu bul[/font] [font="'Microsoft Sans Serif"]yuvarla = Math.Round(yuzde, 0) -- çıkan sonucu yuvarla[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.ramyuzde", "(% "..yuvarla..")")[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- EKRAN ÇÖZÜNÜRLÜĞÜ BİLGİLERİ[/font] [font="'Microsoft Sans Serif"]cozunurluk= System.GetDisplayInfo();[/font] [font="'Microsoft Sans Serif"]x = cozunurluk.Width -- genişlik[/font] [font="'Microsoft Sans Serif"]y = cozunurluk.Height -- yükseklik[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]Label.SetText("label.cozunurluk", x.." X "..y)[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]-- LAN BİLGİLERİ[/font] [font="'Microsoft Sans Serif"]lan = System.GetLANInfo()[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.ip", lan.IP) -- ağ ipsi[/font] [font="'Microsoft Sans Serif"]Label.SetText("label.lanuser", lan.User) -- ağ ismi[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]--Sistem Türü Bit[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]kacbit = System.Is64BitOS()[/font] [font="'Microsoft Sans Serif"]if kacbit == true then[/font] [font="'Microsoft Sans Serif"]Label.SetText("Label19", "64 Bit")[/font] [font="'Microsoft Sans Serif"]elseif kacbit == false then[/font] [font="'Microsoft Sans Serif"]Label.SetText("Label19", "32 Bit")[/font] [font="'Microsoft Sans Serif"]end[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]--Ram Progress[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]MemInfo = System.GetMemoryInfo();[/font] [font="'Microsoft Sans Serif"]local MbToByte = MemInfo.TotalRAM*1024*1024;[/font] [font="'Microsoft Sans Serif"]Progress.SetCurrentPos("ramp", MemInfo.MemoryLoad);[/font] [font="'Microsoft Sans Serif"]ram = Progress.GetCurrentPos("ramp");[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]--Cpu Progress[/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"] [/font] [font="'Microsoft Sans Serif"]CPUTotal = CMU.GetCPUsageTotal();[/font] [font="'Microsoft Sans Serif"]Progress.SetCurrentPos("cpup", CPUTotal);[/font] [font="'Microsoft Sans Serif"]cpu = Progress.GetCurrentPos("cpup");[/font] [font="'Microsoft Sans Serif"]Label.SetText("%cpu", "% "..cpu);[/font] Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted May 4, 2012 Editor Share Posted May 4, 2012 Plugin aktifmi.Birde projeni verirsen daha iyi olur. Quote Link to comment Share on other sites More sharing options...
HalilYanar Posted May 4, 2012 Share Posted May 4, 2012 (edited) Dialog kısmında On timer evresinde 126. satırda hata var kontrol et. Sayfa1'de Button1 nesnesinin on click evresinin 1. satırında hata var kontrol et. Plugins kısmından CMU plugini seçilmişmi kontrol et. Edited May 4, 2012 by HalilYanar Quote Link to comment Share on other sites More sharing options...
Alperen.Kilicarslan Posted May 5, 2012 Author Share Posted May 5, 2012 [quote name='pairs' date='04 May 2012 - 22:47 ' timestamp='1336160824' post='1196581'] Plugin aktifmi.Birde projeni verirsen daha iyi olur. [/quote] [quote name='HalilYanar' date='04 May 2012 - 23:05 ' timestamp='1336161956' post='1196606'] Dialog kısmında On timer evresinde 126. satırda hata var kontrol et. Sayfa1'de Button1 nesnesinin on click evresinin 1. satırında hata var kontrol et. Plugins kısmından CMU plugini seçilmişmi kontrol et. [/quote] Plugin kısmından CMU plugini Seçmemişim. Şuan seçtim Düzeldi Teşekkür Ederim. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.