Ir para o conteúdo

Arquivado

Este tópico foi arquivado, e está fechado a novas respostas.

Ridelight

[Closed Source] MultiTweaks alpha #1

Mensagens Recomendadas

Ridelight    8
Ridelight

Pequena aplicação para monitorizar a utilização da memória fisica (ram) do computador.

03112007021752rx2.png

Screen da versão 2.0

03142007180625im4.png

Screen da versão 2.2 (MMF Dark Silver Bar)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Está engraçada a aplicação.

Os valores deram-me certo.

Mas prefiro em widgets.

Eh pá este a nivel grafico não e tão apelativo, mas a nivel de consumo de recursos é mais leve !

Quanto ao grafismo posso sempre tentar fazer algo do género widget e com opção run on startup !

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

MMf2 versão mt beta  :thumbsup:

Podias disponibilizar o código. Tenho curiosidade em ver as .NET librarys de hardware ou coisa parecida.

Podes?

Posso

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Guest tsenart   
Guest tsenart

Lol....

Enganaste-te....

Num 1.  Não disponibilizaste o código.

Num 2.  Esta versão beta está mesmo beta!!! Os botões de fechar, redimensionar(aliás... qualquer butão) não funcionam. E a interface está pouco intuitiva. Lol

Cumps :thumbsup:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Triton    12
Triton

Não funciona em Windows x64, não dá nenhum crash, simplesmente quando inicia a aplicação abre-me diálogos com OK infinitos... :thumbsup:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
karva    0
karva

Não funciona em Windows x64, não dá nenhum crash, simplesmente quando inicia a aplicação abre-me diálogos com OK infinitos... :thumbsup:

Acontece-me o mesmo no portatil (Pentium M x86)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Num 2.   Esta versão beta está mesmo beta!!! Os botões de fechar, redimensionar(aliás... qualquer butão) não funcionam. E a interface está pouco intuitiva. Lol

Pois está, eu disse !

MMf2 versão mt beta  :thumbsup:

Num 1.  Não disponibilizaste o código.

    
  Public Structure MEMORYSTATUS
        Dim dwLength As Integer
        Dim dwMemoryLoad As Integer
        Dim dwTotalPhys As Integer
        Dim dwAvailPhys As Integer
        Dim dwTotalPageFile As Integer
        Dim dwAvailPageFile As Integer
        Dim dwTotalVirtual As Integer
        Dim dwAvailVirtual As Integer
    End Structure
    Public Declare Sub GlobalMemoryStatus Lib "kernel32" (ByRef lpBuffer As MEMORYSTATUS)
    Public GetMem As MEMORYSTATUS
    Public Percent As Integer
    Public Total, Free, Used As Double
    Public getX, getY As Integer

    Public Sub Get_Total_Memory()
        Dim GetUnity As String = ""
        GlobalMemoryStatus(GetMem)
        Dim GetTotMem As Integer = GetMem.dwTotalPhys

        Percent = GetMem.dwMemoryLoad

        If GetTotMem < 1000000000 Then
            GetTotMem = GetTotMem / (1024 ^ 2)
            GetUnity = " Mb"
        ElseIf GetTotMem >= 1000000000 Then
            GetTotMem = GetTotMem / (1024 ^ 3)
            GetUnity = " Gb"
        End If

        Dim abc As String = "Total : "
        Main.Label3.Text = abc & Strings.Format(GetTotMem, "0.0") & GetUnity
    End Sub

    Public Sub Get_Available_Memory()
        Dim GetUnity As String = ""
        Dim GetAvailMem As Integer = GetMem.dwAvailPhys

        If GetAvailMem < 1000000000 Then
            GetAvailMem = GetAvailMem / (1024 ^ 2) 
            GetUnity = " Mb"
        ElseIf GetAvailMem >= 1000000000 Then
            GetAvailMem = GetAvailMem / (1024 ^ 3)
            GetUnity = " Gb"
        End If

        Dim abc As String = "Disponivel : "
        Main.Label2.Text = abc & Strings.Format(GetAvailMem, "0.0") & GetUnity
    End Sub

    Public Sub Get_Used_Memory()
        Dim GetUnity As String = ""
        Dim GetUsedMem As Integer = GetMem.dwTotalPhys - GetMem.dwAvailPhys

        If GetUsedMem < 1000000000 Then
            GetUsedMem = GetUsedMem / (1024 ^ 2) 
            GetUnity = " Mb"
        ElseIf GetUsedMem >= 1000000000 Then
            GetUsedMem = GetUsedMem / (1024 ^ 3)
            GetUnity = " Gb"
        End If

        Main.ProgressBar1.Minimum = 0
        Main.ProgressBar1.Maximum = 100
        Main.ProgressBar1.Value = Percent

        Dim abc As String = "Utilizada : "
        Main.Label1.Text = abc & Strings.Format(GetUsedMem, "0.0") & GetUnity
        Main.Label9.Text = Percent & "%"



    End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Pois a outra era uma experiencia, foi feita a pressa com a primeira imagem que me apareceu !

Esta já fui eu que fiz o background, está simples mas até curti !

Aquele botão fechar é que...  :thumbsup:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Não funciona em Windows x64, não dá nenhum crash, simplesmente quando inicia a aplicação abre-me diálogos com OK infinitos... :thumbsup:

Acontece-me o mesmo no portatil (Pentium M x86)

Verifiquem se com esta versão já funciona !

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
djthyrax    11
djthyrax

"A aplicação falhou a inicialização correca (0xc0000135).Clique em OK para terminar a aplicação."

Será da .NET framework?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Fica aqui a imagem da versão mais recente para quem não experimentou e para quem dá erro ao correr a aplicação, o branco a volta "não existe"

03102007171137vq3.png

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade