• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

[Closed Source] MultiTweaks alpha #1

100 mensagens neste tópico

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Os valores que apresenta não bate certo com os que me aparecem ao fazer ctrl alt del, é suposto?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

10 mb's de discrepancia.

Deve ser a memoria usada pelo proprio programa que não é contabilizada.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Disponivel versão 1.00.1

Changelog:

- Erro de contagem de memória (Fixed)

- Erro ortigráfico em memória disponivel (Fixed)

- Adicionado alerta de memória fisica demasiado baixo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Está engraçada a aplicação.

Os valores deram-me certo.

Mas prefiro em widgets.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Podes?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O valor da memoria total nao se  ve muito bem, pois o fundo nessa zona e claro, e as letras estao a branco.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Será da .NET framework?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites