w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-09-05 22:57:47 -04:00
Code Issues Packages Projects Releases Wiki Activity

Display UTC as HHMMSS rather than HHMM. Needs more testing!

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2576 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2012-09-12 20:32:43 +00:00
parent 1f1c0d6f1d
commit 0e1ce7ba36
7 changed files with 41 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
getfile.cpp
View File

@ -49,11 +49,11 @@ void getfile(QString fname, bool xpol, int dbDgrd, int nfast)
datcom_.nutc=0; datcom_.nutc=0;
if(i0>0) { if(i0>0) {
if(fname.mid(i0-5,1)=="_") { if(fname.mid(i0-5,1)=="_") {
datcom_.nutc=100*fname.mid(i0-4,2).toInt() + datcom_.nutc=10000*fname.mid(i0-4,2).toInt() +
fname.mid(i0-2,2).toInt(); 100*fname.mid(i0-2,2).toInt();
} else { } else {
datcom_.nutc=100*fname.mid(i0-6,2).toInt() + datcom_.nutc=10000*fname.mid(i0-6,2).toInt() +
fname.mid(i0-4,2).toInt(); 100*fname.mid(i0-4,2).toInt() + fname.mid(i0-2,2).toInt();
} }
} }
} }

31
libm65/display.f90
View File

@ -2,8 +2,8 @@ subroutine display(nkeep,ftol)
parameter (MAXLINES=400,MX=400) parameter (MAXLINES=400,MX=400)
integer indx(MAXLINES),indx2(MX) integer indx(MAXLINES),indx2(MX)
character*81 line(MAXLINES),line2(MX),line3(MAXLINES) character*83 line(MAXLINES),line2(MX),line3(MAXLINES)
character out*50,cfreq0*3,cqlive*52 character out*52,cfreq0*3,livecq*52
character*6 callsign,callsign0 character*6 callsign,callsign0
character*12 freqcall(100) character*12 freqcall(100)
real freqkHz(MAXLINES) real freqkHz(MAXLINES)
@ -14,7 +14,7 @@ subroutine display(nkeep,ftol)
do i=1,MAXLINES do i=1,MAXLINES
read(26,1010,end=10) line(i) read(26,1010,end=10) line(i)
1010 format(a80) 1010 format(a72)
read(line(i),1020) f0,ndf,nh,nm read(line(i),1020) f0,ndf,nh,nm
1020 format(f8.3,i5,25x,i3,i2) 1020 format(f8.3,i5,25x,i3,i2)
utc(i)=60*nh + nm utc(i)=60*nh + nm
@ -30,7 +30,7 @@ subroutine display(nkeep,ftol)
nage=utcz-utc(i) nage=utcz-utc(i)
if(nage.lt.0) nage=nage+1440 if(nage.lt.0) nage=nage+1440
iage=nage/nquad iage=nage/nquad
write(line(i)(80:81),1021) iage write(line(i)(73:74),1021) iage
1021 format(i2) 1021 format(i2)
enddo enddo
@ -118,20 +118,20 @@ subroutine display(nkeep,ftol)
nc=0 nc=0
callsign0=' ' callsign0=' '
do k=1,k3 do k=1,k3
out=line3(k)(6:13)//line3(k)(28:31)//line3(k)(39:43)// & out=line3(k)(6:13)//line3(k)(28:31)//line3(k)(39:45)// &
line3(k)(35:38)//line3(k)(44:67)//line3(k)(77:81) line3(k)(35:38)//line3(k)(46:74)
if(out(1:3).ne.' ') then if(out(1:3).ne.' ') then
cfreq0=out(1:3) cfreq0=out(1:3)
if(iw.lt.MAXLINES-1) iw=iw+1 if(iw.lt.MAXLINES-1) iw=iw+1
cqlive=line3(k)(6:13)//line3(k)(28:31)//line3(k)(39:43)// & livecq=line3(k)(6:13)//line3(k)(28:31)//line3(k)(39:45)// &
line3(k)(23:27)//line3(k)(35:38)//line3(k)(44:67)// & line3(k)(23:27)//line3(k)(35:38)//line3(k)(46:70)// &
line3(k)(80:81) line3(k)(73:74)
if(index(cqlive,' CQ ').gt.0 .or. index(cqlive,' QRZ ').gt.0 .or. & if(index(livecq,' CQ ').gt.0 .or. index(livecq,' QRZ ').gt.0 .or. &
index(cqlive,' QRT ').gt.0 .or. index(cqlive,' CQV ').gt.0 .or. & index(livecq,' QRT ').gt.0 .or. index(livecq,' CQV ').gt.0 .or. &
index(cqlive,' CQH ').gt.0) write(19,1029) cqlive index(livecq,' CQH ').gt.0) write(19,1029) livecq
1029 format(a52) 1029 format(a52)
write(*,1030) out write(*,1030) out !Messages
1030 format('@',a50) 1030 format('@',a52)
i1=index(out(24:),' ') i1=index(out(24:),' ')
callsign=out(i1+24:) callsign=out(i1+24:)
i2=index(callsign,' ') i2=index(callsign,' ')
@ -157,10 +157,9 @@ subroutine display(nkeep,ftol)
freqcall(nc)=' ' freqcall(nc)=' '
freqcall(nc+1)=' ' freqcall(nc+1)=' '
freqcall(nc+2)=' ' freqcall(nc+2)=' '
iz=(nc+2)/3
do i=1,nc do i=1,nc
write(*,1042) freqcall(i) write(*,1042) freqcall(i) !Band Map
1042 format('&',a12) 1042 format('&',a12)
enddo enddo

