HERE IS UHF BATEING ANTENNA FOR 21-69 CHANELS:

Views: 134 | Added by: Zlatko | Date: 2019-09-10 | Comments (0)

here is JOmy batwing antenna 2.4 ghz

Views: 140 | Added by: Zlatko | Date: 2019-09-10 | Comments (0)

This is a simple 2 transistor amplifier on just 1.5V battery

amplification is from 1mV to 40mV .... 40 times and is very good.

Views: 70 | Added by: Zlatko | Date: 2019-08-17 | Comments (0)

Simple Voltage regulator for old smatphone without battery

it work exactly like is on a given image .

i use BD139 for output transistor but you can use any similar without problem.

 

Views: 83 | Added by: Zlatko | Date: 2019-06-14 | Comments (0)

With parens :

'recursive descent token evaluator
#lookahead
int tc=0 : string token
string tokens[7]
tokens[1] = "2"
tokens[2] = "*"
tokens[3] = "("
tokens[4] = "3"
tokens[5] = "+"
tokens[6] = "4"
tokens[7] = ")"

sub gettok()
tc++ : token = tokens[tc]
end sub

sub expr() as float
float v = term()
if token = "+": gettok() : v = v + term(): end if
if token = "-": gettok() : v = v - term(): end if
return v
end sub

sub term() as float
float v = factor()
if token = "*": gettok() : v = v * factor(): end if
if token = "/": gettok() : v = v / factor(): end if
return v
end sub

sub factor() as float
float v
if asc(token)>47  and asc(token)<58 'nums
v = val(token) : gettok()
... Read more »

Views: 118 | Added by: Zlatko | Date: 2019-02-15 | Comments (0)

Working Fm MicroPulse counting receiver.

schematic:

Views: 148 | Added by: Zlatko | Date: 2018-09-12 | Comments (1)

'------------------------------------------------------
'Small Basic by Jim Klutho based on examples by H.Schildt & various sources
'use at own risk    for PBCC
'this is a core of simple basic-like language
'mod for Oxygen Basic by Aurel 7/2018
'compilation require : Oxygen Basic A041 , awinh.inc ,RTL32.inc
'#lookahead
'o2 specific...............................................
$ Filename "JimK3.exe" ' o2
include "RTL32.inc"
include "awinh.inc"
NumberFormat 4,1,0,0,0,0
INT win, b1ID = 100, b2ID = 101
INT startp=10
'..........................................................

% SB_NUM_LAB=100
% SB_NUM_CMDS=20
% SB_NUM_ERRS=19
% SB_LAB_LEN=25
% SB_FOR_NEST=25
% SB_SUB_NEST=25
% SB_TABSTOP=8
'---------TOKEN TYPES-------------
% SB_UNDEFTOK=0
% SB_DELIMITER=1
% SB_NUMBER=2
% SB_VARIABLE=3
% SB_COMMAND=4
% SB_STRING=5
% SB_QUOTE=6
% SB_VARISTR=7

		
		... 
		
			Read more »
		
Views: 121 | Added by: Zlatko | Date: 2018-08-12 | Comments (0)

here is version of toy524a as archive

version have :

float var,var

rect x,y,w,h

pset x,y,rgb(r,g,b)

line x,y,x1,y1

circle x,y,r

wcolor r,g,b

frontpen r,g,b

for var = expr1 to expr2 [step expr3]
'    stmt_seq
' next

while expr stmts wend

this version also support multiple statemets per line like

frontpen 100,100,33[space]circle i,20,t

Views: 240 | Added by: Zlatko | Date: 2016-05-27 | Comments (0)

'toy3 - GUI version/24.2.2016 mod by Aurel
' Grammar:
'
'pgm = {int_decl} stmt_seq .
'int_decl = "integer" ident {"," ident} .
'stmt_seq = {print_stmt | halt_stmt | while_stmt | assign | if_stmt} .
'print_stmt = "print" (string | expr) {, (string | expr) } .
'halt_stmt = "halt" .
'while_stmt = "while" expr "do" stmt_seq "end" "while" .
'assign = ident "=" expr .
'if_stmt = "if" expr "then" stmt_seq ["else" stmt_seq] "end" "if" .
'exp    = orexp .
'orexp  = andexp {"or" andexp} .
'andexp = eqlexp {"and" eqlexp} .
'eqlexp = relexp {eqlop relexp} .
'relexp = addexp {relop addexp} .
'addexp = mulexp {addop mulexp} .
'mulexp = factor {mulop ... Read more »

Views: 242 | Added by: Zlatko | Date: 2016-02-25 | Comments (0)

http://aurelsoft.ucoz.com/dlib.zip
Views: 295 | Added by: Zlatko | Date: 2014-05-19 | Comments (0)

« 1 2 3 »