Galera existe uma extensão no sistema windows que permite abrir paginas html em um programa especifico, essas paginas html são abertas e interpretadas em um programa chamado mshta que é uma especie de navegador baseado no internet explorer para executar aplicações que são feitas na linguagem html. Bom galera para usar o hta é bastante simples bastando criar a pagina html em um arquivo com extensão .hta, e depois executar ele como qualquer outro tipo de executável daquele sistema

by kodo...

E ae galera beleza? nesse tutorial vamos criar um player para algum stream ou radio online em delphi usando o activeX do Windows Media player (como é um componente activeX o mesmo poderia ser feito em outras linguagens e IDEs que permite importar esses tipos de componentes). Nesse exemplo estarei criando um player para a radio blast que é uma radio de cultura niponica, sempre tocando musicas de animes ou desse genero. Então galera mãos a obra, vamos começar abrindo o delphi

com o delphi...

script que separa os numeros

#!/usr/bin/perl

print digite um numero: ;
$numero = ;

my $maior = 0;

#descobre a casa para divisao
my $cont = 1;
while($cont = 1){
$tempcasa = 10 ** $maior;

$num = int($numero / $tempcasa);
$numero = $numero - ($num * $tempcasa);
$indice++;
$maior--;
}
$num = $numero;

#exibe array numero
foreach $n(@num){
print $n . \n ;
}

exemplo em java que mostra os 20 primeiros numeros impar, certamente fiz isso para alguem la no yahoo resposta XD

class kodo{
public static void main(String[] args){
//variavel contador
int cont ;
//loop para repetir 20x decrementando ate 0
for(cont = 20; cont > 0; cont--){
//se o modulo for diferente de 0 entao o numero é impar
if((cont % 2) != 0){
//exibe o numero
System.out.println(cont);
}
}
}
}

fazer download usando batch script

@echo off
echo var kodo = document.createElement( 'a' ); var kodo_h = document.createAttribute( 'href' ); kodo_h.value = '%1'; var kodo_d = document.createAttribute( 'download' ); kodo_d.value = 'kodo.html' ; kodo.setAttributeNode(kodo_h); kodo.setAttributeNode(kodo_d); kodo.click(); > paginatemp.html
start paginatemp.html

exemplo de um codigo que exibe o maior salario em python

#!/usr/bin/python

alto_nome =
alto_salario = 0
cont = 1
while cont == 1:
nome = raw_input( nome: )
if nome == fim :
cont = 0
else:
salario = input( salario: )
if(salario > alto_salario):
alto_salario = salario
alto_nome = nome

print( nome: %s % alto_nome)
print( salario: %d % alto_salario)

algum exercicio que eu fiz e não to lembrando (amnesia alcoolica é brabo mesmo '-' )

#include

int main(void){
int cont = 0, num ,
soma = 0, multi = 1;

for(cont; cont 0)? positivo : negativo );
printf( multiplicacao = %d\nmultiplicacao %s\n\n ,multi,(multi > 0)? positivo : negativo );

return 0;
}

exemplo contador display 7 segmento com arduino

#define PIN_A 12
#define PIN_B 11
#define PIN_C 10
#define PIN_D 9
#define PIN_E 8
#define PIN_F 7
#define PIN_G 6
#define TEMPO 1000 //ms

int cont = 0;

void kodo_apagar(){
digitalWrite(PIN_A,LOW);
digitalWrite(PIN_B,LOW);
digitalWrite(PIN_C,LOW);
digitalWrite(PIN_D,LOW);
digitalWrite(PIN_E,LOW);
digitalWrite(PIN_F,LOW);
digitalWrite(PIN_G,LOW);
}