16
libm65/map65a.f90
View File

@ -302,25 +302,25 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
endif endif
endif endif
endif endif
if(ndphi.eq.0) then if(ndphi.eq.0) then
write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, & write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, &
decoded,nkv,nqual,ntxpol,cp decoded,nkv,nqual,ntxpol,cp
1010 format('!',i3,i5,i4,i5.4,f5.1,i4,2x,a22,i4,i5,i5,1x,a1) 1010 format('!',i3,i5,i4,i7.6,f5.1,i4,2x,a22,i2,i5,i5,1x,a1)
else else
if(iloop.ge.1) qphi(iloop)=sig(k,10) if(iloop.ge.1) qphi(iloop)=sig(k,10)
write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, & write(*,1010) nkHz,ndf,npol,nutc,dt,nsync2, &
decoded,nkv,nqual,30*iloop decoded,nkv,nqual,30*iloop
write(27,1011) 30*iloop,nkHz,ndf,npol,nutc, & write(27,1011) 30*iloop,nkHz,ndf,npol,nutc, &
dt,sync2,nkv,nqual,decoded dt,sync2,nkv,nqual,decoded
1011 format(i3,i4,i5,i4,i5.4,f5.1,f7.1,i3,i5,2x,a22) 1011 format(i3,i4,i5,i4,i7.6,f5.1,f7.1,i3,i5,2x,a22)
endif endif
endif endif
enddo enddo
if(nwrite.eq.0) then if(nwrite.eq.0) then
write(*,1012) mousefqso,nutc write(*,1012) mousefqso,nutc
1012 format('!',i3,9x,i5.4,' ') 1012 format('!',i3,9x,i7.6,' ')
endif endif
endif endif
@ -425,17 +425,17 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
endif endif
endif endif
write(26,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, & write(26,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
nsync2,nutc,decoded,nkv,nqual,nhist,cp nsync2,nutc,decoded,cp
write(21,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, & write(21,1014) f0,ndf,ndf0,ndf1,ndf2,dt,npol,nsync1, &
nsync2,nutc,decoded,nkv,nqual,nhist nsync2,nutc,decoded,cp
1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i5.4,2x,a22,3i3,1x,a1) 1014 format(f8.3,i5,3i3,f5.1,i4,i3,i4,i7.6,2x,a22,2x,a1)
endif endif
endif endif
j=j+nsiz(n) j=j+nsiz(n)
enddo enddo
write(26,1015) nutc write(26,1015) nutc
1015 format(39x,i4.4) 1015 format(39x,i6.6)
call flush(21) call flush(21)
call flush(26) call flush(26)
call display(nkeep,ftol) call display(nkeep,ftol)

6
mainwindow.cpp
View File

@ -16,7 +16,7 @@
short int iwave[60*11025]; //Wave file for Tx audio short int iwave[60*11025]; //Wave file for Tx audio
int nwave; //Length of Tx waveform int nwave; //Length of Tx waveform
bool btxok; //True if OK to transmit bool btxok; //True if OK to transmit
double outputLatency; //Latency in seconds double outputLatency; //Latency in seconds
qint16 id[4*60*96000]; qint16 id[4*60*96000];
Astro* g_pAstro = NULL; Astro* g_pAstro = NULL;
@ -1181,7 +1181,9 @@ void MainWindow::decode() //decode()
int imin=ms/60000; int imin=ms/60000;
int ihr=imin/60; int ihr=imin/60;
imin=imin % 60; imin=imin % 60;
datcom_.nutc=100*ihr + imin; int isec=(ms/1000) % 60;
datcom_.nutc=100*(100*ihr + imin);
if(isec>29) datcom_.nutc += 30;
} }
datcom_.idphi=m_dPhi; datcom_.idphi=m_dPhi;

