/* /////////////////////////////////////////////////////////////////////
ARDUINO/Genuino DUE Sketch for "Wachara 1"
https://www.changpuak.ch/electronics/Arduino-Shield-WACHARA1.php
As Wachara 1 passed away already, we use a white display
"Wachara 1" was the callsign of H.E. Khwankeo Vajarodaya,
*03.09.1928 †28.01.2017, my teacher for Siamese Culture and Art
Software Version 3.9,
03.09.2019, Alexander Sse Frank,
//////////////////////////////////////////////////////////////////////*/
// /////////////////////////////////////////////////////
// Includes
// /////////////////////////////////////////////////////
#include <Adafruit_GFX.h>
#include <Adafruit_SH1106.h>
// OLED 128x64 with SH1106 Controller
// from https://www.displaymodule.com/
// E.G. DM-OLED13-625
#define OLED_MOSI 10
#define OLED_CLK 9
#define OLED_DC 12
#define OLED_CS 13
#define OLED_RESET 11
Adafruit_SH1106 display(OLED_MOSI, OLED_CLK, OLED_DC, OLED_RESET, OLED_CS);
#if (SH1106_LCDHEIGHT != 64)
#error("Height incorrect, please fix Adafruit_SH1106.h!");
#endif
int CURSOR = 2 ;
float RX_FREQ = 107.6 ; // Radio Basilisk <3
// float freq = 102.50 ; // Surf 102.5 FM Hua Hin
float freq = 94.8 ; // KCS Radio Hua Hin
long int pll ;
int MAX_BAR_LENGTH = 45 ;
int MIN_BAR_LENGTH = 1 ;
float MULTI = 2.9 ;
// /////////////////////////////////////////////////////
// LM4811
// /////////////////////////////////////////////////////
int VolUpDownPin = A0 ;
int VolClkPin = A2 ;
int VolShutDownPin = A1 ;
int VOLUME = 0 ;
int SETVOL = 4 ;
int VOLMIN = 0 ;
int VOLMAX = 15 ; // 16 STEPS
// /////////////////////////////////////////////////////
// TEA 5767
// /////////////////////////////////////////////////////
const int BusMode = A5 ;
const int WriteRead = A4 ;
const int CursorX = 115 ;
const byte TEA5767_ADR = 0x60 ;
byte RAM[] = {0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00} ;
float BandStart = 87.5 ;
float BandStop = 108.0 ;
int RX_CLK_PIN = 21 ;
int RX_DAT_PIN = 20 ;
// /////////////////////////////////////////////////////
// WRITE
// /////////////////////////////////////////////////////
int HLSI = 1 ; // High Side Injection
int MUTE = 0 ; // L+R UNMUTED
int SM = 0 ; // NOT IN SEARCH MODE
int SUD = 1 ; // SEARCH UP
int SSL = 1 ; // SEARCH STOP LEVEL = LOW ADC output = 5
int MS = 0 ; // STEREO
int MR = 0 ; // RIGHT CHANNEL UNMUTED
int ML = 0 ; // LEFT CHANNEL UNMUTED
int BL = 0 ; // BAND LIMITS EUROPE
int XTAL = 1 ; // 32.768 kHz
int SMUTE = 1 ; // SOFT MUTE IS ON
int HCC = 0 ; // HIGH CUT CONTROL IS OFF
int SNC = 1 ; // STEREO NOISE CANCELLING IS ON
int DTC = 0 ; // de-emphasis time constant is 50 µs
// /////////////////////////////////////////////////////
// READ
// /////////////////////////////////////////////////////
int RF = 0 ;
int BLF = 0 ;
int Stereo = 0 ;
int RSSI = 0 ;
int IFCounts = 0 ;
volatile boolean SearchMode = false ;
// ////////////////////////////////////////////////////////////////////
// ROTARY ENCODER
// ////////////////////////////////////////////////////////////////////
const int KEY1 = 6 ;
const int KEY2 = 7 ;
const int KEY3 = 5 ; // PRESSED
volatile boolean action = false ;
volatile boolean pressed = false ;
volatile boolean clockwise = false ;
volatile boolean rotation = false ;
unsigned int ShortLongPressTime = 600 ; // MILLISECONDS
// IF THE KNOB WAS PRESSED SHORTER, IT IS CONSIDERED "SHORT"
// IF THE KNOB WAS PRESSED LONGER, IT IS CONSIDERED "LONG"
boolean LongPress = false ;
void ISR_K1 (void)
{
byte autre = digitalRead(KEY2) ;
if (autre == 1) clockwise = true ;
else clockwise = false ;
action = true ;
pressed = false ;
rotation = true ;
}
void ISR_K2 (void)
{
byte autre = digitalRead(KEY1) ;
if (autre == 1) clockwise = true ;
else clockwise = false ;
action = true ;
pressed = false ;
rotation = true ;
}
void ISR_K3 (void)
{
pressed = true ;
action = true ;
rotation = false ;
}
// ////////////////////////////////////////////////////////////////////
byte HIBYTE(unsigned int data)
{
return ((data & 0xFF00) >> 8) ;
}
// ////////////////////////////////////////////////////////////////////
byte LOBYTE(unsigned int data)
{
return (data & 0x00FF) ;
}
// ////////////////////////////////////////////////////////////////////
void VolumeUp(int HowMuch)
{
digitalWrite(VolUpDownPin, HIGH);
for(int i=0; i < HowMuch; i++)
{
VOLUME += 1 ;
digitalWrite(VolClkPin, HIGH);
delay(100) ;
digitalWrite(VolClkPin, LOW);
delay(100) ;
UpdateOLED() ;
}
}
// ////////////////////////////////////////////////////////////////////
void VolumeDown(int HowMuch)
{
digitalWrite(VolUpDownPin, LOW);
for(int i=0; i < HowMuch; i++)
{
digitalWrite(VolClkPin, HIGH);
digitalWrite(VolClkPin, LOW);
}
VOLUME = 0 ;
UpdateOLED() ;
}
// ////////////////////////////////////////////////////////////////////
void SET_VOLUME()
{
digitalWrite(VolUpDownPin, LOW);
for(int i=0; i < 18; i++)
{
digitalWrite(VolClkPin, HIGH);
digitalWrite(VolClkPin, LOW);
}
digitalWrite(VolUpDownPin, HIGH);
for(int i=0; i < VOLUME; i++)
{
digitalWrite(VolClkPin, HIGH);
digitalWrite(VolClkPin, LOW);
}
UpdateOLED() ;
}
// ////////////////////////////////////////////////////////////////////
void VolumeMute()
{
digitalWrite(VolShutDownPin, HIGH);
}
// ////////////////////////////////////////////////////////////////////
void VolumeUnMute()
{
digitalWrite(VolShutDownPin, LOW);
}
// ////////////////////////////////////////////////////////////////////
void setup()
{
// TEA5767
pinMode(BusMode, OUTPUT);
digitalWrite(BusMode, HIGH);
pinMode(RX_DAT_PIN, OUTPUT);
digitalWrite(RX_DAT_PIN, LOW);
pinMode(RX_CLK_PIN, OUTPUT);
digitalWrite(RX_CLK_PIN, LOW);
pinMode(WriteRead, OUTPUT);
digitalWrite(WriteRead, HIGH);
// LMX4811
pinMode(VolUpDownPin, OUTPUT);
digitalWrite(VolUpDownPin, LOW); // JUST TO HAVE A DEFINED LEVEL
pinMode(VolClkPin, OUTPUT);
digitalWrite(VolClkPin, LOW);
pinMode(VolShutDownPin, OUTPUT);
digitalWrite(VolShutDownPin, LOW); // SWITCH THAT THING ON
// This shutdown function is activated by applying a logic high
// to the SHUTDOWN pin.
Serial.begin(9600); // SERIAL
// INIT OLED
display.begin(SH1106_SWITCHCAPVCC);
// SHOW STARTUP SCREEN
display.clearDisplay();
display.drawLine(0, 14, 128, 14, WHITE);
display.setTextSize(1);
display.setTextColor(WHITE);
display.setCursor(0,0); display.print("*****") ;
display.setCursor(33,0); display.print(" MIRCEMK") ;
display.setCursor(90,0); display.print("******") ;
display.setTextSize(1);
display.setCursor(0,21);
display.println("A MULTIBAND RECEIVER");
display.setCursor(0,33);
display.println("WITH NXP's TEA5767");
display.setCursor(0,45);
display.println("IN MEMORIAM WACHARA 1");
display.setCursor(0,57);
display.println("BUILT 03.09.2019");
display.display();
delay(4999) ;
VolumeDown(18) ; // YES, WE USE THE COMMODORE 1541 APPROACH HERE
// FREQ_TEA5767(freq) ;
HiLoOptimiser() ;
delay(100) ;
// FREQ_TEA5767(freq) ;
HiLoOptimiser() ;
Serial.println("TEA5767 RADIO, TYPE WACHARA 1");
Serial.println("-----------------------------");
READ_TEA5767() ;
Serial.println(RAM[0],HEX) ;
Serial.println(RAM[1],HEX) ;
Serial.println(RAM[2],HEX) ;
Serial.println(RAM[3],HEX) ;
Serial.println(RAM[4],HEX) ;
Serial.println("-----------------------------");
VOLUME = SETVOL ;
SET_VOLUME() ;
UpdateOLED() ;
// ROTARY ENCODER
pinMode(KEY1, INPUT_PULLUP) ;
pinMode(KEY2, INPUT_PULLUP) ;
pinMode(KEY3, INPUT_PULLUP) ;
// INTERRUPTS ROTARY ENCODER
attachInterrupt(digitalPinToInterrupt(KEY1), ISR_K1, RISING); // ROT
attachInterrupt(digitalPinToInterrupt(KEY2), ISR_K2, FALLING); // ROT
attachInterrupt(digitalPinToInterrupt(KEY3), ISR_K3, FALLING); // PRESS
delay(3999);
action = false ;
pressed = false ;
clockwise = false ;
rotation = false ;
// SCAN() ;
freq = 94.80 ;
HiLoOptimiser() ;
}
// ////////////////////////////////////////////////////////////////////
void BAR(int x, int y, int value)
{
if (value > MAX_BAR_LENGTH) value = MAX_BAR_LENGTH ;
if (value < MIN_BAR_LENGTH) value = MIN_BAR_LENGTH ;
display.drawRect(x, y, MAX_BAR_LENGTH, 7, WHITE);
display.fillRect(x, y, value, 7, WHITE);
}
// ////////////////////////////////////////////////////////////////////
void UpdateOLED()
{
display.clearDisplay();
display.drawLine(0, 11, 128, 11, WHITE);
display.drawLine(0, 32, 128, 32, WHITE);
display.setTextSize(1);
display.setTextColor(WHITE);
display.setCursor(0,0); display.print("*****") ;
display.setCursor(33,0); display.print(" MIRCEMK") ;
display.setCursor(90,0); display.print("******") ;
display.setTextSize(2);
display.setCursor(0,15);
if(!SearchMode)
{
if (freq < 100.0) display.print(" ");
if (freq < 10.0) display.print(" ");
display.print(freq,3);
// display.print("0");
// CURSOR
if (CURSOR == 0) { display.setCursor( 0,19); display.print("_") ; }
if (CURSOR == 1) { display.setCursor(12,19); display.print("_") ; }
if (CURSOR == 2) { display.setCursor(24,19); display.print("_") ; }
if (CURSOR == 3) { display.setCursor(48,19); display.print("_") ; }
if (CURSOR == 4) { display.setCursor(60,19); display.print("_") ; }
display.setCursor(92,15);
display.print("MHz");
}
if(SearchMode)
{
display.setCursor(10,15);
display.print("SEARCHING");
}
display.setTextSize(1);
display.setCursor(0,37);
display.print("RSSI ");
if(HLSI == 1) display.print("+");
if(HLSI == 0) display.print("-");
BAR(40, 37, (RSSI*3) ) ;
display.setCursor(91,37);
if (Stereo == 1) display.print("STEREO");
if (Stereo == 0) display.print(" MONO");
display.setCursor(0,47);
display.print("VOLUME "); BAR(40, 47, (VOLUME*3) ) ;
if (CURSOR == 5) { display.setCursor(91,47); display.print("<<<") ; }
display.setCursor(0,57);
display.print("PRESS LONG TO SEARCH");
display.display();
}
void ButtonPressed()
{
// //////////////////////////////////////////////////
// WAS IT PRESSED LONG >>> START SEARCH UP
// //////////////////////////////////////////////////
LongPress = false ;
delay(ShortLongPressTime) ;
if(digitalRead(KEY3) == 0) LongPress = true ;
if(LongPress)
{
// //////////////////////////////////////////////////
// SEARCH UPWARDS
// //////////////////////////////////////////////////
Serial.println("PRESSED LONG") ;
SearchUP() ;
pressed = false ;
}
// //////////////////////////////////////////////////
// WAS IT PRESSED SHORT >>> MOVE CURSOR RIGHT
// //////////////////////////////////////////////////
if(!LongPress)
{
Serial.println("PRESSED SHORT") ;
CURSOR += 1 ;
if(CURSOR > 5) CURSOR = 2 ;
}
pressed = false ;
}
void ButtonRotated()
{
// //////////////////////////////////////////////////
// WAS IT ROTATED RIGHT >>> INCREASE
// //////////////////////////////////////////////////
if(clockwise)
{
// Serial.println("CW") ;
switch(CURSOR)
{
case 2:
freq = freq - 1.0 ;
if(freq < BandStart) freq = BandStart ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 3:
freq = freq - 0.1 ;
if(freq < BandStart) freq = BandStart ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 4:
freq = freq - 0.01 ;
if(freq < BandStart) freq = BandStart ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 5:
VOLUME = VOLUME - 1 ;
if(VOLUME < VOLMIN ) VOLUME = VOLMIN ;
SET_VOLUME() ;
break ;
}
rotation = false ;
UpdateOLED() ;
}
// //////////////////////////////////////////////////
// WAS IT ROTATED LEFT >>> DECREASE
// //////////////////////////////////////////////////
if(!clockwise)
{
// Serial.println("CCW") ;
switch(CURSOR)
{
case 2:
freq = freq + 1.0 ;
if(freq > BandStop) freq = BandStop ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 3:
freq = freq + 0.1 ;
if(freq > BandStop) freq = BandStop ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 4:
freq = freq + 0.01 ;
if(freq > BandStop) freq = BandStop ;
HiLoOptimiser() ;
delay(10) ;
READ_TEA5767() ; // RSSI
break ;
case 5:
VOLUME = VOLUME + 1 ;
if(VOLUME > VOLMAX ) VOLUME = VOLMAX ;
SET_VOLUME() ;
break ;
}
rotation = false ;
UpdateOLED() ;
}
}
void READ_TEA5767()
{
pinMode(RX_DAT_PIN, INPUT);
digitalWrite(RX_CLK_PIN, HIGH);
delay(1) ;
digitalWrite(WriteRead, HIGH);
delay(1) ;
digitalWrite(WriteRead, LOW);
delay(1) ;
RAM[0] = shiftIn(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST) ;
RAM[1] = shiftIn(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST) ;
RAM[2] = shiftIn(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST) ;
RAM[3] = shiftIn(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST) ;
RAM[4] = shiftIn(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST) ;
Stereo = (RAM[2] & 0x80) >> 7 ;
RSSI = (RAM[3] & 0xF0) >> 4 ;
RF = (RAM[0] & 0x80) >> 7 ;
BLF = (RAM[0] & 0x40) >> 6 ;
IFCounts = RAM[2] & 0x7F ;
}
void WRITE_TEA5767()
{
pinMode(RX_DAT_PIN, OUTPUT);
digitalWrite(RX_CLK_PIN, LOW); delay(1) ;
digitalWrite(WriteRead, LOW); delay(1) ;
digitalWrite(WriteRead, HIGH); delay(1) ;
if(HLSI == 1) pll=(int)(((freq+0.225)*122.0703125)+0.5);
if(HLSI == 0) pll=(int)(((freq-0.225)*122.0703125)+0.5);
RAM[5] = HIBYTE(pll) | (MUTE<<7) | (SM<<6) ;
RAM[6] = LOBYTE(pll) ;
RAM[7] = (SUD<<7)|(SSL<<5)|(HLSI<<4)|(MS<<3)|(MR<<2)|(ML<<1) ;
RAM[8] = (BL<<5)|(XTAL<<4)|(SMUTE<<3)|(HCC<<2)|(SNC<<1);
RAM[9] = DTC<<6 ;
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[5]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[6]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[7]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[8]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[9]);
}
void HiLoOptimiser()
{
int RSSIHigh = 0 ;
int RSSILow = 0 ;
float Frequency = freq ;
SM = 0 ; // NOT IN SEARCH MODE
VolumeMute() ;
if (Frequency > BandStop) Frequency = BandStop ;
if (Frequency < BandStart) Frequency = BandStart ;
// //////////////////////////////////////////////////
// RSSIHigh is at freq + 450 kHz
// //////////////////////////////////////////////////
freq = Frequency + 0.225 ;
HLSI = 1 ;
WRITE_TEA5767() ;
delay(10) ;
READ_TEA5767() ;
RSSIHigh = RSSI ;
// //////////////////////////////////////////////////
// RSSILow is at freq - 450 kHz
// //////////////////////////////////////////////////
HLSI = 0 ;
freq = Frequency - 0.225 ;
WRITE_TEA5767() ;
delay(10) ;
READ_TEA5767() ;
RSSILow = RSSI ;
// //////////////////////////////////////////////////
// EVALUATION SEE APPLICATION NOTE PAGE 27
// //////////////////////////////////////////////////
if(RSSIHigh < RSSILow)
{
// OPTIMUM SETTING IS HIGH SIDE INJECTION
HLSI = 1 ;
freq = Frequency ;
WRITE_TEA5767() ;
}
else
{
// OPTIMUM SETTING IS LOW SIDE INJECTION
HLSI = 0 ;
freq = Frequency ;
WRITE_TEA5767() ;
}
delay(27);
READ_TEA5767() ;
VolumeUnMute() ;
UpdateOLED() ;
}
void SCAN()
{
freq = BandStart ;
while(freq <= BandStop)
{
HiLoOptimiser() ;
if(RSSI >=4)
{
if(freq <100.0) Serial.print(" ");
Serial.print(freq,3); Serial.print(" RSSI: ");
Serial.print(RSSI,DEC);
Serial.print(" IFC: ");
Serial.println(IFCounts,DEC);
}
freq += 0.098304 ;
delay(30);
}
}
void SearchUP()
{
Serial.println("SEARCHING ...");
SearchMode = true ;
UpdateOLED() ;
int RSSILAST = 0 ;
int RSSICURR = 0 ;
int RSSINEXT = 0 ;
boolean STOPSEARCH = false ;
float Frequency = freq ;
while(!STOPSEARCH)
{
freq += 0.098304 ;
HiLoOptimiser() ;
if(RSSI >=4)
{
if(freq <100.0) Serial.print(" ");
Serial.print(freq,3);
Serial.print(" RSSI: ");
if(RSSI < 10) Serial.print(" ");
Serial.print(RSSI,DEC);
Serial.print(" IFC: ");
Serial.println(IFCounts,DEC);
if((IFCounts > 56) && (IFCounts < 71))
{
STOPSEARCH = true ;
SearchMode = false ;
Serial.println("FOUND.");
}
} // END RSSI-IF
if(freq >= BandStop)
{
freq = BandStart ;
STOPSEARCH = true ;
SearchMode = false ;
} // END BANDSTOP
delay(100);
} // END WHILE
SearchMode = false ;
UpdateOLED() ;
}
// /////////////////////////////////////////////////////////////
// UNUSED FUNCTIONS
// /////////////////////////////////////////////////////////////
void FREQ_TEA5767(float FRQ)
{
int aux ;
if (FRQ > BandStop) FRQ = BandStop ;
if (FRQ < BandStart) FRQ = BandStart ;
pll = (int)((( FRQ + 0.225 ) * 122.0703125 ) + 0.5 );
RAM[5] = HIBYTE(pll) ;
RAM[6] = LOBYTE(pll) ;
// Search Up, Low Volume, High Side Injection, Stereo, No Mute
RAM[7] = 0xC0;
// EU Band, Clock 32768, Stero Noise Cancelling On
RAM[8] = 0x12 ;
RAM[9] = 0x00 ; // De-Emphasis Time Constant is 50 µs
pinMode(RX_DAT_PIN, OUTPUT);
delay(1) ;
digitalWrite(WriteRead, LOW);
delay(1) ;
digitalWrite(WriteRead, HIGH);
delay(1) ;
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[5]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[6]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[7]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[8]);
shiftOut(RX_DAT_PIN, RX_CLK_PIN, MSBFIRST, RAM[9]);
}
// /////////////////////////////////////////////////////////////
void loop()
{
if (action)
{
if(pressed) ButtonPressed() ;
if(rotation) ButtonRotated() ;
action = false ;
UpdateOLED() ;
}
delay(9) ;
}
// /////////////////////////////////////////////////////////////
// END OF FILE
// /////////////////////////////////////////////////////////////
Comments
Please log in or sign up to comment.