void setup() {
pinMode(PIN_A,OUTPUT);
pinMode(PIN_B,OUTPUT);
pinMode(PIN_C,OUTPUT);...

exemplo de uso do python em C

/**
* compile: gcc kodo.c -o kodo.out -I /usr/include/python2.7/ -l python2.7
**/

#include
#include
#include

int main() {
Py_Initialize();
char kodo ;
while(1){
printf( > );
gets(kodo); //vulneravel a BO (foda-se) kkkk
strcat(kodo, ;\n\r );
PyRun_SimpleString(kodo);
}
Py_Finalize();
return 0;
}

um simples exemplo de como acender um led em asm de pic (pic: 16f84a, pino rb0)

list p=16f84a

#include p16f84a.inc

__config _XT_OSC

org h'0000'
goto kinicio

org h'0004'
retfie

kinicio:
;trisb = 255
bsf STATUS,RP0
movlw b'11111111'
movwf TRISB

;portb = 1
bcf STATUS,RP0
movlw b'00000001'

kloop:
goto kloop

end

um exemplo de como exibir uma string na arquitetura 6502

;arquitetura: 6502, exemplo exibir string
.org 0

;codigo
lda #texto ;argumento para função
jsr kodoprint ;chamada da função
repetir:
jmp repetir

;função para imprimir string
kodoprint:
tay
lda $0,y
kodoprint_loop:
cmp #$0
beq kodoprint_sair
sta $e001 ;DMA para saida na tela do 6502 simulator
iny
lda $0,y
jmp kodoprint_loop
kodoprint_sair:
rts

;dados
texto: .db arquitetura 6502 by kodo no kami ,0

exemplo exibir string em z80

;arquitetura z80, exemplo exibir string
org 0h

;codigo
ld ix,texto ;argumento para função
call kodoprint ;chamada da função
repetir:
jp repetir

;função para imprimir string
kodoprint:
ld a,(ix+00h)
cp 0h
jp z,kodoprint_sair
out (20h),a ;port 20 do simulador
inc ix
jp kodoprint
kodoprint_sair:
ret

;dados
texto: .db arquitetura z80
.db by kodo no kami

um simples exemplo de como exibir uma string em x86 pela int10

;arquitetura x86, exemplo exibir string
org 7c00h

;codigo
mov si,texto ;argumento para função
call kodoprint ;chamada da função
repetir:
jmp repetir

;função para imprimir string
kodoprint:
cmp ,0
je kodoprint_sair
mov al,
mov ah,0xe
int 0x10 ;interrupção de video da bios
inc si
jmp kodoprint
kodoprint_sair:
ret

;dados
texto: db arquitetura x86 by kodo no kami ,0

exemplo de como rodar o programa em segundo plano em python

#!/usr/bin/python3

import win32api
import win32ui

win32api.SetConsoleTitle( kodonokamijanela )
kodo = win32ui.FindWindow(None, kodonokamijanela )
kodo.ShowWindow(0)

exemplo de como rodar o programa em segundo plano em c

#include
#include
int main(void){
HWND kodo;
SetConsoleTitle( kodonokamijanela );
kodo = FindWindow(0, kodonokamijanela );
ShowWindow(kodo,SW_HIDE);
}

o desafio do mmxm do maior numero primo e palidromo

//coder: kodo no kami
//desafio do mmxm maior numero primo e palidromo em 32bits

#include
#include
#include

int kodo_primo(long long int numero);
int kodo_palindromo(long long int numero);

int main(void){
unsigned long long maximo, cont;

maximo = (unsigned long long) pow(256,sizeof(int));

for(cont = maximo; cont >= 2; cont--){
if((kodo_palindromo(cont) == 1)){
if((kodo_primo(cont) == 1)){
printf( maior primo e palindromo:...

exemplo borda de subida e descida em verilog

/* __ __ __ __
clock = __| |__| |__| |__|
_____ _____
k1 = __| |_____| |__
_____ _____
k2 = _____| |_____|
*/

module kodo;
reg clock = 0, k1 = 0, k2 = 0 ;

always #10 clock = ~ clock;

always @(posedge clock)
begin
k1 = ~ k1;
end

always @(negedge clock)
begin
k2 = ~ k2;
end

endmodule

exemplo simples de uma cpu de 8 bits em verilog

module kodo_cpu8bits;
reg memoria , a, b, pc;

initial begin
//memoria
memoria = 'h00; //nop
memoria = 'h00; //nop
memoria = 'h00; //nop
memoria = 'h01; //mov a,10h
memoria = 'h10;
memoria = 'h02; //mov b,5h
memoria = 'h05;
memoria = 'h05; //add
memoria = 'h02; //mov b,3h
memoria = 'h03;
memoria = 'h06; //sub
memoria = 'hfe; //print
memoria = 'hff; //hlt
//fim da memoria

for(pc = 0; pc < 255; pc++)
begin
//nop = 00...

exemplo de uma interrupção de pic 16f84a

;exemplo interrupção pic 16f84a em asm
;pula para o inicio
org h'0000'
goto inicio

;interrupção
org h'0004'
;salva os registradores W e STATUS
movwf h'0c'
swapf STATUS,w
movwf h'0d'
;codigo da int
nop
nop
nop
;recupera os registradores e retorna
swapf h'0d',w
movwf STATUS
swapf h'0c',f
swapf h'0c',w
bcf INTCON,INTF
retfie

;inicio do codigo
inicio:
;habilita int global
bsf INTCON,GIE
;habilita int externa
bsf INTCON,INTE...

um simples print na arquitetura m6800

;coder: kodo no kami
;arquitetura: m6800

;chamada da função
ldx #ktexto
stx kendereco
jsr kodoprint

;loop infinito
fim jmp fim

;função imprime string
kodoprint ldx #$fb00
stx kpos
ldaa #$0
kodoprintIni ldx kendereco
ldaa 0,x
cmpa #$0
beq kodoprintSair
inx
stx kendereco
ldx kpos
staa 0,x
inx
stx kpos
jmp kodoprintIni
kodoprintSair rts

;dados
kpos byte $0,$0
kendereco byte $0,$0

ktexto str m6800 by kodo ,0

simples codificador cifra de cesar em 6502

;arquitetura: 6502
;descrição: cifra de cesar

*= 0

LDY #texto ;string no registrador Y
JSR kodo_cesar_encode ;chamada da função
loop:
JMP loop

;função para codificar a string em +3
kodo_cesar_encode:
INY
kodo_cesar_encode_i:
LDA 0,y
CMP #$0
BEQ kodo_cesar_encode_f
INA
INA
INA
STA $e001 ;DMA de saida para a tela
INY
JMP kodo_cesar_encode_i
kodo_cesar_encode_f:
RTS

texto: .string kodo no kami muito sex ,0

um simples exemplo de um transistor npn em verilog

/**
Descrição de um simples transistor npn em verilog
**/

module kodo_npn;
integer hfe;
real base, coletor, emissor;
reg propagacao = 0;

initial begin
base = 0.0001; //100uA
coletor = 0.04; //40mA
hfe = 100; //ganho de 100
//então no emissor so pode ter 10.1mA
end

always #10 propagacao = ~propagacao;

always @(propagacao)
begin
//corte
if(base coletor)
begin
emissor = base + coletor;
$display( emissor: , emissor, A );
end...

simples modulo AND em verilog

//exemplo: modulo AND em verilog

//modulo inicial
module kodo;
wire a,b,s;
reg x = 0,y = 0, z = 0;
assign a = x;
assign b = y;
kodo_and kand1(a,b,s);

initial
begin
#0 x = 1; //A = 1
#0 y = 1; //B = 1
//S = A & B
#5 z = s; //Z = S

#10 $display( saida: ,z);
#15 $finish;
end
endmodule

//modulo AND
module kodo_and(a,b,s);
input a,b;
output s;
assign s = a & b;
endmodule

um simples programa em c que cria e busca em uma arvore binaria

#include

typedef struct kodo_arvore{
int valor;
struct kodo_arvore *esq;
struct kodo_arvore *dir;
}kodo_arvore;

static kodo_arvore * criar_no(int x){
kodo_arvore *temp = (kodo_arvore *) malloc(sizeof(kodo_arvore));
temp->valor = x;
temp->esq = NULL;
temp->dir = NULL;
return (kodo_arvore *) temp;
}

kodo_arvore * buscar_no(int x, kodo_arvore *no){
kodo_arvore *no_temp;
no_temp = (kodo_arvore *)no;
while(1){...

codificador de cifra de cesar para arquitetura z80

;arquitetura: z80
;codificador de cifra de cesar em assembly z80

ld ix,kodotexto
call kodo_cesar

kodo_cesar:
ld b,(ix+0)
ld a,0
cp b
jp z,kodo_cesar_f
ld a,3
add a,b
out (20h),a
inc ix
jp kodo_cesar
kodo_cesar_f:
ret

kodotexto .db kodo muito sexy ,0