2
mainwindow.ui
View File

@ -53,7 +53,7 @@
</size> </size>
</property> </property>
<property name="title"> <property name="title">
<string> Freq DF Pol UTC DT dB KV DS TxPol</string> <string> Freq DF Pol UTC DT dB KV DS TxPol</string>
</property> </property>
<layout class="QVBoxLayout" name="verticalLayout_9"> <layout class="QVBoxLayout" name="verticalLayout_9">
<item> <item>

2
map65.iss
View File

@ -1,6 +1,6 @@
[Setup] [Setup]
AppName=MAP65 AppName=MAP65
AppVerName=MAP65 Version 2.4.0 r2570 AppVerName=MAP65 Version 2.4.0 r2571
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
DefaultDirName=c:\MAP65 DefaultDirName=c:\MAP65
DefaultGroupName=MAP65 DefaultGroupName=MAP65

16
plotter.cpp
View File

@ -73,7 +73,6 @@ void CPlotter::resizeEvent(QResizeEvent* ) //resizeEvent()
void CPlotter::paintEvent(QPaintEvent *) // paintEvent() void CPlotter::paintEvent(QPaintEvent *) // paintEvent()
{ {
static int x00=-99; static int x00=-99;
int ihr,imin;
if(m_paintEventBusy) return; if(m_paintEventBusy) return;
m_paintEventBusy=true; m_paintEventBusy=true;
@ -114,7 +113,7 @@ void CPlotter::paintEvent(QPaintEvent *) // paintEvent()
painter2.setPen(m_ColorTbl[m_zwf[i+k]]); painter2.setPen(m_ColorTbl[m_zwf[i+k]]);
painter2.drawPoint(i,j); painter2.drawPoint(i,j);
} }
if(j == 15) { if(j == 15) { //Does this do nothing ???
painter2.setPen(m_ColorTbl[255]); painter2.setPen(m_ColorTbl[255]);
painter2.drawText(5,10,m_sutc); painter2.drawText(5,10,m_sutc);
} }
@ -135,8 +134,7 @@ void CPlotter::paintEvent(QPaintEvent *) // paintEvent()
void CPlotter::draw(float s[], int i0, float splot[]) //draw() void CPlotter::draw(float s[], int i0, float splot[]) //draw()
{ {
int i,j,k,w,h; int i,j,w,h;
int ihr,imin;
float y; float y;
m_i0=i0; m_i0=i0;
@ -219,17 +217,19 @@ void CPlotter::draw(float s[], int i0, float splot[]) //dr
void CPlotter::UTCstr() void CPlotter::UTCstr()
{ {
int ihr,imin; int ihr,imin,isec;
if(datcom_.ndiskdat != 0) { if(datcom_.ndiskdat != 0) {
ihr=datcom_.nutc/100; ihr=datcom_.nutc/10000;
imin=datcom_.nutc%100; imin=(datcom_.nutc/100) % 100;
isec=datcom_.nutc % 100;
} else { } else {
qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000; qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000;
imin=ms/60000; imin=ms/60000;
ihr=imin/60; ihr=imin/60;
imin=imin % 60; imin=imin % 60;
isec=(ms/1000) % 60;
} }
sprintf(m_sutc,"%2.2d:%2.2d",ihr,imin); sprintf(m_sutc,"%2.2d:%2.2d:%2.2d",ihr,imin,isec);
} }
void CPlotter::DrawOverlay() //DrawOverlay() void CPlotter::DrawOverlay() //DrawOverlay()