Líderes

464 Trabalhos Escolares Pronto Este pacote contém vários trabalhos escolares perfazendo um total de 464 arquivos divididos por matérias: Biologia, Espanhol, Geografia, História, Português, Química, Literatura e Inglês.

Avatar: Sign: Fan Bar: Espero Que Goste...

{Manipulando arquivos de configuração .ini} O que é um arquivo INI ? Um arquivo INI é um arquivo texto usado para armazenar/fornecer configurações pessoais para sistemas/usuários ; Um arquivo INI é um arquivo com dados externo ao programa principal e esta formatado em : Secções(FileName) , Entradas e Valores. Como por exemplo: Eu quero que o usuário digite algo em um "EditBox" mas que o que ele digite fique guardado e sempre seja usado, então irei gravar o que ele digitou em um arquivo .ini (Chamado de arquivo de inicialização mas também pode ser chamado de configuração) e quando eu quizer usar o que o usuário digitou eu busco dentro do arquivo .ini. Funções Primeiramente em seu projeto do VB adicione um novo "Module" chamado "INIread.vb" e outro chamado "INIwrite.vb". (para criar um novo module, clique com botão direito no primeiro item da lista do Solution Explorer, Add > Module) Dentro do INIread.vb apague tudo e cole isso: Option Strict Off Option Explicit On Module INIread Public Function ReadIniValue(ByRef INIpath As String, ByRef KEY As String, ByRef Variable As String) As String Dim NF As Short Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase(KEY) & "]" Variable = LCase(Variable) EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) While Not EOF(NF) Temp = LineInput(NF) LcaseTemp = LCase(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid(Temp, 1 + Len(Variable & "=")) FileClose(NF) : Exit Function End If End If End While FileClose(NF) End Function End Module E dentro do INIwrite.vb cole isso: Option Strict Off Option Explicit On Module INIwrite Public Function WriteIniValue(ByRef INIpath As String, ByRef PutKey As String, ByRef PutVariable As String, ByRef PutValue As String) As Object Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Short Dim HIKEY As Short Dim KEYLEN As Short Dim VAR As Short Dim VARENDOFLINE As Short Dim NF As Short Dim X As Short AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase(PutKey) & "]" & Chr(13) KEYLEN = Len(ReadKey) ReadVariable = Chr(10) & LCase(PutVariable) & "=" EnsureFileExists: FileOpen(NF, INIpath, OpenMode.Binary) FileClose(NF) SetAttr(INIpath, FileAttribute.Archive) LoadFile: FileOpen(NF, INIpath, OpenMode.Input) Temp = InputString(NF, LOF(NF)) Temp = vbCrLf & Temp & "[]" FileClose(NF) LcaseTemp = LCase(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable GoTo RenewVariable AddKey: Temp = Left(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString AddVariable: Temp = Left(Temp, Len(Temp) - 2) Temp = Left(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString RenewVariable: Temp = Left(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr(13)) Temp = Left(Temp, VAR) & PutVariable & "=" & PutValue & Mid(Temp, VARENDOFLINE) GoTo TrimFinalString TrimFinalString: Temp = Mid(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right(Temp, 1) > Chr(13) Temp = Left(Temp, Len(Temp) - 1) Loop Do Until Left(Temp, 1) > Chr(13) Temp = Mid(Temp, 2) Loop OutputAmendedINIFile: FileOpen(NF, INIpath, OpenMode.Output) PrintLine(NF, Temp) FileClose(NF) End Function End Module Pronto as funções agora estão funcionando em seu projeto. Aparecerá 2 warnings mas ignore. Como usar as funções? Vamos definir uma variável "File" que será o caminho do arquivo .ini. Dim File as String Agora vamos atribuir um valor para a variável file. File = "C:\teste.ini" E agora? Como escrever/gravar ou ler este arquivo? Para escrever/gravar: WriteIniValue(File, "Teste", "Valor1", "Oi") Código inteiro (Coloque em algum botão ou algo do tipo): Dim File as String File = "C:\teste.ini" WriteIniValue(File, "Teste", "Valor1", "Oi") O arquivo .ini após ele executar isso ficara assim: [Teste] Valor1=Oi Agora vamos ler e exibir o que está escrito no arquivo .ini (Coloque em algum botão ou algo do tipo) Dim Str as String Str = ReadIniValue(File, "Teste", "Valor1") MsgBox(Str) Com essas funções você pode criar várias idéias, use a sabedoria e crie idéias perfeitas com isto.

BBot Gold Depositer Tutorial Esse tutorial ensinará os principais passos ao fazer um cavebot com gold depositer usando o BBot. 1. Adicionar label start Antes de começar o waypoint, adicione o label start no local do primeiro point. Clique com o botão direito do mouse na janela do cavebot, vá em Codecs/Labels e depois em Label. Insira o nome start 2. Fazer o seu waypoint na cave Apenas ligue o Learn do Cavebot e ande pela cave que seus passos serão adicionados automaticamente. 3. Verificando cap Ao final do waypoint da cave, você adicionará um Macro ao seu waypoint para verificar sua cap. Clique com o botão direito do mouse na janela do cavebot, vá em Codecs/Labels e depois em Macro. Insira o seguinte code: 500 {CapCheck} Self.Capacity>XX CaveBot.GoLabel(start) Esse code irá verificar se sua cap é maior que XX. Caso seja, ele voltará para o primeiro waypoint, no caso, label start, e começará a caçar novamente; caso seja menor irá para o proximo point que iniciará o deposit. 4. Iniciando o depositer Com o Learn ativo, caminhe em direção ao banco. Não se preocupe com buracos ou escadas pois o point será adicionado automaticamente. 5. Map Tools 5.1 Cortando jungle grass no caminho As vezes, no caminho para o banco ou cave, existe um maldito mato que bloqueia o caminho. Mas, não se preocupe. Com a função Map Tool do cavebot é fácil usar o machete e cortar o mato infernal. Clique com o botão direito do mouse na janela do cavebot, vá em Add e depois em Map Tool. Target ID é o ID do mato alto (não cortado). Use ID é o ID do item que vai usar no mato, no caso, machete. TargetX, TargetY e TargetZ é a posição exata do mato. 5.2 Abrindo portas Para abrir portas não há misterios. Apenas adicione um Map Tool proximo a porta com as seguintes informações. Target ID é o ID da porta fechada. Use ID é o ID da chave. Se a porta não necessita chave, insira o valor 0. TargetX, TargetY e TargetZ é a posição exata da porta. #Obs. 5.1 e 5.2 caso ele não encontre o Target ID no local, ele simplesmente ignora. Isso funciona para caso a porta já esteja aberta ou o mato já esteja cortado. 6. Falando com o NPC Ao chegar no banco, é hora de falar com banqueiro. No BBot é bem simples e não precisa de codes de várias linhas. Apenas clique com o botão direito do mouse na janela do cavebot, vá em Message e depois em Hi/Deposit All/Yes que adicionará a fala automaticamente. 7. Voltar a caçar Após depositar o seu gold no banco, é hora de voltar a caçar. Apenas caminhe de volta até a cave com o Learn ativo. Não esqueça de repetir os passos 5.1 e/ou 5.2 no caminho de volta. Versão 1.0 Por: KOTS

Só quiz da uma ajudinha pros tibiano q n estuda

É simples rsrsrsrs, vamos pra arte brasileira de gambiarras. Tudo que você precisará é de um editor gráfico e um compilador. rsrsrsrsrs